--- loncom/homework/hint.pm 2001/05/31 22:37:11 1.12 +++ loncom/homework/hint.pm 2001/06/02 03:59:59 1.13 @@ -11,7 +11,7 @@ sub BEGIN { @Apache::hint::which=(); sub start_hintgroup { - my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $skiptoend='0'; my $result; @@ -36,7 +36,7 @@ sub start_hintgroup { } sub end_hintgroup { - my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; if ($target eq 'web') { @@ -60,7 +60,7 @@ sub start_numericalhint { } sub end_numericalhint { - my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; if ($target eq 'web') { $safeeval->share_from('capa',['&caparesponse_capa_check_answer']); @@ -84,7 +84,7 @@ sub end_numericalhint { # a part shows if it is on, if no specific parts are on, then default shows sub start_hintpart { - my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $show ='0';