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

[www]

www		Sat Aug  2 21:20:02 2003 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  Bug #2018 - one starts to wonder how CSTR worked as well as it did.
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.36 loncom/publisher/lonpubdir.pm:1.37
--- loncom/publisher/lonpubdir.pm:1.36	Thu Jul 17 09:50:44 2003
+++ loncom/publisher/lonpubdir.pm	Sat Aug  2 21:20:02 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.36 2003/07/17 13:50:44 www Exp $
+# $Id: lonpubdir.pm,v 1.37 2003/08/03 01:20:02 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -165,6 +165,7 @@
 	    $fn=~s|^/~(\w+)|/home/$1/public_html|;
 	}
     }
+    $fn=~s/\/+/\//g;
     return $fn;
 }
 #
@@ -189,6 +190,12 @@
     $r->print(&Apache::loncommon::bodytag(undef,undef,undef,1));
     my $pubdirscript=(<<ENDPUBDIRSCRIPT);
 <script>
+// Store directory location for menu bar to find
+
+parent.lastknownpriv='/~$uname/$thisdisfn/';
+
+// Confirmation dialogues
+
     function pubdir(theform) {
 	if (confirm('Publish complete directory?')) {
 	    theform.submit();