projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DBI::connect-Options für UTF-8-Encoding auch beim Einspielen von Datenbankupgrades...
[kivitendo-erp.git]
/
SL
/
DB
/
Helper
/
Mappings.pm
diff --git
a/SL/DB/Helper/Mappings.pm
b/SL/DB/Helper/Mappings.pm
index
35845a8
..
cc4d2ab
100644
(file)
--- a/
SL/DB/Helper/Mappings.pm
+++ b/
SL/DB/Helper/Mappings.pm
@@
-3,6
+3,8
@@
package SL::DB::Helper::Mappings;
use utf8;
use strict;
use utf8;
use strict;
+use SL::Util qw(camelify);
+
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(get_table_for_package get_package_for_table get_package_names);
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(get_table_for_package get_package_for_table get_package_names);
@@
-157,18
+159,6
@@
sub db {
die "Can't resolve '$string' as a database model, sorry. Did you perhaps forgot to load it?";
}
die "Can't resolve '$string' as a database model, sorry. Did you perhaps forgot to load it?";
}
-sub camelify {
- my ($str) = @_;
- $str =~ s/_+(.)/uc($1)/ge;
- ucfirst $str;
-}
-
-sub snakify {
- my ($str) = @_;
- $str =~ s/(?<!^)\u(.)/'_' . lc($1)/ge;
- lcfirst $str;
-}
-
sub plurify {
my ($str) = @_;
$str . 's';
sub plurify {
my ($str) = @_;
$str . 's';