![[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.198.2.1, 2006/12/18 23:31:32 | version 1.198.2.2, 2006/12/19 00:53:57 |
|---|---|
| Line 40 BEGIN { | Line 40 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'; |