[Rt-commit] r3192 - in rt/branches/QUEBEC-EXPERIMENTAL: . lib/RT

[jesse at bestpractical.com]

Author: jesse
Date: Wed Jun 15 19:00:17 2005
New Revision: 3192

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Record.pm
Log:
 r20562 at hualien:  jesse | 2005-06-15 18:59:20 -0400
 * When updating articles, we want to say "Updated Article" rather than "Updated FM"
 
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Record.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Record.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Record.pm	Wed Jun 15 19:00:17 2005
@@ -918,7 +918,7 @@
         next if ( $value eq $self->$attribute() );
         my $method = "Set$attribute";
         my ( $code, $msg ) = $self->$method($value);
-        my ($prefix) = ref($self) =~ /RT::(\w+)/;
+        my ($prefix) = ref($self) =~ /RT(?:.*)::(\w+)/;
 
         # Default to $id, but use name if we can get it.
         my $label = $self->id;