LP#1655149: Badges need CDBI support for location groups

The badge code needs to inspect copy location groups, and tries to do so using
Class::DBI classes. But we haven't told CDBI about aclg and friends.  Here we
tell Class::DBI about asset.copy_location_group so that storage can retrieve
directly.

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Kathy Lussier <klussier@masslnc.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/asset.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/asset.pm
index b9f6354..b631bb8 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/asset.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/asset.pm
@@ -13,6 +13,14 @@ __PACKAGE__->columns( Primary => qw/id/ );
 __PACKAGE__->columns( Essential => qw/name owning_lib holdable hold_verify opac_visible circulate label_prefix label_suffix checkin_alert deleted/ );
 
 #-------------------------------------------------------------------------------
+package asset::copy_location_group;
+use base qw/asset/;
+
+__PACKAGE__->table( 'asset_copy_location_group' );
+__PACKAGE__->columns( Primary => qw/id/ );
+__PACKAGE__->columns( Essential => qw/name owner pos top opac_visible/ );
+
+#-------------------------------------------------------------------------------
 package asset::copy_location_order;
 use base qw/asset/;
 

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
index 59f72f5..f680b1c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
@@ -376,6 +376,12 @@
     asset::copy_location->sequence( 'asset.copy_location_id_seq' );
 
     #---------------------------------------------------------------------
+    package asset::copy_location_group;
+    
+    asset::copy_location_group->table( 'asset.copy_location_group' );
+    asset::copy_location_group->sequence( 'asset.copy_location_group_id_seq' );
+
+    #---------------------------------------------------------------------
     package asset::copy;
     
     asset::copy->table( 'asset.copy' );