rfe #9981: RedirectAfterLogin Setting

This commit is contained in:
Yung Han Khoe 2009-05-15 18:57:12 +00:00
parent 21452ce58f
commit 5f60eddaa7
5 changed files with 37 additions and 0 deletions

View file

@ -32,6 +32,7 @@ my $session = start(); # this line required
addOgoneToConfig( $session );
addUseEmailAsUsernameToSettings( $session );
alterVATNumberTable( $session );
addRedirectAfterLoginUrlToSettings( $session );
finish($session); # this line required
@ -56,6 +57,17 @@ sub addUseEmailAsUsernameToSettings {
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addRedirectAfterLoginUrlToSettings {
my $session = shift;
print "\tAdding redirectAfterLoginUrl to settings \n" unless $quiet;
$session->db->write("insert into settings (name, value) values ('redirectAfterLoginUrl',NULL)");
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub alterVATNumberTable {
my $session = shift;
print "\tAdapting VAT Number table..." unless $quiet;