--- loncom/publisher/londiff.pm 2001/12/13 14:02:54 1.7
+++ loncom/publisher/londiff.pm 2002/09/16 13:05:49 1.9
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to show differences between file versions
#
-# $Id: londiff.pm,v 1.7 2001/12/13 14:02:54 harris41 Exp $
+# $Id: londiff.pm,v 1.9 2002/09/16 13:05:49 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -62,18 +62,8 @@ sub handler {
# Get query string for limited number of parameters
- foreach (split(/&/,$ENV{'QUERY_STRING'})) {
- my ($name, $value) = split(/=/,$_);
- $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;
- }
- }
- }
-
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['filename','versiontwo','versionone']);
# Get the files
my $cuname=$ENV{'user.name'};
@@ -101,7 +91,7 @@ sub handler {
$r->print('LON-CAPA Construction Diffs');
- $r->print('');
+ $r->print(&Apache::loncommon::bodytag('Resource Differences'));
$r->print('Compare versions of '.$efn.'
');