[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[matthew]

matthew		Tue May  7 11:24:34 2002 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Changed to use loncommon::get_unprocessed_cgi().  Bug 90.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.31 loncom/interface/lonmsg.pm:1.32
--- loncom/interface/lonmsg.pm:1.31	Tue Apr 23 17:06:07 2002
+++ loncom/interface/lonmsg.pm	Tue May  7 11:24:34 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.31 2002/04/23 21:06:07 matthew Exp $
+# $Id: lonmsg.pm,v 1.32 2002/05/07 15:24:34 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -521,21 +521,9 @@
   return OK if $r->header_only;
 
 # --------------------------- 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 'display') || ($name eq 'replyto') || 
-           ($name eq 'forward') || ($name eq 'markread') ||
-           ($name eq 'markdel') || ($name eq 'markunread') ||
-           ($name eq 'sendreply') || ($name eq 'compose') ||
-           ($name eq 'sendmail') || ($name eq 'critical')) {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+        ['display','replyto','forward','markread','markdel','markunread',
+         'sendreply','compose','sendmail','critical']);
 
 # --------------------------------------------------------------- Render Output