loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.609, 2010/04/12 01:22:44	version 1.610, 2010/04/12 01:34:40
Line 9197 sub navmap_errormsg {	Line 9197 sub navmap_errormsg {

sub startpage {	sub startpage {
my ($r,$symb,$crumbs,$onlyfolderflag) = @_;	my ($r,$symb,$crumbs,$onlyfolderflag) = @_;
my $breadcrumbs= [{href=>"/adm/grades?command=gradingmenu&symb=".&HTML::Entities::encode($symb,'<>&"'),text=>"Grading"}];	unshift(@$crumbs,{href=>"/adm/grades?command=gradingmenu&symb=".&HTML::Entities::encode($symb,'<>&"'),text=>"Grading"});
# if ($crumbs) {
# push(@$breadcrumbs,$crumbs);
# }
$r->print(&Apache::loncommon::start_page('Grading',undef,	$r->print(&Apache::loncommon::start_page('Grading',undef,
{'bread_crumbs' => $breadcrumbs}));	{'bread_crumbs' => $crumbs}));
$r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag));	$r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag));
}	}