[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Tue Feb 26 16:00:38 2002 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - use the newly updated loncommon::get_unprocessed_cgi command
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.153 loncom/xml/lonxml.pm:1.154
--- loncom/xml/lonxml.pm:1.153	Wed Feb 20 23:18:59 2002
+++ loncom/xml/lonxml.pm	Tue Feb 26 16:00:38 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.153 2002/02/21 04:18:59 albertel Exp $
+# $Id: lonxml.pm,v 1.154 2002/02/26 21:00:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -978,16 +978,8 @@
 #
 sub afterburn {
     my $result=shift;
-    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 'highlight')||($name eq 'anchor')||($name eq 'link')) {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+					    ['highlight','anchor','link']);
     if ($ENV{'form.highlight'}) {
        foreach (split(/\,/,$ENV{'form.highlight'})) {
            my $anchorname=$_;