version 1.36, 2003/09/25 22:30:06
|
version 1.37, 2003/09/27 13:20:46
|
Line 401 $dynmeta{$_}." </td></tr>\n");
|
Line 401 $dynmeta{$_}." </td></tr>\n");
|
'<h4>'.&mt('Evaluation Comments').' ('.&mt('visible to author and co-authors only').')</h4>'. |
'<h4>'.&mt('Evaluation Comments').' ('.&mt('visible to author and co-authors only').')</h4>'. |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
$r->print( |
$r->print( |
'<h4>Error Messages (visible to author and co-authors only)</h4>'); |
'<h4>'.&mt('Error Messages').' ('. |
|
&mt('visible to author and co-authors only').')</h4>'); |
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2); |
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2); |
foreach (keys %errormsgs) { |
foreach (keys %errormsgs) { |
if ($_=~/^\Q$disuri\E\_\d+$/) { |
if ($_=~/^\Q$disuri\E\_\d+$/) { |
Line 454 $dynmeta{$_}." </td></tr>\n");
|
Line 455 $dynmeta{$_}." </td></tr>\n");
|
if ($disuri=~/\/default$/) { |
if ($disuri=~/\/default$/) { |
my $dir=$disuri; |
my $dir=$disuri; |
$dir=~s/default$//; |
$dir=~s/default$//; |
$displayfile='Default Cataloging Information for Directory '.$dir; |
$displayfile=&mt('Default Cataloging Information for Directory').' '. |
|
$dir; |
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
Line 466 $bodytag
|
Line 468 $bodytag
|
<form method="post"> |
<form method="post"> |
ENDEDIT |
ENDEDIT |
foreach ('author','title','subject','keywords','abstract','notes', |
foreach ('author','title','subject','keywords','abstract','notes', |
'copyright','customdistributionfile','language') { |
'copyright','customdistributionfile','language', |
|
'obsolete','obsoletereplacement') { |
if ($ENV{'form.new_'.$_}) { |
if ($ENV{'form.new_'.$_}) { |
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; |
$Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; |
} |
} |
Line 489 ENDEDIT
|
Line 492 ENDEDIT
|
my $mfh; |
my $mfh; |
unless ($mfh=Apache::File->new('>'.$fn)) { |
unless ($mfh=Apache::File->new('>'.$fn)) { |
$r->print( |
$r->print( |
'<p><font color=red>Could not write metadata, FAIL</font>'); |
'<p><font color=red>'.&mt('Could not write metadata').', '. |
|
&mt('FAIL').'</font>'); |
} else { |
} else { |
foreach (sort keys %Apache::lonpublisher::metadatafields) { |
foreach (sort keys %Apache::lonpublisher::metadatafields) { |
unless ($_=~/\./) { |
unless ($_=~/\./) { |
Line 510 ENDEDIT
|
Line 514 ENDEDIT
|
.'</'.$tag.'>'; |
.'</'.$tag.'>'; |
} |
} |
} |
} |
$r->print('<p>Wrote Metadata'); |
$r->print('<p>'.&mt('Wrote Metadata')); |
} |
} |
} |
} |
$r->print( |
$r->print( |
'<br /><input type="submit" name="store" value="Store Catalog Information"></form></body></html>'); |
'<br /><input type="submit" name="store" value="'. |
|
&mt('Store Catalog Information').'"></form></body></html>'); |
return OK; |
return OK; |
} |
} |
} |
} |