Adding Category tree...
--------------------------------------------------------------------------------
Error
An error occured:
No parent category found for Gaming Resources/Card Gaming Resources/Combining! Your Category table is corrupted. at
/var/www/cgi-bin/iwd/admin/Links/Upgrade.pm line 157.

#!/usr/bin/perl
use strict;
use lib '/var/www/cgi-bin/admin';
use GT::Base;
use Links qw/$CFG $IN $DB/;
Links::init("/var/www/cgi-bin/admin");
my $table = $DB->table('Category');
my $totalcats = $table->count;
my $sth = $table->select;
while (my $category = $sth->fetchrow_hashref) {
my @catparts = split /\//, $category->{Full_Name};
my $nparts = scalar(@catparts);
my $endpart = $catparts[-1];
# get the parent part
my $parpart = '';
for ( my $q=0; $q<($nparts - 1); $q++ ) {
$parpart .= $catparts[$q] .'/';
}
chop $parpart;
my $thiscatid = $category->{ID};
my $thisparid = $category->{FatherID};
my $thiscatname = $category->{Name};
# get the parent full name
my $parfullname = $table->select( ['Full_Name'], { ID => $thisparid } )->fetchrow;
# check for mismatch between category's name and full name - should rarely happen but worth checking
if ( $endpart != $thiscatname ) {
print_warning ( 1, $thiscatid, $category->{Full_Name}, $thiscatname );
};
# check for mismatch between category's parent name and category's full name - this is the one we really want to trap
if ( $parpart != $parfullname ) {
print_warning ( 2, $thiscatid, $parfullname, $category->{Full_Name} );
};
}
print "\n\nCategory checks complete. $totalcats checked.";

sub print_warning
{
my ( $type,
$catid,
$name1,
$name2 ) = @_;

if ( $type == 1 ) {
print "\nWarning: [Cat. ID $catid] - Mismatch between full category name $name1 and category name $name2.";
} elsif ( $type == 2 ) {
print "\nWarning: [Cat. ID $catid] - Mismatch between parent category full name $name1 and category full name $name2.";
} else {
print "\nWarning: Type $type.";
}
}

# check for mismatch between category's name and full name - should rarely happen but worth checking
if ( $endpart ne $thiscatname ) {
print_warning ( 1, $thiscatid, $category->{Full_Name}, $thiscatname );
};
# check for mismatch between category's parent name and category's full name - this is the one we really want to trap
if ( $parpart ne $parfullname ) {
print_warning ( 2, $thiscatid, $parfullname, $category->{Full_Name} );
};