From: ivan <ivan>
Date: Fri, 29 Jun 2007 01:45:10 +0000 (+0000)
Subject: last small fix for new DBIx::DBSchema
X-Git-Tag: TRIXBOX_2_6~472
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=fb53325987efe2e57ea4ba23483e0091527bc803;p=freeside.git

last small fix for new DBIx::DBSchema
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 0afe3ecd1..6bf124b4a 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -9,7 +9,7 @@ use Carp qw(carp cluck croak confess);
 use File::CounterFile;
 use Locale::Country;
 use DBI qw(:sql_types);
-use DBIx::DBSchema 0.25;
+use DBIx::DBSchema 0.33;
 use FS::UID qw(dbh getotaker datasrc driver_name);
 use FS::CurrentUser;
 use FS::Schema qw(dbdef);
@@ -725,7 +725,7 @@ sub insert {
 
   #single-field unique keys are given a value if false
   #(like MySQL's AUTO_INCREMENT or Pg SERIAL)
-  foreach ( $self->dbdef_table->unique->singles ) {
+  foreach ( $self->dbdef_table->unique_singles ) {
     $self->unique($_) unless $self->getfield($_);
   }