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; |