[Rt-commit] [svn] r1710 - in rt/branches/3.3-TESTING: . lib/RT

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Thu Nov  4 22:59:24 2004
New Revision: 1710

Modified:
   rt/branches/3.3-TESTING/   (props changed)
   rt/branches/3.3-TESTING/lib/RT/Record.pm
Log:
 r6169 at tinbook:  jesse | 2004-11-04T08:32:13.034112Z
 Added a Delete method to RT::Record so we get proper messages on object deletion
     --Autrijus
 
 


Modified: rt/branches/3.3-TESTING/lib/RT/Record.pm
==============================================================================
--- rt/branches/3.3-TESTING/lib/RT/Record.pm	(original)
+++ rt/branches/3.3-TESTING/lib/RT/Record.pm	Thu Nov  4 22:59:24 2004
@@ -107,6 +107,19 @@
 
 # }}}
 
+=head2 Delete
+
+Delete this record object from the database.
+
+=cut
+
+sub Delete {
+    my $self = shift;
+    my ($rv, $msg) = $self->SUPER::Delete;
+    $msg ||= $self->loc("Object deleted");
+    return ($rv, $msg);
+}
+
 =head2 Attributes
 
 Return this object's attributes as an RT::Attributes object