loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.65, 2005/03/10 03:50:49	version 1.66, 2005/04/07 04:46:36
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=$`; #This is what is before the match (.) so it's just the main filename, yea it's nasty	$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
}	}
my $dest; # On success this is where we'll go.	my $dest; # On success this is where we'll go.
Line 1127 sub phasetwo {	Line 1127 sub phasetwo {

# Select the appropriate processing sub.	# Select the appropriate processing sub.
if ($ENV{'form.action'} eq 'decompress') {	if ($ENV{'form.action'} eq 'decompress') {
$main .= '.';	$main .= '.'.$suffix;
$main .= $suffix;
if(!&decompress2($r, $uname, $dir, $main)) {	if(!&decompress2($r, $uname, $dir, $main)) {
return ;	return ;
}	}