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

[raeburn]

raeburn		Thu Aug 16 17:16:41 2007 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  - typo
  - need an additional table header for permanentemail
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.172 loncom/interface/loncreateuser.pm:1.173
--- loncom/interface/loncreateuser.pm:1.172	Wed Aug 15 12:25:14 2007
+++ loncom/interface/loncreateuser.pm	Thu Aug 16 17:16:39 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.172 2007/08/15 16:25:14 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.173 2007/08/16 21:16:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -783,7 +783,7 @@
 '<th>'.$lt{'fn'}.'</th><th>'.$lt{'mn'}.'</th><th>'.$lt{'ln'}.'</th><th>'.$lt{'gen'}.'</th><th>'.$lt{'email'}.'</th>'.
                   &Apache::loncommon::end_data_table_header_row().
                   &Apache::loncommon::start_data_table_row());
-        foreach my $item ('firstname','middlename','lastname','generation','permenanentemail') {
+        foreach my $item ('firstname','middlename','lastname','generation','permanentemail') {
            if (&Apache::lonnet::allowed('mau',$ccdomain)) {
               $r->print(<<"END");
 <td><input type="text" name="c$item" value="$userenv{$item}" size="15" /></td>
@@ -1471,6 +1471,7 @@
     <th>$lt{'mddl'}</th>
     <th>$lt{'lst'}</th>
     <th>$lt{'gen'}</th>
+    <th>$lt{'mail'}</th>
     <th>$lt{'disk'}<th></tr>
 <tr><td>$lt{'prvs'}</td>
     <td>$userenv{'firstname'}  </td>