|
version 1.79, 2002/04/17 18:32:35
|
version 1.80, 2002/05/07 18:07:46
|
|
Line 990 sub handler {
|
Line 990 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; |
|
| } |
|
| } |
|
| } |
|
| |
|
| |
|
| # -------------------------------------------------------------- Check filename |
# -------------------------------------------------------------- Check filename |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher