--- 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='<font size="-2">'.$output.'</font>';
+		my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink.
+		    '.tmp';
+		if ((!$ENV{'form.updatedisplay'}) &&
+		    (-e $cache)) {
+		    open(FH,$cache);
+		    $output=join("\n",<FH>);
+		    close(FH);
+		} else {
+		    $output=&Apache::lonnet::ssi_body($filelink);
+		    open(FH,">$cache");
+		    print FH $output;
+		    close(FH);
+		}
+		$output='<font size="-2">'.$output.'</font>';
 	   } elsif ($embstyle eq 'img') {
                $output='<img src="'.$filelink.'" />';
            } elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) {