--- loncom/interface/londocs.pm	2002/10/18 13:47:57	1.32
+++ loncom/interface/londocs.pm	2002/10/21 20:31:06	1.35
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.32 2002/10/18 13:47:57 www Exp $
+# $Id: londocs.pm,v 1.35 2002/10/21 20:31:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -260,6 +260,33 @@ sub checkonthis {
           if ($result==OK) {
              $r->print('<font color="green">ok</font>');
              $r->rflush();
+             &Apache::lonnet::countacc($url);
+             $url=~/\.(\w+)$/;
+             if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
+		 $r->print('<br />');
+                 $r->rflush();
+                 for (my $i=0;$i<=$level*5;$i++) {
+                     $r->print('&nbsp;');
+                 }
+                 $r->print('- Rendering: ');
+                 &Apache::lonxml::xmlparse($r,'web',
+                   &Apache::lonnet::getfile(
+                    &Apache::lonnet::filelocation('',$url)));
+                 if (($Apache::lonxml::errorcount) ||
+                     ($Apache::lonxml::warningcount)) {
+		     if ($Apache::lonxml::errorcount) {
+                        $r->print('<font color="red"><b>'.
+			  $Apache::lonxml::errorcount.' error(s)</b></font> ');
+                     }
+		     if ($Apache::lonxml::warningcount) {
+                        $r->print('<font color="blue">'.
+			  $Apache::lonxml::warningcount.' warning(s)</font>');
+                     }
+                 } else {
+                     $r->print('<font color="green">ok</font>');
+                 }
+                 $r->rflush();
+             }
 	     my $dependencies=
                 &Apache::lonnet::metadata($url,'dependencies');
              foreach (split(/\,/,$dependencies)) {
@@ -377,7 +404,14 @@ ENDHEADERS
                  $r->print('<a href="'.&Apache::lonnet::clutter($url).
                    '">Version '.$prevvers.' ('.
                  localtime(&Apache::lonnet::metadata($url,'lastrevisiondate')).
-                 ')</a><br />');
+                 ')</a>');
+                 if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
+                    $r->print(' <a href="/adm/diff?filename='.
+                            &Apache::lonnet::clutter($root.'.'.$extension).
+                            '&versionone='.$prevvers.
+			     '">Diffs</a>');
+                 }
+                 $r->print('<br />');
              }
              $r->print('</td></tr>');
           }