version 1.95, 2005/01/11 20:49:05
|
version 1.96, 2005/01/11 21:46:52
|
Line 1237 END
|
Line 1237 END
|
$r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,'')); |
$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 { |
} else { |
$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>'); |
$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>'); |
} |
} |