summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index c82caa0e..a8ccb2d4 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -160,6 +160,10 @@ sub new {
if ( ( $self->{script} =~ m#(..|\\|/)# ) ) {
$self->error("Access Denied");
}
+ if (!$self->{login}){
+ #this is an ugly hack we need to rethink.
+ return $self;
+ }
$self->{_user} = LedgerSMB::User->fetch_config($self->{login});
my $locale = LedgerSMB::Locale->get_handle($self->{_user}->{countrycode})
@@ -610,9 +614,9 @@ sub error {
delete $self->{pre};
- if ( !$self->{header} ) {
- $self->header;
- }
+
+ print qq|Content-Type: text/html; charset=utf-8\n\n|;
+ print "<head></head>";
print
qq|<body><h2 class="error">Error!</h2> <p><b>$self->{msg}</b></body>|;