version 1.66, 2004/11/30 19:08:18
|
version 1.67, 2004/12/02 18:38:37
|
Line 511 sub putdirectory {
|
Line 511 sub putdirectory {
|
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $construct=$here; |
my $construct=$here; |
$construct=~s:^/priv/(\w+)$:/home/$1/public_html:; |
$construct=~s:^/priv/(\w+)$:/home/$1/public_html:; |
|
my $dirpath = $here; |
|
$dirpath=~s:^/priv/:/~:; |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( |
$construct.'/'.$dirname.'/default.meta' |
$construct.'/'.$dirname.'/default.meta' |
)); |
)); |
Line 529 sub putdirectory {
|
Line 531 sub putdirectory {
|
'<option value="editcat">'.&mt('Edit catalog information').'</option>'. |
'<option value="editcat">'.&mt('Edit catalog information').'</option>'. |
'<option value="printdir">'.&mt('Print directory'). |
'<option value="printdir">'.&mt('Print directory'). |
'</select>'. |
'</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="pubrec" value="" />'. |
'<input type="hidden" name="forcerepub" value="" />'. |
'<input type="hidden" name="forcerepub" value="" />'. |
'<input type="hidden" name="curseed" value="0" />'. |
'<input type="hidden" name="curseed" value="0" />'. |