freeside/FS/FS rate_detail.pm,1.2,1.3 type_pkgs.pm,1.4,1.5 cust_bill_pkg.pm,1.6,1.7 pkg_svc.pm,1.5,1.6 part_svc_router.pm,1.1,1.2 reg_code_pkg.pm,1.1,1.2

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv16493/FS/FS

Modified Files:
	rate_detail.pm type_pkgs.pm cust_bill_pkg.pm pkg_svc.pm 
	part_svc_router.pm reg_code_pkg.pm 
Log Message:
herding elephants: add primary keys to *all* tables for slony

Index: part_svc_router.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_svc_router.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- part_svc_router.pm	5 Feb 2003 23:17:09 -0000	1.1
+++ part_svc_router.pm	2 Apr 2005 22:46:44 -0000	1.2
@@ -13,7 +13,8 @@
 sub check {
   my $self = shift;
   my $error =
-    $self->ut_foreign_key('svcpart', 'part_svc', 'svcpart')
+       $self->ut_numbern('svcrouternum')
+    || $self->ut_foreign_key('svcpart', 'part_svc', 'svcpart')
     || $self->ut_foreign_key('routernum', 'router', 'routernum');
   return $error if $error;
   ''; #no error

Index: cust_bill_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill_pkg.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- cust_bill_pkg.pm	5 Aug 2003 00:20:41 -0000	1.6
+++ cust_bill_pkg.pm	2 Apr 2005 22:46:44 -0000	1.7
@@ -36,6 +36,8 @@
 
 =over 4
 
+=item billpkgnum - primary key
+
 =item invnum - invoice (see L<FS::cust_bill>)
 
 =item pkgnum - package (see L<FS::cust_pkg>) or 0 for the special virtual sales tax package
@@ -153,7 +155,8 @@
   my $self = shift;
 
   my $error =
-    $self->ut_number('pkgnum')
+         $self->ut_numbern('billpkgnum')
+      || $self->ut_number('pkgnum')
       || $self->ut_number('invnum')
       || $self->ut_money('setup')
       || $self->ut_money('recur')

Index: rate_detail.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/rate_detail.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- rate_detail.pm	21 Dec 2004 23:19:45 -0000	1.2
+++ rate_detail.pm	2 Apr 2005 22:46:44 -0000	1.3
@@ -34,6 +34,8 @@
 
 =over 4
 
+=item ratedetailnum - primary key
+
 =item ratenum - rate plan (see L<FS::rate>)
 
 =item orig_regionnum - call origination region
@@ -106,7 +108,8 @@
   my $self = shift;
 
   my $error = 
-       $self->ut_foreign_key('ratenum', 'rate', 'ratenum')
+       $self->ut_numbern('ratedetailnum')
+    || $self->ut_foreign_key('ratenum', 'rate', 'ratenum')
     || $self->ut_foreign_keyn('orig_regionnum', 'rate_region', 'regionnum' )
     || $self->ut_foreign_key('dest_regionnum', 'rate_region', 'regionnum' )
     || $self->ut_number('min_included')

Index: type_pkgs.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/type_pkgs.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- type_pkgs.pm	26 Nov 2004 09:39:52 -0000	1.4
+++ type_pkgs.pm	2 Apr 2005 22:46:44 -0000	1.5
@@ -35,6 +35,8 @@
 
 =over 4
 
+=item typepkgnum - primary key
+
 =item typenum - Agent type, see L<FS::agent_type>
 
 =item pkgpart - Billing item definition, see L<FS::part_pkg>
@@ -80,7 +82,8 @@
   my $self = shift;
 
   my $error = 
-    $self->ut_number('typenum')
+       $self->ut_numbern('typepkgnum')
+    || $self->ut_number('typenum')
     || $self->ut_number('pkgpart')
   ;
   return $error if $error;

Index: reg_code_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/reg_code_pkg.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- reg_code_pkg.pm	29 Jan 2005 12:34:10 -0000	1.1
+++ reg_code_pkg.pm	2 Apr 2005 22:46:44 -0000	1.2
@@ -35,6 +35,8 @@
 
 =over 4
 
+=item codepkgnum - primary key
+
 =item codenum - registration code (see L<FS::reg_code>)
 
 =item pkgpart - package definition (see L<FS::part_pkg>)
@@ -99,7 +101,8 @@
   my $self = shift;
 
   my $error = 
-    $self->ut_foreign_key('codenum', 'reg_code', 'codenum')
+       $self->ut_numbern('codepkgnum')
+    || $self->ut_foreign_key('codenum', 'reg_code', 'codenum')
     || $self->ut_foreign_key('pkgpart', 'part_pkg', 'pkgpart')
   ;
   return $error if $error;

Index: pkg_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pkg_svc.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- pkg_svc.pm	31 Jan 2004 06:33:39 -0000	1.5
+++ pkg_svc.pm	2 Apr 2005 22:46:44 -0000	1.6
@@ -39,6 +39,8 @@
 
 =over 4
 
+=item pkgsvcnum - primary key
+
 =item pkgpart - Billing item definition (see L<FS::part_pkg>)
 
 =item svcpart - Service definition (see L<FS::part_svc>)
@@ -101,7 +103,8 @@
 
   my $error;
   $error =
-    $self->ut_number('pkgpart')
+       $self->ut_numbern('pkgsvcnum')
+    || $self->ut_number('pkgpart')
     || $self->ut_number('svcpart')
     || $self->ut_number('quantity')
   ;