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.51, 2004/10/25 13:04:58
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 {