[Rt-commit] r19519 - in rt/3.999/trunk: .

sunnavy at bestpractical.com sunnavy at bestpractical.com
Thu May 7 03:18:14 EDT 2009


Author: sunnavy
Date: Thu May  7 03:18:07 2009
New Revision: 19519

Modified:
   rt/3.999/trunk/   (props changed)
   rt/3.999/trunk/lib/RT/Model/Config.pm

Log:
 r20776 at sunnavys-mb (orig r19223):  sunnavy | 2009-04-16 14:28:24 +0800
 add _get method so we can get raw value stored in Config


Modified: rt/3.999/trunk/lib/RT/Model/Config.pm
==============================================================================
--- rt/3.999/trunk/lib/RT/Model/Config.pm	(original)
+++ rt/3.999/trunk/lib/RT/Model/Config.pm	Thu May  7 03:18:07 2009
@@ -68,6 +68,21 @@
     updated_on => 'last_updated',
 };
 
+sub _get {
+    my $self = shift;
+    my $name = shift;
+
+    my $config = RT::Model::Config->new;
+    my ( $ret, $msg ) = $config->load_by_cols( name => $name );
+    if ($ret) {
+        my $value = $config->value;
+        return defined $value ? $value : '';
+    }
+    else {
+        return;
+    }
+}
+
 sub get {
     my $self = shift;
     my $name = shift;
@@ -83,13 +98,10 @@
         }
     }
 
-    my $config = RT::Model::Config->new;
-    my ( $ret, $msg ) = $config->load_by_cols( name => $name );
-    if ($ret) {
-        my $value = $config->value;
-#        $value = $$value if ref $value;
+    my $value = $self->_get( $name );
+    if ( defined $value ) {
         $value =~ s/{{(\w+)}}/$self->get($1) || ''/ge if $value && !ref $value;
-        return defined $value ? $value : '';
+        return $value;
     }
     else {
         return;


More information about the Rt-commit mailing list