[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[sakharuk]

sakharuk		Tue Dec 16 09:42:34 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  Added a few &mt() calls.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.146 loncom/publisher/lonpublisher.pm:1.147
--- loncom/publisher/lonpublisher.pm:1.146	Mon Dec  8 13:26:01 2003
+++ loncom/publisher/lonpublisher.pm	Tue Dec 16 09:42:34 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.146 2003/12/08 18:26:01 sakharuk Exp $
+# $Id: lonpublisher.pm,v 1.147 2003/12/16 14:42:34 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -277,7 +277,7 @@
 	$metastring=join('',<$metafh>);
     }
     &metaeval($metastring,$prefix);
-    return '<br /><b>Processed file:</b> <tt>'.
+    return '<br /><b>'.&mt('Processed file').':</b> <tt>'.
 	&Apache::loncfile::display($fn).'</tt>';
 }
 
@@ -628,7 +628,7 @@
 			   join(', ',@duplicatedids));
     if ($duplicateids) {
 	print $logfile "Duplicate ID(s) exist, ".join(', ',@duplicatedids)."\n";
-	my $outstring='<font color="red">Unable to publish file, it contains duplicated ID(s), ID(s) need to be unique. The duplicated ID(s) are: '.join(', ',@duplicatedids).'</font>';
+	my $outstring='<font color="red">'.&mt('Unable to publish file, it contains duplicated ID(s), ID(s) need to be unique. The duplicated ID(s) are').': '.join(', ',@duplicatedids).'</font>';
 	return ($outstring,1);
     }
     if ($needsfixup) {
@@ -868,7 +868,7 @@
     my %allow=();
 
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
-	return ('<font color="red">No write permission to user directory, FAIL</font>',1);
+	return ('<font color="red">'.&mt('No write permission to user directory, FAIL').'</font>',1);
     }
     print $logfile 
 "\n\n================= Publish ".localtime()." Phase One  ================\n".$ENV{'user.name'}.'@'.$ENV{'user.domain'}."\n";
@@ -910,7 +910,7 @@
                if (
        &Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
                                             $thisdep.'.meta') eq '-1') {
-		   $scrout.= ' - <font color="red">Currently not available'.
+		   $scrout.= ' - <font color="red">'.&mt('Currently not available').
 		       '</font>';
                } else {
                    my %temphash=(&Apache::lonnet::declutter($target).'___'.