loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.249.2.1, 2009/11/24 00:57:11	version 1.250, 2009/02/10 12:12:08
Line 1652 sub phasetwo {	Line 1652 sub phasetwo {
unlink($srcd.'/'.$filename);	unlink($srcd.'/'.$filename);
unlink($srcd.'/'.$filename.'.meta');	unlink($srcd.'/'.$filename.'.meta');
} else {	} else {
if ($filename=~/^\Q$srcf\E\.(\d+)\.\Q$srct\E$/) {	if ($filename=~/\Q$srcf\E\.(\d+)\.\Q$srct\E$/) {
$maxversion=($1>$maxversion)?$1:$maxversion;	$maxversion=($1>$maxversion)?$1:$maxversion;
}	}
}	}
Line 1878 sub publishdirectory {	Line 1878 sub publishdirectory {
&checkbox('pubrec','include subdirectories').	&checkbox('pubrec','include subdirectories').
&checkbox('forcerepub','force republication of previously published files').	&checkbox('forcerepub','force republication of previously published files').
&checkbox('obsolete','make file(s) obsolete').	&checkbox('obsolete','make file(s) obsolete').
&checkbox('forceoverride','force directory level catalog information over existing').	&checkbox('forceoverride','force directory level metadata over existing').
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>');	'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>');
$lock=0;	$lock=0;
} else {	} else {