--- loncom/publisher/lonpublisher.pm	2003/03/29 05:58:12	1.120
+++ 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.120 2003/03/29 05:58:12 albertel Exp $
+# $Id: lonpublisher.pm,v 1.138 2003/09/25 22:30:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -82,6 +82,26 @@ invocation by F<loncapa_apache.conf>:
   ErrorDocument     500 /adm/errorhandler
   </Location>
 
+=head1 OVERVIEW
+
+Authors can only write-access the C</~authorname/> space. They can
+copy resources into the resource area through the publication step,
+and move them back through a recover step. Authors do not have direct
+write-access to their resource space.
+
+During the publication step, several events will be
+triggered. Metadata is gathered, where a wizard manages default
+entries on a hierarchical per-directory base: The wizard imports the
+metadata (including access privileges and royalty information) from
+the most recent published resource in the current directory, and if
+that is not available, from the next directory above, etc. The Network
+keeps all previous versions of a resource and makes them available by
+an explicit version number, which is inserted between the file name
+and extension, for example C<foo.2.html>, while the most recent
+version does not carry a version number (C<foo.html>). Servers
+subscribing to a changed resource are notified that a new version is
+available.
+
 =head1 DESCRIPTION
 
 B<lonpublisher> takes the proper steps to add resources to the LON-CAPA
@@ -122,6 +142,7 @@ use DBI;
 use Apache::lonnet();
 use Apache::loncommon();
 use Apache::lonmysql;
+use Apache::lonlocal;
 use vars qw(%metadatafields %metadatakeys);
 
 my %addid;
