From: ivan <ivan>
Date: Thu, 5 Jul 2007 22:05:38 +0000 (+0000)
Subject: fix for compatibility w/DBIx::DBSchema v0.33+ (without requiring it)
X-Git-Tag: freeside_1_7_3rc1~395
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b41b9b805f10c6b9d5d3e4d40265fc58e772a01a;p=freeside.git

fix for compatibility w/DBIx::DBSchema v0.33+ (without requiring it)
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 913e44e21..915bbd86a 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -10,6 +10,8 @@ use File::CounterFile;
 use Locale::Country;
 use DBI qw(:sql_types);
 use DBIx::DBSchema 0.25;
+#use DBIx::DBSchema 0.33; #when check for ->can('unique_singles') is sub insert
+                          #is removed
 use FS::UID qw(dbh getotaker datasrc driver_name);
 use FS::CurrentUser;
 use FS::Schema qw(dbdef);
@@ -725,7 +727,10 @@ 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->can('unique_singles')
+              ? $self->dbdef_table->unique_singles
+              : $self->dbdef_table->unique->singles
+          ) {
     $self->unique($_) unless $self->getfield($_);
   }