--- loncom/interface/lonindexer.pm 2004/01/27 16:35:37 1.88
+++ loncom/interface/lonindexer.pm 2004/01/29 00:45:12 1.89
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.88 2004/01/27 16:35:37 www Exp $
+# $Id: lonindexer.pm,v 1.89 2004/01/29 00:45:12 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -900,8 +900,20 @@ sub display_line {
my $output='';
my $embstyle=&Apache::loncommon::fileembstyle($curfext);
if ($embstyle eq 'ssi') {
- $output=&Apache::lonnet::ssi_body($filelink);
- $output=''.$output.'';
+ my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink.
+ '.tmp';
+ if ((!$ENV{'form.updatedisplay'}) &&
+ (-e $cache)) {
+ open(FH,$cache);
+ $output=join("\n",);
+ close(FH);
+ } else {
+ $output=&Apache::lonnet::ssi_body($filelink);
+ open(FH,">$cache");
+ print FH $output;
+ close(FH);
+ }
+ $output=''.$output.'';
} elsif ($embstyle eq 'img') {
$output='';
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) {