diff options
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/Sysconfig.pm | 13 | ||||
| -rwxr-xr-x | LedgerSMB/User.pm | 1 |
2 files changed, 13 insertions, 1 deletions
diff --git a/LedgerSMB/Sysconfig.pm b/LedgerSMB/Sysconfig.pm index 3023ac79..5b67b690 100644 --- a/LedgerSMB/Sysconfig.pm +++ b/LedgerSMB/Sysconfig.pm @@ -39,6 +39,11 @@ $gzip = "gzip -S .gz"; # Path to the translation files $localepath = 'locale/mo'; +# available printers +%printer = ( Laser => 'lpr -Plaser', + Epson => 'lpr -PEpson', + ); + ################################# # Global database parameters ################################# @@ -50,5 +55,13 @@ my $globalPassword = "set me to correct password"; #$GLOBALDBH = DBI->connect($globalDBConnect, $globalDBUserName, $globalDBPassword); +# These lines prevent other apps in mod_perl from seeing the global db +# connection info + +my $globalDBConnect = undef; +my $globalUserName = undef; +my $globalPassword = undef; + + 1; diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index b892eeb3..09b4a533 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -35,7 +35,6 @@ package User; use LedgerSMB::Sysconfig; - sub new { my ($type, $memfile, $login) = @_; my $self = {}; |