version 1.42, 2002/07/16 21:02:29
|
version 1.44, 2002/07/29 20:43:47
|
Line 76 sub end_optionresponse {
|
Line 76 sub end_optionresponse {
|
return $result; |
return $result; |
} |
} |
|
|
%Apache::response::foilgroup={}; |
%Apache::response::foilgroup=(); |
sub start_foilgroup { |
sub start_foilgroup { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
my $result=''; |
my $result=''; |
%Apache::response::foilgroup={}; |
%Apache::response::foilgroup=(); |
$Apache::optionresponse::conceptgroup=0; |
$Apache::optionresponse::conceptgroup=0; |
&Apache::response::setrandomnumber(); |
&Apache::response::setrandomnumber(); |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
Line 140 ENDTABLE
|
Line 140 ENDTABLE
|
} |
} |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
$result .= ' \begin{enumerate} '; |
$result .= ' \begin{enumerate} '; |
my $option_list = &Apache::lonxml::get_param('options',$parstack,$safeeval); |
|
$option_list =~ s/^\(//; |
|
$option_list =~ s/\)$//; |
|
$result .= ' \item[] Use the following options: \textbf{'.$option_list.'}. '; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 318 sub displayfoils {
|
Line 314 sub displayfoils {
|
$durtyoptionlist =~ s/>/\$>\$/g; |
$durtyoptionlist =~ s/>/\$>\$/g; |
$durtyoptionlist =~ s/</\$<\$/g; |
$durtyoptionlist =~ s/</\$<\$/g; |
$durtyoptionlist =~ s/=/\$=\$/g; |
$durtyoptionlist =~ s/=/\$=\$/g; |
$result.= $durtyoptionlist.$Apache::response::foilgroup{$name.'.text'}; |
$result.= $durtyoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
$Apache::optionresponse::displayoptionintex=1; |
$Apache::optionresponse::displayoptionintex=1; |
} else { |
} else { |
$result.= $Apache::response::foilgroup{$name.'.text'}; |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |
} |
} |
} |
} |
Line 338 sub displayfoils {
|
Line 334 sub displayfoils {
|
sub start_conceptgroup { |
sub start_conceptgroup { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
$Apache::optionresponse::conceptgroup=1; |
$Apache::optionresponse::conceptgroup=1; |
%Apache::response::conceptgroup={}; |
%Apache::response::conceptgroup=(); |
my $result; |
my $result; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils"); |
$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils"); |