[Rt-commit] [svn] r1482 - in DBIx-SearchBuilder/trunk: . SearchBuilder SearchBuilder/Record

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Tue Sep 14 00:28:07 2004
New Revision: 1482

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
   DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
Log:
 r10254 at tinbook:  jesse | 2004-09-14T04:27:59.126348Z
 Applied new functionality patch from Ruslan which gives us a __Delete method, so that a subclass can easily ACL "Delete"
 
 


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	Tue Sep 14 00:28:07 2004
@@ -1051,8 +1051,11 @@
 
 *delete =  \&Delete;
 
+sub Delete {
+    $_[0]->__Delete;
+}
 
-sub Delete  {
+sub __Delete {
     my $self = shift;
     
     #TODO Check to make sure the key's not already listed.
@@ -1070,7 +1073,7 @@
     $where =~ s/AND\s$//;
     my $QueryString = "DELETE FROM ". $self->Table . ' ' . $where;
     return($self->_Handle->SimpleQuery($QueryString, @bind));
-  }
+}
 
 # }}}
 

Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm	Tue Sep 14 00:28:07 2004
@@ -129,12 +129,12 @@
 # Args    : nil
 # Lvalue  : ?
 
-sub Delete () {
+sub __Delete () {
     my ($self) = @_;
 
     $self->_expire();
 
-    return $self->SUPER::Delete();
+    return $self->SUPER::__Delete();
 
 }