--- loncom/publisher/londiff.pm 2001/05/02 21:01:47 1.1 +++ loncom/publisher/londiff.pm 2001/05/02 23:00:05 1.3 @@ -49,6 +49,18 @@ sub handler { my @f1=(); my @f2=(); + $r->content_type('text/html'); + $r->send_http_header; + + $r->print('LON-CAPA Construction Diffs'); + + $r->print(''); + + + $r->print('

Compare versions of '.$ENV{'form.filename'}.'

'); + + 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,39 +112,28 @@ sub handler { # Start page output - $r->content_type('text/html'); - $r->send_http_header; - - $r->print('LON-CAPA Construction Diffs'); - - $r->print(''); - - - $r->print('

Compare versions of '.$ENV{'form.filename'}.'

'); - my $chunk; my $line; - $r->print(''); + $r->print('
');
+
   foreach $chunk (@$diffs) {
-    $r->print('
Version '.$ENV{'form.versionone'}. - 'Version '.$ENV{'form.versiontwo'}.'
');
-    my $presign='-';  
+
     foreach $line (@$chunk) {
       my ($sign, $lineno, $text) = @$line;
-      if ($sign ne $presign) {
-	  $r->print('
');
-          $presign=$sign;
-      }
       $text=~s/\/\>\;/g;
-      $lineno=substr($lineno.'        ',0,8);
-      $r->print($lineno.' '.$text."\n");
+      $lineno=substr($lineno.'        ',0,7);
+      $r->print(''.
+                $sign.' '.$lineno.' '.$text."\n");
     }
+    $r->print("
\n"); } + $r->print('
'); - $r->print('
'); - +} else { + $r->print('

Binary File

'); +} $r->print(''); return OK; } @@ -143,3 +144,4 @@ __END__ +