--- loncom/interface/lonhtmlcommon.pm	2007/07/11 20:32:15	1.160
+++ 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.160 2007/07/11 20:32:15 albertel 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;
+}
+
+
 ##############################################
 ##############################################
 
@@ -682,7 +695,7 @@ Returns: a perl string as described.
 ##############################################
 ##############################################
 sub StatusOptions {
-    my ($status, $formName,$size,$onchange)=@_;
+    my ($status, $formName,$size,$onchange,$mult)=@_;
     $size = 1 if (!defined($size));
     if (! defined($status)) {
         $status = 'Active';
@@ -691,6 +704,9 @@ sub StatusOptions {
 
     my $Str = '';
     $Str .= '<select name="Status"';
+    if (defined($mult)){
+        $Str .= ' multiple="multiple" ';
+    }
     if(defined($formName) && $formName ne '' && ! defined($onchange)) {
         $Str .= ' onchange="document.'.$formName.'.submit()"';
     }
@@ -1006,7 +1022,12 @@ sub crumbs {
 	    }	    
             my $href_path = &HTML::Entities::encode($path,'<>&"');
 	    &Apache::loncommon::inhibit_menu_check(\$href_path);
-	    $output.=qq{<a href="$href_path" $target>$dir</a>/};
+	    if ($form) {
+	        my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();';
+	        $output.=qq{<a href="$href" $target>$dir</a>/};
+	    } else {
+	        $output.=qq{<a href="$href_path" $target>$dir</a>/};
+	    }
 	}
     } else {
 	foreach my $dir (split('/',$uri)) {
@@ -1329,7 +1350,7 @@ returns: nothing
 # row2
 # row3   ... etc.
 # &submit_row(0
-# &end_pickbox()
+# &end_pick_box()
 #
 # where row1, row 2 etc. are chosen from &role_select_row,&course_select_row,
 # &status_select_row and &email_default_row
@@ -1567,7 +1588,6 @@ sub status_select_row {
 sub email_default_row {
     my ($authtypes,$title,$descrip,$css_class) = @_;
     my $output = &row_title($title,$css_class);
-    my @rowcols = ('#eeeeee','#dddddd');
     $output .= $descrip.
 	&Apache::loncommon::start_data_table().
 	&Apache::loncommon::start_data_table_header_row().