|
Lines 69-86
sub claim_returned {
Link Here
|
| 69 |
} |
69 |
} |
| 70 |
); |
70 |
); |
| 71 |
|
71 |
|
| 72 |
my $data = $claim->unblessed; |
72 |
return $c->render( openapi => $claim, status => 200 ); |
| 73 |
|
|
|
| 74 |
my $c_dt = dt_from_string( $data->{created_on} ); |
| 75 |
my $u_dt = dt_from_string( $data->{updated_on} ); |
| 76 |
|
| 77 |
$data->{created_on_formatted} = output_pref( { dt => $c_dt } ); |
| 78 |
$data->{updated_on_formatted} = output_pref( { dt => $u_dt } ); |
| 79 |
|
| 80 |
$data->{created_on} = $c_dt->iso8601; |
| 81 |
$data->{updated_on} = $u_dt->iso8601; |
| 82 |
|
| 83 |
return $c->render( openapi => $data, status => 200 ); |
| 84 |
} |
73 |
} |
| 85 |
|
74 |
|
| 86 |
=head3 update_notes |
75 |
=head3 update_notes |
|
Lines 165-185
sub resolve_claim {
Link Here
|
| 165 |
); |
154 |
); |
| 166 |
$claim->store(); |
155 |
$claim->store(); |
| 167 |
|
156 |
|
| 168 |
my $data = $claim->unblessed; |
157 |
return $c->render( openapi => $claim, status => 200 ); |
| 169 |
|
|
|
| 170 |
my $c_dt = dt_from_string( $data->{created_on} ); |
| 171 |
my $u_dt = dt_from_string( $data->{updated_on} ); |
| 172 |
my $r_dt = dt_from_string( $data->{resolved_on} ); |
| 173 |
|
| 174 |
$data->{created_on_formatted} = output_pref( { dt => $c_dt } ); |
| 175 |
$data->{updated_on_formatted} = output_pref( { dt => $u_dt } ); |
| 176 |
$data->{resolved_on_formatted} = output_pref( { dt => $r_dt } ); |
| 177 |
|
| 178 |
$data->{created_on} = $c_dt->iso8601; |
| 179 |
$data->{updated_on} = $u_dt->iso8601; |
| 180 |
$data->{resolved_on} = $r_dt->iso8601; |
| 181 |
|
| 182 |
return $c->render( openapi => $data, status => 200 ); |
| 183 |
} |
158 |
} |
| 184 |
|
159 |
|
| 185 |
=head3 delete_claim |
160 |
=head3 delete_claim |
|
Lines 203-211
sub delete_claim {
Link Here
|
| 203 |
|
178 |
|
| 204 |
$claim->delete(); |
179 |
$claim->delete(); |
| 205 |
|
180 |
|
| 206 |
my $data = $claim->unblessed; |
181 |
return $c->render( openapi => $claim, status => 200 ); |
| 207 |
|
|
|
| 208 |
return $c->render( openapi => $data, status => 200 ); |
| 209 |
} |
182 |
} |
| 210 |
|
183 |
|
| 211 |
1; |
184 |
1; |
| 212 |
- |
|
|