Fixing a typo and getting the correct itemnumber now
authorChris Cormack <chrisc@catalyst.net.nz>
Wed, 2 Oct 2013 22:17:52 +0000 (11:17 +1300)
committerChris Cormack <chrisc@catalyst.net.nz>
Wed, 2 Oct 2013 22:17:52 +0000 (11:17 +1300)
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
lib/NCIP/Handler.pm
lib/NCIP/Handler/LookupItem.pm

index fc179eb..32367f1 100644 (file)
@@ -26,7 +26,7 @@ sub new {
     my $namespace = shift;
     my $type      = shift;
     my $subclass  = __PACKAGE__ . "::" . $type;
-    my $self      = bless { type => $type, namspace => $namespace }, $subclass;
+    my $self      = bless { type => $type, namespace => $namespace }, $subclass;
     return $self;
 }
 
index fd51551..e931bec 100644 (file)
@@ -28,9 +28,12 @@ sub handle {
     my $self   = shift;
     my $xmldoc = shift;
     if ($xmldoc) {
+        # Given our xml document, lets find the itemid
         my ($item_id) =
-          $xmldoc->getElementsByTagNameNS( $self->namespace(), 'ItemId' );
-        my $item = NCIP::Item->new( { itemid => $item_id } );
+          $xmldoc->getElementsByTagNameNS( $self->namespace(),
+            'ItemIdentifierValue' );
+        my $item = NCIP::Item->new( { itemid => $item_id->textContent() } );
+        warn $item->itemid();
     }
     return $self->type;
 }