[Rt-commit] r3220 - in DBIx-SearchBuilder/trunk: . SearchBuilder

[glasser at bestpractical.com]

Author: glasser
Date: Thu Jun 16 15:19:25 2005
New Revision: 3220

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
Log:
 r35197 at tin-foil:  glasser | 2005-06-16 15:18:35 -0400
 Fix Readable/WritableAttributes to notice REFERENCES.


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	Thu Jun 16 15:19:25 2005
@@ -662,7 +662,7 @@
 sub ReadableAttributes {
     my $self = shift;
     my $ca = $self->_ClassAccessible();
-    my @readable = grep { $ca->{$_}->{read}} keys %{$ca};
+    my @readable = grep { $ca->{$_}->{'read'} or $ca->{$_}->{'record-read'} } keys %{$ca};
     return (@readable);
 }
 
@@ -677,7 +677,7 @@
 sub WritableAttributes {
     my $self = shift;
     my $ca = $self->_ClassAccessible();
-    my @writable = grep { $ca->{$_}->{write}} keys %{$ca};
+    my @writable = grep { $ca->{$_}->{'write'} or $ca->{$_}->{'record-write'} } keys %{$ca};
     return (@writable);
 
 }