From e4dca5844f7f38c15d79a1a34f985991646fc49c Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Wed, 26 Feb 2014 10:09:43 +1300 Subject: [PATCH] Typo fixes --- lib/NCIP/Handler/LookupItem.pm | 3 ++- lib/NCIPServer.pm | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/NCIP/Handler/LookupItem.pm b/lib/NCIP/Handler/LookupItem.pm index e13bae8..3dc3c0f 100644 --- a/lib/NCIP/Handler/LookupItem.pm +++ b/lib/NCIP/Handler/LookupItem.pm @@ -23,13 +23,14 @@ our @ISA = qw(NCIP::Handler); sub handle { my $self = shift; my $xmldoc = shift; + my $item; if ($xmldoc) { # Given our xml document, lets find the itemid my ($item_id) = $xmldoc->getElementsByTagNameNS( $self->namespace(), 'ItemIdentifierValue' ); - my $item = NCIP::Item->new( + $item = NCIP::Item->new( { itemid => $item_id->textContent(), ils => $self->ils } ); my ( $itemdata, $error ) = $item->itemdata(); if ($error) { diff --git a/lib/NCIPServer.pm b/lib/NCIPServer.pm index 52e14bd..749eb35 100644 --- a/lib/NCIPServer.pm +++ b/lib/NCIPServer.pm @@ -26,7 +26,7 @@ use base qw(Net::Server::PreFork); =head1 NAME - NCIP::Configuration + NCIPServer =head1 SYNOPSIS -- 2.43.2