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

(-)a/Koha/ILL/Backend/Standard.pm (-11 / +4 lines)
Lines 145-163 that we do not consider to be metadata Link Here
145
145
146
sub metadata {
146
sub metadata {
147
    my ( $self, $request ) = @_;
147
    my ( $self, $request ) = @_;
148
    my $attrs    = $request->extended_attributes;
148
    my $attrs       = $request->extended_attributes->search( { backend => 'Standard' } );
149
    my $metadata = {};
149
    my $metadata    = {};
150
    my @ignore   = (
151
        'requested_partners', 'type', 'type_disclaimer_value', 'type_disclaimer_date', 'unauthenticated_first_name',
152
        'unauthenticated_last_name', 'unauthenticated_email', 'historycheck_requests'
153
    );
154
    my $core_fields = _get_core_fields();
150
    my $core_fields = _get_core_fields();
155
    while ( my $attr = $attrs->next ) {
151
    while ( my $attr = $attrs->next ) {
156
        my $type = $attr->type;
152
        my $type = $attr->type;
157
        if ( !grep { $_ eq $type } @ignore ) {
153
        if ( $core_fields->{$type} ) {
158
            my $name;
154
            $metadata->{ $core_fields->{$type} } = $attr->value;
159
            $name = $core_fields->{$type} || ucfirst($type);
160
            $metadata->{$name} = $attr->value;
161
        }
155
        }
162
    }
156
    }
163
    return $metadata;
157
    return $metadata;
164
- 

Return to bug 39934