--- loncom/publisher/loncfile.pm	2005/03/10 03:50:49	1.65
+++ loncom/publisher/loncfile.pm	2005/04/07 04:46:36	1.66
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.65 2005/03/10 03:50:49 www Exp $
+# $Id: loncfile.pm,v 1.66 2005/04/07 04:46:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1111,7 +1111,7 @@ sub phasetwo {
 	$main=$2;		# Filename.
     }
     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
     }
     my $dest;                   # On success this is where we'll go.
@@ -1127,8 +1127,7 @@ sub phasetwo {
     
     # Select the appropriate processing sub.
     if ($ENV{'form.action'} eq 'decompress') { 
-	$main .= '.';
-	$main .= $suffix;
+	$main .= '.'.$suffix;
 	if(!&decompress2($r, $uname, $dir, $main)) {
 	    return ;
 	}