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

matthew lon-capa-cvs@mail.lon-capa.org
Wed, 07 Aug 2002 18:49:36 -0000


matthew		Wed Aug  7 14:49:36 2002 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  Removed debugging code.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.37 loncom/interface/loncreateuser.pm:1.38
--- loncom/interface/loncreateuser.pm:1.37	Wed Aug  7 14:04:35 2002
+++ loncom/interface/loncreateuser.pm	Wed Aug  7 14:49:36 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.37 2002/08/07 18:04:35 matthew Exp $
+# $Id: loncreateuser.pm,v 1.38 2002/08/07 18:49:36 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,7 +47,7 @@
 # 11/12,11/13,11/15 Scott Harrison
 # 02/11/02 Matthew Hall
 #
-# $Id: loncreateuser.pm,v 1.37 2002/08/07 18:04:35 matthew Exp $
+# $Id: loncreateuser.pm,v 1.38 2002/08/07 18:49:36 matthew Exp $
 ###
 
 package Apache::loncreateuser;
@@ -234,8 +234,6 @@
 <tr>
 END
         foreach ('firstname','middlename','lastname','generation') {
-            my $result = &Apache::lonnet::allowed('mau',$ccdomain);
-            &Apache::lonnet::logthis("allowed: mau, $ccdomain = $result");
            if (&Apache::lonnet::allowed('mau',$ccdomain)) {
               $r->print(<<"END");            
 <td><input type="text" name="c$_" value="$userenv{$_}" size="15"/></td>