![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonhtmlcommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.167, 2007/10/10 00:02:19 | version 1.168, 2007/11/02 23:41:01 |
|---|---|
| Line 486 sub build_url { | Line 486 sub build_url { |
| my ($base, $fields)=@_; | my ($base, $fields)=@_; |
| my $url; | my $url; |
| $url = $base.'?'; | $url = $base.'?'; |
| foreach my $key(keys(%$fields)) { | foreach my $key (keys(%$fields)) { |
| $url.=$key.'='.$$fields{$key}.'&'; | $url.=&escape($key).'='.&escape($$fields{$key}).'&'; |
| } | } |
| $url =~ s/&$//; | $url =~ s/&$//; |
| return $url; | return $url; |