loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.88, 2004/01/27 16:35:37
+version 1.89, 2004/01/29 00:45:12
  Line 900  sub display_line {
              my $output='';
              my $embstyle=&Apache::loncommon::fileembstyle($curfext);
  	    if ($embstyle eq 'ssi') {
- 	       $output=&Apache::lonnet::ssi_body($filelink);
+ 		my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink.
-                $output='<font size="-2">'.$output.'</font>';
+ 		    '.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+)\//) {