--- loncom/interface/lonindexer.pm 2005/06/17 18:18:38 1.134 +++ loncom/interface/lonindexer.pm 2006/02/07 19:46:30 1.138 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.134 2005/06/17 18:18:38 www Exp $ +# $Id: lonindexer.pm,v 1.138 2006/02/07 19:46:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -347,7 +347,7 @@ END } # ---------------------------------------------------------------- Print Header - my $html='';#&Apache::lonxml::xmlbegin(); + my $html=&Apache::lonxml::xmlbegin(); $r->print(< @@ -829,7 +829,7 @@ sub display_line { $r->print ('print (' name="'.$msg.'" height="22" type="image" border="0" />'. "\n"); - $r->print(&mt("Up")." $tabtag\n"); + $r->print(&mt("Up")."$tabtag\n"); return OK; } # Do we have permission to look at this? @@ -863,7 +863,7 @@ sub display_line { $r->print("(".$Apache::lonnet::domaindescription{$listname}. ")"); } - $r->print (" $tabtag\n"); + $r->print ("$tabtag\n"); return OK; # display user directory @@ -928,8 +928,7 @@ sub display_line { $r->print("checked"); } $r->print(" />\n"); - $r->print("\n"); - $r->print(""); + $r->print(""); $hash{"pre_${fnum}_link"}=$filelink; $fnum++; } @@ -1074,9 +1073,13 @@ sub display_line { close(FH); } else { $output=&Apache::lonnet::ssi_body($filelink); - open(FH,">$cache"); - print FH $output; - close(FH); + if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/) { + $output=''; + } else { + open(FH,">$cache"); + print FH $output; + close(FH); + } } $output=''.$output.''; } elsif ($embstyle eq 'img') { @@ -1238,6 +1241,7 @@ sub cleanup { if (tied(%hash)){ &Apache::lonnet::logthis('Cleanup indexer: hash'); } + return OK; }