[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'}) {