|
Lines 1951-1971
sub strings_map {
Link Here
|
| 1951 |
} |
1951 |
} |
| 1952 |
|
1952 |
|
| 1953 |
my $status_string = |
1953 |
my $status_string = |
| 1954 |
( $self->status && exists $status_graph_union->{ $self->status } && defined $status_graph_union->{ $self->status }->{name} ) |
1954 |
( $self->status |
| 1955 |
? $status_graph_union->{ $self->status }->{name} |
1955 |
&& exists $status_graph_union->{ $self->status } |
| 1956 |
: $self->status; |
1956 |
&& defined $status_graph_union->{ $self->status }->{name} ) |
|
|
1957 |
? $status_graph_union->{ $self->status }->{name} |
| 1958 |
: $self->status; |
| 1957 |
|
1959 |
|
| 1958 |
my $status_code = |
1960 |
my $status_code = |
| 1959 |
( $self->status && exists $status_graph_union->{ $self->status } && defined $status_graph_union->{ $self->status }->{id} ) |
1961 |
( $self->status |
| 1960 |
? $status_graph_union->{ $self->status }->{id} |
1962 |
&& exists $status_graph_union->{ $self->status } |
| 1961 |
: $self->status; |
1963 |
&& defined $status_graph_union->{ $self->status }->{id} ) |
|
|
1964 |
? $status_graph_union->{ $self->status }->{id} |
| 1965 |
: $self->status; |
| 1962 |
|
1966 |
|
| 1963 |
my $strings = { |
1967 |
my $strings = { |
| 1964 |
status => { |
1968 |
status => { |
| 1965 |
backend => $self->backend, # the backend identifier |
1969 |
backend => $self->backend, # the backend identifier |
| 1966 |
str => $status_string, # the status description, taken from the status graph |
1970 |
str => $status_string, # the status description, taken from the status graph |
| 1967 |
code => $status_code, # the status id, taken from the status graph |
1971 |
code => $status_code, # the status id, taken from the status graph |
| 1968 |
type => 'ill_status', # fixed type |
1972 |
type => 'ill_status', # fixed type |
| 1969 |
} |
1973 |
} |
| 1970 |
}; |
1974 |
}; |
| 1971 |
|
1975 |
|
| 1972 |
- |
|
|