Diff for /loncom/interface/lonmeta.pm between versions 1.220 and 1.222

version 1.220, 2008/12/13 19:44:52 version 1.222, 2008/12/13 21:56:57
Line 164  sub evalgraph { Line 164  sub evalgraph {
     my $val=int($value*10.+0.5)-10;      my $val=int($value*10.+0.5)-10;
     my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>';      my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>';
     if ($val>=20) {      if ($val>=20) {
  $output.='<td width="20" bgcolor="#555555">&nbsp;&nbsp;</td>';   $output.='<td width="20" bgcolor="#555555">'.('&nbsp;' x2).'</td>';
     } else {      } else {
         $output.='<td width="'.($val).'" bgcolor="#555555">&nbsp;</td>'.          $output.='<td width="'.($val).'" bgcolor="#555555">&nbsp;</td>'.
                  '<td width="'.(20-$val).'" bgcolor="#FF3333">&nbsp;</td>';                   '<td width="'.(20-$val).'" bgcolor="#FF3333">&nbsp;</td>';
Line 174  sub evalgraph { Line 174  sub evalgraph {
  $output.='<td width="'.($val-20).'" bgcolor="#33FF33">&nbsp;</td>'.   $output.='<td width="'.($val-20).'" bgcolor="#33FF33">&nbsp;</td>'.
                  '<td width="'.(40-$val).'" bgcolor="#555555">&nbsp;</td>';                   '<td width="'.(40-$val).'" bgcolor="#555555">&nbsp;</td>';
     } else {      } else {
         $output.='<td width="20" bgcolor="#555555">&nbsp;&nbsp;</td>';          $output.='<td width="20" bgcolor="#555555">'.('&nbsp;' x2).'</td>';
     }      }
     $output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>';      $output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>';
     return $output;      return $output;
Line 927  sub present_uneditable_metadata { Line 927  sub present_uneditable_metadata {
    'obsolete',      'obsolete', 
    'obsoletereplacement');     'obsoletereplacement');
     }      }
       my $rownum = 0;
     foreach my $field (@fields) {      foreach my $field (@fields) {
           my $lastrow = '';
           $rownum ++;
           $lastrow = 1 if ($rownum == @fields); 
         $table.=&Apache::lonhtmlcommon::row_title($lt{$field})          $table.=&Apache::lonhtmlcommon::row_title($lt{$field})
                .&prettyprint($field,$content{$field})                 .&prettyprint($field,$content{$field})
                .&Apache::lonhtmlcommon::row_closure();                 .&Apache::lonhtmlcommon::row_closure($lastrow);
         delete($content{$field});          delete($content{$field});
     }      }
     #      #
Line 971  sub print_dynamic_metadata { Line 975  sub print_dynamic_metadata {
         exists($dynmeta{'course'})) {          exists($dynmeta{'course'})) {
         $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.          $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'.
                   &Apache::lonhtmlcommon::start_pick_box());                    &Apache::lonhtmlcommon::start_pick_box());
         foreach my $item ('count',          my @counts = ('count','sequsage','sequsage_list',
                           'sequsage','sequsage_list',                        'comefrom','comefrom_list','goto',
                           'comefrom','comefrom_list',                        'goto_list','course','course_list');
                           'goto','goto_list',          my $rownum = 0;
                           'course','course_list') {          foreach my $item (@counts) {
               my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @counts);
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})              $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                      .&prettyprint($item,$dynmeta{$item})                       .&prettyprint($item,$dynmeta{$item})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure($lastrow)
             );              );
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1001  sub print_dynamic_metadata { Line 1008  sub print_dynamic_metadata {
                      .&prettyprint('stdno',$dynmeta{'stdno'})                       .&prettyprint('stdno',$dynmeta{'stdno'})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure()
             );              );
             foreach my $item ('avetries','difficulty','disc') {              my @stats = ('avetries','difficulty','disc');
               my $rownum = 0;
               foreach my $item (@stats) {
                   my $lastrow = '';
                   $rownum ++;
                   $lastrow = 1 if ($rownum == @stats);
                 $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})                  $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                          .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))                           .&prettyprint($item,sprintf('%5.2f',$dynmeta{$item}))
                          .&Apache::lonhtmlcommon::row_closure()                           .&Apache::lonhtmlcommon::row_closure($lastrow)
                 );                  );
             }              }
             $r->print(&Apache::lonhtmlcommon::end_pick_box());              $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1077  sub print_dynamic_metadata { Line 1089  sub print_dynamic_metadata {
         exists($dynmeta{'technical'})){           exists($dynmeta{'technical'})){ 
         $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.          $r->print('<h4>'.&mt('Evaluation Data').'</h4>'.
                   &Apache::lonhtmlcommon::start_pick_box());                    &Apache::lonhtmlcommon::start_pick_box());
         foreach my $item ('clear','depth','helpful','correct','technical') {          my @criteria = ('clear','depth','helpful','correct','technical');
           my $rownum = 0;
           foreach my $item (@criteria) {
               my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @criteria);
             $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})              $r->print(&Apache::lonhtmlcommon::row_title($lt{$item})
                      .&prettyprint($item,$dynmeta{$item})                       .&prettyprint($item,$dynmeta{$item})
                      .&Apache::lonhtmlcommon::row_closure()                       .&Apache::lonhtmlcommon::row_closure($lastrow)
             );              );
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1113  sub print_dynamic_metadata { Line 1130  sub print_dynamic_metadata {
               &mt('Additional Metadata (non-standard, parameters, exports)').                &mt('Additional Metadata (non-standard, parameters, exports)').
               '</h3>');                '</h3>');
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::lonhtmlcommon::start_pick_box());
     foreach my $name (sort(keys(%content))) {      my @names;
         if ($name!~/\.display$/) {      foreach my $key (sort(keys(%content))) {
           if ($key!~/\.display$/) {
               push(@names,$key);
           }
       }
       if (@names > 0) {
           my $rownum = 0;
           foreach my $name (@names) {
               my $lastrow = '';
               $rownum ++;
               $lastrow = 1 if ($rownum == @names);
   
             my $display=&Apache::lonnet::metadata($uri,              my $display=&Apache::lonnet::metadata($uri,
                                                   $name.'.display');                                                    $name.'.display');
             if (! $display) {               if (! $display) { 
Line 1135  sub print_dynamic_metadata { Line 1163  sub print_dynamic_metadata {
             if ($otherinfo) {              if ($otherinfo) {
                 $r->print(' ('.$otherinfo.')');                  $r->print(' ('.$otherinfo.')');
             }              }
             $r->print(&Apache::lonhtmlcommon::row_closure());              $r->print(&Apache::lonhtmlcommon::row_closure($lastrow));
         }          }
     }      }
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::lonhtmlcommon::end_pick_box());

Removed from v.1.220  
changed lines
  Added in v.1.222


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