[LON-CAPA-cvs] cvs: loncom /interface lonindexer.pm

[www]

www		Wed Jan 28 19:45:12 2004 EDT

  Modified files:              
    /loncom/interface	lonindexer.pm 
  Log:
  Cache renderings in "show resource" mode.
  
  
Index: loncom/interface/lonindexer.pm
diff -u loncom/interface/lonindexer.pm:1.88 loncom/interface/lonindexer.pm:1.89
--- loncom/interface/lonindexer.pm:1.88	Tue Jan 27 11:35:37 2004
+++ loncom/interface/lonindexer.pm	Wed Jan 28 19:45:12 2004
@@ -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 @@
             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+)\//) {