[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm

[banghart]

banghart		Mon Jun 11 18:24:52 2007 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  	Style and unterminated <input>.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.154 loncom/interface/loncreateuser.pm:1.155
--- loncom/interface/loncreateuser.pm:1.154	Mon Jun 11 18:13:07 2007
+++ loncom/interface/loncreateuser.pm	Mon Jun 11 18:24:51 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.154 2007/06/11 22:13:07 banghart Exp $
+# $Id: loncreateuser.pm,v 1.155 2007/06/11 22:24:51 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1710,7 +1710,7 @@
              &Apache::loncommon::end_data_table_row());
     }
     $r->print(&Apache::loncommon::end_data_table().
-   '<input type="reset" value="Reset"><input type="submit" value="'.&mt('Define Role').'" /></form>'.
+   '<input type="reset" value="Reset" /><input type="submit" value="'.&mt('Define Role').'" /></form>'.
 	      &Apache::loncommon::end_page());
 }
 # --------------------------------------------------------
@@ -1735,7 +1735,7 @@
     $return_script .= 'function set_'.$role.'() {'."\n";
     my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});
     my %role_c;
-    foreach my $priv(@temp) {
+    foreach my $priv (@temp) {
         my ($priv_item, $dummy) = split(/\&/,$priv);
         $role_c{$priv_item} = 1;
     }