version 1.139, 2008/11/20 15:19:15
|
version 1.151, 2011/09/13 21:42:58
|
Line 74 sub start_radiobuttonresponse {
|
Line 74 sub start_radiobuttonresponse {
|
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.&Apache::edit::deletelist($target,$token) |
.&Apache::edit::deletelist($target,$token) |
.'</span></td>' |
.'</span></td>' |
.'<td> '.&Apache::edit::end_row() |
.'<td> '.&Apache::edit::end_row() |
.&Apache::edit::start_spanning_row(); |
.&Apache::edit::start_spanning_row(); |
$result.= |
$result.= |
&Apache::edit::text_arg('Max Number Of Shown Foils:','max', |
&Apache::edit::text_arg('Max Number Of Shown Foils:','max', |
$token,'4'). |
$token,'4').' 'x 3 . |
&Apache::edit::select_arg('Randomize Foil Order:','randomize', |
&Apache::edit::select_arg('Randomize Foil Order:','randomize', |
['yes','no'],$token). |
['yes','no'],$token).' 'x 3 . |
&Apache::edit::select_arg('Display Direction','direction', |
&Apache::edit::select_arg('Display Direction:','direction', |
['vertical','horizontal'],$token). |
['vertical','horizontal'],$token). |
&Apache::edit::end_row(). |
&Apache::edit::end_row(). |
&Apache::edit::start_spanning_row()."\n"; |
&Apache::edit::start_spanning_row()."\n"; |
Line 104 sub start_radiobuttonresponse {
|
Line 104 sub start_radiobuttonresponse {
|
} else { |
} else { |
$result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}'; |
$result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}'; |
} |
} |
if($env{'form.pdfFormFields'} eq 'yes') { |
if($env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
$result .= &Apache::lonxml::print_pdf_hiddenfield('meta', $env{'user.name'}, $env{'user.domain'}); |
$result .= '\begin{itemize}'; |
$result .= "\n\\\\\n\\\\\n"; |
|
} else { |
} else { |
$result .= '\begin{enumerate}'; |
$result .= '\begin{enumerate}'; |
} |
} |
Line 122 sub end_radiobuttonresponse {
|
Line 121 sub end_radiobuttonresponse {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
if ($target eq 'tex' and $env{'form.pdfFormFields'} ne 'yes') { |
if ($target eq 'tex' ) { |
$result .= '\end{enumerate}'; |
if($env{'form.pdfFormFields'} eq 'yes' and $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
|
$result .= '\end{itemize}'; |
|
} else { |
|
$result .= '\end{enumerate}'; |
|
} |
} |
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
pop @Apache::lonxml::namespace; |
pop @Apache::lonxml::namespace; |
Line 135 sub end_radiobuttonresponse {
|
Line 138 sub end_radiobuttonresponse {
|
%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; |
|
%Apache::response::foilgroup=(); |
%Apache::response::foilgroup=(); |
$Apache::radiobuttonresponse::conceptgroup=0; |
$Apache::radiobuttonresponse::conceptgroup=0; |
&Apache::response::pushrandomnumber(); |
&Apache::response::pushrandomnumber(undef,$target); |
if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') { |
return; |
$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]'; |
|
} |
|
return $result; |
|
} |
} |
|
|
sub storesurvey { |
sub storesurvey { |
|
my ($style) = @_; |
if ( !&Apache::response::submitted() ) { return ''; } |
if ( !&Apache::response::submitted() ) { return ''; } |
my $response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
my $response = $env{'form.HWVAL_'.$Apache::inputtags::response['-1']}; |
&Apache::lonxml::debug("Here I am!:$response:"); |
&Apache::lonxml::debug("Here I am!:$response:"); |
Line 159 sub storesurvey {
|
Line 159 sub storesurvey {
|
$Apache::lonhomework::results{"resource.$part.$id.submission"}= |
$Apache::lonhomework::results{"resource.$part.$id.submission"}= |
$responsestr; |
$responsestr; |
my %previous=&Apache::response::check_for_previous($responsestr,$part,$id); |
my %previous=&Apache::response::check_for_previous($responsestr,$part,$id); |
my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; |
my $ad; |
|
if ($style eq 'anonsurvey') { |
|
$ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='ANONYMOUS'; |
|
} elsif ($style eq 'anonsurveycred') { |
|
$ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='ANONYMOUS_CREDIT'; |
|
} elsif ($style eq 'surveycred') { |
|
$ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED_CREDIT'; |
|
} else { |
|
$ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; |
|
} |
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::lonxml::debug("submitted a $response<br />\n"); |
&Apache::lonxml::debug("submitted a $response<br />\n"); |
return ''; |
return ''; |
Line 209 sub end_foilgroup {
|
Line 218 sub end_foilgroup {
|
|
|
my $result; |
my $result; |
my $bubble_lines; |
my $bubble_lines; |
my $bubbles_per_line; |
|
my $answer_count; |
my $answer_count; |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
my $part = $Apache::inputtags::part; |
my $part = $Apache::inputtags::part; |
$bubbles_per_line = |
my $bubbles_per_line = &getbubblesnum($part,$id); |
&Apache::response::get_response_param($Apache::inputtags::part."_$id", |
|
'numbubbles', |
|
$default_bubbles_per_line); |
|
|
|
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
my $style = $Apache::lonhomework::type; |
my $style = $Apache::lonhomework::type; |
my $direction = &Apache::lonxml::get_param('direction',$parstack, |
my $direction = &Apache::lonxml::get_param('direction',$parstack, |
$safeeval,'-2'); |
$safeeval,'-2'); |
if ( $style eq 'survey' && $target ne 'analyze') { |
if ( (($style eq 'survey') || ($style eq 'surveycred') || |
|
($style eq 'anonsurvey') || ($style eq 'anonsurveycred')) |
|
&& ($target ne 'analyze')) { |
if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
$result=&displayallfoils($direction, $target); |
$result=&displayallfoils($direction, $target); |
} elsif ( $target eq 'answer' ) { |
} elsif ( $target eq 'answer' ) { |
$result=&displayallanswers(); |
$result=&displayallanswers(); |
} elsif ( $target eq 'grade' ) { |
} elsif ( $target eq 'grade' ) { |
$result=&storesurvey(); |
$result=&storesurvey($style); |
} |
} |
$answer_count = scalar(@{$Apache::response::foilgroup{'names'}}); |
$answer_count = scalar(@{$Apache::response::foilgroup{'names'}}); |
|
|
Line 245 sub end_foilgroup {
|
Line 251 sub end_foilgroup {
|
$answer_count = scalar(@shown); |
$answer_count = scalar(@shown); |
|
|
if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
$result=&displayfoils($target, |
$result=&displayfoils($target, |
$answer, \@shown, |
$answer, \@shown, |
$direction, |
$direction, |
$bubbles_per_line); |
$bubbles_per_line); |
Line 280 sub end_foilgroup {
|
Line 286 sub end_foilgroup {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub getbubblesnum { |
|
my ($part,$id) = @_; |
|
my $bubbles_per_line; |
|
my $default_numbubbles = $default_bubbles_per_line; |
|
if (($env{'form.bubbles_per_row'} =~ /^\d+$/) && |
|
($env{'form.bubbles_per_row'} > 0)) { |
|
$default_numbubbles = $env{'form.bubbles_per_row'}; |
|
} |
|
$bubbles_per_line = |
|
&Apache::response::get_response_param($part."_$id",'numbubbles', |
|
$default_numbubbles); |
|
return $bubbles_per_line; |
|
} |
|
|
sub getfoilcounts { |
sub getfoilcounts { |
my @names; |
my @names; |
my $truecnt=0; |
my $truecnt=0; |
Line 321 sub displayallfoils {
|
Line 341 sub displayallfoils {
|
my $i =0; |
my $i =0; |
my $id=$Apache::inputtags::response['-1']; |
my $id=$Apache::inputtags::response['-1']; |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $lastresponse= |
my ($lastresponse,$newvariation,$showanswer); |
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
if ((($Apache::lonhomework::history{"resource.$part.type"} eq 'randomizetry') || |
|
($Apache::lonhomework::type eq 'randomizetry')) && |
|
($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) { |
|
if ($env{'form.'.$part.'.rndseed'} ne |
|
$Apache::lonhomework::history{"resource.$part.rndseed"}) { |
|
$newvariation = 1; |
|
} |
|
} |
|
$showanswer = &Apache::response::show_answer(); |
|
unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) && (defined($env{'form.grade_symb'})) || |
|
($newvariation && !$showanswer)) { |
|
$lastresponse = |
|
$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
} |
if ($direction eq 'horizontal') { $result.='<table><tr>'; } |
if ($direction eq 'horizontal') { $result.='<table><tr>'; } |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
if (&Apache::response::show_answer() ) { |
if ($showanswer) { |
foreach my $name (@names) { |
foreach my $name (@names) { |
if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') { |
if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') { |
if (($direction eq 'horizontal') && ($target ne 'tex')) { |
if (($direction eq 'horizontal') && ($target ne 'tex')) { |
Line 358 sub displayallfoils {
|
Line 391 sub displayallfoils {
|
$result.="<td>"; |
$result.="<td>"; |
} else { |
} else { |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
if($env{'form.pdfFormFields'} eq 'yes') { |
if($env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
my $fieldname = $env{'request.symb'}. |
my $fieldname = $env{'request.symb'}.'&part_'. $Apache::inputtags::part |
'&part_'. $Apache::inputtags::part. |
.'&radiobuttonresponse'.'&HWVAL_'.$Apache::inputtags::response['-1']; |
'&radiobuttonresponse'. |
$result .= '\item[{'.&Apache::lonxml::print_pdf_radiobutton($fieldname,$temp).'}]' |
'&HWVAL_' . $Apache::inputtags::response['-1']; |
.$Apache::response::foilgroup{$name.'.text'}."\n"; |
my $value = $temp; |
|
my $text = $Apache::response::foilgroup{$name.'.text'}; |
|
$result .= &Apache::lonxml::print_pdf_radiobutton($fieldname, |
|
$value, |
|
$text)."\n"; |
|
} else { |
} else { |
$result .= '\item \vskip -2mm '; |
$result .= '\item \vskip -2mm '; |
} |
} |
Line 376 sub displayallfoils {
|
Line 404 sub displayallfoils {
|
} |
} |
} |
} |
if ($target eq 'tex') { |
if ($target eq 'tex') { |
if($env{'form.pdfFormFields'} ne 'yes') { |
if($env{'form.pdfFormFields'} ne 'yes' or $Apache::inputtags::status[-1] ne 'CAN_ANSWER') { |
$result .= '$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$result .= '$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
} |
} |
$i++; |
$i++; |
Line 386 sub displayallfoils {
|
Line 414 sub displayallfoils {
|
onchange=\"javascript:setSubmittedPart('$part');\" |
onchange=\"javascript:setSubmittedPart('$part');\" |
type=\"radio\" |
type=\"radio\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
value=\"$temp\" "; |
value=\"$temp\""; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
|
|
if (defined($lastresponse{$name})) { $result .= ' checked="checked"'; } |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}. |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}. |
'</label>'; |
'</label>'; |
} |
} |
Line 439 sub whichfoils {
|
Line 468 sub whichfoils {
|
&Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in <foilgroup>",'<>&"')); |
&Apache::lonxml::error(&HTML::Entities::encode("No valid value assigned ($Apache::response::foilgroup{$name.'.value'}) for foil $name in <foilgroup>",'<>&"')); |
} |
} |
} |
} |
if (!$havetrue && $Apache::lonhomework::type ne 'survey') { |
if ((!$havetrue) && |
|
($Apache::lonhomework::type ne 'survey') && |
|
($Apache::lonhomework::type ne 'surveycred') && |
|
($Apache::lonhomework::type ne 'anonsurvey') && |
|
($Apache::lonhomework::type ne 'anonsurveycred')) { |
&Apache::lonxml::error(&mt('There are no true statements available.').'<br />'); |
&Apache::lonxml::error(&mt('There are no true statements available.').'<br />'); |
} |
} |
} else { |
} else { |
Line 499 sub whichfoils {
|
Line 532 sub whichfoils {
|
&Apache::lonxml::debug("Answer wants $answer"); |
&Apache::lonxml::debug("Answer wants $answer"); |
my $truename=$truelist[$whichtrue]; |
my $truename=$truelist[$whichtrue]; |
my $dosplice=1; |
my $dosplice=1; |
if ($notrue && $Apache::lonhomework::type ne 'survey') { |
if (($notrue) && |
|
($Apache::lonhomework::type ne 'survey') && |
|
($Apache::lonhomework::type ne 'surveycred') && |
|
($Apache::lonhomework::type ne 'anonsurvey') && |
|
($Apache::lonhomework::type ne 'anonsurveycred')) { |
$dosplice=0; |
$dosplice=0; |
&Apache::lonxml::error(&mt('There are no true statements available.').'<br />'); |
&Apache::lonxml::error(&mt('There are no true statements available.').'<br />'); |
} |
} |
Line 523 sub whichfoils {
|
Line 560 sub whichfoils {
|
$dosplice=0; |
$dosplice=0; |
} else { |
} else { |
if ($topcount>0 || $bottomcount>0) { |
if ($topcount>0 || $bottomcount>0) { |
$answer = int(&Math::Random::random_uniform() * ($#whichfalse+1)) |
my $inc = 1; |
+ $topcount; |
if (($bottomcount > 0) && ($Apache::lonhomework::type ne 'exam')) { |
|
$inc = 2; |
|
} |
|
$answer=int(&Math::Random::random_uniform() * ($#whichfalse+$inc)) |
|
+ $topcount; |
} |
} |
} |
} |
&Apache::lonxml::debug("Answer now wants $answer"); |
&Apache::lonxml::debug("Answer now wants $answer"); |
Line 596 sub displayfoils {
|
Line 637 sub displayfoils {
|
my $temp=0; |
my $temp=0; |
my $id=$Apache::inputtags::response['-1']; |
my $id=$Apache::inputtags::response['-1']; |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
my ($lastresponse,$newvariation); |
|
if ((($Apache::lonhomework::history{"resource.$part.type"} eq 'randomizetry') || |
|
($Apache::lonhomework::type eq 'randomizetry')) && |
|
($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) { |
|
if ($env{'form.'.$part.'.rndseed'} ne |
|
$Apache::lonhomework::history{"resource.$part.rndseed"}) { |
|
$newvariation = 1; |
|
} |
|
} |
|
unless ($newvariation) { |
|
$lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; |
|
} |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
my %lastresponse=&Apache::lonnet::str2hash($lastresponse); |
if ($target ne 'tex' && $direction eq 'horizontal') { |
if ($target ne 'tex' && $direction eq 'horizontal') { |
$result.="<table><tr>"; |
$result.="<table><tr>"; |
} |
} |
|
my $numlines; |
|
if (($target eq 'tex') && ($Apache::lonhomework::type eq 'exam')) { |
|
my $numitems = scalar(@{ $whichfoils }); |
|
$numlines = int($numitems/$bubbles_per_line); |
|
if (($numitems % $bubbles_per_line) != 0) { |
|
$numlines ++; |
|
} |
|
if ($numlines < 1) { |
|
$numlines = 1; |
|
} |
|
if ($numlines > 1) { |
|
my $linetext; |
|
for (my $i=0; $i<$numlines; $i++) { |
|
$linetext .= $Apache::lonxml::counter+$i.', '; |
|
} |
|
$linetext =~ s/,\s$//; |
|
$result .= '\item[\small {\textbf{'.$linetext.'}}]'. |
|
' {\footnotesize '. |
|
&mt('(Bubble once in [_1] lines)',$numlines). |
|
'} \hspace*{\fill} \\\\'; |
|
} else { |
|
$result .= '\item[\textbf{'.$Apache::lonxml::counter.'}.]'; |
|
} |
|
} |
foreach my $name (@{ $whichfoils }) { |
foreach my $name (@{ $whichfoils }) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if ($direction eq 'horizontal') { |
if ($direction eq 'horizontal') { |
Line 615 sub displayfoils {
|
Line 691 sub displayfoils {
|
"<input type=\"radio\" |
"<input type=\"radio\" |
onchange=\"javascript:setSubmittedPart('$part');\" |
onchange=\"javascript:setSubmittedPart('$part');\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
name=\"HWVAL_$Apache::inputtags::response['-1']\" |
value=\"$temp\" "; |
value=\"$temp\""; |
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; } |
if (defined($lastresponse{$name})) { $result .= ' checked="checked"'; } |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>"; |
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>"; |
} else { |
} else { |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
Line 624 sub displayfoils {
|
Line 700 sub displayfoils {
|
$line++; |
$line++; |
$i = 0; |
$i = 0; |
$bubble_number = 0; |
$bubble_number = 0; |
$result.='\item[\textbf{'.($Apache::lonxml::counter+$line).'}.]'; |
|
} |
} |
$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
my $identifier; |
|
if ($numlines > 1) { |
|
$identifier = $Apache::lonxml::counter+$line; |
|
} |
|
$result .= '{\small \textbf{'.$identifier.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs |
$i++; |
$i++; |
$bubble_number++; |
$bubble_number++; |
} else { |
} else { |
if($env{'form.pdfFormFields'} eq 'yes') { |
if($env{'form.pdfFormFields'} eq 'yes' && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
|
my $fieldname = $env{'request.symb'}.'&part_'. $Apache::inputtags::part |
my $fieldname = $env{'request.symb'}. |
.'&radiobuttonresponse'.'&HWVAL_'.$Apache::inputtags::response['-1']; |
'&part_'. $Apache::inputtags::part. |
$result .= '\item[{'.&Apache::lonxml::print_pdf_radiobutton($fieldname,$temp).'}]' |
'&radiobuttonresponse'. |
.$Apache::response::foilgroup{$name.'.text'}."\n"; |
'&HWVAL_' . $Apache::inputtags::response['-1']; |
} else { |
my $value = $temp; |
$result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'}; |
my $text = $Apache::response::foilgroup{$name.'.text'}; |
} |
$result .= &Apache::lonxml::print_pdf_radiobutton($fieldname, $value, $text).'\newline'."\n"; |
|
} else { |
|
$result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'}; |
|
} |
|
} |
} |
} |
} |
if ($target ne 'tex' && $direction eq 'horizontal') { |
if ($target ne 'tex' && $direction eq 'horizontal') { |
Line 776 sub end_foil {
|
Line 851 sub end_foil {
|
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); |
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.')); |
$name=$Apache::lonxml::curdepth; |
$name=$Apache::lonxml::curdepth; |
} |
} |
|
if ($name eq "0") { |
|
&Apache::lonxml::error(&mt('Foil name [_1] is not supported. Please choose another name.','<b><tt>'.$name.'</tt></b>')); |
|
} |
if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>')); |
&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.','<b><tt>'.$name.'</tt></b>')); |
} |
} |
Line 806 sub insert_foil {
|
Line 884 sub insert_foil {
|
<endouttext /> |
<endouttext /> |
</foil>'; |
</foil>'; |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|