--- 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('
Version '.$ENV{'form.versionone'}. - ' | Version '.$ENV{'form.versiontwo'}.' | '); + $r->print('
---|---|
'); - my $presign='-'; + foreach $line (@$chunk) { my ($sign, $lineno, $text) = @$line; - if ($sign ne $presign) { - $r->print(' | '); - $presign=$sign; - } $text=~s/\\<\;/g; $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("'); - $r->print(' |