loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.53, 2004/04/03 00:23:47	version 1.54, 2004/05/26 22:15:19
Line 1080 sub phasetwo {	Line 1080 sub phasetwo {
if ($fn=~m:(.*)/([^/]+):) {	if ($fn=~m:(.*)/([^/]+):) {
$dir=$1; # Directory path	$dir=$1; # Directory path
$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=$`; #This is what is before the match (.) so it's just the main filename, yea it's nasty	$main=$`; #This is what is before the match (.) so it's just the main filename, yea it's nasty
$suffix=$1; #This is the actually filename extension if it exists	$suffix=$1; #This is the actually filename extension if it exists
}	}
my $dest; # On success this is where we'll go.	my $dest; # On success this is where we'll go.

&Debug($r,	&Debug($r,