From 630ab77c686495db9879a3fcc1e810987a0ab861 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 9 Jul 2021 09:24:19 +0200
Subject: [PATCH] Bug 27526: Fix PrefillItem

We are basically adding:
  $current_item = $item->unblessed;

Other changes are for readability
---
 cataloguing/additem.pl | 56 ++++++++++++++++++++++++------------------
 1 file changed, 32 insertions(+), 24 deletions(-)

diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl
index 91ddce0f0b3..304447d3984 100755
--- a/cataloguing/additem.pl
+++ b/cataloguing/additem.pl
@@ -330,6 +330,26 @@ sub generate_subfield_form {
         return \%subfield_data;
 }
 
+sub get_item_from_cookie {
+    my ( $input ) = @_;
+
+    my $item_from_cookie;
+    my $lastitemcookie = $input->cookie('LastCreatedItem');
+    if ($lastitemcookie) {
+        $lastitemcookie = decode_base64url($lastitemcookie);
+        eval {
+            if ( thaw($lastitemcookie) ) {
+                $item_from_cookie = thaw($lastitemcookie);
+            }
+        };
+        if ($@) {
+            $lastitemcookie ||= 'undef';
+            warn "Storable::thaw failed to thaw LastCreatedItem-cookie. Cookie value '".encode_base64url($lastitemcookie)."'. Caught error follows: '$@'";
+        }
+    }
+    return $item_from_cookie;
+}
+
 my $input        = CGI->new;
 my $error        = $input->param('error');
 
@@ -398,22 +418,6 @@ my @errors; # store errors found while checking data BEFORE saving item.
 
 # Getting last created item cookie
 my $prefillitem = C4::Context->preference('PrefillItem');
-my $item_from_cookie;
-if ($prefillitem) {
-    my $lastitemcookie = $input->cookie('LastCreatedItem');
-    if ($lastitemcookie) {
-        $lastitemcookie = decode_base64url($lastitemcookie);
-        eval {
-            if ( thaw($lastitemcookie) ) {
-                $item_from_cookie = thaw($lastitemcookie);
-            }
-        };
-        if ($@) {
-            $lastitemcookie = 'undef' unless $lastitemcookie;
-            warn "Storable::thaw failed to thaw LastCreatedItem-cookie. Cookie value '".encode_base64url($lastitemcookie)."'. Caught error follows: '$@'";
-        }
-    }
-}
 
 #-------------------------------------------------------------------------------
 if ($op eq "additem") {
@@ -475,10 +479,9 @@ if ($op eq "additem") {
             # force the use of "add and duplicate" feature, so the form will be filled with
             # correct values.
 
-            # FIXME This need to be rewritten, we must store $item->unblessed instead
             # Pushing the last created item cookie back
             if ( $prefillitem ) {
-                $item_from_cookie = $input->cookie(
+                my $last_created_item_cookie = $input->cookie(
                     -name => 'LastCreatedItem',
                     # We encode_base64url the whole freezed structure so we're sure we won't have any encoding problems
                     -value   => encode_base64url( freeze( { %{$item->unblessed}, itemnumber => undef } ) ),
@@ -486,7 +489,7 @@ if ($op eq "additem") {
                     -expires => ''
                 );
 
-                $cookie = [ $cookie, $item_from_cookie ];
+                $cookie = [ $cookie, $last_created_item_cookie ];
             }
 
         }
@@ -496,6 +499,9 @@ if ($op eq "additem") {
 
     # If we have to add & duplicate
     if ($prefillitem) {
+
+        $current_item = $item->unblessed;
+
         if (C4::Context->preference('autoBarcode') eq 'incremental') {
             my ( $barcode ) = C4::Barcodes::ValueBuilder::incremental::get_barcode;
             $current_item->{barcode} = $barcode;
@@ -793,11 +799,13 @@ for my $library ( @$libraries ) {
 
 
 # Using last created item if it exists
-$current_item = $item_from_cookie
-  if $item_from_cookie
-  && $prefillitem
-  && $op ne "additem"
-  && $op ne "edititem";
+if (   $prefillitem
+    && $op ne "additem"
+    && $op ne "edititem" )
+{
+    my $item_from_cookie = get_item_from_cookie($input);
+    $current_item = $item_from_cookie if $item_from_cookie;
+}
 
 my @subfields_to_prefill = split ' ', C4::Context->preference('SubfieldsToUseWhenPrefill');
 
-- 
2.20.1