@@ -190,7 +211,7 @@ sub metaeval {
               }
               if ($metadatafields{$unikey}) {
 		  my $newentry=$parser->get_text('/'.$entry);
-                  unless (($metadatafields{$unikey}=~/$newentry/) ||
+                  unless (($metadatafields{$unikey}=~/\Q$newentry\E/) ||
                           ($newentry eq '')) {
                      $metadatafields{$unikey}.=', '.$newentry;
 		  }
@@ -304,7 +325,10 @@ string which presents the form field (fo
 #########################################
 sub textfield {
     my ($title,$name,$value)=@_;
-    return "\n<p><b>$title:</b></p><br />".
+    $title=&mt($title);
+    my $uctitle=uc($title);
+    return "\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
+           "</b></font></p><br />".
            '<input type="text" name="'.$name.'" size=80 value="'.$value.'" />';
 }
 
@@ -315,9 +339,11 @@ sub hiddenfield {
 
 sub selectbox {
     my ($title,$name,$value,$functionref,@idlist)=@_;
+    $title=&mt($title);
     my $uctitle=uc($title);
+    $value=(split(/\s*,\s*/,$value))[-1];
     my $selout="\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
-	"</b></font></p><br />".'<select name="'.$name.'">';
+	'</b></font></p><br /><select name="'.$name.'">';
     foreach (@idlist) {
         $selout.='<option value=\''.$_.'\'';
         if ($_ eq $value) {
@@ -644,7 +670,10 @@ sub fix_ids_and_indices {
 		    }
 		}
 		# probably a <randomlabel> image type <label>
-		if ($lctag eq 'label' && defined($parms{'description'})) {
+		# or a <image> tag inside <imageresponse>
+		if (($lctag eq 'label' && defined($parms{'description'}))
+		    ||
+		    ($lctag eq 'image')) {
 		    my $next_token=$parser[-1]->get_token();
 		    if ($next_token->[0] eq 'T') {
 			$next_token->[1]=&set_allow(\%allow,$logfile,
@@ -695,8 +724,9 @@ sub fix_ids_and_indices {
 		}
 		if (!$endtag) { if ($token->[4]=~m:/>$:) { $endtag=' /'; }; }
 		$outstring.='<'.$tag.$newparmstring.$endtag.'>';
-		if ($lctag eq 'm') {
-		    $outstring.=&get_all_text_unbalanced('/m',\@parser);
+		if ($lctag eq 'm' || $lctag eq 'script' 
+                    || $lctag eq 'display' || $lctag eq 'tex') {
+		    $outstring.=&get_all_text_unbalanced('/'.$lctag,\@parser);
 		}
 	    } elsif ($token->[0] eq 'E') {
 		if ($token->[2]) {
@@ -812,7 +842,7 @@ sub publish {
 	return ('<font color="red">No write permission to user directory, FAIL</font>',1);
     }
     print $logfile 
-"\n\n================= Publish ".localtime()." Phase One  ================\n";
+"\n\n================= Publish ".localtime()." Phase One  ================\n".$ENV{'user.name'}.'@'.$ENV{'user.domain'}."\n";
 
     if (($style eq 'ssi') || ($style eq 'rat') || ($style eq 'prv')) {
 # ------------------------------------------------------- This needs processing
@@ -867,16 +897,20 @@ sub publish {
         }
         $outstring=~s/\n*(\<\/[^\>]+\>)\s*$/$allowstr\n$1\n/s;
 
+### 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
-	$outstring=&HTML::Entities::encode($outstring,"\200-\377");
+	#$outstring=&HTML::Entities::encode($outstring,"\200-\377");
 # ------------------------------------------------------------- Write modified.
 
         {
           my $org;
           unless ($org=Apache::File->new('>'.$source)) {
              print $logfile "No write permit to $source\n";
-             return ('<font color="red">No write permission to '.$source.
-		     ', FAIL</font>',1);
+             return ('<font color="red">'.&mt('No write permission to').
+		     ' '.$source.
+		     ', '.&mt('FAIL').'</font>',1);
 	  }
           print($org $outstring);
         }
@@ -893,7 +927,7 @@ sub publish {
      my %oldparmstores=();
      
     unless ($batch) {
-     $scrout.='<h3>Metadata Information ' .
+     $scrout.='<h3>'.&mt('Metadata Information').' ' .
        Apache::loncommon::help_open_topic("Metadata_Description")
        . '</h3>';
     }
@@ -907,11 +941,14 @@ sub publish {
         $metadatafields{'author'}=~s/\s+/ /g;
         $metadatafields{'author'}=~s/\s+$//;
         $metadatafields{'owner'}=$cuname.'@'.$cudom;
+	$metadatafields{'modifyinguser'}=$ENV{'user.name'}.'@'.
+	                                 $ENV{'user.domain'};
+	$metadatafields{'authorspace'}=$cuname.'@'.$cudom;
 
 # ------------------------------------------------ Check out directory hierachy
 
         my $thisdisfn=$source;
-        $thisdisfn=~s/^\/home\/$cuname\///;
+        $thisdisfn=~s/^\/home\/\Q$cuname\E\///;
 
         my @urlparts=split(/\//,$thisdisfn);
         $#urlparts--;
@@ -947,11 +984,12 @@ sub publish {
 
 # -------------------------------------------------- Parse content for metadata
     if (($style eq 'ssi') || ($style eq 'prv')) {
-        my $oldenv=$ENV{'request.uri'};
-
-        $ENV{'request.uri'}=$target;
-        $allmeta=Apache::lonxml::xmlparse(undef,'meta',$content);
-        $ENV{'request.uri'}=$oldenv;
+	my $dir=$source;
+	$dir=~s-/[^/]*$--;
+	my $file=$source;
+	$file=(split('/',$file))[-1];
+        $source=&Apache::lonnet::hreflocation($dir,$file);
+	$allmeta=&Apache::lonnet::ssi_body($source,('grade_target' => 'meta'));
 
         &metaeval($allmeta);
     }
@@ -969,7 +1007,8 @@ sub publish {
 	}
     }
     if ($chparms) {
-	$scrout.='<p><b>New parameters or stored values:</b> '.$chparms.'</p>';
+	$scrout.='<p><b>'.&mt('New parameters or stored values').
+	    ':</b> '.$chparms.'</p>';
     }
 
     $chparms='';
@@ -983,7 +1022,7 @@ sub publish {
 	}
     }
     if ($chparms) {
-	$scrout.='<p><b>Obsolete parameters or stored values:</b> '.
+	$scrout.='<p><b>'.&mt('Obsolete parameters or stored values').':</b> '.
 	    $chparms.'</p>';
     }
 
@@ -1042,7 +1081,8 @@ function uncheckAll(field) {
         field[i].checked = false ;
 }
 </script>
-<p><b>Keywords: $keywords_help</b> 
+<p><font color="#800000" face="helvetica"><b>KEYWORDS:</b></font>
+ $keywords_help</b>
 <input type="button" value="check all" onclick="javascript:checkAll(document.pubform.keywords)" /> 
 <input type="button" value="uncheck all" onclick="javascript:uncheckAll(document.pubform.keywords)" /> 
 </p>
@@ -1054,7 +1094,7 @@ END
 	foreach (sort keys %keywords) {
 	    $keywordout.='<td><input type="checkbox" name="keywords" value="'.$_.'"';
 	    if ($metadatafields{'keywords'}) {
-		if ($metadatafields{'keywords'}=~/$_/) {
+		if ($metadatafields{'keywords'}=~/\Q$_\E/) {
 		    $keywordout.=' checked="on"';
 		}
 	    } elsif (&Apache::loncommon::keyword($_)) {
@@ -1077,15 +1117,22 @@ END
 	$scrout.=&textfield('Notes','notes',$metadatafields{'notes'});
 
 	$scrout.=
-	    '<p><b>Abstract:</b><br /><textarea cols="80" rows="5" name="abstract">'.
+	    "\n<p><font color=\"#800000\" face=\"helvetica\"><b>ABSTRACT:".
+	    "</b></font></p><br />".
+	    '<textarea cols="80" rows="5" name="abstract">'.
 	    $metadatafields{'abstract'}.'</textarea></p>';
 
 	$source=~/\.(\w+)$/;
 
 	$scrout.=&hiddenfield('mime',$1);
 
+	my $defaultlanguage=$metadatafields{'language'};
+	$defaultlanguage =~ s/\s*notset\s*//g;
+	$defaultlanguage =~ s/^,\s*//g;
+	$defaultlanguage =~ s/,\s*$//g;
+
 	$scrout.=&selectbox('Language','language',
-			    $metadatafields{'language'},
+			    $defaultlanguage,
 			    \&Apache::loncommon::languagedescription,
 			    (&Apache::loncommon::languageids),
 			   );
@@ -1103,18 +1150,21 @@ END
 			    $metadatafields{'owner'});
 
 # -------------------------------------------------- Correct copyright for rat.
+        my $defaultoption=$metadatafields{'copyright'};
+        unless ($defaultoption) { $defaultoption='default'; }
 	unless ($style eq 'prv') {
 	    if ($style eq 'rat') {
 		if ($metadatafields{'copyright'} eq 'public') { 
 		    delete $metadatafields{'copyright'};
+                    $defaultoption='default';
 		}
 		$scrout.=&selectbox('Copyright/Distribution','copyright',
-				    $metadatafields{'copyright'},
+				    $defaultoption,
 				    \&Apache::loncommon::copyrightdescription,
 				    (grep !/^public$/,(&Apache::loncommon::copyrightids)));
 	    } else {
 		$scrout.=&selectbox('Copyright/Distribution','copyright',
-				    $metadatafields{'copyright'},
+				    $defaultoption,
 				    \&Apache::loncommon::copyrightdescription,
 				    (&Apache::loncommon::copyrightids));
 	    }
@@ -1125,10 +1175,22 @@ END
 	    $scrout.=&textfield('Custom Distribution File','customdistributionfile',
 				$metadatafields{'customdistributionfile'}).
 				    $copyright_help;
+	    my $uctitle=uc(&mt('Obsolete'));
+            $scrout.=
+		"\n<p><font color=\"#800000\" face=\"helvetica\"><b>$uctitle:".
+		'</b></font> <input type="checkbox" name="obsolete" ';
+	    if ($metadatafields{'obsolete'}) {
+		$scrout.=' checked="1" ';
+	    }
+	    $scrout.='/ ></p>'.
+		&textfield('Suggested Replacement for Obsolete File',
+				    'obsoletereplacement',
+				    $metadatafields{'obsoletereplacement'});
 	} else {
 	    $scrout.=&hiddenfield('copyright','private');
 	}
-	return ($scrout.'<p><input type="submit" value="Finalize Publication" /></p></form>',0);
+	return ($scrout.'<p><input type="submit" value="'.
+		&mt('Finalize Publication').'" /></p></form>',0);
 # =============================================================================
 # BATCH MODE
 #
@@ -1141,7 +1203,7 @@ END
 	$ENV{'form.keywords'}='';
 	foreach (keys %keywords) {
 	    if ($metadatafields{'keywords'}) {
-		if ($metadatafields{'keywords'}=~/$_/) { 
+		if ($metadatafields{'keywords'}=~/\Q$_\E/) { 
 		    $ENV{'form.keywords'}.=$_.','; 
 		}
 	    } elsif (&Apache::loncommon::keyword($_)) {
@@ -1206,18 +1268,20 @@ sub phasetwo {
 
     if ($target=~/\_\_\_/) {
 	$r->print(
- '<font color="red">Unsupported character combination "<tt>___</tt>" in filename, FAIL</font>');
+ '<font color="red">'.&mt('Unsupported character combination').
+		  ' "<tt>___</tt>" '.&mt('in filename, FAIL').'</font>');
         return 0;
     }
     $distarget=~s/\/+/\//g;
     my $logfile;
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
 	$r->print(
-        '<font color="red">No write permission to user directory, FAIL</font>');
+        '<font color="red">'.
+		&mt('No write permission to user directory, FAIL').'</font>');
         return 0;
     }
     print $logfile 
-        "\n================= Publish ".localtime()." Phase Two  ================\n";
+        "\n================= Publish ".localtime()." Phase Two  ================\n".$ENV{'user.name'}.'@'.$ENV{'user.domain'}."\n";
     
     %metadatafields=();
     %metadatakeys=();
@@ -1237,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'};
@@ -1256,7 +1323,8 @@ sub phasetwo {
         my $mfh;
         unless ($mfh=Apache::File->new('>'.$source.'.meta')) {
             return 
-                '<font color="red">Could not write metadata, FAIL</font>';
+                '<font color="red">'.&mt('Could not write metadata, FAIL').
+		'</font>';
         }
         foreach (sort keys %metadatafields) {
             unless ($_=~/\./) {
@@ -1275,7 +1343,7 @@ sub phasetwo {
                         .'</'.$tag.'>';
             }
         }
-        $r->print('<p>Wrote Metadata</p>');
+        $r->print('<p>'.&mt('Wrote Metadata').'</p>');
         print $logfile "\nWrote metadata";
     }
     
@@ -1286,14 +1354,15 @@ sub phasetwo {
     unless ($metadatafields{'copyright'} eq 'priv') {
         my ($error,$success) = &store_metadata(\%metadatafields);
         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";
         } else {
             $r->print($error);
             print $logfile "\n".$error;
         }
     } else {
-        $r->print('<p>Private Publication - did not synchronize database</p>');
+        $r->print('<p>'.
+	     &mt('Private Publication - did not synchronize database').'</p>');
         print $logfile "\nPrivate: Did not synchronize data into ".
             "SQL metadata database";
     }
@@ -1324,16 +1393,17 @@ sub phasetwo {
         closedir(DIR);
         $maxversion++;
         $r->print('<p>Creating old version '.$maxversion.'</p>');
-        print $logfile "\nCreating old version ".$maxversion;
+        print $logfile "\nCreating old version ".$maxversion."\n";
         
         my $copyfile=$srcd.'/'.$srcf.'.'.$maxversion.'.'.$srct;
         
         if (copy($target,$copyfile)) {
 	    print $logfile "Copied old target to ".$copyfile."\n";
-            $r->print('<p>Copied old target file</p>');
+            $r->print('<p>'.&mt('Copied old target file').'</p>');
         } else {
 	    print $logfile "Unable to write ".$copyfile.':'.$!."\n";
-            return "<font color=\"red\">Failed to copy old target, $!, FAIL</font>";
+            return "<font color=\"red\">".&mt('Failed to copy old target').
+		", $!, ".&mt('FAIL')."</font>";
         }
         
 # --------------------------------------------------------------- Copy Metadata
@@ -1342,18 +1412,19 @@ sub phasetwo {
         
         if (copy($target.'.meta',$copyfile)) {
 	    print $logfile "Copied old target metadata to ".$copyfile."\n";
-            $r->print('<p>Copied old metadata</p>')
+            $r->print('<p>'.&mt('Copied old metadata').'</p>')
         } else {
 	    print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n";
             if (-e $target.'.meta') {
                 return 
-                    "<font color=\"red\">Failed to write old metadata copy, $!, FAIL</font>";
+                    "<font color=\"red\">".
+&mt('Failed to write old metadata copy').", $!, ".&mt('FAIL')."</font>";
 	    }
         }
         
         
     } else {
-        $r->print('<p>Initial version</p>');
+        $r->print('<p>'.&mt('Initial version').'</p>');
         print $logfile "\nInitial version";
     }
 
@@ -1368,17 +1439,18 @@ sub phasetwo {
         $path.="/$parts[$count]";
         if ((-e $path)!=1) {
             print $logfile "\nCreating directory ".$path;
-            $r->print('<p>Created directory '.$parts[$count].'</p>');
+            $r->print('<p>'.&mt('Created directory').' '.$parts[$count].'</p>');
             mkdir($path,0777);
         }
     }
     
     if (copy($source,$copyfile)) {
         print $logfile "\nCopied original source to ".$copyfile."\n";
-        $r->print('<p>Copied source file</p>');
+        $r->print('<p>'.&mt('Copied source file').'</p>');
     } else {
         print $logfile "\nUnable to write ".$copyfile.':'.$!."\n";
-        return "<font color=\"red\">Failed to copy source, $!, FAIL</font>";
+        return "<font color=\"red\">".
+	    &mt('Failed to copy source').", $!, ".&mt('FAIL')."</font>";
     }
     
 # --------------------------------------------------------------- Copy Metadata
@@ -1387,18 +1459,18 @@ sub phasetwo {
     
     if (copy($source.'.meta',$copyfile)) {
         print $logfile "\nCopied original metadata to ".$copyfile."\n";
-        $r->print('<p>Copied metadata</p>');
+        $r->print('<p>'.&mt('Copied metadata').'</p>');
     } else {
         print $logfile "\nUnable to write metadata ".$copyfile.':'.$!."\n";
         return 
-            "<font color=\"red\">Failed to write metadata copy, $!, FAIL</font>";
+            "<font color=\"red\">".&mt('Failed to write metadata copy').", $!, ".&mt('FAIL')."</font>";
     }
     $r->rflush;
 # --------------------------------------------------- Send update notifications
 
     my @subscribed=&get_subscribed_hosts($target);
     foreach my $subhost (@subscribed) {
-	$r->print('<p>Notifying host '.$subhost.':');$r->rflush;
+	$r->print('<p>'.&mt('Notifying host').' '.$subhost.':');$r->rflush;
 	print $logfile "\nNotifying host ".$subhost.':';
 	my $reply=&Apache::lonnet::critical('update:'.$target,$subhost);
 	$r->print($reply.'</p><br />');$r->rflush;
@@ -1409,7 +1481,8 @@ sub phasetwo {
 
     my @subscribedmeta=&get_subscribed_hosts("$target.meta");
     foreach my $subhost (@subscribedmeta) {
-	$r->print('<p>Notifying host for metadata only '.$subhost.':');$r->rflush;
+	$r->print('<p>'.
+&mt('Notifying host for metadata only').' '.$subhost.':');$r->rflush;
 	print $logfile "\nNotifying host for metadata only ".$subhost.':';
 	my $reply=&Apache::lonnet::critical('update:'.$target.'.meta',
 					    $subhost);
@@ -1421,7 +1494,7 @@ sub phasetwo {
     my %courses=&coursedependencies($target);
     my $now=time;
     foreach (keys %courses) {
-	$r->print('<p>Notifying course '.$_.':');$r->rflush;
+	$r->print('<p>'.&mt('Notifying course').' '.$_.':');$r->rflush;
 	print $logfile "\nNotifying host ".$_.':';
         my ($cdom,$cname)=split(/\_/,$_);
 	my $reply=&Apache::lonnet::cput
@@ -1432,7 +1505,7 @@ sub phasetwo {
 # ------------------------------------------------ Provide link to new resource
     unless ($batch) {
         my $thisdistarget=$target;
-        $thisdistarget=~s/^$docroot//;
+        $thisdistarget=~s/^\Q$docroot\E//;
         
         my $thissrc=$source;
         $thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/;
@@ -1443,10 +1516,12 @@ sub phasetwo {
         
         $r->print(
            '<hr /><a href="'.$thisdistarget.'"><font size="+2">'.
-           'View Published Version</font></a>'.
-           '<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a></p>'.
+           &mt('View Published Version').'</font></a>'.
+           '<p><a href="'.$thissrc.'"><font size=+2>'.
+		  &mt('Back to Source').'</font></a></p>'.
            '<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>');
     }
 }
 
@@ -1454,6 +1529,8 @@ sub phasetwo {
 
 sub batchpublish {
     my ($r,$srcfile,$targetfile)=@_;
+    #publication pollutes %ENV with form.* values
+    my %oldENV=%ENV;
     $srcfile=~s/\/+/\//g;
     $targetfile=~s/\/+/\//g;
     my $thisdisfn=$srcfile;
@@ -1462,7 +1539,7 @@ sub batchpublish {
 
     my $docroot=$r->dir_config('lonDocRoot');
     my $thisdistarget=$targetfile;
-    $thisdistarget=~s/^$docroot//;
+    $thisdistarget=~s/^\Q$docroot\E//;
 
 
     undef %metadatafields;
@@ -1475,7 +1552,7 @@ sub batchpublish {
 
       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
 #  my ($source,$target,$style,$batch)=@_;
@@ -1489,6 +1566,7 @@ sub batchpublish {
 	&phasetwo($r,$srcfile,$targetfile,$thisembstyle,$thisdistarget,1);
 	$r->print('</p>');
     }
+    %ENV=%oldENV;
     return '';
 }
 
@@ -1529,7 +1607,7 @@ sub publishdirectory {
 	        $ruid,$rgid,$rrdev,$rsize,
 	        $ratime,$rmtime,$rctime,
 	        $rblksize,$rblocks)=stat($resdir.'/'.$filename);
-	        if ($rmtime<$cmtime) {
+	        if (($rmtime<$cmtime) || ($ENV{'form.forcerepub'})) {
 # previously published, modified now
 		    $publishthis=1;
                 }
@@ -1591,7 +1669,7 @@ sub handler {
   my $r=shift;
 
   if ($r->header_only) {
-     $r->content_type('text/html');
+     &Apache::loncommon::content_type($r,'text/html');
      $r->send_http_header;
      return OK;
   }
@@ -1684,7 +1762,7 @@ unless ($ENV{'form.phase'} eq 'two') {
 
 # ---------------------------------------------------------- Start page output.
 
-  $r->content_type('text/html');
+  &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;
 
   $r->print('<html><head><title>LON-CAPA Publishing</title></head>');
@@ -1699,35 +1777,45 @@ unless ($ENV{'form.phase'} eq 'two') {
   $thistarget=~s/\/public\_html//;
 
   my $thisdistarget=$thistarget;
-  $thisdistarget=~s/^$docroot//;
+  $thisdistarget=~s/^\Q$docroot\E//;
 
   my $thisdisfn=$thisfn;
-  $thisdisfn=~s/^\/home\/$cuname\/public_html\///;
+  $thisdisfn=~s/^\/home\/\Q$cuname\E\/public_html\///;
 
   if ($fn=~/\/$/) {
 # -------------------------------------------------------- This is a directory
       &publishdirectory($r,$fn,$thisdisfn);
+      $r->print('<hr><font size="+2">'.&mt('Done').'</font><br><a href="/priv/'
+		.$cuname.'/'.$thisdisfn
+		.'">'.&mt('Return to Directory').'</a>');
+
 
   } else {
 # ---------------------- Evaluate individual file, and then output information.
       $thisfn=~/\.(\w+)$/;
       my $thistype=$1;
       my $thisembstyle=&Apache::loncommon::fileembstyle($thistype);
+      $r->print('<h2>'.&mt('Publishing').' '.
+		&Apache::loncommon::filedescription($thistype).' <tt>');
 
-      $r->print('<h2>Publishing '.
-        &Apache::loncommon::filedescription($thistype).' <tt>'.
-        '<a href="/~'.$cuname.'/'.$thisdisfn.'" target="cat">'.$thisdisfn.
-        '</a></tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><br />');
+      $r->print(<<ENDCAPTION);
+<a href='javascript:void(window.open("/~$cuname/$thisdisfn","cat","height=300,width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'>
+$thisdisfn</a>
+ENDCAPTION
+      $r->print(
+        '</tt></h2><b>'.&mt('Target').':</b> <tt>'.$thisdistarget.'</tt><br />');
    
       if (($cuname ne $ENV{'user.name'}) || ($cudom ne $ENV{'user.domain'})) {
-          $r->print('<h3><font color="red">Co-Author: '.$cuname.' at '.$cudom.
+          $r->print('<h3><font color="red">'.&mt('Co-Author').': '.$cuname.&mt(' at ').$cudom.
 		    '</font></h3>');
       }
 
       if (&Apache::loncommon::fileembstyle($thistype) eq 'ssi') {
-          $r->print('<br /><a href="/adm/diff?filename=/~'.$cuname.'/'.
-                    $thisdisfn.
-  	  '&versiontwo=priv" target="cat">Diffs with Current Version</a><br />');
+          $r->print(<<ENDDIFF);
+<br />
+<a href='javascript:void(window.open("/adm/diff?filename=/~$cuname/$thisdisfn&versiontwo=priv","cat","height=300,width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'>
+ENDDIFF
+          $r->print(&mt('Diffs with Current Version').'</a><br />');
       }
   
 # ------------------ Publishing from $thisfn to $thistarget with $thisembstyle.
@@ -1752,5 +1840,7 @@ __END__
 
 =back
 
+=back
+
 =cut