loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.55, 2004/11/09 21:51:14	version 1.56, 2004/11/10 05:57:53
Line 251 sub delete {	Line 251 sub delete {
my ($r)=@_;	my ($r)=@_;
my @check;	my @check;
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'};	my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'};
push @check, $file_name;	if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'} ) eq 'true') {
my %locked = &Apache::lonnet::get('file_permissions',\@check,
$ENV{'user.domain'},$ENV{'user.name'});
if (ref($locked{$file_name}) eq 'ARRAY') {
$r->print ("The file is locked and cannot be deleted.<br />");	$r->print ("The file is locked and cannot be deleted.<br />");
$r->print(&done());	$r->print(&done());
} else {	} else {
Line 314 sub delete_dir_confirmed {	Line 311 sub delete_dir_confirmed {

sub rename {	sub rename {
my ($r)=@_;	my ($r)=@_;
my @check;
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'};	my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'};
push @check, $file_name;	if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'}) eq 'true') {
my %locked = &Apache::lonnet::get('file_permissions',\@check,
$ENV{'user.domain'},$ENV{'user.name'});
if (ref($locked{$file_name}) eq 'ARRAY') {
$r->print ("The file is locked and cannot be renamed.<br />");	$r->print ("The file is locked and cannot be renamed.<br />");
$r->print(&done());	$r->print(&done());
} else {	} else {