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

Diff for /loncom/interface/lonhelper.pm between versions 1.124 and 1.125

version 1.124, 2005/10/17 19:46:12 version 1.125, 2005/10/17 20:21:31
Line 2017  BUTTONS Line 2017  BUTTONS
  $mapUrl = $self->{MAP_URL};   $mapUrl = $self->{MAP_URL};
     }      }
   
     my @defaultSymbs;      my %defaultSymbs;
     if (defined($self->{DEFAULT_VALUE})) {      if (defined($self->{DEFAULT_VALUE})) {
         my $valueFunc = eval($self->{DEFAULT_VALUE});          my $valueFunc = eval($self->{DEFAULT_VALUE});
         die 'Error in default value code for variable ' .           die 'Error in default value code for variable ' . 
             $self->{'variable'} . ', Perl said: ' . $@ if $@;              $self->{'variable'} . ', Perl said: ' . $@ if $@;
         @defaultSymbs = &$valueFunc($helper, $self);          my @defaultSymbs = &$valueFunc($helper, $self);
  if (!$multichoice) { # only allowed 1   if (!$multichoice && @defaultSymbs) { # only allowed 1
     @defaultSymbs = ($defaultSymbs[0]);      @defaultSymbs = ($defaultSymbs[0]);
  }   }
    %defaultSymbs = map { if ($_) {($_,1) } } @defaultSymbs;
    delete($defaultSymbs{''});
     }      }
   
   
     # Create the composite function that renders the column on the nav map      # Create the composite function that renders the column on the nav map
     # have to admit any language that lets me do this can't be all bad      # have to admit any language that lets me do this can't be all bad
     #  - Jeremy (Pythonista) ;-)      #  - Jeremy (Pythonista) ;-)
Line 2076  BUTTONS Line 2077  BUTTONS
     }      }
   
             $col .= "<td align='center'><input type='$inputType' name='${var}.forminput' ";              $col .= "<td align='center'><input type='$inputType' name='${var}.forminput' ";
     if (@defaultSymbs) {      if (%defaultSymbs) {
  my $symb=$resource->symb();   my $symb=$resource->symb();
  if (grep(/\Q$symb\E/,@defaultSymbs)) {   if (exists($defaultSymbs{$symb})) {
     $col .= "checked='checked' ";      $col .= "checked='checked' ";
     $checked = 1;      $checked = 1;
  }   }
Removed from v.1.124  
changed lines
  Added in v.1.125

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