root/trunk/antimatter/tim/Scripts/merge-category.plx

use strict;
use warnings;

use  SFLC::TimeTracker::Entry;
use  SFLC::TimeTracker::DB;
use SFLC::TimeTracker::Question;
use SFLC::TimeTracker::Input;
use SFLC::TimeTracker::Category;


my
    $DATABASE = 
      new SFLC::TimeTracker::DB("MLDBM", "./time-data.mldbm",
                                       "./pending-time.mldbm");

    SFLC::TimeTracker::Entry::Initialize($DATABASE);
    SFLC::TimeTracker::Question::Initialize($DATABASE);
SFLC::TimeTracker::Input::Initialize($DATABASE);

die "no args" unless defined $ARGV[0] and defined $ARGV[1];

my $from = $DATABASE->getCategory($ARGV[0]);

my $into;
eval {
  $into = $DATABASE->getCategory($ARGV[1]);
};
  if (not defined $into and defined $ARGV[1]) {
    print "*** CREATING $ARGV[1] \n";

  }
$into  = new SFLC::TimeTracker::Category( name => $ARGV[1]);

$DATABASE->mergeCategory($from, $into);