version 1.59, 2004/01/15 20:22:47
|
version 1.60, 2004/02/09 20:22:18
|
Line 561 ENDHEAD
|
Line 561 ENDHEAD
|
'goto','goto_list', |
'goto','goto_list', |
'course','course_list') { |
'course','course_list') { |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'. |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'. |
&prettyprint($dynmeta{$_})."</td></tr>\n"); |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) { |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) { |
Line 570 ENDHEAD
|
Line 570 ENDHEAD
|
'<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>'); |
'<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>'); |
foreach ('stdno','avetries','difficulty') { |
foreach ('stdno','avetries','difficulty') { |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'. |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'. |
&prettyprint($dynmeta{$_})."</td></tr>\n"); |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
} |
} |
$r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>'); |
$r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>'); |
foreach ('clear','depth','helpful','correct','technical') { |
foreach ('clear','depth','helpful','correct','technical') { |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'. |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'. |
&prettyprint($dynmeta{$_})."</td></tr>\n"); |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
$uri=~/^\/res\/(\w+)\/(\w+)\//; |
$uri=~/^\/res\/(\w+)\/(\w+)\//; |