[open-ils-commits] r13228 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2009-05-26 02:24:19 -0400 (Tue, 26 May 2009)
New Revision: 13228

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Serial.pm
Log:
Fix bad merge, regret being up this late


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Serial.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Serial.pm	2009-05-26 06:17:49 UTC (rev 13227)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Serial.pm	2009-05-26 06:24:19 UTC (rev 13228)
@@ -96,7 +96,7 @@
 	}
 
 	my $u = OpenILS::Utils::MFHDParser->new();
-	$mfhd_hash = $u->generate_svr( $mfhd[0][0]->{marc} );
+	$mfhd_hash = $u->generate_svr( $mfhd[0][0]->{id}, $mfhd[0][0]->{marc}, $mfhd[0][0]->{owning_lib} );
 
 	return $mfhd_hash;
 }
@@ -121,32 +121,6 @@
 
 	my $u = OpenILS::Utils::MFHDParser->new();
 	foreach (@$serials) {
-		push(@$mfhd, $u->generate_svr($_->marc));
-	}
-
-	return $mfhd;
-}
-
-__PACKAGE__->register_method(
-	method	=> "bib_to_mfhd",
-	api_name	=> "open-ils.search.serial.record.bib.retrieve",
-	argc		=> 1, 
-	note		=> "Given a bibliographic record ID, return MFHD holdings"
-);
-
-sub bib_to_mfhd {
-	my ($self, $client, $bib) = @_;
-	
-	my $mfhd;
-
-	my $e = OpenILS::Utils::CStoreEditor->new();
-	my $serials = $e->search_serial_record_entry({ record => $bib });
-	if (!ref $serials) {
-		return undef;
-	}
-
-	my $u = OpenILS::Utils::MFHDParser->new();
-	foreach (@$serials) {
 		push(@$mfhd, $u->generate_svr($_->id, $_->marc, $_->owning_lib));
 	}