--- loncom/interface/lonindexer.pm 2005/04/07 06:56:23 1.133 +++ 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.133 2005/04/07 06:56:23 albertel 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++; } @@ -970,10 +969,6 @@ sub display_line { } # Filetype icons $r->print("\n"); -# Close form to open/close sequence - if ($filelink=~/\.(page|sequence)$/) { - $r->print(''); - } my $quotable_filelink = &Apache::loncommon::escape_single($filelink); @@ -984,6 +979,10 @@ sub display_line { $r->print (" (metadata) "); +# Close form to open/close sequence + if ($filelink=~/\.(page|sequence)$/) { + $r->print(''); + } $r->print("\n"); if ($hash{'display_attrs_0'} == 1) { my $title = &Apache::lonnet::gettitle($filelink,'title'); @@ -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; }