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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.67 and 1.69

version 1.67, 2004/04/23 17:49:25 version 1.69, 2004/05/06 17:54:11
Line 163  sub textbox { Line 163  sub textbox {
 ##############################################  ##############################################
 ##############################################  ##############################################
 sub checkbox {  sub checkbox {
     my ($name,$value) = @_;      my ($name,$checked,$value) = @_;
     my $Str = '<input type="checkbox" name="'.$name.'"'.      my $Str = '<input type="checkbox" name="'.$name.'" ';
  ($value?' checked="1"':'').' />';      if (defined($value)) {
           $Str .= 'value="'.$value.'"';
       } 
       if ($checked) {
           $Str .= ' checked="1"';
       }
       $Str .= ' />';
     return $Str;      return $Str;
 }  }
   
Line 974  returns: nothing Line 980  returns: nothing
         if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') {          if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') {
             my $cid = $ENV{'request.course.id'};              my $cid = $ENV{'request.course.id'};
             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   =>$ENV{'course.'.$cid.'.description'},
                             });                              });
         }          }
         my $links .=           my $links .= 
Line 984  returns: nothing Line 991  returns: nothing
                  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.67  
changed lines
  Added in v.1.69

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