diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-08 05:02:21 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-08 05:02:21 +0000 |
commit | 31d92e4c9d00b42f4169baacd8fdc6c6325ff567 (patch) | |
tree | 868aefb9c731ecf33b72ea58240e62ec4c6c429c /LedgerSMB/User.pm | |
parent | 8cdda6c118db985392ce19d8ae1d1a0788066ca7 (diff) |
More authentication fixes.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1717 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/User.pm')
-rw-r--r-- | LedgerSMB/User.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 6107cfcb..0b295455 100644 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -204,9 +204,7 @@ Disused function to return the number of current recurring events. sub check_recurring { my ( $self, $form ) = @_; - my $dbh = - DBI->connect( $self->{dbconnect}, $self->{dbuser}, $self->{dbpasswd} ) - or $form->dberror( __FILE__ . ':' . __LINE__ ); + my $dbh = $form->{dbh}; $dbh->{pg_encode_utf8} = 1; my $query = qq| |