--- loncom/interface/lonindexer.pm 2005/06/17 18:18:38 1.134 +++ loncom/interface/lonindexer.pm 2006/03/02 20:16:10 1.139 @@ -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.139 2006/03/02 20:16:10 www 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++; } @@ -1058,6 +1057,7 @@ sub display_line { &dynmetaprint($r,$filelink,'comefrom_list'); &dynmetaprint($r,$filelink,'sequsage_list'); &dynmetaprint($r,$filelink,'dependencies'); + &dynmetaprint($r,$filelink,'course_list'); $r->print(''); } if ($hash{'display_attrs_7'} == 1) { @@ -1074,9 +1074,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 +1242,7 @@ sub cleanup { if (tied(%hash)){ &Apache::lonnet::logthis('Cleanup indexer: hash'); } + return OK; }