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

Diff for /loncom/interface/lonmeta.pm between versions 1.11 and 1.12

version 1.11, 2001/12/24 21:09:08 version 1.12, 2001/12/24 23:01:31
Line 96  sub dynamicmeta { Line 96  sub dynamicmeta {
     return %returnhash;      return %returnhash;
 }  }
   
   # -------------------------------------------------------------- Pretty display
   
   sub evalgraph {
       my $value=shift;
       my $val=int($value*10.+0.5)-10;
       my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
       if ($val>=20) {
    $output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';
       } else {
           $output.='<td width='.($val).' bgcolor="#555555">&nbsp;</td>'.
                    '<td width='.(20-$val).' bgcolor="#FF3333">&nbsp;</td>';
       }
       $output.='<td bgcolor="#FFFF33">&nbsp;</td>';
       if ($val>20) {
    $output.='<td width='.($val-20).' bgcolor="#33FF33">&nbsp;</td>'.
                    '<td width='.(40-$val).' bgcolor="#555555">&nbsp;</td>';
       } else {
          $output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';
       }
       $output.='<td> ('.$value.') </td></tr></table>';
       return $output;
   }
   
   sub diffgraph {
       my $value=shift;
       my $val=int(40.0*$value+0.5);
       my @colors=('#FF3333','#EEBB33','#BBEE33','#33FF33',
                   '#33FF33','#BBEE33','#EEBB33','#FF3333');
       my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
       for (my $i=0;$i<8;$i++) {
    if ($val>$i*5) {
               $output.='<td width=5 bgcolor="'.$colors[$i].'">&nbsp;</td>';
           } else {
       $output.='<td width=5 bgcolor="#555555">&nbsp;</td>';
    }
       }
       $output.='<td> ('.$value.') </td></tr></table>';
       return $output;
   }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
 sub handler {  sub handler {
Line 202  $dynmeta{$_}."&nbsp;</td></tr>\n"); Line 242  $dynmeta{$_}."&nbsp;</td></tr>\n");
    if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {     if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
       $r->print(        $r->print(
 '<h4>Assessment Statistical Data</h4><table cellspacing=2 border=0>');  '<h4>Assessment Statistical Data</h4><table cellspacing=2 border=0>');
       foreach ('stdno','avetries','difficulty') {        foreach ('stdno','avetries') {
           $r->print(            $r->print(
 '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.  '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
 $dynmeta{$_}."&nbsp;</td></tr>\n");  $dynmeta{$_}."&nbsp;</td></tr>\n");
       }        }
         foreach ('difficulty') {
            $r->print(
   '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
   &diffgraph($dynmeta{$_})."</td></tr>\n");
         }
       $r->print('</table>');            $r->print('</table>');    
    }     }
    $r->print('<h4>Evaluation Data</h4><table cellspacing=2 border=0>');     $r->print('<h4>Evaluation Data</h4><table cellspacing=2 border=0>');
    foreach ('clear','depth','helpful','correct','technical') {     foreach ('clear','depth','helpful','correct','technical') {
        $r->print(         $r->print(
 '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.  '<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'.
 $dynmeta{$_}."&nbsp;</td></tr>\n");  &evalgraph($dynmeta{$_})."</td></tr>\n");
    }         }    
    $r->print('</table>');     $r->print('</table>');
    $disuri=~/^(\w+)\/(\w+)\//;        $disuri=~/^(\w+)\/(\w+)\//;   
Removed from v.1.11  
changed lines
  Added in v.1.12

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