@@ -, +, @@ Koha::Exceptions::Metadata::Invalid --- Koha/Biblio/Metadata.pm | 7 ++++--- Koha/Exceptions/Metadata.pm | 6 +++--- 2 files changed, 7 insertions(+), 6 deletions(-) --- a/Koha/Biblio/Metadata.pm +++ a/Koha/Biblio/Metadata.pm @@ -72,9 +72,10 @@ sub record { chomp $marcxml_error; unless ($record) { Koha::Exceptions::Metadata::Invalid->throw( - id => $self->id, - format => $self->format, - schema => $self->schema, + id => $self->id, + biblionumber => $self->biblionumber, + format => $self->format, + schema => $self->schema, decoding_error => $marcxml_error, ); } --- a/Koha/Exceptions/Metadata.pm +++ a/Koha/Exceptions/Metadata.pm @@ -25,7 +25,7 @@ use Exception::Class ( 'Koha::Exceptions::Metadata::Invalid' => { isa => 'Koha::Exceptions::Metadata', description => 'Invalid data', - fields => ['id','format','schema', 'decoding_error'] + fields => ['id', 'biblionumber', 'format', 'schema', 'decoding_error'] } ); @@ -36,8 +36,8 @@ sub full_message { unless ($msg) { if ( $self->isa('Koha::Exceptions::Metadata::Invalid') ) { - $msg = sprintf( "Invalid data, cannot decode object (id=%s, format=%s, schema=%s, decoding_error='%s')", - $self->id, $self->format, $self->schema, $self->decoding_error ); + $msg = sprintf( "Invalid data, cannot decode object (id=%s, biblionumber=%s, format=%s, schema=%s, decoding_error='%s')", + $self->id, $self->biblionumber, $self->format, $self->schema, $self->decoding_error ); } } --