Mailing List Archive

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@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
_______________________________________________
Rt-commit mailing list
Rt-commit@lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit