Merge remote-tracking branch 'origin/master' into new/bug_6679

[srvgit] / authorities / authorities.pl

diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index 44387d9..2f82f5a 100755 (executable)
--- a/authorities/authorities.pl
+++ b/authorities/authorities.pl
@@ -581,8 +581,7 @@ if ($op eq "add") {
     # build indicator hash.
     my @ind_tag = $input->param('ind_tag');
     my @indicator = $input->param('indicator');
-    my @params = $input->param();
-    my $record = TransformHtmlToMarc(\@params,$input);
+    my $record = TransformHtmlToMarc($input);
     if  (C4::Context->preference("marcflavour") eq "UNIMARC"){
         unless ($record->field('100')){
         use POSIX qw(strftime);