loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.98, 2002/10/03 15:02:22	version 1.99, 2002/10/07 13:50:36
Line 1309 if (-e $target) {	Line 1309 if (-e $target) {
while ($filename=readdir(DIR)) {	while ($filename=readdir(DIR)) {
if (-l $srcd.'/'.$filename) {	if (-l $srcd.'/'.$filename) {
unlink($srcd.'/'.$filename);	unlink($srcd.'/'.$filename);
	unlink($srcd.'/'.$filename.'.meta');
} else {	} else {
if ($filename=~/$srcf\.(\d+)\.$srct$/) {	if ($filename=~/$srcf\.(\d+)\.$srct$/) {
$maxversion=($1>$maxversion)?$1:$maxversion;	$maxversion=($1>$maxversion)?$1:$maxversion;