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

[raeburn]

raeburn		Thu Dec  2 13:38:37 2004 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  Fix bug #3639
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.66 loncom/publisher/lonpubdir.pm:1.67
--- loncom/publisher/lonpubdir.pm:1.66	Tue Nov 30 14:08:18 2004
+++ loncom/publisher/lonpubdir.pm	Thu Dec  2 13:38:37 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.66 2004/11/30 19:08:18 raeburn Exp $
+# $Id: lonpubdir.pm,v 1.67 2004/12/02 18:38:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -511,6 +511,8 @@
 	%Apache::lonpublisher::metadatakeys=();
 	my $construct=$here;
 	$construct=~s:^/priv/(\w+)$:/home/$1/public_html:;
+        my $dirpath = $here;
+        $dirpath=~s:^/priv/:/~:;
 	&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile(
        				 $construct.'/'.$dirname.'/default.meta'
 								 ));
@@ -529,7 +531,7 @@
                       '<option value="editcat">'.&mt('Edit catalog information').'</option>'.
                       '<option value="printdir">'.&mt('Print directory').
                     '</select>'.
-                     '<input type="hidden" name="filename" value="'.$here.'/'.$dirname.'" />'.
+                     '<input type="hidden" name="filename" value="'.$dirpath.'/'.$dirname.'/" />'.
                      '<input type="hidden" name="pubrec" value="" />'.
                      '<input type="hidden" name="forcerepub" value="" />'.
                      '<input type="hidden" name="curseed" value="0" />'.