loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.67, 2005/04/07 06:56:24	version 1.68, 2005/05/25 22:27:17
Line 1111 sub phasetwo {	Line 1111 sub phasetwo {
$main=$2; # Filename.	$main=$2; # Filename.
}	}
if($main=~m:\.(\w+)$:){ # Fixes problems with filenames with no extensions	if($main=~m:\.(\w+)$:){ # Fixes problems with filenames with no extensions
$main=~s/\.\w+$//; #strip the extension
$suffix=$1; #This is the actually filename extension if it exists	$suffix=$1; #This is the actually filename extension if it exists
	$main=~s/\.\w+$//; #strip the extension
}	}
my $dest; # On success this is where we'll go.	my $dest; # On success this is where we'll go.