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

Diff for /loncom/interface/lonquickgrades.pm between versions 1.60 and 1.64

version 1.60, 2011/01/03 14:19:39 version 1.64, 2011/01/21 16:28:32
Line 121  sub startGradeScreen { Line 121  sub startGradeScreen {
     my $allowed_to_edit =  &Apache::lonnet::allowed('mgr',$env{'request.course.id'});      my $allowed_to_edit =  &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
   
     if ($allowed_to_view) {      if ($allowed_to_view) {
        $r->print('<div class="LC_head_subbox">');         my @notes;
        if ($notshowTotals)  { $r->print ('&nbsp;'.&mt('Students do not see total points.').'&nbsp;'); }         push(@notes,&mt('Students do not see total points.')) if ($notshowTotals);
        if ($notshowSPRSlink){ $r->print ('&nbsp;'.&mt('Students do not see link to spreadsheet.').'&nbsp;'); }         push(@notes,&mt('Students do not see link to spreadsheet.')) if ($notshowSPRSlink);
        if ($showPoints)     { $r->print ('&nbsp;'.&mt('Students will see points based on problem weights.').'&nbsp;'); }         push(@notes,&mt('Students will see points based on problem weights.')) if ($showPoints);
        if ($showCategories) { $r->print ('&nbsp;'.&mt('Students will see points based on categories.').'&nbsp;'); }         push(@notes,&mt('Students will see points based on categories.')) if ($showCategories);
        $r->print('&nbsp;'.&Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading').'</div>');         push(@notes, &Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading'));
          $r->print(&Apache::loncommon::head_subbox(join('&nbsp;&nbsp;',@notes)));
     }      }
   
   
     $r->print("\n".'<ul class="LC_TabContentBigger" id="main">');      $r->print("\n".'<ul class="LC_TabContentBigger" id="main">');
     $r->print("\n".'<li'.($mode eq 'quick'?' class="active"':'').'><a href="/adm/quickgrades"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.      $r->print("\n".'<li'.($mode eq 'quick'?' class="active"':'').'><a href="/adm/quickgrades"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.
                                           ($showPoints?&mt('Points Overview'):($showCategories?&mt('Grades Overview'):&mt('Completion Overview'))).                                            ($showPoints?&mt('Individual Points Overview'):($showCategories?&mt('Grades Overview'):&mt('Completion Overview'))).
                                           '&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>');                                            '&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>');
   
     if (!($showPoints || $notshowSPRSlink) || ($allowed_to_view)) {      if (!($showPoints || $notshowSPRSlink) || ($allowed_to_view)) {
Line 140  sub startGradeScreen { Line 141  sub startGradeScreen {
                                                                  &mt('Spreadsheet (Detailed)').'</b></a></li>');                                                                   &mt('Spreadsheet (Detailed)').'</b></a></li>');
     }      }
     if ($allowed_to_view) {      if ($allowed_to_view) {
          $r->print("\n".'<li'.($mode eq 'statistics'?' class="active"':'').'><a href="/adm/statistics"><b>'.
                                                                    &mt('Statistics and Reports').'</b></a></li>');
   
        $r->print("\n".'<li'.($mode eq 'chart'?' class="active"':'').'><a href="/adm/statistics?reportSelected=student_assessment"><b>'.         $r->print("\n".'<li'.($mode eq 'chart'?' class="active"':'').'><a href="/adm/statistics?reportSelected=student_assessment"><b>'.
                                                                  &mt('Assessment Overview Chart').'</b></a></li>');                                                                   &mt('Assessment Overview Chart').'</b></a></li>');
   
Line 402  sub outputCategories { Line 406  sub outputCategories {
   
     my ($r,$showPoints,$notshowTotals,      my ($r,$showPoints,$notshowTotals,
            $navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_;             $navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_;
   # Take care of storing and retrieving categories
   
       my $cangrade=&Apache::lonnet::allowed('mgr');
   
       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
       my %categories=();
   # Storing
       if (($cangrade) && ($env{'form.storechanges'})) {
   
   # Actually store
           &Apache::lonnet::put('grading_categories',\%categories,$cdom,$cnum);
       } else {
   # Loading
           %categories=&Apache::lonnet::dump('grading_categories',$cdom,$cnum);
       }
   # categories loaded now
   # Form only generated if user can change the grading categories
      if ($cangrade) {
         $r->print('<form method="post">');
      }
   #
   # Business logic here
   #
      if ($cangrade) {
         $r->print('<input type="submit" name="storechanges" value="'.&mt("Save changes to grading categories").'" /></form>');
      }
 }  }
   
 # Pass this two refs to arrays for the start and end color, and a number  # Pass this two refs to arrays for the start and end color, and a number
Removed from v.1.60  
changed lines
  Added in v.1.64

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