[Rt-commit] r18806 - rt/3.999/branches/config-in-db/lib/RT/Model

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Mar 15 23:30:30 2009
New Revision: 18806

Modified:
   rt/3.999/branches/config-in-db/lib/RT/Model/Config.pm

Log:
no auto renaming for config name

Modified: rt/3.999/branches/config-in-db/lib/RT/Model/Config.pm
==============================================================================
--- rt/3.999/branches/config-in-db/lib/RT/Model/Config.pm	(original)
+++ rt/3.999/branches/config-in-db/lib/RT/Model/Config.pm	Sun Mar 15 23:30:30 2009
@@ -49,7 +49,6 @@
 use strict;
 package RT::Model::Config;
 use base qw/RT::Record/;
-use Text::Naming::Convention qw/renaming/;
 
 sub table {'Configs'}
 
@@ -84,7 +83,6 @@
         }
     }
 
-    $name = renaming($name);
     my $config = RT::Model::Config->new;
     my ( $ret, $msg ) = $config->load_by_cols( name => $name );
     if ($ret) {
@@ -102,7 +100,6 @@
     my $self  = shift;
     my $name  = shift;
     my $value = shift;
-    $name = renaming( $name );
 
     my $config = RT::Model::Config->new( current_user => RT->system_user );
     my ( $ret, $msg ) = $config->load_by_cols( name => $name );
@@ -116,3 +113,4 @@
 }
 
 1;
+