version 1.30, 2003/04/14 13:46:53
|
version 1.31, 2003/04/15 00:53:04
|
Line 320 $dynmeta{$_}." </td></tr>\n");
|
Line 320 $dynmeta{$_}." </td></tr>\n");
|
foreach my $cat ('usage','comefrom','goto') { |
foreach my $cat ('usage','comefrom','goto') { |
$r->print( |
$r->print( |
'<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'. |
'<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'. |
$dynmeta{$_}.'<br />'.join('<br /><font size="-1">', |
$dynmeta{$cat}.'<font size="-1"><ul>'.join("\n", |
map { '<a href="'.&Apache::lonnet::clutter($_).'">'. |
map { my $murl=$_; |
&Apache::lonnet::gettitle($_).' <tt>['. |
'<li><a href="'.&Apache::lonnet::clutter($murl).'" target="preview">'. |
$_.']</tt></a>' } |
&Apache::lonnet::gettitle($murl).' [<tt>'.$murl |
split(/\,/,$dynmeta{$cat.'_list'}))."</font></td></tr>\n"); |
.'</tt>]</a></li>' } |
|
split(/\,/,$dynmeta{$cat.'_list'}))."</ul></font></td></tr>\n"); |
} |
} |
foreach ('course') { |
foreach my $cat ('course') { |
$r->print( |
$r->print( |
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
'<tr><td bgcolor="#AAAAAA">'.$items{$cat}.'</td><td bgcolor="#CCCCCC">'. |
$dynmeta{$_}." </td></tr>\n"); |
$dynmeta{$cat}.'<font size="-1"><ul>'.join("\n", |
|
map { my %courseinfo=&Apache::lonnet::coursedescription($_); |
|
'<li><a href="/public/'. |
|
$courseinfo{'domain'}.'/'.$courseinfo{'num'}.'/syllabus" target="preview">'. |
|
$courseinfo{'description'}.'</a></li>' } |
|
split(/\,/,$dynmeta{$cat.'_list'}))."</ul></font></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$/) { |