--- loncom/publisher/lonpubdir.pm	2003/09/21 03:30:02	1.38
+++ loncom/publisher/lonpubdir.pm	2003/09/22 03:02:06	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.38 2003/09/21 03:30:02 taceyjo1 Exp $
+# $Id: lonpubdir.pm,v 1.39 2003/09/22 03:02:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,6 +48,7 @@ use File::Copy;
 use Apache::Constants qw(:common :http :methods);
 use Apache::loncacc;
 use Apache::loncommon();
+use Apache::lonlocal;
 
 sub handler {
 
@@ -103,8 +104,10 @@ sub handler {
   # Start off the diretory table.
 
   $r->print('<table border=2>'.
-	    '<tr><th>Actions</th><th>Name</th><th>Title</th>'.
-	    '<th>Status</th><th>Last Modified</th></tr>');
+	    '<tr><th>'.&mt('Actions').'</th><th>'.&mt('Name').'</th><th>'.
+	    &mt('Title').'</th>'.
+	    '<th>'.&mt('Status').'</th><th>'.&mt('Last Modified').
+	    '</th></tr>');
 
   my $filename;
   my $dirptr=16384;		# Mask indicating a directory in stat.cmode.
@@ -182,7 +185,7 @@ sub getEffectiveUrl {
 sub startpage {
     my ($r, $uname, $udom, $thisdisfn) = @_;
     
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     
     $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');
@@ -210,7 +213,7 @@ parent.lastknownpriv='/~$uname/$thisdisf
 </script>
 ENDPUBDIRSCRIPT
 
-    $r->print('<h1>Construction Space Directory <tt>'.
+    $r->print('<h1>'.&mt('Construction Space Directory').' <tt>'.
 	      $thisdisfn.'/</tt></h1>'.
 	      '<script type="text/javascript">top.document.title = \''.
 	      $thisdisfn.'/ - LON-CAPA Construction Space\';</script>'.
@@ -225,7 +228,7 @@ ENDPUBDIRSCRIPT
                $uname.$thisdisfn."/default.meta'".'" value="Edit Directory Catalog Information" /></td></tr><tr><td><input type="checkbox" name="forcerepub" /> Force publication of unmodified files.</td><td>&nbsp;</td></tr></table></form>');
     
     if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
-	$r->print('<h3>Co-Author: '.$uname.' at '.$udom.
+	$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
 		  '</h3>');
     }
 }
@@ -266,7 +269,7 @@ sub putdirectory {
     
     my $disfilename = $dirname;
     if ($dirname eq '..') {
-	$disfilename = '<i>Parent Directory</i>';
+	$disfilename = '<i>'.&mt('Parent Directory').'</i>';
     }
     unless (( ($dirname eq '..') && ($reqfile eq '')) ||
 	    ($dirname eq '.')) {
@@ -320,11 +323,11 @@ sub putresource {
     my $editlink='';
     my $editlink2='';
     if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) {
-	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">Edit</a>)';
+	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('Edit').'</a>)';
     }
     if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
-	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">EditXML</a>)';
-	$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">Edit</a>)';
+	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('EditXML').'</a>)';
+	$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
     }
     $r->print('<tr bgcolor="'.$bgcolor.'">'.
 	      '<td><a target="_parent" href="/adm/publish?filename=/~'.

Actions	Name	Title	Status	Last Modified
'.&mt('Actions').'	'.&mt('Name').'	'. + &mt('Title').'	'.&mt('Status').'	'.&mt('Last Modified'). + '
Force publication of unmodified files.