version 1.50, 2004/10/19 19:13:04
|
version 1.52, 2004/10/25 17:00:25
|
Line 436 sub handler {
|
Line 436 sub handler {
|
$r->rflush(); |
$r->rflush(); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['selectfile','currentpath', |
['selectfile','currentpath', |
'currentfile','action','fieldname']); |
'currentfile','action','fieldname','mode']); |
if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){ |
if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){ |
$r->print('<font color="red"> No file was selected to upload.'. |
$r->print('<font color="red"> No file was selected to upload.'. |
'To upload a file, click <strong>Browse...</strong>'. |
'To upload a file, click <strong>Browse...</strong>'. |
Line 488 sub handler {
|
Line 488 sub handler {
|
# need to know if directory is empty so it can be removed if desired |
# need to know if directory is empty so it can be removed if desired |
my $is_empty=(@dir_list == 2); |
my $is_empty=(@dir_list == 2); |
&display_common($r,$current_path,$is_empty,\@dir_list); |
&display_common($r,$current_path,$is_empty,\@dir_list); |
if ($ENV{"form.mode"}='selectfile'){ |
if ($ENV{"form.mode"} eq 'selectfile'){ |
&select_files($r); |
&select_files($r); |
&display_file_select($r,$current_path,$is_empty,\@dir_list); |
&display_file_select($r,$current_path,$is_empty,\@dir_list); |
} else { |
} else { |