loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.90, 2006/05/30 20:05:05	version 1.91, 2006/06/03 21:05:04
Line 426 END	Line 426 END
&Apache::loncommon::start_page($titles{$env{'form.phase'}},$js);	&Apache::loncommon::start_page($titles{$env{'form.phase'}},$js);
my $end_page =	my $end_page =
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
my $type = $crstype;	my $crumbs =
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] Information',	&Apache::lonhtmlcommon::breadcrumbs($crstype.' Information',
$type),'Create_Course',	'Create_Course',undef,
undef,'Create_Courses');	'Create_Courses');
$r->print($start_page.$crumbs);	$r->print($start_page.$crumbs);
if ($crstype eq 'Course') {	if ($crstype eq 'Course') {
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
Line 802 sub create_course {	Line 802 sub create_course {
}	}
}	}
my $logmsg;	my $logmsg;
my $start_page=&Apache::loncommon::start_page(&mt('Create a New [_1]',$crstype));	my $start_page=&Apache::loncommon::start_page('Create a New '.$crstype);
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Outcome','Create_Course',undef,'Create_Courses');	my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Outcome','Create_Course',undef,'Create_Courses');

$r->print($start_page.$crumbs);	$r->print($start_page.$crumbs);