version 1.67, 2004/12/14 19:17:54
|
version 1.69, 2004/12/21 22:34:07
|
Line 148 sub display_file_select {
|
Line 148 sub display_file_select {
|
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $display_out; |
my $display_out; |
my $checked_files = &Apache::lonnet::files_in_path($ENV{'user.name'}, $ENV{'form.currentpath'}); |
my $checked_files = &Apache::lonnet::files_in_path($ENV{'user.name'}, $ENV{'form.currentpath'}); |
foreach my $key (keys %$checked_files) { |
|
&Apache::lonnet::logthis("a key is $key $$checked_files{$key} is the value"); |
|
} |
|
if ($is_empty && ($current_path ne '/')) { |
if ($is_empty && ($current_path ne '/')) { |
$display_out = '<form method="post" action="/adm/portfolio">'. |
$display_out = '<form method="post" action="/adm/portfolio">'. |
'<input type="hidden" name="action" value="deletedir" />'. |
'<input type="hidden" name="action" value="deletedir" />'. |
Line 188 sub display_file_select {
|
Line 185 sub display_file_select {
|
$r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'"'); |
$r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'"'); |
if ($$checked_files{$filename} eq 'selected') { |
if ($$checked_files{$filename} eq 'selected') { |
$r->print("CHECKED"); |
$r->print("CHECKED"); |
&Apache::lonnet::logthis("checked"); |
|
} else { |
|
&Apache::lonnet::logthis("not checked $$checked_files{$filename} $filename"); |
|
} |
} |
$r->print('></td>'); |
$r->print('></td>'); |
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>'); |
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>'); |
Line 291 sub delete_confirmed {
|
Line 285 sub delete_confirmed {
|
my @files=&Apache::loncommon::get_env_multiple('form.selectfile'); |
my @files=&Apache::loncommon::get_env_multiple('form.selectfile'); |
my $result; |
my $result; |
foreach my $delete_file (@files) { |
foreach my $delete_file (@files) { |
&Apache::lonnet::logthis("trying to delete $delete_file"); |
|
$result=&Apache::lonnet::removeuserfile($ENV{'user.name'}, |
$result=&Apache::lonnet::removeuserfile($ENV{'user.name'}, |
$ENV{'user.domain'},'portfolio'. |
$ENV{'user.domain'},'portfolio'. |
$ENV{'form.currentpath'}. |
$ENV{'form.currentpath'}. |
Line 444 sub upload {
|
Line 437 sub upload {
|
} |
} |
} |
} |
my $current_disk_usage = &Apache::lonnet::diskusage($ENV{'user.domain'}, $ENV{'user.name'},$portfolio_root); |
my $current_disk_usage = &Apache::lonnet::diskusage($ENV{'user.domain'}, $ENV{'user.name'},$portfolio_root); |
if (($current_disk_usage + $filesize) > $disk_quota){ |
if ((($current_disk_usage/1000) + $filesize) > $disk_quota){ |
$r->print('<font color="red">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes</strong>. Disk quota will be exceeded.'. |
$r->print('<font color="red">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes</strong>. Disk quota will be exceeded.'. |
'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.'); |
'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.'); |
} |
} |