Europe/England/West Sussex/Rudgwick

* Continent => Europe
* Country => England
* State => West Sussex
* Area => Rudgwick

<%if State eq 'West Sussex'%>
... show something related to "West Sussex"
<%endif%>

Working on test
* Continent => test
Working on Europe
* Continent => Europe
Working on Europe/England
* Continent => Europe
* Country => England
Working on Europe/England/West Sussex
* Continent => Europe
* Country => England
* State => West Sussex
Working on Europe/England/West Sussex/Rudgwick
* Continent => Europe
* Country => England
* State => West Sussex
* Area => Rudgwick

DONE!!!!

#!/usr/bin/perl

use strict;
use lib './';
use Links qw/$IN $DB $CFG/;
use GT::SQL;
use GT::SQL::Condition;
use Links::Plugins;
use CGI::Carp qw(fatalsToBrowser);

local $SIG{__DIE__} = \&Links::fatal;

Links::init('./');

print $IN->header();

my @Field;
$Field[0] = 'Continent';
$Field[1] = 'Country';
$Field[2] = 'State';
$Field[3] = 'Area';
$Field[4] = 'Area_SubCat';


my $cat_tbl = $DB->table('Category');

my $sth = $cat_tbl->select();

while (my $hit = $sth->fetchrow_hashref) {

print "Working on $hit->{Full_Name} \n" if $DEBUG == 1;

my @slice = split /\//, $hit->{Full_Name};

for (my $i = 0; $i <= 4; $i++) {
if ($slice[$i] && $Field[$i]) {
$cat_tbl->update( { $Field[$i] => $slice[$i] }, { ID => $hit->{ID} } ) ||
die $GT::SQL::error;
print " * $Field[$i] => $slice[$i] \n" if $DEBUG == 1;

# now lets update links appropriatly in this category...
if ($DO_LINKS == 1) {
print "LINKS: ";
my $sth2 = $DB->table('CatLinks','Links')->select( { CategoryID => $hit->{ID} },{ isValidated => 'Yes' } );
while (my $hit2 = $sth2->fetchrow_hashref) {
$DB->table('Links')->update( { $Field[$i] => $slice[$i] }, { ID => $hit2->{ID} } ) || die $GT::SQL::error;
print " $hit2->{ID}";
}
print "\n\n"
}
}
}

}

print "\nDONE!!!!\n";