diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-09 22:44:11 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-09 22:44:11 +0000 |
commit | 1ce604504a6c13702609094d24eaad57b755b0f3 (patch) | |
tree | 00b559bf8124bbb05f75a9194f42e401df858c90 | |
parent | cca269c91382d7729b2ea0f66823ef40abbf235c (diff) |
Fixing bug in database update connections
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1052 4979c152-3d1c-0410-bac9-87ea11338e46
-rw-r--r-- | Build.PL | 2 | ||||
-rwxr-xr-x | bin/login.pl | 2 |
2 files changed, 1 insertions, 3 deletions
@@ -5,7 +5,7 @@ use Module::Build; my $build = Module::Build->new ( dist_name => 'LedgerSMB', - dist_version => '1.2.0', + dist_version => '1.2.2', license => 'GPL', requires => { 'perl' => '>= 5.8.0', diff --git a/bin/login.pl b/bin/login.pl index 96c0cb64..bf8a7745 100755 --- a/bin/login.pl +++ b/bin/login.pl @@ -298,8 +298,6 @@ sub login { for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} } - $form->{dbpasswd} = unpack 'u', $form->{dbpasswd}; - $form->{dbupdate} = "db$user->{dbname}"; $form->{$form->{dbupdate}} = 1; |