version 1.158, 2007/07/20 23:55:12
|
version 1.159, 2007/07/20 23:57:06
|
Line 1344 END
|
Line 1344 END
|
if ($2 eq 'st') { |
if ($2 eq 'st') { |
$1=~m{^/($match_domain)/($match_courseid)}; |
$1=~m{^/($match_domain)/($match_courseid)}; |
my $cid=$1.'_'.$2; |
my $cid=$1.'_'.$2; |
$r->print(&mt('Drop from classlist').': <b>'. |
my $user = $env{'form.ccuname'}.':'.$env{'form.ccdomain'}; |
&Apache::lonnet::critical('put:'. |
my $result = |
$env{'course.'.$cid.'.domain'}.':'. |
&Apache::lonnet::cput('classlist', |
$env{'course.'.$cid.'.num'}.':classlist:'. |
{ $user => $now }, |
&escape($env{'form.ccuname'}.':'. |
$env{'course.'.$cid.'.domain'}, |
$env{'form.ccdomain'}).'='. |
$env{'course.'.$cid.'.num'}); |
&escape($now.':'), |
$r->print(&mt('Drop from classlist: [_1]', |
$env{'course.'.$cid.'.home'}).'</b><br />'); |
'<b>'.$result.'</b>').'<br />'); |
} |
} |
} |
} |
if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
Line 1371 END
|
Line 1371 END
|
if ($2 eq 'st') { |
if ($2 eq 'st') { |
$1=~m{^/($match_domain)/($match_courseid)}; |
$1=~m{^/($match_domain)/($match_courseid)}; |
my $cid=$1.'_'.$2; |
my $cid=$1.'_'.$2; |
$r->print(&mt('Drop from classlist').': <b>'. |
my $user = $env{'form.ccuname'}.':'.$env{'form.ccdomain'}; |
&Apache::lonnet::critical('put:'. |
my $result = |
$env{'course.'.$cid.'.domain'}.':'. |
&Apache::lonnet::cput('classlist', |
$env{'course.'.$cid.'.num'}.':classlist:'. |
{ $user => $now }, |
&escape($env{'form.ccuname'}.':'. |
$env{'course.'.$cid.'.domain'}, |
$env{'form.ccdomain'}).'='. |
$env{'course.'.$cid.'.num'}); |
&escape($now.':'), |
$r->print(&mt('Drop from classlist: [_1]', |
$env{'course.'.$cid.'.home'}).'</b><br />'); |
'<b>'.$result.'</b>').'<br />'); |
} |
} |
} |
} |
if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |