![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.5, 2001/09/13 19:59:33 | version 1.6, 2001/10/05 21:35:43 |
|---|---|
| Line 60 sub get_previous_attempt { | Line 60 sub get_previous_attempt { |
| } | } |
| } | } |
| sub get_unprocessed_cgi { | |
| my ($query)= @_; | |
| map { | |
| my ($name, $value) = split(/=/,$_); | |
| $value =~ tr/+/ /; | |
| $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; | |
| if (!defined($ENV{'form.'.$name})) { $ENV{'form.'.$name}=$value; } | |
| } (split(/&/,$query)); | |
| } | |
| 1; | 1; |
| __END__; | __END__; |