Bug 32030: Link eHolding with packages

[srvgit] / Koha / ERM / EHolding.pm

diff --git a/Koha/ERM/EHolding.pm b/Koha/ERM/EHolding.pm
index 1af43cd..058bda1 100644 (file)
--- a/Koha/ERM/EHolding.pm
+++ b/Koha/ERM/EHolding.pm
@@ -21,8 +21,7 @@ use Koha::Database;
 
 use base qw(Koha::Object);
 
-use Koha::ERM::Packages;
-use Koha::Acquisition::Booksellers;
+use Koha::ERM::EHolding::Packages;
 
 =head1 NAME
 
@@ -32,6 +31,31 @@ Koha::ERM::EHolding - Koha ERM EHolding Object class
 
 =head2 Class Methods
 
+=head3 eholding_packages
+
+Returns the eholding_packages link for this eHolding
+
+=cut
+
+sub eholding_packages {
+    my ( $self, $eholding_packages ) = @_;
+
+    if ( $eholding_packages ) {
+        my $schema = $self->_result->result_source->schema;
+        $schema->txn_do(
+            sub {
+                $self->eholding_packages->delete;
+
+                for my $eholding_package (@$eholding_packages) {
+                    $self->_result->add_to_erm_eholdings_packages($eholding_package);
+                }
+            }
+        );
+    }
+    my $eholding_packages_rs = $self->_result->erm_eholdings_packages;
+    return Koha::ERM::EHolding::Packages->_new_from_dbic($eholding_packages_rs);
+}
+
 =head2 Internal methods
 
 =head3 _type