sub Category{
  my ($t, $elt) = @_;
  my @f = ( $elt->att('ID') ,'','','','','' );
  $f[4] = $elt->att('LowPic');
  $f[5] = $elt->att('ThumbPic');
  $f[1] = $elt->first_child('ParentCategory')->att('ID');
  
  for my $e ($elt->children('@langid="1"')){
    $f[2] = $e->att('Value') if $e->name eq 'Name';
    $f[3] = $e->att('Value') if $e->name eq 'Description';
  }
  
  print "@f\n";
  $sth->execute(@f);
}