--- loncom/publisher/londiff.pm	2001/05/02 21:01:47	1.1
+++ loncom/publisher/londiff.pm	2001/05/02 21:35:15	1.2
@@ -49,6 +49,18 @@ sub handler {
   my @f1=();
   my @f2=();
 
+  $r->content_type('text/html');
+  $r->send_http_header;
+
+  $r->print('<html><head><title>LON-CAPA Construction Diffs</title></head>');
+
+  $r->print('<body bgcolor="#FFFFFF">');
+
+  
+  $r->print('<h1>Compare versions of <tt>'.$ENV{'form.filename'}.'</tt></h1>');
+
+ if (&Apache::lonnet::fileembstyle(($ENV{'form.filename'}=~/\.(\w+)$/)) eq
+      'ssi') {
   if ($ENV{'form.versionone'} eq 'priv') {
       my $fn='/home/'.$ENV{'user.name'}.'/public_html/'.$ENV{'form.filename'};
       if (-e $fn) {
@@ -100,16 +112,6 @@ sub handler {
 
 # Start page output
 
-  $r->content_type('text/html');
-  $r->send_http_header;
-
-  $r->print('<html><head><title>LON-CAPA Construction Diffs</title></head>');
-
-  $r->print('<body bgcolor="#FFFFFF">');
-
-  
-  $r->print('<h1>Compare versions of <tt>'.$ENV{'form.filename'}.'</tt></h1>');
-
   my $chunk;
   my $line;
 
@@ -132,7 +134,9 @@ sub handler {
   }
 
   $r->print('</tr></table>');
-
+} else {
+    $r->print('<h1><font color=red>Binary File</font></h1>');
+}
   $r->print('</body></html>');
   return OK;  
 }
@@ -143,3 +147,4 @@ __END__
 
 
 
+
