|
Lines 89-97
sub existing_statuses {
Link Here
|
| 89 |
} |
89 |
} |
| 90 |
); |
90 |
); |
| 91 |
while ( my $request = $ill_requests->next ) { |
91 |
while ( my $request = $ill_requests->next ) { |
| 92 |
my $status_data = $request->strings_map; |
92 |
my $status_data = $request->status_alias ? $request->strings_map : undef; |
| 93 |
|
93 |
|
| 94 |
if ( $status_data->{status_alias} ) { |
94 |
if ( $status_data && $status_data->{status_alias} ) { |
| 95 |
push @data, { |
95 |
push @data, { |
| 96 |
$status_data->{status_alias}->{str} ? ( str => $status_data->{status_alias}->{str} ) |
96 |
$status_data->{status_alias}->{str} ? ( str => $status_data->{status_alias}->{str} ) |
| 97 |
: $status_data->{status_alias}->{code} ? ( str => $status_data->{status_alias}->{code} ) |
97 |
: $status_data->{status_alias}->{code} ? ( str => $status_data->{status_alias}->{code} ) |
| 98 |
- |
|
|