|
Lines 71-77
my $i = 0;
Link Here
|
| 71 |
my $value = ''; |
71 |
my $value = ''; |
| 72 |
my $authorized = $result->{'summary'}->{authorized}; |
72 |
my $authorized = $result->{'summary'}->{authorized}; |
| 73 |
foreach my $heading (@$authorized) { |
73 |
foreach my $heading (@$authorized) { |
| 74 |
$value .= $heading . ' '; |
74 |
$value .= $heading->{heading} . ' '; |
| 75 |
} |
75 |
} |
| 76 |
$value = "{\"summary\":\"" . $value . "\"" . "}"; |
76 |
$value = "{\"summary\":\"" . $value . "\"" . "}"; |
| 77 |
print nsb_clean($value) . "\n"; |
77 |
print nsb_clean($value) . "\n"; |
| 78 |
- |
|
|