root/trunk/antimatter/tim/Scripts/recategorize-entry.plx

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

use strict;
use warnings;

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 "need three args USER CONFIG VALUE" unless @ARGV == 3;

my $userHandle = $DATABASE->getUserHandle($ARGV[0]);
my $entryID = $ARGV[1];
my $category =  $ARGV[2];

# 2006010318:37:32-0

my $entry = $DATABASE->getEntryById($userHandle, $entryID);
$entry->set(category => $category);