Bug 17600: Standardize our EXPORT_OK

[srvgit] / Koha / Club / Hold.pm

diff --git a/Koha/Club/Hold.pm b/Koha/Club/Hold.pm
index 378cd02..fbf35f4 100644 (file)
--- a/Koha/Club/Hold.pm
+++ b/Koha/Club/Hold.pm
@@ -19,7 +19,6 @@ package Koha::Club::Hold;
 
 use Modern::Perl;
 
-use Carp;
 
 use Koha::Database;
 
@@ -32,7 +31,7 @@ use Koha::Club::Hold::PatronHold;
 use Koha::Clubs;
 use Koha::Patrons;
 
-use List::Util 'shuffle';
+use List::Util qw( shuffle );
 
 =head1 NAME
 
@@ -79,6 +78,7 @@ sub add {
     };
 
     my $club_hold = Koha::Club::Hold->new($club_params)->store();
+    $club_hold->discard_changes;
 
     @enrollments = shuffle(@enrollments);