loncom/publisher/londiff.pm - diff

Return to londiff.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.7, 2001/12/13 14:02:54	version 1.9, 2002/09/16 13:05:49
Line 62 sub handler {	Line 62 sub handler {

# Get query string for limited number of parameters	# Get query string for limited number of parameters

foreach (split(/&/,$ENV{'QUERY_STRING'})) {	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
my ($name, $value) = split(/=/,$_);	['filename','versiontwo','versionone']);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if (($name eq 'filename') \|\| ($name eq 'versiontwo') \|\|
($name eq 'versionone')) {
unless ($ENV{'form.'.$name}) {
$ENV{'form.'.$name}=$value;
}
}
}

# Get the files	# Get the files

my $cuname=$ENV{'user.name'};	my $cuname=$ENV{'user.name'};
Line 101 sub handler {	Line 91 sub handler {

$r->print('<html><head><title>LON-CAPA Construction Diffs</title></head>');	$r->print('<html><head><title>LON-CAPA Construction Diffs</title></head>');

$r->print('<body bgcolor="#FFFFFF">');	$r->print(&Apache::loncommon::bodytag('Resource Differences'));


$r->print('<h1>Compare versions of <tt>'.$efn.'</tt></h1>');	$r->print('<h1>Compare versions of <tt>'.$efn.'</tt></h1>');