![[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.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; | |
| } | |
| ############################################## | ############################################## |
| ############################################## | ############################################## |