loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.47, 2004/01/01 02:16:29	version 1.49, 2004/02/02 20:21:25
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 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');