--- loncom/homework/grades.pm 2010/04/11 22:53:23 1.608 +++ loncom/homework/grades.pm 2010/04/12 01:22:44 1.609 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.608 2010/04/11 22:53:23 www Exp $ +# $Id: grades.pm,v 1.609 2010/04/12 01:22:44 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9194,28 +9194,16 @@ sub navmap_errormsg { &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this grading page.','',''). ''; } -sub startpage{ - my ($r,$crumbs,$symb,$onlyfolderflag) = @_; - unshift(@$crumbs, {href=>"/adm/grades?command=gradingmenu&symb=".&HTML::Entities::encode($symb,'<>&"'),text=>"Grading"}); +sub startpage { + my ($r,$symb,$crumbs,$onlyfolderflag) = @_; + my $breadcrumbs= [{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, - {'bread_crumbs' => $crumbs})); - if ($env{'form.symb'}) { - my $symb=$env{'form.symb'}; - my $title=&Apache::lonnet::gettitle($symb); - $r->print(&Apache::loncommon::start_data_table()); - unless ($onlyfolderflag) { - $r->print(&Apache::loncommon::start_data_table_row(). - ''.&mt('Resource:').''.$title.''. - &Apache::loncommon::end_data_table_row()); - } - my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb); - my $folder=&Apache::lonnet::gettitle($map); - $r->print(&Apache::loncommon::start_data_table_row(). - ''.&mt('Folder:').''.$folder.''. - &Apache::loncommon::end_data_table_row(). - &Apache::loncommon::end_data_table()); - } + {'bread_crumbs' => $breadcrumbs})); + $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag)); } sub handler {