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 |
- |
|
|