--- loncom/publisher/lonpubdir.pm	2004/12/10 18:43:58	1.73
+++ loncom/publisher/lonpubdir.pm	2004/12/22 21:04:52	1.75
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.73 2004/12/10 18:43:58 raeburn Exp $
+# $Id: lonpubdir.pm,v 1.75 2004/12/22 21:04:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -269,7 +269,7 @@ parent.lastknownpriv='/~$uname$thisdisfn
 
     function SetPubDir(theform,printForm) {
         if (theform.diraction.options[theform.diraction.selectedIndex].value == "open") {
-            top.location = theform.filename.value
+            top.location = theform.openname.value
             return
         }
         if (theform.diraction.options[theform.diraction.selectedIndex].value == "publish") {
@@ -333,7 +333,8 @@ parent.lastknownpriv='/~$uname$thisdisfn
 ENDPUBDIRSCRIPT
     $r->print($pubdirscript);
 
-    if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
+    if ((($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) &&
+	$ENV{'environment.remote'} ne 'off') {
 	$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
 		  '</h3>');
     }
@@ -516,6 +517,7 @@ sub putdirectory {
                       '<option value="printdir">'.&mt('Print directory').
                     '</select>'.
                      '<input type="hidden" name="filename" value="'.$dirpath.'/'.$dirname.'/" />'.
+                     '<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'.
                      '<input type="hidden" name="pubrec" value="" />'.
                      '<input type="hidden" name="forcerepub" value="" />'.
                      '<input type="hidden" name="postdata" value="" />'.