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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.68 and 1.70

version 1.68, 2004/05/05 14:12:54 version 1.70, 2004/05/10 18:57:43
Line 975  returns: nothing Line 975  returns: nothing
         # The last breadcrumb does not have a link, so handle it separately.          # The last breadcrumb does not have a link, so handle it separately.
         my $last = pop(@Crumbs);          my $last = pop(@Crumbs);
         #          #
         # The first one should be the course, I guess.          # The first one should be the course or a menu link
  if (!defined($menulink)) { $menulink=1; }   if (!defined($menulink)) { $menulink=1; }
         if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') {          if ($menulink) {
             my $cid = $ENV{'request.course.id'};              my $description = 'Menu';
               if (exists($ENV{'request.course.id'}) && 
                   $ENV{'request.course.id'} ne '') {
                   $description = 
                       $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
               }
             unshift(@Crumbs,{              unshift(@Crumbs,{
                              href=>'/adm/menu',                      href   =>'/adm/menu',
                              title=>'Go to main menu',                      title  =>'Go to main menu',
                              text=>$ENV{'course.'.$cid.'.description'},                      target =>'_top',
                             });                      text   =>$description,
                   });
         }          }
         my $links .=           my $links .= 
             join('->',              join('->',
                  map {                   map {
                      $faq = $_->{'faq'} if (exists($_->{'faq'}));                       $faq = $_->{'faq'} if (exists($_->{'faq'}));
                      $bug = $_->{'bug'} if (exists($_->{'bug'}));                       $bug = $_->{'bug'} if (exists($_->{'bug'}));
                      '<a href="'.$_->{'href'}.'" title="'.&mt($_->{'title'}).'">'.                       my $result = '<a href="'.$_->{'href'}.'" ';
                          &mt($_->{'text'}).'</a>'                        if (defined($_->{'target'}) && $_->{'target'} ne '') {
                            $result .= 'target="'.$_->{'target'}.'" ';
                        }
                        $result .='title="'.&mt($_->{'title'}).'">'.
                            &mt($_->{'text'}).'</a>';
                        $result;
                      } @Crumbs                       } @Crumbs
                  );                   );
         $links .= '-&gt;' if ($links ne '');          $links .= '-&gt;' if ($links ne '');
Removed from v.1.68  
changed lines
  Added in v.1.70

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