summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-09 22:44:11 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-09 22:44:11 +0000
commit1ce604504a6c13702609094d24eaad57b755b0f3 (patch)
tree00b559bf8124bbb05f75a9194f42e401df858c90
parentcca269c91382d7729b2ea0f66823ef40abbf235c (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.PL2
-rwxr-xr-xbin/login.pl2
2 files changed, 1 insertions, 3 deletions
diff --git a/Build.PL b/Build.PL
index 3e6b5ccd..8af7d0ee 100644
--- a/Build.PL
+++ b/Build.PL
@@ -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;