version 1.46, 2003/12/11 17:31:23
|
version 1.50, 2004/02/13 15:24:00
|
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 402 $lt{'asov'}.
|
Line 390 $lt{'asov'}.
|
<h2>$lt{'assp'}</h2> |
<h2>$lt{'assp'}</h2> |
<p> |
<p> |
<b>$lt{'oaas'}: </b> |
<b>$lt{'oaas'}: </b> |
<input type="checkbox" name="openall" checked> |
<input type="checkbox" name="openall" /> |
</p> |
</p> |
<h2>$lt{'mssg'}</h2> |
<h2>$lt{'mssg'}</h2> |
<p> |
<p> |
Line 576 ENDENHEAD
|
Line 564 ENDENHEAD
|
} |
} |
} |
} |
} |
} |
|
# do not hide course coordinator from staff listing, |
|
# even if privileged |
|
$cenv{'nothideprivileged'}=$ccuname.':'.$ccdomain; |
if ($ENV{'form.crsxlist'}) { |
if ($ENV{'form.crsxlist'}) { |
$cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'}; |
$cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'}; |
my @xlists = (); |
my @xlists = (); |
Line 700 ENDENHEAD
|
Line 691 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 731 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>'); |
} |
} |
|
|