--- loncom/publisher/lonpublisher.pm 2003/09/25 20:13:19 1.137 +++ loncom/publisher/lonpublisher.pm 2003/09/25 22:30:06 1.138 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.137 2003/09/25 20:13:19 albertel Exp $ +# $Id: lonpublisher.pm,v 1.138 2003/09/25 22:30:06 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1301,6 +1301,9 @@ sub phasetwo { $metadatafields{'copyright'}=$ENV{'form.copyright'}; $metadatafields{'customdistributionfile'}= $ENV{'form.customdistributionfile'}; + $metadatafields{'obsolete'}=$ENV{'form.obsolete'}; + $metadatafields{'obsoletereplacement'}= + $ENV{'form.obsoletereplacement'}; $metadatafields{'dependencies'}=$ENV{'form.dependencies'}; my $allkeywords=$ENV{'form.addkey'}; @@ -1351,7 +1354,7 @@ sub phasetwo { unless ($metadatafields{'copyright'} eq 'priv') { my ($error,$success) = &store_metadata(\%metadatafields); if ($success) { - $r->print('
Synchronized SQL metadata database
'); + $r->print(''.&mt('Synchronized SQL metadata database').'
'); print $logfile "\nSynchronized SQL metadata database"; } else { $r->print($error); @@ -1421,7 +1424,7 @@ sub phasetwo { } else { - $r->print('Initial version
'); + $r->print(''.&mt('Initial version').'
'); print $logfile "\nInitial version"; } @@ -1513,10 +1516,12 @@ sub phasetwo { $r->print( '