X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB.pm;h=491a03349427ef6514a78ceefc61539c0b927820;hb=df0d4d3fb8a275b7f96a260d403966c873123666;hp=38441aabfd24aea67cb6cf27766e55ed057cf0ee;hpb=22c021254b5dcf3367d95d48cea3e1f7412ef369;p=kivitendo-erp.git diff --git a/SL/DB.pm b/SL/DB.pm index 38441aabf..491a03349 100644 --- a/SL/DB.pm +++ b/SL/DB.pm @@ -23,7 +23,7 @@ sub create { my $domain = shift || SL::DB->default_domain; my $type = shift || SL::DB->default_type; - my ($domain, $type) = _register_db($domain, $type); + ($domain, $type) = _register_db($domain, $type); my $db = __PACKAGE__->new_or_cached(domain => $domain, type => $type); @@ -81,7 +81,7 @@ sub _register_db { my %flattened_settings = _flatten_settings(%connect_settings); $domain = 'LXOFFICE' if $type =~ m/^LXOFFICE/; - $type .= join($SUBSCRIPT_SEPARATOR, map { ($_, $flattened_settings{$_}) } sort keys %flattened_settings); + $type .= join($SUBSCRIPT_SEPARATOR, map { ($_, $flattened_settings{$_} || '') } sort keys %flattened_settings); my $idx = "${domain}::${type}"; if (!$_db_registered{$idx}) {