![[BACK]](/icons/back.gif){kind=icon}
Return to randomlabel.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to randomlabel.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.20, 2002/03/22 22:00:55 | version 1.21, 2002/03/22 22:04:39 |
|---|---|
| Line 124 sub end_randomlabel { | Line 124 sub end_randomlabel { |
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; | my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
| my $result=''; | my $result=''; |
| my $count; | my $count; |
| pop @Apache::lonxml::namespace; | |
| if ($target eq 'web') { | if ($target eq 'web') { |
| $count = $Apache::randomlabel::tlabel_cnt; | $count = $Apache::randomlabel::tlabel_cnt; |
| if( $count != 0) { $result.= "<param name=\"count\" value=\"$count\">"; } | if( $count != 0) { $result.= "<param name=\"count\" value=\"$count\">"; } |