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

raeburn raeburn@source.lon-capa.org
Fri, 23 Apr 2010 17:21:54 -0000


raeburn		Fri Apr 23 17:21:54 2010 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  - Bug 6263. 
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.340 loncom/interface/loncreateuser.pm:1.341
--- loncom/interface/loncreateuser.pm:1.340	Wed Apr 14 13:58:11 2010
+++ loncom/interface/loncreateuser.pm	Fri Apr 23 17:21:54 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.340 2010/04/14 13:58:11 wenzelju Exp $
+# $Id: loncreateuser.pm,v 1.341 2010/04/23 17:21:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2385,15 +2385,17 @@
                     }
                 }
                 foreach my $item (@requestcourses) {
-                    $newcustom{$item} = $env{'form.crsreq_'.$item};
-                    if ($env{'form.crsreq_'.$item} eq 'autolimit') {
-                        $newcustom{$item} .= '=';
-                        unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
-                            $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
+                    if ($env{'form.custom'.$item} == 1) {
+                        $newcustom{$item} = $env{'form.crsreq_'.$item};
+                        if ($env{'form.crsreq_'.$item} eq 'autolimit') {
+                            $newcustom{$item} .= '=';
+                            unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) {
+                                $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'};
+                            }
                         }
+                        $changed{$item} = &tool_admin($item,$newcustom{$item},
+                                                      \%changeHash,'requestcourses');
                     }
-                    $changed{$item} = &tool_admin($item,$newcustom{$item},
-                                                  \%changeHash,'requestcourses');
                 }
             }
             if ($canmodify_status{'inststatus'}) {