loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.18, 2006/04/06 22:15:18	version 1.19, 2006/05/17 13:41:45
Line 32 package Apache::londiff;	Line 32 package Apache::londiff;
use strict;	use strict;
use Apache::File;	use Apache::File;
use File::Copy;	use File::Copy;
	use File::Compare;
use Algorithm::Diff qw(diff);	use Algorithm::Diff qw(diff);
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;	use Apache::loncacc;
Line 44 sub get_split_file {	Line 45 sub get_split_file {
my ($fn,$style)=@_;	my ($fn,$style)=@_;
my $f1;	my $f1;
my @f1;	my @f1;
if ($style='local') {	if ($style eq 'local') {
if (-e $fn) {	if (-e $fn) {
my $fh=Apache::File->new($fn);	my $fh=Apache::File->new($fn);
my $line;	my $line;
Line 66 sub get_split_file {	Line 67 sub get_split_file {
return @f1;	return @f1;
}	}

	sub are_different_files {
	my ($fileone,$filetwo)=@_;
	return &compare($fileone,$filetwo);
	}

sub handler {	sub handler {

my $r=shift;	my $r=shift;
Line 124 sub handler {	Line 130 sub handler {
$r->print('<b>'.&mt('Construction Space Version').'</b>');	$r->print('<b>'.&mt('Construction Space Version').'</b>');
} else {	} else {
my $fn=	my $fn=
'/home/httpd/html//res/'.$cudom.'/'.$cuname.'/';	'/home/httpd/html/res/'.$cudom.'/'.$cuname.'/';
if ($env{'form.versionone'}) {	if ($env{'form.versionone'}) {
my ($main,$suffix)=($efn=~/^(.+)\.(\w+)$/);	my ($main,$suffix)=($efn=~/^(.+)\.(\w+)$/);
$fn.=$main.'.'.$env{'form.versionone'}.'.'.$suffix;	$fn.=$main.'.'.$env{'form.versionone'}.'.'.$suffix;