1 package NCIP::Handler::CancelRequestItem;
5 NCIP::Handler::CancelRequestItem
9 Not to be called directly, NCIP::Handler will pick the appropriate Handler
10 object, given a message type
21 our @ISA = qw(NCIP::Handler);
27 my $root = $xmldoc->documentElement();
28 my $xpc = $self->xpc();
29 my $userid = $xpc->findnodes( '//ns:UserIdentifierValue', $root );
30 my $requestid = $xpc->findnodes( '//ns:RequestIdentifierValue', $root );
31 my ( $error, $messages ) = $self->ils->cancelrequest($requestid);
33 $vars->{'processingerror'} = 1;
34 $vars->{'processingerrortype'} = $messages;
35 $vars->{'processingerrorelement'} = 'UniqueRequestIdentifier';
36 $output = $self->render_output( 'problem.tt', $vars );
39 my $elements = $self->get_user_elements($xmldoc);
40 $vars->{'elements'} = $elements;
41 $output = $self->render_output( 'response.tt', $vars );