From 0514284b0db24e2a482145eaabf0f388e52469a9 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 30 Jun 2005 15:12:47 +0000
Subject: [PATCH] added some new fields

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1007 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm | 40 ++++++++++++++++-------
 1 file changed, 29 insertions(+), 11 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
index 57a258cf30..9c92e3aa43 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
@@ -11,20 +11,22 @@ use Data::Dumper;
 my $parser		= XML::LibXML->new();
 my $xslt			= XML::LibXSLT->new();
 my $xslt_doc	= $parser->parse_file( 
-		"/pines/cvs/ILS/Open-ILS/xsl/MARC21slim2MODS.xsl" );
+		"/pines/cvs/ILS/Open-ILS/xsl/MARC21slim2MODS3.xsl" );
 my $mods_sheet = $xslt->parse_stylesheet( $xslt_doc );
 
 # ----------------------------------------------------------------------------------------
-# XXX get me from the database and cache me ...
+# XPATH for extracting info from a MODS doc
 my $isbn_xpath			= "//mods:mods/mods:identifier[\@type='isbn']";
 my $resource_xpath	= "//mods:mods/mods:typeOfResource";
 my $pub_xpath			= "//mods:mods/mods:originInfo//mods:dateIssued[\@encoding='marc']|" . 
 								"//mods:mods/mods:originInfo//mods:dateIssued[1]";
 my $tcn_xpath			= "//mods:mods/mods:recordInfo/mods:recordIdentifier";
 my $publisher_xpath	= "//mods:mods/mods:originInfo//mods:publisher[1]";
-
-my $edition_xpath = "//mods:mods/mods:originInfo//mods:edition[1]";
-
+my $edition_xpath		= "//mods:mods/mods:originInfo//mods:edition[1]";
+my $abstract_xpath	= "//mods:mods/mods:abstract";
+my $toc_xpath			= "";
+my $related_xpath		= "";
+my $online_loc_xpath = "(//mods:location/mods:url|//mods:location/mods:url/\@displayLabel)";
 
 my $xpathset = {
 
@@ -85,7 +87,7 @@ sub get_field_value {
 
 	my @string;
 	my $root = $mods->documentElement;
-	$root->setNamespace( "http://www.loc.gov/mods/", "mods", 1 );
+	$root->setNamespace( "http://www.loc.gov/mods/v3", "mods", 1 );
 
 	# grab the set of matching nodes
 	my @nodes = $root->findnodes( $xpath );
@@ -244,8 +246,8 @@ sub mods_values_to_mods_slim {
 	else { $series = $tmp->{'series'}; }
 
 
-	return { series => $series, title => $title, author => $author, subject => $subject };
-
+	return { series => $series, title => $title, 
+			author => $author, subject => $subject };
 }
 
 
@@ -261,9 +263,9 @@ sub start_mods_batch {
 	my $xmldoc = $parser->parse_string($master_doc);
 	my $mods = $mods_sheet->transform($xmldoc);
 
-#	warn "-" x 100 . "\n";
-#	warn "MODS " . $mods->toString(1) . "\n";
-#	warn "-" x 100 . "\n";
+	warn "-" x 100 . "\n";
+	warn "MODS " . $mods->toString(1) . "\n";
+	warn "-" x 100 . "\n";
 
 	$self->{master_doc} = $self->modsdoc_to_values( $mods );
 	$self->{master_doc} = $self->mods_values_to_mods_slim( $self->{master_doc} );
@@ -286,8 +288,21 @@ sub start_mods_batch {
 	($self->{master_doc}->{edition}) =
 		$self->get_field_value( $mods, $edition_xpath );
 
+
+
+# ------------------------------
+	# holds an array of [ link, title, link, title, ... ]
+	$self->{master_doc}->{online_loc} = [];
+	push(@{$self->{master_doc}->{online_loc}},
+		$self->get_field_value( $mods, $online_loc_xpath ));
+
+	($self->{master_doc}->{abstract}) = 
+		$self->get_field_value( $mods, $abstract_xpath );
+
 }
 
+
+
 # ---------------------------------------------------------------------------
 # Takes a MARCXML string and adds it to the growing MODS doc
 # ---------------------------------------------------------------------------
@@ -359,6 +374,9 @@ sub finish_mods_batch {
 	$record->types_of_resource($rtypes);
 	$record->series(\@series);
 
+	$record->online_loc($perl->{online_loc});
+	$record->abstract($perl->{abstract});
+
 	$self->{master_doc} = undef;
 	return $record;
 }
-- 
2.11.0