diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-23 15:05:53 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-06-23 15:05:53 +0000 |
commit | a51eb1d9032a2ef36cd185eabe0e3403241dbdad (patch) | |
tree | ae7f846bcd409da85aab5cf4e3df32572ac6a10d /LedgerSMB.pm | |
parent | 5b13adc06e2518157c89b574526e09358420b2bc (diff) |
Correcting POD on LedgerSMB.pm, changing db_init to _db_init and calling it from the constructor.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1313 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 9c082693..3dc39447 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -14,8 +14,9 @@ in database objects (LedgerSMB::DBObject) =item new () -This method creates a new base request instance. In any mode but CLI, it also -validates the session/user credentials. +This method creates a new base request instance. It also validates the +session/user credentials, as appropriate for the run mode. Finally, it sets up +the database connections for the user. =item date_to_number (user => $LedgerSMB::User, date => $string); @@ -205,6 +206,7 @@ sub new { exit; } } + $self->_db_init; $self; @@ -604,7 +606,6 @@ sub error { $self->{msg} = $msg; $self->{format} = "html"; - $self->format_string('msg'); delete $self->{pre}; @@ -628,10 +629,10 @@ sub error { } # Database routines used throughout -sub db_init { +sub _db_init { my $self = shift @_; my %args = @_; - my $myconfig = $args{user}; + my $myconfig = $self->{_user}; my $dbh = DBI->connect( $myconfig->{dbconnect}, $myconfig->{dbuser}, |