--- loncom/interface/lonhtmlcommon.pm	2004/02/20 16:21:49	1.53
+++ loncom/interface/lonhtmlcommon.pm	2004/02/24 23:19:15	1.56
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.53 2004/02/20 16:21:49 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.56 2004/02/24 23:19:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,7 +60,6 @@ use Time::HiRes;
 use Apache::lonlocal;
 use strict;
 
-
 ##############################################
 ##############################################
 
@@ -677,7 +676,7 @@ sub Create_PrgWin {
 	}
 	if (!$inputname) {
 	    $prog_state{'inputname'}=&get_uniq_name();
-	    &r_print($r,'<input type="text" name="'.$prog_state{'inputname'}.
+	    &r_print($r,$heading.' <input type="text" name="'.$prog_state{'inputname'}.
 		     '" size="'.$width.'" />');
 	} else {
 	    $prog_state{'inputname'}=$inputname;
@@ -879,8 +878,14 @@ returns: nothing
     my @Crumbs;
 
     sub breadcrumbs {
-        my ($color,$component,$component_help) = @_;
-        $color = '#CCCCFF' if (! defined($color));
+        my ($color,$component,$component_help,$function,$domain) = @_;
+        if (! defined($color)) {
+            if (! defined($function)) {
+                $function = &Apache::loncommon::get_users_function();
+            }
+            $color = &Apache::loncommon::designparm($function.'.tabbg',
+                                                    $domain);
+        }
         #
         my $Str = "\n".
             '<table width="100%" border="0" cellpadding="0" cellspacing="0">'.
@@ -905,13 +910,20 @@ returns: nothing
                  );
         $links .= '-&gt;' if ($links ne '');
         $links .= '<b>'.$last->{'text'}.'</b>';
+        #
+        my $icons = '';
+        if (exists($last->{'faq'})) {
+            $icons .= &Apache::loncommon::help_open_faq($last->{'faq'});
+        }
         if (exists($last->{'bug'})) {
-            $links = &Apache::loncommon::help_open_bug($last->{'bug'}).$links;
+            $icons .= &Apache::loncommon::help_open_bug($last->{'bug'});
         }
-        if (exists($last->{'faq'})) {
-            $links = &Apache::loncommon::help_open_faq($last->{'faq'}).$links;
+        if ($icons ne '') {
+            $Str .= $icons.'&nbsp;';
         }
+        #
         $Str .= $links.'</font></td>';
+        #
         if (defined($component)) {
             $Str .= '<td align="right" bgcolor="'.$color.'">'.
                 '<font size="+1">'.$component.'</font>';