loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 {