loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.189, 2008/02/04 00:52:23	version 1.190, 2008/02/05 05:54:59
Line 538 sub delete {	Line 538 sub delete {
my @files=&Apache::loncommon::get_env_multiple('form.selectfile');	my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom();
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$r->print("The file is locked and cannot be deleted.<br />");	$r->print(&mt('The file is locked and cannot be deleted.').'<br />');
$r->print(&done('Back',$url));	$r->print(&done('Back',$url));
} else {	} else {
if (scalar(@files)) {	if (scalar(@files)) {