--- loncom/publisher/londiff.pm	2001/12/13 14:02:54	1.7
+++ loncom/publisher/londiff.pm	2002/05/29 18:23:58	1.8
@@ -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.8 2002/05/29 18:23:58 stredwic 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'};