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