lib/NCIP/Handler/CheckOutItem.pm

   1 package NCIP::Handler::CheckOutItem;
   2
   3 =head1
   4
   5   NCIP::Handler::CheckOutItem
   6
   7 =head1 SYNOPSIS
   8
   9     Not to be called directly, NCIP::Handler will pick the appropriate Handler
  10     object, given a message type
  11
  12 =head1 FUNCTIONS
  13
  14 =cut
  15
  16 use Modern::Perl;
  17
  18 use NCIP::Handler;
  19
  20 our @ISA = qw(NCIP::Handler);
  21
  22 sub handle {
  23     my $self   = shift;
  24     my $xmldoc = shift;
  25     if ($xmldoc) {
  26         my $root = $xmldoc->documentElement();
  27         my $xpc  = $self->xpc();
  28
  29         my $userid =
  30           $xpc->findnodes( '//ns:UserIdentifierValue',
  31             $root );
  32         my $itemid =
  33           $xpc->findnodes( '//ns:ItemIdentifierValue',
  34             $root );
  35
  36         # checkout the item
  37         my ( $error, $messages, $datedue ) =
  38           $self->ils->checkout( $userid, $itemid );
  39         my $vars;
  40         my $output;
  41         $vars->{'barcode'}     = $itemid;
  42         $vars->{'messagetype'} = 'CheckOutItemResponse';
  43         if ($error) {
  44             $vars->{'processingerror'}        = 1;
  45             $vars->{'processingerrortype'}    = $messages;
  46             $vars->{'processingerrorelement'} = 'UniqueItemIdentifier';
  47             $output = $self->render_output( 'problem.tt', $vars );
  48         }
  49         else {
  50             my $elements = $self->get_user_elements($xmldoc);
  51             $vars->{'elements'} = $elements;
  52             $vars->{'datedue'}  = $datedue;
  53             $output = $self->render_output( 'response.tt', $vars );
  54         }
  55         return $output;
  56     }
  57 }
  58
  59 1;