Changeset 119 for trunk/antimatter/tim/Modules/SFLC

Timestamp:

06/02/08 13:25:41 (7 months ago)

Author:

bkuhn

Message:

r158@hughes: bkuhn | 2008-06-02 13:25:16 -0400

• I realized that there was not a proper create database script. I had
  started a create database function in DB.pm, but it was incomplete and
  generally only used for testing when you wanted to clear out the users.
  

Now that function properly creates a new empty database, and there is
a create-db.plx script as well that simply calls it.

Files:

• trunk/antimatter/tim/Modules/SFLC/TimeTracker/DB.pm (modified) (1 diff)

trunk/antimatter/tim/Modules/SFLC/TimeTracker/DB.pm

@@ -1383 +1383 @@
-  $self->beginWriteWork('pending');
-
+  $self->{main}{categoryList} = { };
+  $self->{main}{categoryAliases} = { users => {}, GLOBAL => {} };
+  $self->{main}{categoryChanged} = time();
+
+  foreach my $empty (qw/categoryList ids ignoreLines userConfig configs/) {
+    $self->{main}{$empty} = {};
+  }
+  foreach my $empty (qw/ignoreLines userConfig configs/) {
+    $self->{main}{$empty}{users} = {};
+  }
+
+  $self->{pending}{configs}{users} = {};
+  $self->{pending}{ignoreLines}{users} = {};
+  $self->{pending}{interactionTrees} = {};
+
-  my(%u1, %u2);
-  foreach my $user (keys %{$self->{main}{entries}{byUser}}) {