my $session_cookie_value = $main::auth->get_session_id();
if ($session_cookie_value) {
- $session_cookie = $cgi->cookie('-name' => $main::auth->get_session_cookie_name(),
- '-value' => $session_cookie_value,
- '-path' => $uri->path,
- '-secure' => $::request->is_https);
+ $session_cookie = $cgi->cookie('-name' => $main::auth->get_session_cookie_name(),
+ '-value' => $session_cookie_value,
+ '-path' => $uri->path,
+ '-expires' => '+' . $::auth->{session_timeout} . 'm',
+ '-secure' => $::request->is_https);
}
}
}
#
-sub format_amount { shift; goto &SL::Helper::Number::_number; }
+sub format_amount {
+ my ($self, $myconfig, $amount, $places, $dash) = @_;
+ SL::Helper::Number::_format_number($amount, $places, %$myconfig, dash => $dash);
+}
sub format_amount_units {
$main::lxdebug->enter_sub();
#
-sub parse_amount { shift; goto &SL::Helper::Number::_parse_number; }
+sub parse_amount {
+ my ($self, $myconfig, $amount) = @_;
+ SL::Helper::Number::_parse_number($amount, %$myconfig);
+}
sub round_amount { shift; goto &SL::Helper::Number::_round_number; }