From 75bbfc4e3007318afcd8368e091ca3c13c5a3352 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 25 Nov 2007 22:49:51 +0000 Subject: Adding employee workflow scripts git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1907 4979c152-3d1c-0410-bac9-87ea11338e46 --- old-handler.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'old-handler.pl') 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") { -- cgit v1.2.3