Bug 14686: Add allows_add_by to check permissions for uploading

[srvgit] / Koha / MetadataRecord.pm

diff --git a/Koha/MetadataRecord.pm b/Koha/MetadataRecord.pm
index 1577cd0..1b2f4aa 100644 (file)
--- a/Koha/MetadataRecord.pm
+++ b/Koha/MetadataRecord.pm
@@ -87,17 +87,8 @@ sub new {
         return;
     }
 
-    my $record = $params->{ record };
-    my $schema = $params->{ schema };
-    my $format = $params->{ format } // 'MARC';
-    my $id     = $params->{ id };
-
-    my $self = $class->SUPER::new({
-        record => $record,
-        schema => $schema,
-        format => $format,
-        id     => $id
-    });
+    $params->{format} //= 'MARC';
+    my $self = $class->SUPER::new($params);
 
     bless $self, $class;
     return $self;