[BACK]Return to lonhtmlcommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.53 and 1.55

version 1.53, 2004/02/20 16:21:49 version 1.55, 2004/02/20 17:03:38
Line 60  use Time::HiRes; Line 60  use Time::HiRes;
 use Apache::lonlocal;  use Apache::lonlocal;
 use strict;  use strict;
   
   
 ##############################################  ##############################################
 ##############################################  ##############################################
   
Line 879  returns: nothing Line 878  returns: nothing
     my @Crumbs;      my @Crumbs;
   
     sub breadcrumbs {      sub breadcrumbs {
         my ($color,$component,$component_help) = @_;          my ($color,$component,$component_help,$function,$domain) = @_;
         $color = '#CCCCFF' if (! defined($color));          if (! defined($color)) {
               if (! defined($function)) {
                   $function = &Apache::loncommon::get_users_function();
               }
               $color = &Apache::loncommon::designparm($function.'.tabbg',
                                                       $domain);
           }
         #          #
         my $Str = "\n".          my $Str = "\n".
             '<table width="100%" border="0" cellpadding="0" cellspacing="0">'.              '<table width="100%" border="0" cellpadding="0" cellspacing="0">'.
Line 905  returns: nothing Line 910  returns: nothing
                  );                   );
         $links .= '-&gt;' if ($links ne '');          $links .= '-&gt;' if ($links ne '');
         $links .= '<b>'.$last->{'text'}.'</b>';          $links .= '<b>'.$last->{'text'}.'</b>';
           #
           my $icons = '';
           if (exists($last->{'faq'})) {
               $icons .= &Apache::loncommon::help_open_faq($last->{'faq'});
           }
         if (exists($last->{'bug'})) {          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'})) {          if ($icons ne '') {
             $links = &Apache::loncommon::help_open_faq($last->{'faq'}).$links;              $Str .= $icons.'&nbsp;';
         }          }
           #
         $Str .= $links.'</font></td>';          $Str .= $links.'</font></td>';
           #
         if (defined($component)) {          if (defined($component)) {
             $Str .= '<td align="right" bgcolor="'.$color.'">'.              $Str .= '<td align="right" bgcolor="'.$color.'">'.
                 '<font size="+1">'.$component.'</font>';                  '<font size="+1">'.$component.'</font>';
Removed from v.1.53  
changed lines
  Added in v.1.55

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>