loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.1, 2001/05/02 21:01:47	version 1.2, 2001/05/02 21:35:15
Line 49 sub handler {	Line 49 sub handler {
my @f1=();	my @f1=();
my @f2=();	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') {	if ($ENV{'form.versionone'} eq 'priv') {
my $fn='/home/'.$ENV{'user.name'}.'/public_html/'.$ENV{'form.filename'};	my $fn='/home/'.$ENV{'user.name'}.'/public_html/'.$ENV{'form.filename'};
if (-e $fn) {	if (-e $fn) {
Line 100 sub handler {	Line 112 sub handler {

# Start page output	# 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 $chunk;
my $line;	my $line;

Line 132 sub handler {	Line 134 sub handler {
}	}

$r->print('</tr></table>');	$r->print('</tr></table>');
	} else {
	$r->print('<h1><font color=red>Binary File</font></h1>');
	}
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;
}	}
Line 143 __END__	Line 147 __END__