[LON-CAPA-cvs] cvs: loncom /interface lonhtmlcommon.pm

[albertel]

albertel		Wed Apr  7 18:33:01 2004 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - responsding to matthew comments to beautify the breadcrumbs
  
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.62 loncom/interface/lonhtmlcommon.pm:1.63
--- loncom/interface/lonhtmlcommon.pm:1.62	Tue Apr  6 11:07:41 2004
+++ loncom/interface/lonhtmlcommon.pm	Wed Apr  7 18:33:00 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.62 2004/04/06 15:07:41 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.63 2004/04/07 22:33:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -899,6 +899,9 @@
 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.
 
@@ -924,7 +927,8 @@
     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();
@@ -945,7 +949,8 @@
         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',