helpers.get_most_populous_location

Given a call number id, returns a copy location object that has the most copies
for the given call number.  Put this with the SMS template for call numbers

Signed-off-by: Jason Etheridge <jason@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor.pm
index 5cf5488..a56a2cd 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor.pm
@@ -125,6 +125,40 @@ $_TT_helpers = {
         }
     },
 
+    # given a call number, returns the copy location with the most copies
+    get_most_populous_location => sub {
+        my $acn_id = shift;
+
+        # FIXME - there's probably a more efficient way to do this with json_query/SQL
+        my $call_number = new_editor(xact=>1)->retrieve_asset_call_number([
+            $acn_id,
+            {
+                flesh => 1,
+                flesh_fields => {
+                    acn => ['copies']
+                }
+            }
+        ]);
+        my %location_count = (); my $winning_location; my $winning_total;
+        use Data::Dumper;
+        foreach my $copy (@{$call_number->copies()}) {
+            if (! defined $location_count{ $copy->location() }) {
+                $location_count{ $copy->location() } = 1;
+            } else {
+                $location_count{ $copy->location() } += 1;
+            }
+            if ($location_count{ $copy->location() } > $winning_total) {
+                $winning_total = $location_count{ $copy->location() };
+                $winning_location = $copy->location();
+            }
+        }
+
+        my $location = new_editor(xact=>1)->retrieve_asset_copy_location([
+            $winning_location, {}
+        ]);
+        return $location;
+    },
+
     # returns the org unit setting value
     get_org_setting => sub {
         my($org_id, $setting) = @_;

diff --git a/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.sms_carriers.sql b/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.sms_carriers.sql
index 04871fc..1b7b259 100644 (file)
--- a/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.sms_carriers.sql
+++ b/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.sms_carriers.sql
@@ -1402,6 +1402,7 @@ Title: [% title %]
 Author: [% author %]
 [%- END %]
 Call Number: [% target.label %]
+Location: [% helpers.get_most_populous_location( target.id ).name %]
 Library: [% target.owning_lib.name %]
 '
 );