loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.58, 2004/11/25 23:56:19	version 1.59, 2004/11/26 00:17:37
Line 339 sub rename_confirmed {	Line 339 sub rename_confirmed {
my $result=	my $result=
&Apache::lonnet::renameuserfile($ENV{'user.name'},$ENV{'user.domain'},	&Apache::lonnet::renameuserfile($ENV{'user.name'},$ENV{'user.domain'},
'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.selectfile'},	'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.selectfile'},
'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.filenewname'});	'portfolio'.$ENV{'form.currentpath'}.$filenewname);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<font color="red"> An errror occured ('.$result.	$r->print('<font color="red"> An errror occured ('.$result.
') while trying to rename '.&display_file().' to '.	') while trying to rename '.&display_file().' to '.