loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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" />'.