here is the code in question

sub _goto_action_page
   my ($self, $type, $action)=@_;
   my ($response, $num, $form, $input);
   if(!exists $self->{MAIN_RESPONSE})
   { return _error($self," some error message here"); }
   $response=$self->{MAIN_RESPONSE};
   $num=0;
   $form=_get_new_form($self,$response->as_string, $response->base);
   foreach $input ($form->inputs())
   {
      if($input->name eq "componentType")
      {
         #croaks here if $type is not eq to ACS, MPI, DS,    
         # AHS.
         $input->value($type); 
         $num++; 
       } 
    }
[download]