version 1.30, 2003/04/14 13:46:53
|
version 1.32, 2003/06/30 17:17:30
|
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$/) { |
Line 428 ENDEDIT
|
Line 434 ENDEDIT
|
if ($ENV{'form.new_'.$_}) { |
if ($ENV{'form.new_'.$_}) { |
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; |
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; |
} |
} |
$r->print( |
if (m/copyright/) { |
&Apache::lonpublisher::textfield($_,'new_'.$_, |
$r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_, |
$Apache::lonpublisher::metadatafields{$_})); |
$Apache::lonpublisher::metadatafields{$_}, |
|
\&Apache::loncommon::copyrightdescription, |
|
(&Apache::loncommon::copyrightids))); |
|
} elsif (m/language/) { |
|
$r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_, |
|
$Apache::lonpublisher::metadatafields{$_}, |
|
\&Apache::loncommon::languagedescription, |
|
(&Apache::loncommon::languageids))); |
|
} else { |
|
$r->print(&Apache::lonpublisher::textfield($_,'new_'.$_, |
|
$Apache::lonpublisher::metadatafields{$_})); |
|
} |
} |
} |
if ($ENV{'form.store'}) { |
if ($ENV{'form.store'}) { |
my $mfh; |
my $mfh; |