From f6009d77ba588f9b8942cb559871e1ac994967da Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 12 Nov 2006 04:31:33 +0000
Subject: Fixed invalid redirect on logout

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@517 4979c152-3d1c-0410-bac9-87ea11338e46
---
 Changelog | 1 +
 common.pl | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/Changelog b/Changelog
index aaad4484..9a7727b5 100644
--- a/Changelog
+++ b/Changelog
@@ -38,6 +38,7 @@ Code Quality and API:
 * LedgerSMB::PE is aware of custom fields (Chris T)
 * Testing suite added (Seneca)
 * Moved all database calls to $form->{dbh} (CHris T)
+* Form->redirect no longer makes use of exec (Chris T)
 
 Packaging:
 * Added first version of rpm spec from Mads Kiilerich (Chris T)
diff --git a/common.pl b/common.pl
index b4b524b5..efa872b4 100644
--- a/common.pl
+++ b/common.pl
@@ -29,6 +29,10 @@ sub redirect {
 
 	my @common_attrs = qw(dbh login favicon stylesheet titlebar password);
 
+	if (!$script){ # http redirect to login.pl if called w/no args
+		print "Location: login.pl\n";
+	}
+
 	$form->error($locale->text("Invalid Redirect"))
 		unless first {$_ eq $script} @{LedgerSMB::Sysconfig::scripts};
 
-- 
cgit v1.2.3