--- loncom/publisher/lonpublisher.pm	2001/04/16 20:47:27	1.25
+++ loncom/publisher/lonpublisher.pm	2001/05/03 11:18:28	1.26
@@ -9,6 +9,7 @@
 # 03/23 Guy Albertelli
 # 03/24,03/29,04/03 Gerd Kortemeyer
 # 04/16/2001 Scott Harrison
+# 05/03 Gerd Kortemeyer
 
 package Apache::lonpublisher;
 
@@ -837,6 +838,11 @@ unless ($ENV{'form.phase'} eq 'two') {
       $r->print('<h2>Publishing '.
         &Apache::lonnet::filedescription($thistype).' <tt>'.
         $thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>');
+
+      if (&Apache::lonnet::fileembstyle($thistype) eq 'ssi') {
+          $r->print('<br><a href="/adm/diff?filename='.$thisdisfn.
+  	  '&versionone=priv" target=cat>Diffs with Current Version</a><p>');
+      }
   
 # ------------ We are publishing from $thisfn to $thistarget with $thisembstyle