--- loncom/interface/lonmeta.pm 2001/12/24 21:09:08 1.11
+++ loncom/interface/lonmeta.pm 2001/12/24 23:01:31 1.12
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.11 2001/12/24 21:09:08 www Exp $
+# $Id: lonmeta.pm,v 1.12 2001/12/24 23:01:31 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -96,6 +96,46 @@ sub dynamicmeta {
return %returnhash;
}
+# -------------------------------------------------------------- Pretty display
+
+sub evalgraph {
+ my $value=shift;
+ my $val=int($value*10.+0.5)-10;
+ my $output='
';
+ if ($val>=20) {
+ $output.='  | ';
+ } else {
+ $output.=' | '.
+ ' | ';
+ }
+ $output.=' | ';
+ if ($val>20) {
+ $output.=' | '.
+ ' | ';
+ } else {
+ $output.='  | ';
+ }
+ $output.=' ('.$value.') |
';
+ 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='';
+ for (my $i=0;$i<8;$i++) {
+ if ($val>$i*5) {
+ $output.=' | ';
+ } else {
+ $output.=' | ';
+ }
+ }
+ $output.=' ('.$value.') |
';
+ return $output;
+}
+
# ================================================================ Main Handler
sub handler {
@@ -202,18 +242,23 @@ $dynmeta{$_}." \n");
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
$r->print(
'Assessment Statistical Data
');
- foreach ('stdno','avetries','difficulty') {
+ foreach ('stdno','avetries') {
$r->print(
''.$items{$_}.' | '.
$dynmeta{$_}." |
\n");
}
+ foreach ('difficulty') {
+ $r->print(
+''.$items{$_}.' | '.
+&diffgraph($dynmeta{$_})." |
\n");
+ }
$r->print('
');
}
$r->print('Evaluation Data
');
foreach ('clear','depth','helpful','correct','technical') {
$r->print(
''.$items{$_}.' | '.
-$dynmeta{$_}." |
\n");
+&evalgraph($dynmeta{$_})."\n");
}
$r->print('
');
$disuri=~/^(\w+)\/(\w+)\//;