[Jifty-commit] r5617 - in Jifty-DBI/branches/tisql: lib/Jifty/DBI

[Jifty commits]

Author: ruz
Date: Wed Jul 30 16:33:52 2008
New Revision: 5617

Modified:
   Jifty-DBI/branches/tisql/   (props changed)
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Column.pm
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm

Log:
 r5598 at ruslan-zakirovs-computer:  ruz | 2008-07-27 11:45:56 +0400
 * add column->is_binary


Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Column.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Column.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Column.pm	Wed Jul 30 16:33:52 2008
@@ -124,6 +124,21 @@
     return 0;
 }
 
+=head2 is_binary
+
+Returns true if this column is a binary field, e.g blob or varbinary.
+
+=cut
+
+
+sub is_binary {
+    my $self = shift;
+    if ( $self->type =~ /BLOB|BINARY|BYTEA/i ){ 
+        return 1;
+    }
+    return 0;
+}
+
 
 =head2 serialize_metadata
 

Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm	Wed Jul 30 16:33:52 2008
@@ -258,7 +258,7 @@
     # Check for the correct column type when the Storable filter is in use
     if ( grep { $_ eq 'Jifty::DBI::Filter::Storable' }
         ( $column->input_filters, $column->output_filters )
-            and $column->type !~ /^(blob|bytea)$/i )
+            and !$column->is_binary )
     {
         die "Column '$column_name' in @{[$column->record_class]} "
             . "uses the Storable filter but is not of type 'blob'.\n";