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