[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.608 and 1.609

version 1.608, 2010/04/11 22:53:23 version 1.609, 2010/04/12 01:22:44
Line 9194  sub navmap_errormsg { Line 9194  sub navmap_errormsg {
            &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this grading page.','<a href="/adm/roles?selectrole=1&newrole='.$env{'request.role'}.'">','</a>').             &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this grading page.','<a href="/adm/roles?selectrole=1&newrole='.$env{'request.role'}.'">','</a>').
            '</div>';             '</div>';
 }  }
 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,      $r->print(&Apache::loncommon::start_page('Grading',undef,
                                           {'bread_crumbs' => $crumbs}));                                            {'bread_crumbs' => $breadcrumbs}));
     if ($env{'form.symb'}) {      $r->print(&Apache::lonhtmlcommon::resource_info_box($symb,$onlyfolderflag));
        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().  
                     '<th>'.&mt('Resource:').'</th><td>'.$title.'</td>'.  
                     &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().  
                     '<th>'.&mt('Folder:').'</th><td>'.$folder.'</td>'.  
                     &Apache::loncommon::end_data_table_row().  
                     &Apache::loncommon::end_data_table());  
     }  
 }  }
   
 sub handler {  sub handler {
Removed from v.1.608  
changed lines
  Added in v.1.609

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>