Fix buttons on redirect-destinations

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@627 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 0 deletions

diff --git a/common.pl b/common.pl
index 4bc27807..043c7c19 100644
--- a/common.pl
+++ b/common.pl
@@ -52,6 +52,7 @@ sub redirect {
 	for (@common_attrs){
 		$form->{$_} = $temphash{$_};
 	}
+	$form->{script} = $script;
 
 	if (!$myconfig){ # needed for login
 		%myconfig = %{LedgerSMB::User->fetch_config($form->{login})};