version 1.53, 2004/11/02 14:35:42
|
version 1.56, 2004/11/10 05:57:53
|
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); |
if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'} ) eq 'true') { |
|
$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 311 sub delete_dir_confirmed {
|
|
|
sub rename { |
sub rename { |
my ($r)=@_; |
my ($r)=@_; |
&open_form($r); |
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
$r->print('<p>'.&mt('Rename').' '.&display_file().' to |
if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'}) eq 'true') { |
<input name="filenewname" type="input" size="50" />?</p>'); |
$r->print ("The file is locked and cannot be renamed.<br />"); |
&close_form($r); |
$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 { |
Line 340 sub select_files {
|
Line 352 sub select_files {
|
fileList = ""; |
fileList = ""; |
for (i=0;i<document.forms.checkselect.length;i++) { |
for (i=0;i<document.forms.checkselect.length;i++) { |
if (document.forms.checkselect[i].checked){ |
if (document.forms.checkselect[i].checked){ |
fileList = fileList + document.forms.checkselect[i].value + "," ; |
fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ; |
} |
} |
} |
} |
opener.document.forms.lonhomework. |
opener.document.forms.lonhomework. |