Commit 7a0d375a authored by Yadd's avatar Yadd
Browse files

Detect changes in app categories (#1479)

parent be0f999f
......@@ -461,14 +461,16 @@ sub _scanNodes {
: {}
}
);
foreach my $cat (@listCatNew) {
@listCatRef = grep { $_ ne $cat } @listCatRef;
}
if (@listCatRef) {
$self->confChanged(1);
foreach my $cat (@listCatRef) {
for ( my $i = 0 ; $i < @listCatNew; $i++ ) {
if ( not( defined $listCatRef[$i] )
or $listCatRef[$i] ne $listCatNew[$i] )
{
push @{ $self->changes },
{ key => $leaf->{id}, old => $cat };
{
key => $leaf->{id},
new => $listCatNew[$i],
old => $listCatRef[$i]
};
}
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment