|
version 1.16, 2001/12/17 00:57:59
|
version 1.17, 2002/05/29 18:25:17
|
|
Line 176 sub handler {
|
Line 176 sub handler {
|
| |
|
| # Get query string for limited number of parameters |
# Get query string for limited number of parameters |
| |
|
| foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
| my ($name, $value) = split(/=/,$_); |
['filename'); |
| $value =~ tr/+/ /; |
|
| $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
| if ($name eq 'filename') { |
|
| unless ($ENV{'form.'.$name}) { |
|
| $ENV{'form.'.$name}=$value; |
|
| } |
|
| } |
|
| } |
|
| |
|
| |
|
| if ($ENV{'form.filename'}) { |
if ($ENV{'form.filename'}) { |
| $fn=$ENV{'form.filename'}; |
$fn=$ENV{'form.filename'}; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonretrieve.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher