loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.57, 2004/11/22 22:59:32	version 1.59, 2004/11/26 00:17:37
Line 74 sub display_common {	Line 74 sub display_common {
}	}
$r->print('</font>');	$r->print('</font>');
&Apache::lonhtmlcommon::store_recent('portfolio',$current_path,$current_path);	&Apache::lonhtmlcommon::store_recent('portfolio',$current_path,$current_path);
$r->print('<br /><form method=post action="/adm/portfolio">'.	$r->print('<br /><form method=post action="/adm/portfolio?mode='.$ENV{"form.mode"}.'&fieldname='.$ENV{"form.fieldname"}.'">'.
&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',	&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',
'this.form.submit();'));	'this.form.submit();'));
$r->print("</form>");	$r->print("</form>");
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 '.