sub change_ship { change_bill(@_); }
sub change_pay {
my @payby = ('CARD', 'CHEK', 'DCHK');
- use MyLog; use Data::Dumper; MyLog->mylog("my change pay at\n".Dumper(@_));
change_bill(@_);
}
$fill_in->{$_} = $access_info->{$_} foreach keys %$access_info;
# update the user's authentication
- my $timeout = $access_info->{'timeout'} || '3600';
my $cookie = CGI::Cookie->new('-name' => 'session',
'-value' => $session_id,
- '-expires' => '+'.$timeout.'s',
#'-secure' => 1, # would be a good idea...
);
if ( $name eq 'logout' ) {