View | Details | Raw Unified | Return to bug 15578
Collapse All | Expand All

(-)a/Koha/MetadataRecord.pm (-12 / +2 lines)
Lines 87-103 sub new { Link Here
87
        return;
87
        return;
88
    }
88
    }
89
89
90
    my $record = $params->{ record };
90
    $params->{format} //= 'MARC';
91
    my $schema = $params->{ schema };
91
    my $self = $class->SUPER::new($params);
92
    my $format = $params->{ format } // 'MARC';
93
    my $id     = $params->{ id };
94
95
    my $self = $class->SUPER::new({
96
        record => $record,
97
        schema => $schema,
98
        format => $format,
99
        id     => $id
100
    });
101
92
102
    bless $self, $class;
93
    bless $self, $class;
103
    return $self;
94
    return $self;
104
- 

Return to bug 15578