version 1.46, 2003/12/11 17:31:23
|
version 1.48, 2004/01/31 02:07:53
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (My Desk |
### |
# |
|
# (Internal Server Error Handler |
|
# |
|
# (Login Screen |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) |
|
# |
|
# 3/1/1 Gerd Kortemeyer) |
|
# |
|
# 3/1 Gerd Kortemeyer) |
|
# |
|
# 2/14,2/16,2/17,7/6 Gerd Kortemeyer |
|
# |
|
package Apache::loncreatecourse; |
package Apache::loncreatecourse; |
|
|
use strict; |
use strict; |
Line 700 ENDENHEAD
|
Line 688 ENDENHEAD
|
# |
# |
# Set first page |
# Set first page |
# |
# |
unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank')) { |
unless (($ENV{'form.nonstandard'}) || ($ENV{'form.firstres'} eq 'blank') |
|
|| ($cloneid)) { |
$r->print(&mt('Setting first resource').': '); |
$r->print(&mt('Setting first resource').': '); |
my ($errtext,$fatal)= |
my ($errtext,$fatal)= |
&Apache::londocs::mapread($crsunum,$crsudom,'default.sequence'); |
&Apache::londocs::mapread($crsunum,$crsudom,'default.sequence'); |
Line 739 ENDENHEAD
|
Line 728 ENDENHEAD
|
$r->print( |
$r->print( |
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>'); |
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>'); |
} |
} |
|
# Flush the course logs so reverse user roles immediately updated |
|
&Apache::lonnet::flushcourselogs(); |
$r->print('<p>'.&mt('Roles will be active at next login').'.</p></body></html>'); |
$r->print('<p>'.&mt('Roles will be active at next login').'.</p></body></html>'); |
} |
} |
|
|