From aef6c97fadab8fc3469d56a8f9fba6dae4510f45 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 18 May 2007 22:03:25 +0000 Subject: LedgerSMB::error() to be replaced by a simple interface to an error class git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1210 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB.pm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 2cfee9c6..7f6b4335 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -521,6 +521,37 @@ sub date_to_number { $date; } +# To be replaced with a generic interface to an Error class +sub error { + + my ( $self, $msg ) = @_; + + if ( $ENV{GATEWAY_INTERFACE} ) { + + $self->{msg} = $msg; + $self->{format} = "html"; + $self->format_string('msg'); + + delete $self->{pre}; + + if ( !$self->{header} ) { + $self->header; + } + + print + qq|

Error!

$self->{msg}|; + + exit; + + } + else { + + if ( $ENV{error_function} ) { + &{ $ENV{error_function} }($msg); + } + die "Error: $msg\n"; + } +} # Database routines used throughout sub db_init { -- cgit v1.2.3