![[BACK]](/icons/back.gif){kind=icon}
Return to caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse|
Return to caparesponse.pm CVS log | Up to [LON-CAPA] / loncom / homework / caparesponse |
| version 1.202, 2006/12/15 22:11:43 | version 1.204, 2006/12/19 00:49:53 |
|---|---|
| Line 41 BEGIN { | Line 41 BEGIN { |
| } | } |
| my %answer; | my %answer; |
| my @answers; | |
| sub get_answer { return %answer; }; | |
| sub push_answer{ push(@answers,dclone(\%answer)); undef(%answer) } | |
| sub pop_answer { %answer = %{pop(@answers)}; }; | |
| my $cur_name; | my $cur_name; |
| my $tag_internal_answer_name = 'INTERNAL'; | my $tag_internal_answer_name = 'INTERNAL'; |