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; |