From 65c3f28484a87c031f9499c30c17754eb4d46361 Mon Sep 17 00:00:00 2001
From: abijah <abijah@97e9348a-65ac-dc4b-aefc-98561f571b83>
Date: Sun, 23 Aug 2009 14:39:15 +0000
Subject: [PATCH] Removed the sitelink script, which is of no use since the
 database now contains additional data.  Modified the build script to rebuild
 the database from the last saved data set.

git-svn-id: file:///svn-source/pmgr/branches/pre_0.1_work_20090819@743 97e9348a-65ac-dc4b-aefc-98561f571b83
---
 build.cmd                |    2 +-
 scripts/sitelink2pmgr.pl | 1603 --------------------------------------
 2 files changed, 1 insertion(+), 1604 deletions(-)
 delete mode 100644 scripts/sitelink2pmgr.pl

diff --git a/build.cmd b/build.cmd
index 8967c4e..5e84573 100644
--- a/build.cmd
+++ b/build.cmd
@@ -1,3 +1,3 @@
 @echo off
-%~dp0\scripts\sitelink2pmgr.pl %~dp0\db\schema.sql %~dp0db\vss.mdb %*
+mysql --user=pmgr --password=pmgruser < %~dp0\db\property_manager.sql
 echo Done!
diff --git a/scripts/sitelink2pmgr.pl b/scripts/sitelink2pmgr.pl
deleted file mode 100644
index 13d222a..0000000
--- a/scripts/sitelink2pmgr.pl
+++ /dev/null
@@ -1,1603 +0,0 @@
-#perl -w
-use strict;
-use DBI;
-use Data::Dumper;
-use File::Copy;
-
-my $closing_one_transaction = 0;
-my $work_from_scratch = 1;
-
-# Internally adjust all numbers coming from the database to
-# be in inches.  Not necessary to go to this detail, but the
-# actual units used is irrelevant, provided everything is to
-# scale, and this factor ensures that any fractional units
-# become whole (e.g. 7.5 "feet" becomes 90 "units")
-my $internal_adjustment_factor = 12;
-
-my $schema_file = shift || die("Must specify schema file\n");
-my $slink_file = shift || die("Must specify sitelink file\n");
-
-my $slink_file = ";Data Source=$slink_file";
-my $slink_pass = ";Jet OLEDB:Database Password=2web";
-my $sdsn="Provider=Microsoft.Jet.OLEDB.4.0$slink_pass$slink_file";
-my $sdbh = DBI->connect("dbi:ADO:$sdsn", undef, undef, {PrintError => 1,
-							RaiseError => 1});
-
-# Connect to the database.
-my($hostname, $database, $user, $password) = ('localhost',
-					      'property_manager',
-					      'pmgr', 'pmgruser');
-
-$database = shift if @ARGV;
-$user     = shift if @ARGV;
-$password = shift if @ARGV;
-
-print "Connecting to $database as $user\n";
-my $db_handle = DBI->connect("DBI:mysql:database=$database;host=$hostname",
-			     $user, $password,
-			     {'PrintError' => 1,
-			      'RaiseError' => 0});
-
-
-$SIG{__DIE__}  = \&Die;
-
-my ($query, $result, $nrows, $row);
-my (%newdb) = ( 'schema' => [],
-		'tables' => {},
-		'ids'  => {},
-		'lookup' => {'state' => { 1=>'AK', 14=>'ID', 48=>'WA' }} );
-
-
-######################################################################
-######################################################################
-## Die
-
-sub Die {
-   my @text = @_;
-   warn "----------------------------------------------------------\n";
-   warn "FATAL ERROR: @text\n";
-   my $count = 0;
-   {
-      my ($package, $filename, $line, $sub) = caller($count);
-      last unless defined $line;
-      warn sprintf("%02i %5i %-35s %-20s\n", $count++, $line, $sub,
-                   $filename);
-      redo;
-   }
-   exit 1;
-}
-
-
-######################################################################
-######################################################################
-## addRow
-
-sub addRow {
-   my ($table, $cols, $noid) = @_;
-   die unless $table;
-   die unless ref($cols) eq 'HASH';
-
-   die "Table `$table` is unknown!"
-      unless defined $newdb{'tables'}{$table};
-
-   my $id;
-   if ($noid) {
-      $id = $cols->{'id'};
-   }
-
-   if (!defined $id) {
-      $id = ++$newdb{'tables'}{$table}{'autoid'};
-   }
-
-   $cols->{'id'} = $id
-      unless ($noid);
-
-   # For debug purposes
-   my $line = (caller())[2];
-   $cols->{'--LINE--'} = "addRow called from line: $line";
-
-   $newdb{'tables'}{$table}{'rows'}[$id] = $cols;
-   return $id;
-}
-
-
-######################################################################
-######################################################################
-## updateRow
-
-sub updateRow {
-   my ($table, $id, $cols) = @_;
-   die unless $table;
-   die unless $id;
-   die unless ref($cols) eq 'HASH';
-
-   die "Table `$table` is unknown!"
-      unless defined $newdb{'tables'}{$table};
-
-   die "Table `$table` : ID `$id` does not exist!"
-      unless $newdb{'tables'}{$table}{'rows'}[$id];
-
-   # For debug purposes
-   my $line = (caller())[2];
-   $cols->{'--UPDATE-LINE--'} = [] unless $cols->{'--UPDATE-LINE--'};
-   push(@{$cols->{'--UPDATE-LINE--'}}, "updateRow called from line: $line");
-
-   #$newdb{'tables'}{$table}{'rows'}[$id] = $cols;
-   return $id;
-}
-
-
-######################################################################
-######################################################################
-## query
-
-sub query {
-   my ($dbh, $sql, $data, $ignore) = @_;
-   #print("$sql\n\n"); #return [ { 'id' => 7 } ];
-   #print("$sql\n\n") if $sql =~ /^\s*UPDATE/i;
-   #return 1 unless $sql =~ /^\s*SELECT/i;
-
-   my ($sth, $result);
-   if ($sql =~ /^\s*SELECT/i) {
-      $sth = $dbh->prepare($sql);
-      $sth->execute();
-      $result = $sth->fetchall_arrayref({});
-   } else {
-      $result = $dbh->do($sql);
-   }
-
-   if (!$result && !$ignore) {
-      print STDERR "SQL Query FAILED:\n";
-      print STDERR "$sql\n\n";
-      print STDERR Dumper $data
-	 if defined $data;
-      die;
-   }
-   return ($sth, $result);
-}
-
-
-######################################################################
-######################################################################
-## executeSchema
-
-sub executeSchema {
-   foreach (@{$newdb{'schema'}}) {
-      query($db_handle, $_);
-   }
-
-   foreach my $table (values %{$newdb{'tables'}}) {
-      foreach (@{$table->{'schema'}}) {
-	 query($db_handle, $_);
-      }
-   }
-}
-
-
-######################################################################
-######################################################################
-## buildTables
-
-sub buildTables {
-   foreach my $table_name (sort keys %{$newdb{'tables'}}) {
-      my $table = $newdb{'tables'}{$table_name};
-      my $count = 0;
-      foreach (@{$table->{'rows'}}) {
-         next unless defined $_;
-         ++$count;
-      }
-      
-      printf("%-30s : %d rows\n", $table->{'name'}, $count);
-
-      foreach (@{$table->{'rows'}}) {
-         next unless defined $_;
-
-         my %row = %$_;
-         delete $row{'--LINE--'};
-
-         my $query;
-         $query  = "INSERT INTO " . $table->{'name'};
-         $query .= " (" . join(", ", map({"`$_`"} keys(%row))) . ")";
-         $query .= " VALUES (" . join(", ", map({s/'/''/g if defined $_;
-                                                 defined $_
-                                                    ? (/^\w+\(.*\)$/
-                                                       ? $_
-                                                       : "'$_'" )
-                                                    : "NULL" }
-                                                values(%row))) . ")";
-         query($db_handle, $query, $_);
-      }
-   }
-}
-
-
-######################################################################
-######################################################################
-## helper functions
-
-sub sizeCode {
-   my ($width, $depth) = @_;
-   return "YARD"
-      if ($width == 12 && $depth == 40);
-   return "APARTMENT"
-      if ($width == 20 && $depth == 30);
-   return sprintf("%02dx%02d", $width, $depth);
-}
-
-sub datefmt {
-   my ($dt) = @_;
-   return undef unless $dt;
-   my @dt = split(/\/|\s/, $dt);
-   #print("$dt : " . sprintf("%04d-%02d-%02d", $dt[2], $dt[0], $dt[1]) . "\n");
-   return sprintf("%04d-%02d-%02d%s", $dt[2], $dt[0], $dt[1], $dt[3] ? ' '.$dt[3] : "");
-}
-
-sub dates {
-   my ($type, $dt, $dt_end, $comment, $ledger_id) = @_;
-
-   # Nothing should be stamped before possession
-   my $stamp = $dt;
-   if ($stamp =~ m%^0?[12]/% || ($stamp =~ m%^0?3/(\d+)/% && $1 <= 25)) {
-      $stamp = "3/25/2009 16:00";
-   }
-
-   my $effective_dt = $dt;
-   my $through_dt   = $dt_end;
-
-   # Use different dates for security deposits
-   if ($type eq 'charge' && $comment eq 'Security Deposit') {
-      $effective_dt = $newdb{'lookup'}{'ledger'}{$ledger_id}{'lease_date'};
-      $through_dt = undef;
-   }
-
-   # REVISIT <AP>: 20090708
-   #  Do we want to have effective dates on invoices?
-   #  Do we want to have effective dates for payments?
-   #  The Receipt already has an effective date.
-   if ($type eq 'invoice') {
-      $effective_dt = undef;
-      $through_dt   = undef;
-   }
-
-   return (datefmt($stamp), datefmt($effective_dt), datefmt($through_dt));
-}
-
-
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-## BUILD THE DATABASE
-
-open(SCHEMA, "<$schema_file") || die ("Can't open schema ($!)\n");
-my $schema_query = "";
-my $table;
-while (<SCHEMA>) {
-   next if /^\s*--/;
-   if (/DROP\s+TABLE\s.*`?(pmgr_(\w+))/i) {
-      $table = $2;
-      $newdb{'tables'}{$table} = { 'name' => $1,
-				   'schema' => [],
-				   'autoid' => 0,
-				   'rows' => [] };
-   }
-
-   $schema_query .= $_;
-   if (/;\s*$/) {
-      $schema_query =~ s/^\s+//;
-      $schema_query =~ s/\s*;\s*$//;
-      if (!$table) {
-	 push(@{$newdb{'schema'}}, $schema_query);
-      } else {
-	 push(@{$newdb{'tables'}{$table}{'schema'}}, $schema_query);
-      }
-      $schema_query = "";
-   }
-}
-close(SCHEMA);
-
-executeSchema();
-
-
-#################################################################
-## Test Contact
-
-addRow('contacts', {
-   'first_name' => 'Abijah',
-#	 'middle_name' => 'M',
-   'last_name' => 'Perkins' });
-
-addRow('contact_addresses', {
-   'address' => '1324 N Liberty Lake Rd\nPMB 263',
-   'city' => 'Liberty Lake',
-   'state' => 'WA',
-   'postcode' => '99019',
-   'country' => 'USA' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_addresses'}{'autoid'},
-   'method' =>     'ADDRESS',
-   'type' =>       'MAIN',
-   'preference' => 'PRIMARY' },
-       1);
-
-addRow('contact_addresses', {
-   'address' => '5221 W Myrtlewood Ct',
-   'city' => 'Spokane',
-   'state' => 'WA',
-   'postcode' => '99208',
-   'country' => 'USA' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_addresses'}{'autoid'},
-   'method' =>     'ADDRESS',
-   'type' =>       'HOME',
-   'preference' => 'ALTERNATE' },
-       1);
-
-# addRow('contact_addresses',
-#        { 'address' => 'PO Box 69',
-# 	 'city' => 'Granger',
-# 	 'state' => 'WA',
-# 	 'postcode' => '98932',
-# 	 'country' => 'USA' });
-# addRow('contacts_methods',
-#        { 'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-# 	 'method_id' =>  $newdb{'tables'}{'contact_addresses'}{'autoid'},
-# 	 'method' =>     'ADDRESS',
-# 	 'type' =>       'HOME',
-# 	 'preference' => 'ALTERNATE' },
-#        1);
-
-addRow('contact_phones', {
-   'type' => 'MOBILE',
-   'phone' => '5098445573' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-   'method' =>     'PHONE',
-   'type' =>       'MAIN',
-   'preference' => 'PRIMARY' },
-       1);
-
-addRow('contact_phones', {
-   'type' => 'MOBILE',
-   'phone' => '5098445973' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-   'method' =>     'PHONE',
-   'type' =>       'MAIN',
-   'preference' => 'ALTERNATE' },
-       1);
-
-addRow('contact_phones', {
-   'type' => 'VIRTUAL',
-   'phone' => '5095901112' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-   'method' =>     'PHONE',
-   'type' =>       'BUSINESS',
-   'preference' => 'WORK' },
-       1);
-
-# addRow('contact_phones',
-#        { 'type' => 'LANDLINE',
-# 	 'phone' => '5098541491' });
-# addRow('contacts_methods',
-#        { 'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-# 	 'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-# 	 'method' =>     'PHONE',
-# 	 'type' =>       'HOME',
-# 	 'preference' => 'ALTERNATE' },
-#        1);
-
-addRow('contact_phones', {
-   'type' => 'VIRTUAL',
-   'phone' => '8774488664' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-   'method' =>     'PHONE',
-   'type' =>       'BUSINESS',
-   'preference' => 'WORK' },
-       1);
-
-addRow('contact_phones', {
-   'type' => 'FAX',
-   'phone' => '8662960131' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-   'method' =>     'PHONE',
-   'type' =>       'BUSINESS',
-   'preference' => 'WORK' },
-       1);
-
-addRow('contact_emails', {
-   'email' => 'abijah\@PerkinsHouse.com' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_emails'}{'autoid'},
-   'method' =>     'EMAIL',
-   'type' =>       'HOME',
-   'preference' => 'PRIMARY' },
-       1);
-
-addRow('contact_emails', {
-   'email' => 'abijah\@PerkinsREI.com' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_emails'}{'autoid'},
-   'method' =>     'EMAIL',
-   'type' =>       'HOME',
-   'preference' => 'WORK' },
-       1);
-
-addRow('contact_emails', {
-   'email' => 'abijah\@ValleyStorage.info' });
-addRow('contacts_methods', {
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'},
-   'method_id' =>  $newdb{'tables'}{'contact_emails'}{'autoid'},
-   'method' =>     'EMAIL',
-   'type' =>       'BUSINESS',
-   'preference' => 'WORK' },
-       1);
-
-
-#################################################################
-## GROUPS
-
-addRow('groups', {
-   'code' => 'Owner',
-   'name' => 'Owner Group' });
-addRow('group_permissions', {
-   'group_id' => $newdb{'tables'}{'groups'}{'autoid'},
-   'name' => 'EVERYTHING',
-   'access' => 'FORCED' },
-       1);
-
-
-#################################################################
-## USERS
-
-addRow('users', {
-   'code' => 'AP',
-   'login' => 'abijah',
-   'contact_id' => $newdb{'tables'}{'contacts'}{'autoid'} });
-
-
-#################################################################
-## SITES
-
-addRow('sites', {
-   'code' => 'VSS',
-   'name' => 'Valley Storage' });
-
-addRow('site_memberships', {
-   'site_id'  => $newdb{'tables'}{'sites'}{'autoid'},
-   'user_id'  => $newdb{'tables'}{'users'}{'autoid'},
-   'group_id' => $newdb{'tables'}{'groups'}{'autoid'} },
-       1);
-
-addRow('site_areas', {
-   'site_id' => $newdb{'tables'}{'sites'}{'autoid'},
-   'code' => 'Main',
-   'name' => 'Main Facility Area' });
-
-
-#################################################################
-## LEASES
-
-addRow('lease_types', {
-   'code' => 'SL',
-   'name' => 'Storage Lease' });
-
-
-#################################################################
-## LEDGERS
-
-$newdb{'lookup'}{'account'} = {};
-
-$query = "SELECT * FROM pmgr_accounts";
-$result = query($db_handle, $query);
-foreach $row (@$result) {
-   addRow('ledgers', {
-      'account_id' => $row->{'id'},
-      'name' => $row->{'id'} . '-1',
-      'comment' => undef });
-
-   $newdb{'lookup'}{'account'}{$row->{'name'}}
-   = {'account_id' => $row->{'id'},
-      'ledger_id' => $newdb{'tables'}{'ledgers'}{'autoid'} };
-
-   if ((!defined $newdb{'tables'}{'accounts'}{'autoid'}) ||
-       $row->{'id'} > $newdb{'tables'}{'accounts'}{'autoid'}) {
-      $newdb{'tables'}{'accounts'}{'autoid'} = $row->{'id'};
-   }
-}
-
-# For compatibility, while deciding on account names
-if (!defined $newdb{'lookup'}{'account'}{'Cash'}) {
-   $newdb{'lookup'}{'account'}{'Cash'}
-   = $newdb{'lookup'}{'account'}{'Till'};
-}
-
-$newdb{'lookup'}{'charge_type'} = {};
-$newdb{'lookup'}{'charge_type'}{'Rent'} =
-   $newdb{'lookup'}{'account'}{'Rent'};
-$newdb{'lookup'}{'charge_type'}{'Late Fee'} =
-   $newdb{'lookup'}{'account'}{'Late Charge'};
-$newdb{'lookup'}{'charge_type'}{'Security Deposit'} =
-   $newdb{'lookup'}{'account'}{'Security Deposit'};
-
-
-#################################################################
-## MONETARY TYPES
-
-$newdb{'lookup'}{'tender_type'} = {};
-
-foreach my $tender_name ('Cash', 'Check', 'Money Order', 'ACH',
-                         'Concession', # REVISIT <AP>: 20090723 Do we really want this??
-                         #'Debit Card', 'Credit Card',
-   ) {
-   my ($tillable, $fields) = (0, 0);
-   my ($name1, $name2, $name3, $name4);
-   my ($name_field) = ('id');
-
-   $tillable = 1
-      if ($tender_name =~ /^Cash|Check|Money Order$/);
-
-   ($name1, $name_field) = ('Check Number', 'data1')
-      if ($tender_name eq 'Check');
-
-   ($name1, $name_field) = ('Money Order Number', 'data1')
-      if ($tender_name eq 'Money Order');
-
-   ($name1, $name2, $name3, $name_field) = ('Routing Number', 'Account Number', 'Batch Number', 'data3')
-      if ($tender_name eq 'ACH');
-
-   ($name1, $name2) = ('Debit Card Number', 'Expiration Date')
-      if ($tender_name eq 'Debit Card');
-
-   ($name1, $name2, $name3) = ('Debit Card Number', 'Expiration Date', 'Billing Zip Code')
-      if ($tender_name eq 'Credit Card');
-
-   addRow('tender_types', {
-      'name' => $tender_name,
-      'account_id' => $newdb{'lookup'}{'account'}{$tender_name}{'account_id'},
-      'deposit_account_id' => $newdb{'lookup'}{'account'}{'Bank'}{'account_id'},
-      'tillable' => $tillable,
-      'auto_deposit' => ($tender_name eq 'ACH') ? 1 : 0,
-      'data1_name' => $name1,
-      'data2_name' => $name2,
-      'data3_name' => $name3,
-      'data4_name' => $name4,
-      'naming_field' => $name_field,
-          });
-
-   $newdb{'lookup'}{'tender_type'}{$tender_name}
-   = { 'tender_type_id' => $newdb{'tables'}{'tender_types'}{'autoid'},
-       'account_id' => $newdb{'lookup'}{'account'}{$tender_name}{'account_id'},
-       'ledger_id' => $newdb{'lookup'}{'account'}{$tender_name}{'ledger_id'},
-   };
-}
-
-
-#################################################################
-## MONETARY
-
-$newdb{'lookup'}{'payment_type'} = {};
-
-# SITELINK PAYMENT TYPE CODES
-my %SITELINK_ACCOUNT_TYPE = 
-( 1  => 'Cash',
-  2  => 'Check',
-  3  => 'Money Order',
-  4  => 'ACH',
-  12 => 'Concession',
-);
-
-foreach my $account_type (keys(%SITELINK_ACCOUNT_TYPE)) {
-   my $payment_name = $SITELINK_ACCOUNT_TYPE{$account_type};
-   my ($ttid, $aid, $lid);
-
-   if (defined $newdb{'lookup'}{'tender_type'}{$payment_name}) {
-      ($ttid, $aid, $lid) = ( $newdb{'lookup'}{'tender_type'}{$payment_name}{'tender_type_id'},
-                              $newdb{'lookup'}{'tender_type'}{$payment_name}{'account_id'},
-                              $newdb{'lookup'}{'tender_type'}{$payment_name}{'ledger_id'} );
-   }
-   else {
-      ($ttid, $aid, $lid) = ( undef,
-                              $newdb{'lookup'}{'account'}{$payment_name}{'account_id'},
-                              $newdb{'lookup'}{'account'}{$payment_name}{'ledger_id'} );
-   }
-
-   $newdb{'lookup'}{'payment_type'}{$account_type}
-   = { 'name'           => $payment_name,
-       'tender_type_id' => $ttid,
-       'account_id'     => $aid,
-       'ledger_id'      => $lid,
-   };
-}
-
-
-#################################################################
-## SPECIAL CASE FOR CLOSING
-
-$newdb{'lookup'}{'_closing'}
-= { 'name' => 'Closing',
-    'stamp' => (dates('receipt', '01/01/01'))[0],
-    'amount' => 0,
-    'tender_type_id' => undef,
-    'debit_account_id' => $newdb{'lookup'}{'account'}{'Closing'}{'account_id'},
-    'debit_ledger_id' => $newdb{'lookup'}{'account'}{'Closing'}{'ledger_id'},
-    'credit_account_id' => $newdb{'lookup'}{'account'}{'A/R'}{'account_id'},
-    'credit_ledger_id' => $newdb{'lookup'}{'account'}{'A/R'}{'ledger_id'},
-};
-
-
-
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-##
-## UNITS
-##
-
-my @unit_sort_order =
-   qw(
-      A01 A02 A03 A04 A05 A06
-      B01 B02 B03 B04 B05 B06 B07
-      C01 C02 C03 C04 C05 C06 C07 C08 C09
-      10 11 12 13 14 15 16 17 18 19 22 23 24 25 26 27 28 29
-      30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
-      D01 D02 D03 D04 D05 D06 D07 D08 D09 D10 D11
-      APT
-      Y01 Y02 Y03 Y04 Y05 Y06 Y07 Y08 Y09 Y10
-     );
-my $unit_sort_order = 0;
-my %unit_sort_order;
-foreach (@unit_sort_order) {
-   $unit_sort_order += 1; # use 100 for later insertion
-   $unit_sort_order{$_} = $unit_sort_order;
-}
-
-my @unit_walk_order =
-   qw(
-      19 18 17 16 15 14 13 12 11 10
-      C01 C02 C03 C04 C05 C06 C07 C08 C09
-      APT
-      38 37 36 35 34 33 32 31 30 29 28
-      B01 B02 B03 B04 B05 B06 B07
-      A01 A02 A03 A04 A05 A06
-      27 26 25 24 23 22
-      D11 D10 D09 D08 D07 D06 D05 D04 D03 D02 D01
-      45 44 43 42 41 40 39
-      Y01 Y02 Y03 Y04 Y05 Y06 Y07 Y08 Y09 Y10
-     );
-my $unit_walk_order = 0;
-my %unit_walk_order;
-foreach (@unit_walk_order) {
-   $unit_walk_order += 1; # use 100 for later insertion
-   $unit_walk_order{$_} = $unit_walk_order;
-}
-
-######################################################################
-## Unit Types
-
-$newdb{'lookup'}{'unit_type'} = {};
-
-$query = "SELECT * FROM UnitType ORDER BY TypeID";
-foreach $row (@{query($sdbh, $query)}) {
-   addRow('unit_types', {
-      'code' => 'xxx', 
-      'name' => $row->{'UnitType'} });
-   $newdb{'lookup'}{'unit_type'}{$row->{'TypeID'}} =
-      $newdb{'tables'}{'unit_types'}{'autoid'};
-}
-
-######################################################################
-## Unit Sizes
-
-$newdb{'lookup'}{'unit_size'} = {};
-
-$query = "SELECT * FROM UnitInfo WHERE UnitID <> 'POS\$' ORDER BY UnitID";
-foreach $row (@{query($sdbh, $query)}) {
-   my $sz = sizeCode($row->{'Width'}, $row->{'Depth'});
-   next if defined $newdb{'lookup'}{'unit_size'}{$sz};
-
-   addRow('unit_sizes', {
-      'unit_type_id' => $row->{'Type'},
-      'code' => $sz,
-      'name' => $sz,
-      'width' => $internal_adjustment_factor * $row->{'Width'},
-      'depth' => $internal_adjustment_factor * $row->{'Depth'},
-      'deposit' => $row->{'StdSecDep'},
-      'rent' => $row->{'StdRent'} });
-
-   $newdb{'lookup'}{'unit_size'}{$sz}
-   = { 'id' => $newdb{'tables'}{'unit_sizes'}{'autoid'},
-       'rent' => $row->{'StdRent'},
-       'dep'  => $row->{'StdSecDep'} };
-}
-
-######################################################################
-## Units
-
-$newdb{'lookup'}{'unit'} = {};
-
-foreach $row (@{query($sdbh, $query)}) {
-   my $sz = sizeCode($row->{'Width'}, $row->{'Depth'});
-   my $szid = $newdb{'lookup'}{'unit_size'}{$sz}{'id'};
-
-   addRow('units', {
-      'unit_size_id' => $szid,
-      'code' => $row->{'UnitID'},
-      'name' => $row->{'UnitID'},
-      'status' => $row->{'Rented'} ?'OCCUPIED' :($row->{'Rentable'} ?'VACANT' :'UNAVAILABLE'),
-      'sort_order' => $unit_sort_order{$row->{'UnitID'}},
-      'walk_order' => $unit_walk_order{$row->{'UnitID'}},
-      'deposit' => $row->{'StdSecDep'},
-      'rent' => $row->{'StdRent'} });
-
-   $newdb{'lookup'}{'unit'}{$row->{'UnitID'}}
-   = { 'id' => $newdb{'tables'}{'units'}{'autoid'} };
-}
-
-
-######################################################################
-## Map
-
-my %info = ('extents' => {}, 'units' => {});
-
-# Get the overall site limits
-$query  = "SELECT MIN(M.Top) AS mintop, MIN(M.Left) AS minlft,";
-$query .= "       MAX(M.Top + IIF(M.reverseWL, U.Width, U.Depth))  AS bot,";
-$query .= "       MAX(M.Left + IIF(M.reverseWL, U.Depth, U.Width)) AS rgt";
-$query .= '   FROM UnitInfo U INNER JOIN mapUnitsV2 M ON M.unitID = U.UnitID';
-$result = query($sdbh, $query);
-
-# Fetch and verify the result
-my $row = shift(@$result);
-die("MIN query failed!") unless $row;
-
-# Compute the actual boundaries, adjusting for a (0,0) origin
-my $top_adjustment  = 0 - $row->{'mintop'};
-my $left_adjustment = 0 - $row->{'minlft'};
-$info{'extents'}{'top'}  = 0;
-$info{'extents'}{'left'} = 0;
-$info{'extents'}{'bottom'} = $internal_adjustment_factor * ($top_adjustment  + $row->{'bot'} + 0);
-$info{'extents'}{'right'}  = $internal_adjustment_factor * ($left_adjustment + $row->{'rgt'} + 0);
-
-addRow('maps', {
-   'name' => 'Main Facility Map',
-   'site_area_id' => $newdb{'tables'}{'site_areas'}{'autoid'},
-   'width' => $info{'extents'}{'right'} - $info{'extents'}{'left'},
-   'depth' => $info{'extents'}{'bottom'} - $info{'extents'}{'top'} });
-
-# Get list of units and positions
-$query  = "SELECT U.UnitID, U.UnitID as name,";
-$query .= "       ($top_adjustment  + M.Top)  AS pt_t,";
-$query .= "       ($left_adjustment + M.Left) AS pt_l,";
-$query .= "       IIF(M.reverseWL, U.Depth, U.Width) AS Width,";
-$query .= "       IIF(M.reverseWL, U.Width, U.Depth) AS Depth,";
-$query .= "       M.reverseWL, U.Rented, U.Rentable";
-$query .= "   FROM UnitInfo U INNER JOIN mapUnitsV2 M ON M.unitID = U.UnitID";
-
-# Go through each one, calculating the map location
-foreach $row (@{query($sdbh, $query)}) {
-   addRow('maps_units', {
-      'map_id' => $newdb{'tables'}{'maps'}{'autoid'},
-      'unit_id' => $newdb{'lookup'}{'unit'}{$row->{'UnitID'}}{'id'},
-      'pt_top' => $internal_adjustment_factor * ($row->{'pt_t'}),
-      'pt_left' => $internal_adjustment_factor * ($row->{'pt_l'}),
-      'transpose' => $row->{'reverseWL'} });
-}
-
-
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-##
-## TENANTS
-##
-
-
-######################################################################
-## Tenants
-
-$newdb{'lookup'}{'tenant'} = {};
-
-$query = "SELECT * FROM TenantInfo WHERE FirstName <> 'POS' ORDER BY TenantID";
-foreach $row (@{query($sdbh, $query)}) {
-
-   $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}
-   = { 'name' => "$row->{'LastName'}, $row->{'FirstName'}" };
-
-   addRow('contacts', {
-      'first_name' => $row->{'FirstName'},
-      'middle_name' => $row->{'MiddleName'},
-      'last_name' => $row->{'LastName'},
-      'id_local' => $row->{'IDNum'} || undef,
-      'id_local_state' => $row->{'IDNum'} ? $newdb{'lookup'}{'state'}{$row->{'DLStateID'}} : undef });
-
-   $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'} =
-      $newdb{'tables'}{'contacts'}{'autoid'};
-
-   addRow('customers', {
-      'name' => "$row->{'LastName'}, $row->{'FirstName'}",
-      'primary_contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'},
-	  });
-
-   $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'} =
-      $newdb{'tables'}{'customers'}{'autoid'};
-
-   addRow('contacts_customers', {
-      'customer_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'},
-      'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'},
-      'type' => 'TENANT' },
-	  1);
-
-   if ($row->{'City'}) {
-      addRow('contact_addresses', {
-         'address' => $row->{'HomeAddress'} . ($row->{'HomeAddr2'} ? "\n".$row->{'HomeAddr2'} : "") || undef,
-         'city' => $row->{'City'},
-         'state' => $newdb{'lookup'}{'state'}{$row->{'StateID'}},
-         'postcode' => $row->{'Zip'} || undef,
-         'country' => 'USA' });
-      addRow('contacts_methods', {
-         'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'},
-         'method_id' =>  $newdb{'tables'}{'contact_addresses'}{'autoid'},
-         'method' =>     'ADDRESS',
-         'type' =>       'HOME',
-         'preference' => 'PRIMARY' },
-	     1);
-   }
-
-   foreach ({'type' => 'LANDLINE', 'preference' => 'PRIMARY', 'phone' => $row->{'Phone'}},
-	    {'type' => 'LANDLINE', 'preference' => 'WORK',
-	     'phone' => $row->{'BusinessPhone'}, 'ext' => $row->{'BusinessExt'}},
-	    {'type' => 'FAX', 'preference' => 'PRIMARY', 'phone' => $row->{'FAX'}},
-	    {'type' => 'PAGER', 'preference' => 'PRIMARY', 'phone' => $row->{'Pager'}},
-	    {'type' => 'MOBILE', 'preference' => 'ALTERNATE', 'phone' => $row->{'CellPhone'}})
-   {      
-      if ($_->{'phone'}) {
-	 addRow('contact_phones', {
-            'type' => $_->{'type'},
-            'phone' => $_->{'phone'},
-            'ext' => $_->{'ext'} });
-	 addRow('contacts_methods', {
-            'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'},
-            'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-            'method' =>     'PHONE',
-            'type' =>       'MAIN',
-            'preference' => $_->{'preference'} },
-		1);
-      }
-   }
-
-   if ($row->{'Email'}) {
-      addRow('contact_emails', {
-         'email' => $row->{'Email'} });
-      addRow('contacts_methods', {
-         'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'},
-         'method_id' =>  $newdb{'tables'}{'contact_emails'}{'autoid'},
-         'method' =>     'EMAIL',
-         'type' =>       'MAIN',
-         'preference' => 'PRIMARY' },
-	     1);
-   }
-
-   next unless $row->{'AltFirstName'} || $row->{'AltLastName'} || $row->{'AltAddress'} || $row->{'AltPhone'};
-
-   addRow('contacts', {
-      'first_name' => $row->{'AltFirstName'} || undef,
-      'middle_name' => $row->{'AltMI'} || undef,
-      'last_name' => $row->{'AltLastName'} || undef });
-
-   $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'alt'} =
-      $newdb{'tables'}{'contacts'}{'autoid'};
-
-   addRow('contacts_customers', {
-      'customer_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'},
-      'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'alt'},
-      'type' => 'ALTERNATE' },
-	  1);
-
-   if ($row->{'AltCity'}) {
-      addRow('contact_addresses', {
-         'address' => $row->{'AltAddress'} . ($row->{'AltAddr2'} ? "\n".$row->{'AltAddr2'} : ""),
-         'city' => $row->{'AltCity'},
-         'state' => $newdb{'lookup'}{'state'}{$row->{'AltStateID'}},
-         'postcode' => $row->{'AltZip'},
-         'country' => 'USA' });
-      addRow('contacts_methods', {
-         'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'alt'},
-         'method_id' =>  $newdb{'tables'}{'contact_addresses'}{'autoid'},
-         'method' =>     'ADDRESS',
-         'type' =>       'MAIN',
-         'preference' => 'PRIMARY' },
-	     1);
-   }
-
-   if ($row->{'AltPhone'}) {
-      addRow('contact_phones', {
-         'type' => 'LANDLINE',
-         'phone' => $row->{'AltPhone'},
-         'ext' => undef });
-      addRow('contacts_methods', {
-         'contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'alt'},
-         'method_id' =>  $newdb{'tables'}{'contact_phones'}{'autoid'},
-         'method' =>     'PHONE',
-         'type' =>       'MAIN',
-         'preference' => 'PRIMARY' },
-             1);
-   }
-}
-
-
-######################################################################
-## Tenant Leases
-
-$newdb{'lookup'}{'ledger'} = {};
-
-$query = "SELECT L.*, A.TenantID FROM TenantLedger L LEFT JOIN `Access` A ON A.LedgerID = L.LedgerID WHERE L.UnitID <> 'POS\$' ORDER BY L.DateIn";
-foreach $row (@{query($sdbh, $query)}) {
-
-   $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}
-   = { 'customer_id'  => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'},
-       'lease_date' => $row->{'DateIn'},
-   };
-
-   addRow('leases', {
-      'number' => $newdb{'tables'}{'leases'}{'autoid'}+1,
-      #'number' => $row->{'LedgerID'},
-      'lease_type_id' => $newdb{'tables'}{'lease_types'}{'autoid'},
-      'unit_id' => $newdb{'lookup'}{'unit'}{$row->{'UnitID'}}{'id'},
-      'customer_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'},
-      'lease_date' => datefmt($row->{'DateIn'}),
-      'movein_date' => datefmt($row->{'DateIn'}),
-      'moveout_date' => datefmt($row->{'DateOut'}),
-      #'close_date' => datefmt($row->{'DateClosed'}),
-      'rent' => $row->{'Rent'},
-      #'comment' => "LedgerID: $row->{'LedgerID'}",
-	  });
-
-   $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'lease_id'} =
-      $newdb{'tables'}{'leases'}{'autoid'};
-}
-
-
-
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-##
-## INVOICES
-##
-
-######################################################################
-## Invoices
-
-$newdb{'lookup'}{'charge'} = {};
-
-$query = "SELECT *, ChargeAmount+TaxAmount AS InvoiceAmount FROM Charges ORDER BY ChargeID";
-foreach $row (@{query($sdbh, $query)}) {
-
-   my ($stamp, $effective_date, $through_date) =
-      dates('invoice', $row->{'ChargeDate'}, $row->{'EndDate'},
-            $row->{'ChargeDescription'}, $row->{'LedgerID'});
-
-   addRow('transactions', {
-      'type' => 'INVOICE',
-      'stamp' => $stamp,
-      'customer_id' => $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'customer_id'},
-      'account_id' => $newdb{'lookup'}{'account'}{'A/R'}{'account_id'},
-      'ledger_id' => $newdb{'lookup'}{'account'}{'A/R'}{'ledger_id'},
-      'crdr' => 'DEBIT',
-      #'amount' => $row->{'InvoiceAmount'},
-      #'comment' => "Invoice Transaction",
-          });
-
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}
-   = { 'invoice' => {'id' => $newdb{'tables'}{'transactions'}{'autoid'},
-                     'amount' => $row->{'InvoiceAmount'} },
-   };
-
-   # Charges are the only way we have to figure out security
-   # deposit requirements for a lease.  So, if we encounter
-   # a security deposit charge, update the lease to reflect.
-   if ($row->{'ChargeDescription'} eq 'Security Deposit') {
-      $newdb{'tables'}{'leases'}{'rows'}[
-         $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'lease_id'}
-      ]{'deposit'} = $row->{'ChargeAmount'};
-   }
-
-}
-
-
-######################################################################
-## Charges
-
-$query = "SELECT * FROM Charges ORDER BY ChargeID";
-foreach $row (@{query($sdbh, $query)}) {
-
-   my (undef, $effective_date, $through_date) =
-      dates('charge', $row->{'ChargeDate'}, $row->{'EndDate'},
-            $row->{'ChargeDescription'}, $row->{'LedgerID'});
-
-   # Fix Brenda Harmon bug
-   $row->{'ChargeAmount'} = 50
-      if ($row->{'ChargeID'} == 19);
-
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'amount'}
-   = $row->{'ChargeAmount'};
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'customer_id'}
-   = $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'customer_id'},
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'lease_id'}
-   = $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'lease_id'};
-
-   # Charge must credit the Charge ledger...
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'credit_account_id'}
-   = $newdb{'lookup'}{'charge_type'}{$row->{'ChargeDescription'}}{'account_id'};
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'credit_ledger_id'}
-   = $newdb{'lookup'}{'charge_type'}{$row->{'ChargeDescription'}}{'ledger_id'};
-
-   # ...and debit the A/R ledger.
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'debit_account_id'}
-   = $newdb{'lookup'}{'account'}{'A/R'}{'account_id'};
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'debit_ledger_id'}
-   = $newdb{'lookup'}{'account'}{'A/R'}{'ledger_id'};
-
-   # debit: A/R     credit: Rent/LateCharge/Etc
-   foreach ('debit', 'credit') {
-      my $CRDR = $_;
-      $CRDR =~ tr/a-z/A-Z/;
-      addRow('ledger_entries', {
-         'transaction_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'invoice'}{'id'},
-         'account_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{$_.'_account_id'},
-         'ledger_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{$_.'_ledger_id'},
-         'crdr' => $CRDR,
-         'amount' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'amount'},
-         #'comment' => "$_ Ledger Entry: $row->{'ChargeID'}; Ledger: $row->{'LedgerID'}",
-             });
-
-      $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{$_.'_entry_id'}
-      = $newdb{'tables'}{'ledger_entries'}{'autoid'};
-   }
-
-   addRow('double_entries', {
-      #'transaction_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'invoice'}{'id'},
-      'debit_entry_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'debit_entry_id'},
-      'credit_entry_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'credit_entry_id'},
-      #'comment' => "Double Entry: $row->{'ChargeID'}; Ledger: $row->{'LedgerID'}",
-          });
-
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'double_entry_id'}
-   = $newdb{'tables'}{'double_entries'}{'autoid'};
-
-   # Add the Charge Statement Entry
-   addRow('statement_entries', {
-      'transaction_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'invoice'}{'id'},
-      'type' => 'CHARGE',
-      'effective_date' => $effective_date,
-      'through_date' => $through_date,
-      'customer_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'customer_id'},
-      'lease_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'lease_id'},
-      'account_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'credit_account_id'},
-      'amount' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'amount'},
-      #'comment' => "Charge: $row->{'ChargeID'}; Ledger: $row->{'LedgerID'}",
-          });
-
-   $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'statement_entry_id'}
-   = $newdb{'tables'}{'statement_entries'}{'autoid'};
-
-   next unless $row->{'TaxAmount'};
-
-# 	# Add the tax charge entry
-# 	#     debit: Invoice     credit: Tax
-#    addRow('ledger_entries',
-#     { 'effective_date' => $effective_date,
-# 		'through_date' => $through_date,
-# 	    'transaction_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'invoice'}{'id'},
-# 	    'debit_ledger_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'debit_ledger_id'},
-# 		 'credit_ledger_id' => $newdb{'lookup'}{'account'}{'Tax'}{'ledger_id'},
-# 	    'amount' => $row->{'TaxAmount'},
-# 		#'comment' => "Tax for ChargeID:$row->{'ChargeID'}",
-# 	  });
-
-#    $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'tax_ledger_entry_id'}
-#    = $newdb{'tables'}{'ledger_entries'}{'autoid'};
-}
-
-
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-######################################################################
-##
-## RECEIPTS
-##
-
-######################################################################
-## Receipts
-
-$newdb{'lookup'}{'receipt'} = {};
-
-# Sitelink splits one physical payment into multiple "payments" to match each charge.
-# The solution here is kludgy, but for our cases at least, it brings those pseudo-payments
-# back into a single one.  This presumes there is only one PaymentType per receipt.
-$query =
-   "SELECT R.ReceiptNum, R.ReceiptDate, P.PaymentType, P.CheckNum, SUM(P.PaymentAmount) AS ReceiptAmount" .
-   " FROM Receipts R, Payments P" .
-   " WHERE P.ReceiptNum = R.ReceiptNum" .
-   " GROUP BY R.ReceiptNum, R.ReceiptDate, P.PaymentType, P.CheckNum" .
-   " ORDER BY R.ReceiptNum, P.PaymentType";
-
-# print Dumper query($sdbh, $query);
-# exit;
-
-foreach $row (@{query($sdbh, $query)}) {
-   
-# 	if ($newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'}) {
-# 		next;
-# 	}
-
-   my ($stamp, $effective_date, $through_date) =
-      dates('receipt', $row->{'ReceiptDate'}, undef);
-
-   if ($newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}) {
-      print Dumper $newdb{'lookup'}{'receipt'};
-      print Dumper $row;
-      die "REALLY?";
-   }
-
-   $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}
-   = { 'date' => $stamp,
-       'effective_date' => $effective_date,
-       'through_date' => $through_date,
-       'amount' => $row->{'ReceiptAmount'},
-   };
-
-   if ($stamp eq $newdb{'lookup'}{'_closing'}{'stamp'}) {
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'name'}
-      = $newdb{'lookup'}{'_closing'}{'name'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'tender_type_id'}
-      = $newdb{'lookup'}{'_closing'}{'tender_type_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_account_id'}
-      = $newdb{'lookup'}{'_closing'}{'debit_account_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_ledger_id'}
-      = $newdb{'lookup'}{'_closing'}{'debit_ledger_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_account_id'}
-      = $newdb{'lookup'}{'_closing'}{'credit_account_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_ledger_id'}
-      = $newdb{'lookup'}{'_closing'}{'credit_ledger_id'};
-
-      $newdb{'lookup'}{'_closing'}{'amount'} +=
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'amount'};
-
-      if ($newdb{'lookup'}{'_closing'}{'transaction_id'}) {
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'receipt_id'} =
-            $newdb{'lookup'}{'_closing'}{'transaction_id'};
-         next;
-      }
-   }
-   else {
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'name'}
-      = $newdb{'lookup'}{'payment_type'}{$row->{'PaymentType'}}{'name'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'tender_type_id'}
-      = $newdb{'lookup'}{'payment_type'}{$row->{'PaymentType'}}{'tender_type_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_account_id'}
-      = $newdb{'lookup'}{'payment_type'}{$row->{'PaymentType'}}{'account_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_ledger_id'}
-      = $newdb{'lookup'}{'payment_type'}{$row->{'PaymentType'}}{'ledger_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_account_id'}
-      = $newdb{'lookup'}{'account'}{'A/R'}{'account_id'};
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_ledger_id'}
-      = $newdb{'lookup'}{'account'}{'A/R'}{'ledger_id'};
-
-      if ($SITELINK_ACCOUNT_TYPE{$row->{'PaymentType'}} eq 'Check') {
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'data1'}
-         = $row->{'CheckNum'};
-      }
-   }
-
-   addRow('transactions', {
-      'type' => 'RECEIPT',
-      'stamp' => $stamp,
-      'customer_id' => undef, # Must be set later
-      'account_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_account_id'},
-      'ledger_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_ledger_id'},
-      'crdr' => 'CREDIT',
-      #'comment' => "Receipt: $row->{'ReceiptNum'}; Type: $row->{'PaymentType'}",
-	  });
-
-   $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'receipt_id'}
-   = $newdb{'tables'}{'transactions'}{'autoid'};
-
-   # Receipt must debit the "money" asset (bank, cash, check, etc)...
-   # ...and credit the A/R ledger
-   # (These were set above, based on whether part of closing or not)
-
-   foreach ('debit', 'credit') {
-      my $CRDR = $_;
-      $CRDR =~ tr/a-z/A-Z/;
-      addRow('ledger_entries', {
-         'transaction_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'receipt_id'},
-         'account_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{$_.'_account_id'},
-         'ledger_id'  => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{$_.'_ledger_id'},
-         'crdr' => $CRDR,
-         'amount' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'amount'},
-         #'comment' => "$_ Entry Receipt: $row->{'ReceiptNum'}; Type: $row->{'PaymentType'}",
-             });
-
-      $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{$_.'_entry_id'}
-      = $newdb{'tables'}{'ledger_entries'}{'autoid'};
-   }
-
-   addRow('double_entries', {
-      #'transaction_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'receipt_id'},
-      
-      'debit_entry_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_entry_id'},
-      'credit_entry_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_entry_id'},
-      #'comment' => "Double Entry: $row->{'ReceiptNum'}; Type: $row->{'PaymentType'}",
-          });
-
-   $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'double_entry_id'}
-   = $newdb{'tables'}{'double_entries'}{'autoid'};
-
-   # Add the physical payment
-   addRow('tenders', {
-      'ledger_entry_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_entry_id'},
-      'name'  => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'name'},
-      'tender_type_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'tender_type_id'},
-      'data1' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'data1'},
-      #'comment' => "Physical Payment: $row->{'ReceiptNum'}; Type: $row->{'PaymentType'}",
-          });
-
-   $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'tender_id'}
-   = $newdb{'tables'}{'tenders'}{'autoid'};
-
-
-   # Special case for closing
-   if ($closing_one_transaction && $stamp eq $newdb{'lookup'}{'_closing'}{'stamp'}) {
-      $newdb{'lookup'}{'_closing'}{'transaction_id'} =
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'receipt_id'};
-      $newdb{'lookup'}{'_closing'}{'debit_entry_id'} =
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_entry_id'};
-      $newdb{'lookup'}{'_closing'}{'credit_entry_id'} =
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'credit_entry_id'};
-      $newdb{'lookup'}{'_closing'}{'tender_id'} =
-         $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'tender_id'};
-   }
-
-}
-
-
-
-######################################################################
-## Payments to Charges assignments
-
-$newdb{'lookup'}{'payment'} = {};
-
-$query = "SELECT * FROM Payments ORDER BY PaymentID";
-foreach $row (@{query($sdbh, $query)})
-{
-   my (undef, $effective_date, $through_date) =
-      dates('payment', $row->{'PaymentDate'});
-
-   # Figure out how much of the charge can be reconciled
-   my $charge_amount  = $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'amount'};
-   my $payment_amount = $row->{'PaymentAmount'};
-
-   my $reconcile_amount = ($charge_amount < $payment_amount) ? $charge_amount : $payment_amount;
-
-   $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}
-   = { 'receipt_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'receipt_id'},
-       'tender_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'tender_id'},       
-#        'effective_date' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'effective_date'},
-#        'effective_date' => $effective_date;
-#        'through_date' => $through_date;
-       'lease_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'lease_id'},
-       'customer_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'customer_id'},
-       'amount' => $reconcile_amount,
-
-       'account_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'debit_account_id'},
-   };
-
-   # Update the receipt & tender customer_id, now that we have payment info
-   $newdb{'tables'}{'transactions'}{'rows'}[
-      $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'receipt_id'}
-   ]{'customer_id'} = $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'customer_id'};
-   $newdb{'tables'}{'tenders'}{'rows'}[
-      $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'tender_id'}
-   ]{'customer_id'} = $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'customer_id'};
-
-   # Use the Memo as our comment, if it exists
-   my $comment = $row->{'Memo'}
-   #|| "Payment: $row->{'ReceiptNum'}; Type: $row->{'PaymentType'}; Charge: $row->{'ChargeID'}"
-   ;
-
-   # Add the Payment Statement Entry
-   addRow('statement_entries', {
-      'transaction_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'receipt_id'},
-      'type' => 'DISBURSEMENT',
-#       'effective_date' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'effective_date'},
-#       'through_date' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'through_date'},
-      'effective_date' => $effective_date,
-      'through_date' => $through_date,
-      'customer_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'customer_id'},
-      'lease_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'lease_id'},
-      'account_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'account_id'},
-      'amount' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'amount'},
-      'charge_entry_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'statement_entry_id'},
-      'comment' => $comment,
-          });
-
-   $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'statement_entry_id'}
-   = $newdb{'tables'}{'statement_entries'}{'autoid'};
-}
-
-
-######################################################################
-## Special case - Fix the entries for our closing transaction
-
-if ($newdb{'lookup'}{'_closing'}{'debit_entry_id'}) {
-   $newdb{'tables'}{'ledger_entries'}{'rows'}[
-      $newdb{'lookup'}{'_closing'}{'debit_entry_id'}
-   ]{'amount'} = $newdb{'lookup'}{'_closing'}{'amount'};
-}
-if ($newdb{'lookup'}{'_closing'}{'credit_entry_id'}) {
-   $newdb{'tables'}{'ledger_entries'}{'rows'}[
-      $newdb{'lookup'}{'_closing'}{'credit_entry_id'}
-   ]{'amount'} = $newdb{'lookup'}{'_closing'}{'amount'};
-}
-
-
-######################################################################
-## Special case - Equities / Loans / Petty Cash
-
-my ($stamp, $effective_date, $through_date);
-
-print("Set up Petty Cash...\n");
-
-# Add the first loan
-#     debit: Equity         credit: Loan
-addRow('transactions', {
-   'type' => 'TRANSFER',
-   'stamp' => datefmt('03/25/2009 16:00'),
-   'account_id' => $newdb{'lookup'}{'account'}{'Equity'}{'account_id'},
-   'ledger_id' => $newdb{'lookup'}{'account'}{'Equity'}{'ledger_id'},
-   'crdr' => 'DEBIT',
-   'comment' => "HTP Loan #1",
-       });
-addRow('ledger_entries', {
-   'transaction_id' => $newdb{'tables'}{'transactions'}{'autoid'},
-   'account_id' => $newdb{'lookup'}{'account'}{'Equity'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Equity'}{'ledger_id'},
-   'crdr' => 'DEBIT',
-   'amount' => 5000,
-   'comment' => "Equity: HTP Loan #1",
-       });
-addRow('ledger_entries', {
-   'transaction_id' => $newdb{'tables'}{'transactions'}{'autoid'},
-   'account_id' => $newdb{'lookup'}{'account'}{'Loan'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Loan'}{'ledger_id'},
-   'crdr' => 'CREDIT',
-   'amount' => 5000,
-   'comment' => "Loan: HTP Loan #1",
-       });
-addRow('double_entries', {
-   'debit_entry_id'  => $newdb{'tables'}{'ledger_entries'}{'autoid'}-1,
-   'credit_entry_id' => $newdb{'tables'}{'ledger_entries'}{'autoid'},
-       });
-
-# Add the second loan
-#     debit: Equity         credit: Loan
-addRow('transactions', {
-   'type' => 'TRANSFER',
-   'stamp' => datefmt('04/01/2009 16:00'),
-   'account_id' => $newdb{'lookup'}{'account'}{'Equity'}{'account_id'},
-   'ledger_id' => $newdb{'lookup'}{'account'}{'Equity'}{'ledger_id'},
-   'crdr' => 'DEBIT',
-   'comment' => "HTP Loan #2",
-       });
-addRow('ledger_entries', {
-   'transaction_id' => $newdb{'tables'}{'transactions'}{'autoid'},
-   'account_id' => $newdb{'lookup'}{'account'}{'Equity'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Equity'}{'ledger_id'},
-   'crdr' => 'DEBIT',
-   'amount' => 1000,
-   'comment' => "Equity: HTP Loan #2",
-       });
-addRow('ledger_entries', {
-   'transaction_id' => $newdb{'tables'}{'transactions'}{'autoid'},
-   'account_id' => $newdb{'lookup'}{'account'}{'Loan'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Loan'}{'ledger_id'},
-   'crdr' => 'CREDIT',
-   'amount' => 1000,
-   'comment' => "Loan: HTP Loan #2",
-       });
-addRow('double_entries', {
-   'debit_entry_id'  => $newdb{'tables'}{'ledger_entries'}{'autoid'}-1,
-   'credit_entry_id' => $newdb{'tables'}{'ledger_entries'}{'autoid'},
-       });
-
-
-# Cheat for now, using equity for Petty Cash
-#     debit: Petty Cash       credit: Equity
-addRow('transactions', {
-   'type' => 'TRANSFER',
-   'stamp' => datefmt('03/25/2009 16:00'),
-   'account_id' => $newdb{'lookup'}{'account'}{'Petty Cash'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Petty Cash'}{'ledger_id'},
-   'crdr' => 'DEBIT',
-   'comment' => "Petty Cash Funding",
-       });
-addRow('ledger_entries', {
-   'transaction_id' => $newdb{'tables'}{'transactions'}{'autoid'},
-   'account_id' => $newdb{'lookup'}{'account'}{'Petty Cash'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Petty Cash'}{'ledger_id'},
-   'crdr' => 'DEBIT',
-   'amount' => 750,
-   'comment' => "Petty Cash: Petty Cash Funding",
-       });
-addRow('ledger_entries', {
-   'transaction_id' => $newdb{'tables'}{'transactions'}{'autoid'},
-   'account_id' => $newdb{'lookup'}{'account'}{'Equity'}{'account_id'},
-   'ledger_id'  => $newdb{'lookup'}{'account'}{'Equity'}{'ledger_id'},
-   'crdr' => 'CREDIT',
-   'amount' => 750,
-   'comment' => "Equity: Petty Cash Funding",
-       });
-addRow('double_entries', {
-   'debit_entry_id'  => $newdb{'tables'}{'ledger_entries'}{'autoid'}-1,
-   'credit_entry_id' => $newdb{'tables'}{'ledger_entries'}{'autoid'},
-       });
-
-
-######################################################################
-## Debug ... work from scratch
-if ($work_from_scratch) {
-   # delete $newdb{'tables'}{'contacts'}{'rows'};
-   # delete $newdb{'tables'}{'contacts_methods'}{'rows'};
-   # delete $newdb{'tables'}{'contacts_addresses'}{'rows'};
-   # delete $newdb{'tables'}{'contacts_emails'}{'rows'};
-   # delete $newdb{'tables'}{'contacts_phones'}{'rows'};
-   delete $newdb{'tables'}{'contacts_customers'}{'rows'};
-   delete $newdb{'tables'}{'customers'}{'rows'};
-   delete $newdb{'tables'}{'double_entries'}{'rows'};
-   delete $newdb{'tables'}{'leases'}{'rows'};
-   delete $newdb{'tables'}{'ledger_entries'}{'rows'};
-   delete $newdb{'tables'}{'statement_entries'}{'rows'};
-   delete $newdb{'tables'}{'tenders'}{'rows'};
-   delete $newdb{'tables'}{'transactions'}{'rows'};
-
-   foreach (@{$newdb{'tables'}{'units'}{'rows'}}) {
-      $_->{'status'} = 'VACANT'
-         if defined $_ && ($_->{'status'} =~ /^(OCCUPIED)$/ || $_->{'name'} =~ /^Y/);
-   }
-}
-
-
-######################################################################
-## Build the Database
-
-$Data::Dumper::Sortkeys = 1;
-# print Dumper \%newdb;
-# exit;
-
-buildTables();
-
-
-######################################################################
-## Special cases - Name corrections
-print("Special Cases...\n");
-$query =
-   "UPDATE pmgr_contacts" .
-   " SET first_name = 'Krystan'" .
-   " WHERE first_name = 'Kristan' AND last_name = 'Mancini'";
-query($db_handle, $query);
-$query =
-   "UPDATE pmgr_customers" .
-   " SET name = 'Mancini, Krystan'" .
-   " WHERE name = 'Mancini, Kristan'";
-query($db_handle, $query);
-$query =
-   "UPDATE pmgr_contacts" .
-   " SET first_name = NULL, last_name = NULL, company_name = 'Valley Bible Church'" .
-   " WHERE first_name = 'VBC' AND last_name = 'Tenant'";
-query($db_handle, $query);
-$query =
-   "UPDATE pmgr_customers" .
-   " SET name = 'Valley Bible Church'" .
-   " WHERE name = 'Tenant, VBC'";
-query($db_handle, $query);
-
-
-######################################################################
-## Contact Display Names
-
-print("Set Contact Display Names...\n");
-
-$query =
-   "UPDATE pmgr_contacts".
-   " SET display_name =" .
-   "   IF(first_name IS NOT NULL AND last_name IS NOT NULL," .
-   "      CONCAT(last_name, ', ', first_name)," .
-   "      IF(first_name IS NOT NULL, first_name, last_name))";
-query($db_handle, $query);
-
-
-######################################################################
-## Unit Lease Assignments
-
-print("Set Current Leases...\n");
-
-$query = "UPDATE pmgr_units U, pmgr_leases L
-    SET U.`current_lease_id` = L.id
-    WHERE L.unit_id = U.id AND L.close_date IS NULL";
-query($db_handle, $query);
-
-# All current_lease_counts will be zero at the moment, since
-# everything was just created.  This will update any customers
-# that have ever leased anything.
-$query = "UPDATE pmgr_customers C,
-                 (SELECT L.customer_id,
-                         SUM(IF(L.close_date IS NULL, 1, 0)) AS current,
-                         SUM(IF(L.close_date IS NULL, 0, 1)) AS closed
-                  FROM pmgr_leases L
-                  GROUP BY L.customer_id) AS X
-    SET C.`lease_count`         = X.current + X.closed,
-        C.`current_lease_count` = X.current,
-        C.`past_lease_count`    = X.closed
-    WHERE X.customer_id = C.id";
-query($db_handle, $query);
-
-
-######################################################################
-## Invoice/Receipt totals
-
-print("Set Invoice/Receipt Totals...\n");
-
-$query = "UPDATE pmgr_transactions T, pmgr_ledger_entries E
-    SET T.`amount` = COALESCE(T.`amount`,0) + E.amount
-    WHERE E.transaction_id = T.id AND E.account_id = T.account_id";
-query($db_handle, $query);
-
-
-######################################################################
-## Tender Names
-
-print("Set Tender Names...\n");
-
-$query = "UPDATE pmgr_tenders T, pmgr_tender_types TT
-    SET T.`name` = CONCAT(T.`name`, ' #',
-                          IF(T.tender_type_id IN (2,3), T.data1, T.id))
-    WHERE T.tender_type_id IS NULL OR TT.id = T.tender_type_id";
-query($db_handle, $query);
-
-
-######################################################################
-## Invoice date fixes
-
-# print("Fix Invoice Dates...\n");
-
-# $query = "UPDATE pmgr_transactions T, pmgr_statement_entries E
-#     SET T.`stamp` = 
-#     WHERE E.transaction_id = T.id AND E.account_id = T.account_id";
-# query($db_handle, $query);
-