Fix for PINES-Specific Holdings Sort Order

See Tom Berezansky's original fix at:
http://git.evergreen-ils.org/?p=evergreen/pines.git;a=commit;h=adc566e152d10796b73c992a16ae46e69cc3ab77

Some changes to the base code required this fix to be updated.

Signed-off-by: Terran McCanna <tmccanna@georgialibraries.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
index c4c14d0..28de3b1 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
@@ -393,19 +393,22 @@ sub mk_copy_query {
                         where => {id => $filter_orgs}
                     }
                 }
-            }
-        }};
+            },
+            join => { 'parent' => { 'class' => 'aou', 'fkey' => 'parent_ou'} }
+        }
+    }}
+    else {
+        $query->{from}->{acp}->[1] = {aou => { 
+            join => { 'parent' => { 'class' => 'aou', 'fkey' => 'parent_ou'} } }
+        }; 
     };
-
-    my $ou_sort_param = [$org, $pref_ou ];
-    if ($coords
-        && ref($coords)
-        && $$coords{latitude}
-        && $$coords{longitude}
-    ) {
-        push(@$ou_sort_param, $$coords{latitude}, $$coords{longitude});
-    }
-
+    
+    unshift(@{$query->{order_by}},
+        {
+        class => 'parent', field => 'name'
+        }
+    );
+     
     # Unsure if we want these in the shared function, leaving here for now
     unshift(@{$query->{order_by}},
         { class => "aou", field => 'id',