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

[www]

www		Fri Oct 18 10:50:22 2002 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Link to Diffs for changed version files
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.32 loncom/interface/londocs.pm:1.33
--- loncom/interface/londocs.pm:1.32	Fri Oct 18 09:47:57 2002
+++ loncom/interface/londocs.pm	Fri Oct 18 10:50:22 2002
@@ -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.33 2002/10/18 14:50:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -377,7 +377,14 @@
                  $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>');
           }