|
Lines 97-103
sub pending {
Link Here
|
| 97 |
while ( my $row = $sth->fetchrow_hashref() ) { |
97 |
while ( my $row = $sth->fetchrow_hashref() ) { |
| 98 |
foreach my $key ( keys %$row ) { |
98 |
foreach my $key ( keys %$row ) { |
| 99 |
if ( defined $row->{$key} && $key eq 'extended_attributes' ) { |
99 |
if ( defined $row->{$key} && $key eq 'extended_attributes' ) { |
| 100 |
my $attributes = decode_json( $row->{$key} ); |
100 |
my $attributes = from_json( $row->{$key} ); |
| 101 |
my @pending_attributes; |
101 |
my @pending_attributes; |
| 102 |
foreach my $attr ( @{$attributes} ) { |
102 |
foreach my $attr ( @{$attributes} ) { |
| 103 |
push @pending_attributes, |
103 |
push @pending_attributes, |
| 104 |
- |
|
|