--- loncom/publisher/lonpubdir.pm	2004/11/30 19:08:18	1.66
+++ loncom/publisher/lonpubdir.pm	2004/12/02 18:38:37	1.67
@@ -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 @@ sub putdirectory {
 	%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 @@ sub putdirectory {
                       '<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" />'.