loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.23, 2003/02/04 22:01:38	version 1.24, 2003/02/10 23:13:17
Line 7	Line 7
# presents a page that describes the proposed action to the user	# presents a page that describes the proposed action to the user
# and requests confirmation. The second phase commits the action	# and requests confirmation. The second phase commits the action
# and displays a page showing the results of the action.	# and displays a page showing the results of the action.
#	#

#	#
# $Id$	# $Id$
#	#
Line 495 sub Rename1 {	Line 494 sub Rename1 {
if(-e $conspace) {	if(-e $conspace) {
if($ENV{'form.newfilename'}) {	if($ENV{'form.newfilename'}) {
my $newfilename = $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));	$request->print(&checksuffix($filename, $newfilename));
my $return=&exists($user, $domain, $dir, $newfilename);	my $return=&exists($user, $domain, $dir, $newfilename);
$request->print($return);	$request->print($return);