--- loncom/interface/lonhtmlcommon.pm	2004/03/09 15:06:48	1.61
+++ loncom/interface/lonhtmlcommon.pm	2004/04/07 22:33:00	1.63
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.61 2004/03/09 15:06:48 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.63 2004/04/07 22:33:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -814,8 +814,11 @@ sub r_print {
 # ------------------------------------------------------- Puts directory header
 
 sub crumbs {
-    my ($uri,$target,$prefix,$form)=@_;
-    my $output='<br /><tt><b><font size="+2">'.$prefix.'/';
+    my ($uri,$target,$prefix,$form,$size)=@_;
+    if (! defined($size)) {
+        $size = '+2';
+    }
+    my $output='<br /><tt><b><font size="'.$size.'">'.$prefix.'/';
     if ($ENV{'user.adv'}) {
 	my $path=$prefix.'/';
 	foreach (split('/',$uri)) {
@@ -896,6 +899,9 @@ All inputs can be undef without problems
 Inputs: $color (the background color of the table returned),
         $component (the large text on the right side of the table),
         $component_help
+        $function (role to get colors from)
+        $domain   (domian of role)
+        $menulink (boolean, controls whether to include a link to /adm/menu)
 
 Returns a string containing breadcrumbs for the current page.
 
@@ -921,7 +927,8 @@ returns: nothing
     my @Crumbs;
     
     sub breadcrumbs {
-        my ($color,$component,$component_help,$function,$domain) = @_;
+        my ($color,$component,$component_help,$function,$domain,$menulink) =
+	    @_;
         if (! defined($color)) {
             if (! defined($function)) {
                 $function = &Apache::loncommon::get_users_function();
@@ -942,7 +949,8 @@ returns: nothing
         my $last = pop(@Crumbs);
         #
         # The first one should be the course, I guess.
-        if (exists($ENV{'request.course.id'})) {
+	if (!defined($menulink)) { $menulink=1; }
+        if ($menulink && exists($ENV{'request.course.id'})) {
             my $cid = $ENV{'request.course.id'};
             unshift(@Crumbs,{
                              href=>'/adm/menu',