From 702c4e5d982b28d2eaf955f3441261b9ef265d61 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Fri, 9 Oct 2009 12:23:54 +0100
Subject: [PATCH] Bug 3700 Parameters passed in wrong sequence

As subsequent operations don't get what they expect
all manner of nastiness ensues

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 serials/serials-edit.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index d6b129a453..fb9e98c5fe 100755
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -233,8 +233,8 @@ if ($op and $op eq 'serialchangestatus') {
           my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
                                   $itemhash{$item}->{'subfields'},
                                   $itemhash{$item}->{'field_values'},
-                                  $itemhash{$item}->{'ind_tag'},
-                                  $itemhash{$item}->{'indicator'});
+                                  $itemhash{$item}->{'indicator'},
+                                  $itemhash{$item}->{'ind_tag'});
   #           warn $xml;
           my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
           if ($item=~/^N/){
-- 
2.39.5