--- 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;
+}
+
+
 ##############################################
 ##############################################