SF.net SVN: ledger-smb: [517] trunk

[..hidden..]

Revision: 517
          http://svn.sourceforge.net/ledger-smb/?rev=517&view=rev
Author:   einhverfr
Date:     2006-11-11 20:31:33 -0800 (Sat, 11 Nov 2006)

Log Message:
-----------
Fixed invalid redirect on logout

Modified Paths:
--------------
    trunk/Changelog
    trunk/common.pl

Modified: trunk/Changelog
===================================================================
--- trunk/Changelog	2006-11-11 20:23:28 UTC (rev 516)
+++ trunk/Changelog	2006-11-12 04:31:33 UTC (rev 517)
@@ -38,6 +38,7 @@
 * 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)

Modified: trunk/common.pl
===================================================================
--- trunk/common.pl	2006-11-11 20:23:28 UTC (rev 516)
+++ trunk/common.pl	2006-11-12 04:31:33 UTC (rev 517)
@@ -29,6 +29,10 @@
 
 	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};
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.