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>

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index d6b129a..fb9e98c 100755 (executable)
--- 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/){