RMaint: fix bug 34000 tests from backport

Signed-off-by: Jacob O'Mara <Jacob.omara@openfifth.co.uk>

Koha/Encryption.pm

@@ -61,8 +61,9 @@ sub new {
         );
     }
     return $class->SUPER::new(
-        -key    => $encryption_key,
-        -cipher => 'Cipher::AES'
+        -key         => $encryption_key,
+        -cipher      => 'Cipher::AES',
+        -nodeprecate => 1,
     );
 }
 

Koha/Patron.pm

@@ -315,6 +315,8 @@ sub store {
 
                 $self->add_enrolment_fee_if_needed(0);
 
+                $self->discard_changes;
+
                 logaction( "MEMBERS", "CREATE", $self->borrowernumber, "" )
                   if C4::Context->preference("BorrowersLog");
             }