[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 11 Jan 2005 21:46:53 -0000
albertel Tue Jan 11 16:46:53 2005 EDT
Modified files:
/loncom/interface loncreateuser.pm
Log:
- was double commiting some role adds
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.95 loncom/interface/loncreateuser.pm:1.96
--- loncom/interface/loncreateuser.pm:1.95 Tue Jan 11 15:49:05 2005
+++ loncom/interface/loncreateuser.pm Tue Jan 11 16:46:52 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.95 2005/01/11 20:49:05 albertel Exp $
+# $Id: loncreateuser.pm,v 1.96 2005/01/11 21:46:52 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1237,14 +1237,6 @@
$r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,''));
}
}
- # Assign the role and report it.
- $r->print(&mt('Assigning').' '.$2.' in '.$url.': '.
- ($start?', '.&mt('starting').' '.localtime($start):'').
- ($end?', '.&mt('ending').' '.localtime($end):'').': <b>'.
- &Apache::lonnet::assignrole(
- $ENV{'form.ccdomain'},$ENV{'form.ccuname'},
- $url,$2,$end,$start)
- .'</b><br>');
} else {
$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>');
}