herding elephants: add primary keys to *all* tables for slony

[freeside.git] / FS / FS / pkg_svc.pm

diff --git a/FS/FS/pkg_svc.pm b/FS/FS/pkg_svc.pm
index ea52176..065ddbe 100644 (file)
--- a/FS/FS/pkg_svc.pm
+++ b/FS/FS/pkg_svc.pm
@@ -39,6 +39,8 @@ FS::Record.  The following fields are currently supported:
 
 =over 4
 
 
 =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>)
 =item pkgpart - Billing item definition (see L<FS::part_pkg>)
 
 =item svcpart - Service definition (see L<FS::part_svc>)


@@ -101,7 +103,8 @@ sub check {
 
   my $error;
   $error =
 
   my $error;
   $error =

-    $self->ut_number('pkgpart')
+       $self->ut_numbern('pkgsvcnum')
+    || $self->ut_number('pkgpart')

     || $self->ut_number('svcpart')
     || $self->ut_number('quantity')
   ;
     || $self->ut_number('svcpart')
     || $self->ut_number('quantity')
   ;