[Rt-commit] [svn] r1844 - in rt/branches/PLATANO-EXPERIMENTAL-CSS: . lib/RT

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Thu Nov 11 03:41:21 2004
New Revision: 1844

Modified:
   rt/branches/PLATANO-EXPERIMENTAL-CSS/   (props changed)
   rt/branches/PLATANO-EXPERIMENTAL-CSS/lib/RT/Record.pm
Log:
 r9106 at tinbook:  jesse | 2004-11-11T03:00:27.170066Z
  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/PLATANO-EXPERIMENTAL-CSS/lib/RT/Record.pm
==============================================================================
--- rt/branches/PLATANO-EXPERIMENTAL-CSS/lib/RT/Record.pm	(original)
+++ rt/branches/PLATANO-EXPERIMENTAL-CSS/lib/RT/Record.pm	Thu Nov 11 03:41:21 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