version 1.54, 2004/11/03 21:02:49
|
version 1.55, 2004/11/09 21:51:14
|
Line 72 sub display_common {
|
Line 72 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); |
#Fixme -- remove from recent those paths that are deleted |
|
$r->print('<br /><form method=post action="/adm/portfolio">'. |
$r->print('<br /><form method=post action="/adm/portfolio">'. |
&Apache::lonhtmlcommon::select_recent('portfolio','currentpath', |
&Apache::lonhtmlcommon::select_recent('portfolio','currentpath', |
'this.form.submit();')); |
'this.form.submit();')); |
Line 250 sub done {
|
Line 249 sub done {
|
|
|
sub delete { |
sub delete { |
my ($r)=@_; |
my ($r)=@_; |
&open_form($r); |
my @check; |
$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>'); |
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
&close_form($r); |
push @check, $file_name; |
|
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(&done()); |
|
} else { |
|
&open_form($r); |
|
$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>'); |
|
&close_form($r); |
|
} |
} |
} |
|
|
sub delete_confirmed { |
sub delete_confirmed { |
Line 305 sub delete_dir_confirmed {
|
Line 314 sub delete_dir_confirmed {
|
|
|
sub rename { |
sub rename { |
my ($r)=@_; |
my ($r)=@_; |
&open_form($r); |
my @check; |
$r->print('<p>'.&mt('Rename').' '.&display_file().' to |
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
<input name="filenewname" type="input" size="50" />?</p>'); |
push @check, $file_name; |
&close_form($r); |
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(&done()); |
|
} else { |
|
&open_form($r); |
|
$r->print('<p>'.&mt('Rename').' '.&display_file().' to |
|
<input name="filenewname" type="input" size="50" />?</p>'); |
|
&close_form($r); |
|
} |
} |
} |
|
|
sub rename_confirmed { |
sub rename_confirmed { |