--- loncom/interface/lonhtmlcommon.pm 2007/10/01 18:45:40 1.165
+++ loncom/interface/lonhtmlcommon.pm 2007/10/04 01:16:58 1.166
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.165 2007/10/01 18:45:40 banghart Exp $
+# $Id: lonhtmlcommon.pm,v 1.166 2007/10/04 01:16:58 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -481,6 +481,19 @@ ENDJS
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;
+}
+
+
##############################################
##############################################