my @records;

my $parser = XML::LibXML->new;
my $doc = $parser->parse_string( $result->{records} );
print STDERR $doc->toString( 1 );
foreach my $node ($doc->documentElement->childNodes)
{
	next unless $node->isa( "XML::LibXML::Element" );
	my $record = {
		timescited => $node->getAttribute( "timescited" ),
	};
	my( $item ) = $node->getElementsByTagName( "item" );
	$record->{"year"} = $item->getAttribute( "coverdate" );
	$record->{"year"} =~ s/^(\d{4}).+/$1/; # yyyymm
	my( $ut ) = $item->getElementsByTagName( "ut" );
	$record->{"primarykey"} = $ut->textContent;
	my( $item_title ) = $item->getElementsByTagName( "item_title" );
	$record->{"title"} = $item_title->textContent;
	push @records, $record;
}

return @records;

NAME

SOAP::ISIWoK - search and query the ISI Web of Knowledge

SYNOPSIS

use SOAP::ISIWoK;

my $wok = SOAP::ISIWoK->new();

my $results = $wok->search( "AU = (Brody)" );
my $results = $wok->search( "AU = (Brody)", offset => 10, max => 20 );

print $results->[0]->{title};

DESCRIPTION

This module is a thin wrapper for the ISI Web of Knowledge SOAP interface.

EXPORT

None by default.

HISTORY

0.01

Original version; created by h2xs 1.23 with options

  -n
	SOAP::ISIWoK
	-e
	-A
	-C
	-X
	-c
	-b
	5.8.0

SEE ALSO

SOAP::Lite, http://www.isiknowledge.com/

AUTHOR

Timothy D Brody, <tdb2@ecs.soton.ac.uk<gt>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by Tim D Brody

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.