diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-25 22:49:51 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-25 22:49:51 +0000 |
| commit | 75bbfc4e3007318afcd8368e091ca3c13c5a3352 (patch) | |
| tree | cae2406bbb5fe6df32edc9a17c7b9e4728bc0d70 /old-handler.pl | |
| parent | 9e80fcdc9cba524a7407f01c92a0e6188247c7df (diff) | |
Adding employee workflow scripts
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1907 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'old-handler.pl')
| -rwxr-xr-x | old-handler.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/old-handler.pl b/old-handler.pl index 0e2f634c..f5619adf 100755 --- a/old-handler.pl +++ b/old-handler.pl @@ -85,8 +85,8 @@ use DBI qw(:sql_types); $SIG{__WARN__} = sub { $form->info( $_[0] ) }; # send errors to browser -$SIG{__DIE__} = - sub { $form->error( __FILE__ . ':' . __LINE__ . ': ' . $_[0] ) }; +#$SIG{__DIE__} = +# sub { print STDERR __FILE__ . ':' . __LINE__ . ': ' . $_[0]; }; ## did sysadmin lock us out #if (-f "${LedgerSMB::Sysconfig::userspath}/nologin") { |