version 1.156, 2003/12/28 20:12:59
|
version 1.159, 2003/12/31 03:02:49
|
Line 127 use Apache::lonmysql;
|
Line 127 use Apache::lonmysql;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::loncfile; |
use Apache::loncfile; |
use Apache::lonmeta; |
use Apache::lonmeta; |
|
use Apache::lonmsg; |
use vars qw(%metadatafields %metadatakeys); |
use vars qw(%metadatafields %metadatakeys); |
|
|
my %addid; |
my %addid; |
Line 317 sub textfield {
|
Line 318 sub textfield {
|
$value=~s/\s+$//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+/ /gs; |
$value=~s/\s+/ /gs; |
$title=&mt($title); |
$title=&mt($title); |
my $uctitle=uc($title); |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
|
"</b></font></p><br />". |
"</b></font></p><br />". |
'<input type="text" name="'.$name.'" size=80 value="'.$value.'" />'; |
'<input type="text" name="'.$name.'" size=80 value="'.$value.'" />'; |
} |
} |
Line 331 sub hiddenfield {
|
Line 331 sub hiddenfield {
|
sub selectbox { |
sub selectbox { |
my ($title,$name,$value,$functionref,@idlist)=@_; |
my ($title,$name,$value,$functionref,@idlist)=@_; |
$title=&mt($title); |
$title=&mt($title); |
my $uctitle=uc($title); |
|
$value=(split(/\s*,\s*/,$value))[-1]; |
$value=(split(/\s*,\s*/,$value))[-1]; |
my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$title:". |
'</b></font></p><br /><select name="'.$name.'">'; |
'</b></font></p><br /><select name="'.$name.'">'; |
foreach (@idlist) { |
foreach (@idlist) { |
$selout.='<option value=\''.$_.'\''; |
$selout.='<option value=\''.$_.'\''; |
Line 1018 sub publish {
|
Line 1017 sub publish {
|
} |
} |
|
|
} else { |
} else { |
|
# ------------------------------------------ See if anything new in file itself |
|
|
|
$allmeta=&parseformeta($source,$style); |
# ---------------------- Read previous metafile, remember parameters and stores |
# ---------------------- Read previous metafile, remember parameters and stores |
|
|
$scrout.=&metaread($logfile,$source.'.meta'); |
$scrout.=&metaread($logfile,$source.'.meta'); |
Line 1028 sub publish {
|
Line 1030 sub publish {
|
delete $metadatafields{$_}; |
delete $metadatafields{$_}; |
} |
} |
} |
} |
# ------------------------------------------ See if anything new in file itself |
|
|
|
$allmeta=&parseformeta($source,$style); |
|
} |
} |
|
|
|
|
Line 1112 sub publish {
|
Line 1111 sub publish {
|
# --------------------------------------------------- Scan content for keywords |
# --------------------------------------------------- Scan content for keywords |
|
|
my $keywords_help = Apache::loncommon::help_open_topic("Publishing_Keywords"); |
my $keywords_help = Apache::loncommon::help_open_topic("Publishing_Keywords"); |
my $KEYWORDS=&mt('KEYWORDS'); |
my $KEYWORDS=&mt('Keywords'); |
my $CheckAll=&mt('check all'); |
my $CheckAll=&mt('check all'); |
my $UncheckAll=&mt('uncheck all'); |
my $UncheckAll=&mt('uncheck all'); |
my $keywordout=<<"END"; |
my $keywordout=<<"END"; |
Line 1163 END
|
Line 1162 END
|
$scrout.=&textfield('Notes','notes',$metadatafields{'notes'}); |
$scrout.=&textfield('Notes','notes',$metadatafields{'notes'}); |
|
|
$scrout.= |
$scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>".&mt('ABSTRACT').":". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>".&mt('Abstract').":". |
"</b></font></p><br />". |
"</b></font></p><br />". |
'<textarea cols="80" rows="5" name="abstract">'. |
'<textarea cols="80" rows="5" name="abstract">'. |
$metadatafields{'abstract'}.'</textarea></p>'; |
$metadatafields{'abstract'}.'</textarea></p>'; |
Line 1173 END
|
Line 1172 END
|
|
|
$scrout.= |
$scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
uc(&mt('Lowest Grade Level:')). |
&mt('Lowest Grade Level').':'. |
"</b></font></p><br />". |
"</b></font></p><br />". |
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
&Apache::loncommon::select_level_form($metadatafields{'lowestgradelevel'},'lowestgradelevel'). |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>". |
uc(&mt('Highest Grade Level:')). |
&mt('Highest Grade Level').':'. |
"</b></font></p><br />". |
"</b></font></p><br />". |
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
&Apache::loncommon::select_level_form($metadatafields{'highestgradelevel'},'highestgradelevel'). |
&textfield('Standards','standards',$metadatafields{'standards'}); |
&textfield('Standards','standards',$metadatafields{'standards'}); |
Line 1236 END
|
Line 1235 END
|
$scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$scrout.=&textfield('Custom Distribution File','customdistributionfile', |
$metadatafields{'customdistributionfile'}). |
$metadatafields{'customdistributionfile'}). |
$copyright_help; |
$copyright_help; |
my $uctitle=uc(&mt('Obsolete')); |
my $uctitle=&mt('Obsolete'); |
$scrout.= |
$scrout.= |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:". |
'</b></font> <input type="checkbox" name="obsolete" '; |
'</b></font> <input type="checkbox" name="obsolete" '; |
Line 1436 sub phasetwo {
|
Line 1435 sub phasetwo {
|
$r->print($error); |
$r->print($error); |
print $logfile "\n".$error; |
print $logfile "\n".$error; |
} |
} |
|
# --------------------------------------------- Delete author resource messages |
|
my $delresult=&Apache::lonmsg::del_url_author_res_msg($target); |
|
$r->print('<p>'.&mt('Removing error messages:').' '.$delresult.'</p>'); |
|
print $logfile "\nRemoving error messages: $delresult"; |
# ----------------------------------------------------------- Copy old versions |
# ----------------------------------------------------------- Copy old versions |
|
|
if (-e $target) { |
if (-e $target) { |
Line 1752 sub handler {
|
Line 1754 sub handler {
|
# -------------------------------------------------------------- Check filename |
# -------------------------------------------------------------- Check filename |
|
|
my $fn=&Apache::lonnet::unescape($ENV{'form.filename'}); |
my $fn=&Apache::lonnet::unescape($ENV{'form.filename'}); |
|
$fn=~s/\.meta$//; |
|
|
unless ($fn) { |
unless ($fn) { |
$r->log_reason($cuname.' at '.$cudom. |
$r->log_reason($cuname.' at '.$cudom. |