version 1.59, 2004/01/15 20:22:47
|
version 1.61, 2004/03/31 05:24:00
|
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+)\//; |
Line 711 ENDEDIT
|
Line 711 ENDEDIT
|
print $mfh ' '.$_.'="'.$value.'"'; |
print $mfh ' '.$_.'="'.$value.'"'; |
} |
} |
print $mfh '>'. |
print $mfh '>'. |
&HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey}) |
&HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey},'<>&"') |
.'</'.$tag.'>'; |
.'</'.$tag.'>'; |
} |
} |
} |
} |