version 1.157, 2003/12/29 19:13:23
|
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 1016 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 1026 sub publish {
|
Line 1030 sub publish {
|
delete $metadatafields{$_}; |
delete $metadatafields{$_}; |
} |
} |
} |
} |
# ------------------------------------------ See if anything new in file itself |
|
|
|
$allmeta=&parseformeta($source,$style); |
|
} |
} |
|
|
|
|
Line 1234 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 1434 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 1750 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. |