adding support for item form (large print, etc) and language in hold targeting

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4618 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index 5627218..37e0ff1 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -613,16 +613,18 @@ sub new_hold_copy_targeter {
        
                        my $all_copies = [];
 
+                       my ($types, $formats, $lang) = split '-', $hold->holdable_formats;
+
                        # find all the potential copies
                        if ($hold->hold_type eq 'M') {
                                for my $r ( map
                                                {$_->record}
                                                metabib::record_descriptor
                                                        ->search(
-                                                               record => [ map { $_->id } metabib::metarecord
-                                                                                       ->retrieve($hold->target)
-                                                                                       ->source_records ],
-                                                               item_type => [split '', $hold->holdable_formats]
+                                                               record => [ map { $_->id } metabib::metarecord->retrieve($hold->target)->source_records ],
+                                                               ( $types   ? (item_type => [split '', $types])   : () ),
+                                                               ( $formats ? (item_form => [split '', $formats]) : () ),
+                                                               ( $lang    ? (item_lang => $lang)                : () ),
                                                        )
                                ) {
                                        my ($rtree) = $self