');
foreach ('count') {
$r->print(
''.$items{$_}.' | '.
@@ -320,21 +336,27 @@ $dynmeta{$_}." |
\n");
foreach my $cat ('usage','comefrom','goto') {
$r->print(
''.$items{$cat}.' | '.
-$dynmeta{$_}.' '.join(' ',
- map { ''.
- &Apache::lonnet::gettitle($_).' ['.
- $_.']' }
- split(/\,/,$dynmeta{$cat.'_list'}))." |
\n");
+$dynmeta{$cat}.'\n");
}
- foreach ('course') {
+ foreach my $cat ('course') {
$r->print(
-''.$items{$_}.' | '.
-$dynmeta{$_}." |
\n");
+''.$items{$cat}.' | '.
+$dynmeta{$cat}.' |
\n");
}
$r->print('
');
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
$r->print(
-'