--- loncom/interface/lonindexer.pm 2010/03/31 13:20:46 1.206 +++ loncom/interface/lonindexer.pm 2011/10/14 16:58:32 1.210 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.206 2010/03/31 13:20:46 raeburn Exp $ +# $Id: lonindexer.pm,v 1.210 2011/10/14 16:58:32 dseaton Exp $ # # Copyright Michigan State University Board of Trustees # @@ -120,8 +120,8 @@ sub handler { my $colspan=''; $extrafield=''; - my $diropendb = - "/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db"; + my $diropendb = LONCAPA::tempdir() . + "$env{'user.domain'}_$env{'user.name'}_sel_res.db"; %hash = (); { my %dbfile; @@ -460,11 +460,12 @@ ENDHEADER push(@select_form_order,$types); } $select_file_categories{'select_form_order'} = \@select_form_order; + my $onchange = 'this.form.submit();'; my $type_element= &Apache::loncommon::select_form( $typeselect, 'only', - %select_file_categories); + \%select_file_categories,$onchange); my $type_selector = ''; @@ -587,6 +588,7 @@ END $r->print(&Apache::loncommon::start_data_table("LC_tableBrowseRes") .&Apache::loncommon::start_data_table_header_row()); $r->print("
" . &mt("Directory does not exist."). "
"); + } + elsif($list[0] eq 'con_lost') { + $r->print("" . &mt("Directory temporarily not accessible."). "
"); + } + return @list=&match_ext($r,@list); } @@ -921,7 +932,7 @@ sub display_line { $r->print ('print (' alt="'.$msg.'" class="LC_fileicon" />'. "\n"); - $r->print(&mt("Up")."$tabtag"); + $r->print(&mt("Up")."