Return to lonhtmlcommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.165, 2007/10/01 18:45:40 | version 1.166, 2007/10/04 01:16:58 |
---|---|
Line 481 ENDJS | Line 481 ENDJS |
return $result; | return $result; |
} | } |
sub build_url { | |
my ($base, $fields)=@_; | |
my $url; | |
$url = $base.'?'; | |
foreach my $key(keys(%$fields)) { | |
$url.=$key.'='.$$fields{$key}.'&'; | |
} | |
$url =~ s/&$//; | |
return $url; | |
} | |
############################################## | ############################################## |
############################################## | ############################################## |