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