Lines 91-101
sub register {
Link Here
|
91 |
}); |
91 |
}); |
92 |
} |
92 |
} |
93 |
|
93 |
|
94 |
my @objects_list = map { |
94 |
my $spec = $c->openapi->spec(); |
95 |
( defined $to_api ) |
95 |
my $properties = $spec->{responses}{200}{schema}{items}{properties}; |
96 |
? $to_api->( $_->TO_JSON ) |
96 |
|
97 |
: $_->TO_JSON |
97 |
my $user = $c->stash('koha.user'); |
98 |
} $objects->as_list; |
98 |
my @hidden_properties; |
|
|
99 |
unless ( $user && $user->has_permission({ catalogue => 1 }) ) { |
100 |
foreach my $property ( keys %$properties ) { |
101 |
if ( defined( $properties->{ $property }{'x-public'} ) |
102 |
&& !$properties->{ $property }{'x-public'}) { |
103 |
push @hidden_properties, $property; |
104 |
} |
105 |
} |
106 |
} |
107 |
|
108 |
my @objects_list; |
109 |
foreach my $o ( @{ $objects->as_list } ) { |
110 |
my $json = defined($to_api) ? $to_api->( $o->TO_JSON ) : $o->TO_JSON; |
111 |
delete @{ $json }{ @hidden_properties }; |
112 |
push @objects_list, $json; |
113 |
} |
99 |
|
114 |
|
100 |
return \@objects_list; |
115 |
return \@objects_list; |
101 |
} |
116 |
} |
102 |
- |
|
|