loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.31, 2002/04/23 21:06:07
+version 1.32, 2002/05/07 15:24:34
  Line 521  sub handler {
    return OK if $r->header_only;
  # --------------------------- Get query string for limited number of parameters
+     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-     foreach (split(/&/,$ENV{'QUERY_STRING'})) {
+         ['display','replyto','forward','markread','markdel','markunread',
-        my ($name, $value) = split(/=/,$_);
+          'sendreply','compose','sendmail','critical']);
-        $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;
- 	   }
-        }
-     }
  # --------------------------------------------------------------- Render Output