version 1.136, 2003/09/25 20:01:15
|
version 1.138, 2003/09/25 22:30:06
|
Line 898 sub publish {
|
Line 898 sub publish {
|
$outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s; |
$outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s; |
|
|
### FIXME: is this really what we want? |
### FIXME: is this really what we want? |
|
# I dont' think so, to will corrupt any UTF-8 resources at least, |
|
# and any encoding other than ISO-8859-1 will probably break |
#Encode any High ASCII characters |
#Encode any High ASCII characters |
$outstring=&HTML::Entities::encode($outstring,"\200-\377"); |
#$outstring=&HTML::Entities::encode($outstring,"\200-\377"); |
# ------------------------------------------------------------- Write modified. |
# ------------------------------------------------------------- Write modified. |
|
|
{ |
{ |
Line 1299 sub phasetwo {
|
Line 1301 sub phasetwo {
|
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
$metadatafields{'customdistributionfile'}= |
$metadatafields{'customdistributionfile'}= |
$ENV{'form.customdistributionfile'}; |
$ENV{'form.customdistributionfile'}; |
|
$metadatafields{'obsolete'}=$ENV{'form.obsolete'}; |
|
$metadatafields{'obsoletereplacement'}= |
|
$ENV{'form.obsoletereplacement'}; |
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
|
|
my $allkeywords=$ENV{'form.addkey'}; |
my $allkeywords=$ENV{'form.addkey'}; |
Line 1349 sub phasetwo {
|
Line 1354 sub phasetwo {
|
unless ($metadatafields{'copyright'} eq 'priv') { |
unless ($metadatafields{'copyright'} eq 'priv') { |
my ($error,$success) = &store_metadata(\%metadatafields); |
my ($error,$success) = &store_metadata(\%metadatafields); |
if ($success) { |
if ($success) { |
$r->print('<p>Synchronized SQL metadata database</p>'); |
$r->print('<p>'.&mt('Synchronized SQL metadata database').'</p>'); |
print $logfile "\nSynchronized SQL metadata database"; |
print $logfile "\nSynchronized SQL metadata database"; |
} else { |
} else { |
$r->print($error); |
$r->print($error); |
Line 1419 sub phasetwo {
|
Line 1424 sub phasetwo {
|
|
|
|
|
} else { |
} else { |
$r->print('<p>Initial version</p>'); |
$r->print('<p>'.&mt('Initial version').'</p>'); |
print $logfile "\nInitial version"; |
print $logfile "\nInitial version"; |
} |
} |
|
|
Line 1511 sub phasetwo {
|
Line 1516 sub phasetwo {
|
|
|
$r->print( |
$r->print( |
'<hr /><a href="'.$thisdistarget.'"><font size="+2">'. |
'<hr /><a href="'.$thisdistarget.'"><font size="+2">'. |
'View Published Version</font></a>'. |
&mt('View Published Version').'</font></a>'. |
'<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a></p>'. |
'<p><a href="'.$thissrc.'"><font size=+2>'. |
|
&mt('Back to Source').'</font></a></p>'. |
'<p><a href="'.$thissrcdir. |
'<p><a href="'.$thissrcdir. |
'"><font size="+2">Back to Source Directory</font></a></p>'); |
'"><font size="+2">'. |
|
&mt('Back to Source Directory').'</font></a></p>'); |
} |
} |
} |
} |
|
|
Line 1545 sub batchpublish {
|
Line 1552 sub batchpublish {
|
|
|
my $thisembstyle=&Apache::loncommon::fileembstyle($thistype); |
my $thisembstyle=&Apache::loncommon::fileembstyle($thistype); |
|
|
$r->print('<h2>Publishing <tt>'.$thisdisfn.'</tt></h2>'); |
$r->print('<h2>'.&mt('Publishing').' <tt>'.$thisdisfn.'</tt></h2>'); |
|
|
# phase one takes |
# phase one takes |
# my ($source,$target,$style,$batch)=@_; |
# my ($source,$target,$style,$batch)=@_; |