[freeside-commits] freeside/bin import-optigold.pl,1.5,1.6

Jeff Finucane,420,, jeff at wavetail.420.am
Thu Jun 12 09:56:32 PDT 2008


Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv30002

Modified Files:
	import-optigold.pl 
Log Message:
date fixups

Index: import-optigold.pl
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/import-optigold.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- import-optigold.pl	12 Jun 2008 15:55:28 -0000	1.5
+++ import-optigold.pl	12 Jun 2008 16:56:30 -0000	1.6
@@ -567,15 +567,15 @@
                                     && $status ne 'On Hold' )
                                   {
                                     $cancelled = 1;
-                                    $cancel{$id} =
+                                    $cancel{$login} =
                                       str2time($row->{termination_date});
                                   }
-                                  $susp{$id} = str2time($row->{hold_date})
+                                  $susp{$login} = str2time($row->{hold_date})
                                     if ($status eq 'On Hold' && !$cancelled);
-                                  $adjo{$id} = str2time($row->{hold_date})
+                                  $adjo{$login} = str2time($row->{hold_date})
                                     if ( $status eq 'Current' && !$cancelled &&
                                          $row->{hold_date} );
-                                  $bill{$id} =
+                                  $bill{$login} =
                                       str2time($row->{expiration_date})
                                     if (!$cancelled);
 
@@ -723,28 +723,32 @@
                                         },
                    'setup'       => sub { str2time(shift->{creation_date}) },
                    'bill'        => sub { my $href = shift;
-                                          my $id = $href->{'slave_account_id'}
-                                            ? 'slave:'. $href->{'slave_account_id'}
-                                            : $href->{'cbilling_cycle_login'};
-                                          $bill{$id};
+                                          #my $id = $href->{'slave_account_id'}
+                                          #  ? 'slave:'. $href->{'slave_account_id'}
+                                          #  : $href->{'cbilling_cycle_login'};
+                                          #$bill{$id};
+                                          $bill{$href->{cbilling_cycle_login}};
                                         },
                    'susp'        => sub { my $href = shift;
-                                          my $id = $href->{'slave_account_id'}
-                                            ? 'slave:'. $href->{'slave_account_id'}
-                                            : $href->{'cbilling_cycle_login'};
-                                          $susp{$id};
+                                          #my $id = $href->{'slave_account_id'}
+                                          #  ? 'slave:'. $href->{'slave_account_id'}
+                                          #  : $href->{'cbilling_cycle_login'};
+                                          #$susp{$id};
+                                          $susp{$href->{cbilling_cycle_login}};
                                         },
                    'adjo'        => sub { my $href = shift;
-                                          my $id = $href->{'slave_account_id'}
-                                            ? 'slave:'. $href->{'slave_account_id'}
-                                            : $href->{'cbilling_cycle_login'};
-                                          $adjo{$id};
+                                          #my $id = $href->{'slave_account_id'}
+                                          #  ? 'slave:'. $href->{'slave_account_id'}
+                                          #  : $href->{'cbilling_cycle_login'};
+                                          #$adjo{$id};
+                                          $adjo{$href->{cbilling_cycle_login}};
                                         },
                    'cancel'      => sub { my $href = shift;
-                                          my $id = $href->{'slave_account_id'}
-                                            ? 'slave:'. $href->{'slave_account_id'}
-                                            : $href->{'cbilling_cycle_login'};
-                                          $cancel{$id};
+                                          #my $id = $href->{'slave_account_id'}
+                                          #  ? 'slave:'. $href->{'slave_account_id'}
+                                          #  : $href->{'cbilling_cycle_login'};
+                                          #$cancel{$id};
+                                          $cancel{$href->{cbilling_cycle_login}};
                                         },
                  },
                'fixup'  => sub { my ($object, $row) = (shift,shift);



More information about the freeside-commits mailing list