|
version 1.295.2.32, 2010/04/14 19:46:56
|
version 1.295.2.33, 2010/04/23 17:51:42
|
|
Line 2385 sub update_user_data {
|
Line 2385 sub update_user_data {
|
| } |
} |
| } |
} |
| foreach my $item (@requestcourses) { |
foreach my $item (@requestcourses) { |
| $newcustom{$item} = $env{'form.crsreq_'.$item}; |
if ($env{'form.custom'.$item} == 1) { |
| if ($env{'form.crsreq_'.$item} eq 'autolimit') { |
$newcustom{$item} = $env{'form.crsreq_'.$item}; |
| $newcustom{$item} .= '='; |
if ($env{'form.crsreq_'.$item} eq 'autolimit') { |
| unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) { |
$newcustom{$item} .= '='; |
| $newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'}; |
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'}) { |
if ($canmodify_status{'inststatus'}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncreateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface