--- loncom/interface/loncreateuser.pm 2007/07/20 23:55:12 1.158
+++ loncom/interface/loncreateuser.pm 2007/07/20 23:57:06 1.159
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.158 2007/07/20 23:55:12 albertel Exp $
+# $Id: loncreateuser.pm,v 1.159 2007/07/20 23:57:06 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1344,14 +1344,14 @@ END
if ($2 eq 'st') {
$1=~m{^/($match_domain)/($match_courseid)};
my $cid=$1.'_'.$2;
- $r->print(&mt('Drop from classlist').': '.
- &Apache::lonnet::critical('put:'.
- $env{'course.'.$cid.'.domain'}.':'.
- $env{'course.'.$cid.'.num'}.':classlist:'.
- &escape($env{'form.ccuname'}.':'.
- $env{'form.ccdomain'}).'='.
- &escape($now.':'),
- $env{'course.'.$cid.'.home'}).'
');
+ my $user = $env{'form.ccuname'}.':'.$env{'form.ccdomain'};
+ my $result =
+ &Apache::lonnet::cput('classlist',
+ { $user => $now },
+ $env{'course.'.$cid.'.domain'},
+ $env{'course.'.$cid.'.num'});
+ $r->print(&mt('Drop from classlist: [_1]',
+ ''.$result.'').'
');
}
}
if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
@@ -1371,14 +1371,14 @@ END
if ($2 eq 'st') {
$1=~m{^/($match_domain)/($match_courseid)};
my $cid=$1.'_'.$2;
- $r->print(&mt('Drop from classlist').': '.
- &Apache::lonnet::critical('put:'.
- $env{'course.'.$cid.'.domain'}.':'.
- $env{'course.'.$cid.'.num'}.':classlist:'.
- &escape($env{'form.ccuname'}.':'.
- $env{'form.ccdomain'}).'='.
- &escape($now.':'),
- $env{'course.'.$cid.'.home'}).'
');
+ my $user = $env{'form.ccuname'}.':'.$env{'form.ccdomain'};
+ my $result =
+ &Apache::lonnet::cput('classlist',
+ { $user => $now },
+ $env{'course.'.$cid.'.domain'},
+ $env{'course.'.$cid.'.num'});
+ $r->print(&mt('Drop from classlist: [_1]',
+ ''.$result.'').'
');
}
}
if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {