- $e->{json} = decode_json $json;
- warn ">> $id ", dump $e->{json};
- }
+ $json = $item->{json} = decode_json $json;
+ warn "# json $id ", dump $json;
+
+ foreach my $tag ( @{ $json->{tags} } ) {
+ $tag = $tag->{tag};
+ warn "# tag $id $tag\n";
+ next unless $tag =~ m/#(\d+)/;
+ push @{ $ticket->{$1} }, $id;
+ }
+ }