From 49bf8d4ba2c9d57e62e2f9b53689a4a1d8f98228 Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Mon, 21 Mar 2011 03:57:17 -0400
Subject: [PATCH] consider prefix/suffix when searching for matching call
 numbers

---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm    | 4 ++++
 Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm | 1 +
 2 files changed, 5 insertions(+)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
index c5e5b83324..525871d3c8 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
@@ -919,6 +919,8 @@ sub update_volume {
         owning_lib => $vol->owning_lib,
         record     => $vol->record,
         label      => $vol->label,
+        prefix     => $vol->prefix,
+        suffix     => $vol->suffix,
         deleted    => 'f',
         id         => {'!=' => $vol->id}
     });
@@ -1041,6 +1043,8 @@ sub batch_volume_transfer {
         my $existing_vol = $e->search_asset_call_number(
             {
                 label      => $vol->label, 
+                prefix     => $vol->prefix, 
+                suffix     => $vol->suffix, 
                 record     => $rec, 
                 owning_lib => $o_lib,
                 deleted    => 'f'
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
index efd3da1c86..2ee5cba09f 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
@@ -1360,6 +1360,7 @@ sub unitize_items {
 sub _find_or_create_call_number {
     my ($e, $lib, $cn_string, $record) = @_;
 
+    # FIXME: should suffix and prefix come into play here?
     my $existing = $e->search_asset_call_number({
         "owning_lib" => $lib,
         "label" => $cn_string,
-- 
2.11.0