|
Lines 48-83
Return a list of existing ILL statuses
Link Here
|
| 48 |
sub existing_statuses { |
48 |
sub existing_statuses { |
| 49 |
my ( $self, $backend_id ) = @_; |
49 |
my ( $self, $backend_id ) = @_; |
| 50 |
|
50 |
|
| 51 |
#FIXME: Currently fetching all requests, it'd be great if we could fetch distinct(status). |
51 |
# Fetch all existing statuses for the provided backend |
| 52 |
# Even doing it with distinct status, we need the ILL request object, so that strings_map works and |
52 |
my $backend_existing_statuses = Koha::Illrequests->search( |
| 53 |
# the ILL request returns the correct status and info respective to its backend. |
|
|
| 54 |
my $ill_requests = Koha::Illrequests->search( |
| 55 |
{backend => $backend_id}, |
53 |
{backend => $backend_id}, |
| 56 |
# { |
54 |
{ |
| 57 |
# columns => [ qw/status/ ], |
55 |
columns => [ qw/status/ ], |
| 58 |
# group_by => [ qw/status/ ], |
56 |
group_by => [ qw/status/ ], |
| 59 |
# } |
57 |
} |
| 60 |
); |
58 |
); |
| 61 |
|
59 |
|
| 62 |
my @data; |
60 |
my @data; |
| 63 |
while (my $request = $ill_requests->next) { |
61 |
while (my $backend_existing_status = $backend_existing_statuses->next) { |
| 64 |
my $status_data = $request->strings_map; |
62 |
|
|
|
63 |
my $illrequest = |
| 64 |
Koha::Illrequests->search( |
| 65 |
{ backend => $backend_id, status => $backend_existing_status->status } |
| 66 |
)->last; |
| 65 |
|
67 |
|
| 66 |
foreach my $status_class ( qw(status_alias status) ){ |
68 |
my $status_data = $illrequest->strings_map; |
| 67 |
if ($status_data->{$status_class}){ |
69 |
|
|
|
70 |
foreach my $status_class (qw(status_alias status)) { |
| 71 |
if ( $status_data->{$status_class} ) { |
| 68 |
push @data, { |
72 |
push @data, { |
| 69 |
$status_data->{$status_class}->{str} ? (str => $status_data->{$status_class}->{str}) : |
73 |
$status_data->{$status_class}->{str} ? ( str => $status_data->{$status_class}->{str} ) |
| 70 |
$status_data->{$status_class}->{code} ? (str => $status_data->{$status_class}->{code}) : (), |
74 |
: $status_data->{$status_class}->{code} ? ( str => $status_data->{$status_class}->{code} ) |
| 71 |
$status_data->{$status_class}->{code} ? (code => $status_data->{$status_class}->{code}) : (), |
75 |
: (), |
| 72 |
} |
76 |
$status_data->{$status_class}->{code} ? ( code => $status_data->{$status_class}->{code} ) : (), |
|
|
77 |
}; |
| 73 |
} |
78 |
} |
| 74 |
} |
79 |
} |
| 75 |
} |
80 |
} |
| 76 |
|
81 |
|
| 77 |
# Remove duplicate statuses |
|
|
| 78 |
my %seen; |
| 79 |
@data = grep { my $e = $_; my $key = join '___', map { $e->{$_}; } sort keys %$_;!$seen{$key}++ } @data; |
| 80 |
|
| 81 |
return \@data; |
82 |
return \@data; |
| 82 |
} |
83 |
} |
| 83 |
|
84 |
|
| 84 |
- |
|
|