|
version 1.383, 2003/06/30 18:30:42
|
version 1.385, 2003/07/02 15:25:46
|
|
Line 2800 sub modifyuser {
|
Line 2800 sub modifyuser {
|
| } else { |
} else { |
| %names = @tmp; |
%names = @tmp; |
| } |
} |
| if ($first) { $names{'firstname'} = $first; } |
if (defined($first)) { $names{'firstname'} = $first; } |
| if ($middle) { $names{'middlename'} = $middle; } |
if (defined($middle)) { $names{'middlename'} = $middle; } |
| if ($last) { $names{'lastname'} = $last; } |
if (defined($last)) { $names{'lastname'} = $last; } |
| if ($gene) { $names{'generation'} = $gene; } |
if (defined($gene)) { $names{'generation'} = $gene; } |
| my $reply = &put('environment', \%names, $udom,$uname); |
my $reply = &put('environment', \%names, $udom,$uname); |
| if ($reply ne 'ok') { return 'error: '.$reply; } |
if ($reply ne 'ok') { return 'error: '.$reply; } |
| &logthis('Success modifying user '.$udom.', '.$uname.', '.$uid.', '. |
&logthis('Success modifying user '.$udom.', '.$uname.', '.$uid.', '. |
|
Line 3297 sub EXT {
|
Line 3297 sub EXT {
|
| } |
} |
| } elsif ($realm eq 'query') { |
} elsif ($realm eq 'query') { |
| # ---------------------------------------------- pull stuff out of query string |
# ---------------------------------------------- pull stuff out of query string |
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},[$space]); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
| |
[$spacequalifierrest]); |
| return $ENV{'form.'.$spacequalifierrest}; |
return $ENV{'form.'.$spacequalifierrest}; |
| } elsif ($realm eq 'request') { |
} elsif ($realm eq 'request') { |
| # ------------------------------------------------------------- request.browser |
# ------------------------------------------------------------- request.browser |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl