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

Diff for /loncom/interface/lonhelper.pm between versions 1.11 and 1.12

version 1.11, 2003/04/15 19:10:00 version 1.12, 2003/04/17 17:21:24
Line 1401  sub start_student { Line 1401  sub start_student {
     $paramHash->{'variable'} = $token->[2]{'variable'};      $paramHash->{'variable'} = $token->[2]{'variable'};
     $helper->declareVar($paramHash->{'variable'});      $helper->declareVar($paramHash->{'variable'});
     $paramHash->{'multichoice'} = $token->[2]{'multichoice'};      $paramHash->{'multichoice'} = $token->[2]{'multichoice'};
       if (defined($token->[2]{'nextstate'})) {
           $paramHash->{NEXTSTATE} = $token->[2]{'nextstate'};
       }
       
 }      }    
   
 sub end_student {  sub end_student {
Line 1441  BUTTONS Line 1445  BUTTONS
   
     # Load up the students      # Load up the students
     my $choices = &Apache::loncoursedata::get_classlist();      my $choices = &Apache::loncoursedata::get_classlist();
   
     my @keys = keys %{$choices};      my @keys = keys %{$choices};
   
     # Constants      # Constants
Line 1752  sub new { Line 1755  sub new {
 sub start_section {  sub start_section {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   
     $paramHash->{CHOICES} = [];  
   
     if ($target ne 'helper') {      if ($target ne 'helper') {
         return '';          return '';
     }      }
   
       $paramHash->{CHOICES} = [];
   
     $paramHash->{'variable'} = $token->[2]{'variable'};      $paramHash->{'variable'} = $token->[2]{'variable'};
     $helper->declareVar($paramHash->{'variable'});      $helper->declareVar($paramHash->{'variable'});
     $paramHash->{'multichoice'} = $token->[2]{'multichoice'};      $paramHash->{'multichoice'} = $token->[2]{'multichoice'};
     if (defined($token->[2]{'nextstate'})) {      if (defined($token->[2]{'nextstate'})) {
         $paramHash->{'nextstate'} = $token->[2]{'nextstate'};          $paramHash->{NEXTSTATE} = $token->[2]{'nextstate'};
     }      }
   
     # Populate the CHOICES element      # Populate the CHOICES element
Line 1776  sub start_section { Line 1780  sub start_section {
         } else {          } else {
             $choices{$sectionName} = $sectionName;              $choices{$sectionName} = $sectionName;
         }          }
     }      } 
          
     for my $sectionName (sort(keys(%choices))) {      for my $sectionName (sort(keys(%choices))) {
           
         push @{$paramHash->{CHOICES}}, [$sectionName, $sectionName];          push @{$paramHash->{CHOICES}}, [$sectionName, $sectionName];
     }      }
   
 }      }    
   
 sub end_section { return ''; }  sub end_section {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   
       if ($target ne 'helper') {
           return '';
       }
       Apache::lonhelper::section->new();
   }    
 1;  1;
   
 package Apache::lonhelper::general;  package Apache::lonhelper::general;
Removed from v.1.11  
changed lines
  Added in v.1.12

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