--- loncom/publisher/loncfile.pm	2003/02/04 22:01:38	1.23
+++ loncom/publisher/loncfile.pm	2003/02/10 23:19:45	1.25
@@ -7,10 +7,9 @@
 #  presents a page that describes the proposed action to the user
 #  and requests confirmation.  The second phase commits the action
 #  and displays a page showing the results of the action.
-# 
-
 #
-# $Id: loncfile.pm,v 1.23 2003/02/04 22:01:38 albertel Exp $
+#
+# $Id: loncfile.pm,v 1.25 2003/02/10 23:19:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -495,6 +494,12 @@ sub Rename1 {
     if(-e $conspace) {
 	if($ENV{'form.newfilename'}) {
 	    my $newfilename = $ENV{'form.newfilename'};
+	    if ($newfilename =~ m|^[^\.]+$|) {
+		#no extension add on orignal extension
+		if ($filename =~ m|/[^\.]*\.([^\.]+)$|) {
+		    $newfilename.='.'.$1;
+		}
+	    }
 	    $request->print(&checksuffix($filename, $newfilename));
 	    my $return=&exists($user, $domain, $dir, $newfilename);
 	    $request->print($return);
@@ -771,7 +776,7 @@ sub NewFile1 {
 	$request->print('<p>File exists.</p></form>');
     }
     else {
-	$request->print('<p>Make new file <tt>'.$newfilename.'</tt>?</p>');
+	$request->print('<p>Make new file <tt>'.$dir.'/'.$newfilename.'</tt>?</p>');
 	my $dest=&MakeFinalUrl($request,$fullpath);
 	&Debug($request, "Cancel url is: ".$cancelurl);
 	&Debug($request, "Dest url is: ".$dest);
@@ -847,16 +852,16 @@ sub phaseone {
   }  elsif ($ENV{'form.action'} eq 'newfile' ||
 	    $ENV{'form.action'} eq 'newhtmlfile' ||
 	    $ENV{'form.action'} eq 'newproblemfile') {
-    if($ENV{'form.newfilename'}) {
-      my $newfilename = $ENV{'form.newfilename'};
-      if (!defined($dir)) {
-	  $fn=~m:(.*)/:;
-	  $dir=$1;
+      if($ENV{'form.newfilename'}) {
+	  my $newfilename = $ENV{'form.newfilename'};
+	  if (!defined($dir)) {
+	      $fn=~m:(.*)/:;
+	      $dir=$1;
+	  }
+	  &NewFile1($r, $uname, $udom, $dir, $newfilename);
+      } else {
+	  $r->print('<p>No new filename specified.</p></form>');
       }
-      &NewFile1($r, $uname, $udom, $dir, $fn, $newfilename);
-    }else {
-      $r->print('<p>No new filename specified.</p></form>');
-    }
   }
 }