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">  </td>'; |
|
} else { |
|
$output.='<td width='.($val).' bgcolor="#555555"> </td>'. |
|
'<td width='.(20-$val).' bgcolor="#FF3333"> </td>'; |
|
} |
|
$output.='<td bgcolor="#FFFF33"> </td>'; |
|
if ($val>20) { |
|
$output.='<td width='.($val-20).' bgcolor="#33FF33"> </td>'. |
|
'<td width='.(40-$val).' bgcolor="#555555"> </td>'; |
|
} else { |
|
$output.='<td width=20 bgcolor="#555555">  </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].'"> </td>'; |
|
} else { |
|
$output.='<td width=5 bgcolor="#555555"> </td>'; |
|
} |
|
} |
|
$output.='<td> ('.$value.') </td></tr></table>'; |
|
return $output; |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 202 $dynmeta{$_}." </td></tr>\n");
|
Line 242 $dynmeta{$_}." </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{$_}." </td></tr>\n"); |
$dynmeta{$_}." </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{$_}." </td></tr>\n"); |
&evalgraph($dynmeta{$_})."</td></tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
$disuri=~/^(\w+)\/(\w+)\//; |
$disuri=~/^(\w+)\/(\w+)\//; |