1 files changed, 2 insertions, 1 deletions
diff --git a/common.pl b/common.pl
index 54e45291..bc227697 100644
--- a/common.pl
+++ b/common.pl
@@ -31,10 +31,11 @@ sub redirect {
 
 	if (!$script){ # http redirect to login.pl if called w/no args
 		print "Location: login.pl\n";
+		print "Content-type: text/html\n\n";
 		exit;
 	}
 
-	$form->error($locale->text("Invalid Redirect"))
+	$form->error($locale->text(__FILE__.':'.__LINE__.':'.$script.':'."Invalid Redirect"))
 		unless first {$_ eq $script} @{LedgerSMB::Sysconfig::scripts};
 
 	$oldform = $form;