avoid session data growing to big

3.2+sn
Daniel Tiefnig 14 years ago
parent f9e6b8d4a3
commit 389e76e67c

@ -631,7 +631,7 @@ sub preferences : Local {
return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'get_preferences',
undef, \$db_prefs
);
$c->session->{voip_preferences} = [ grep { $$_{usr_pref} } @$db_prefs ] if eval { @$db_prefs };
$db_prefs = [ grep { $$_{usr_pref} } @$db_prefs ] if eval { @$db_prefs };
### restore data entered by the user ###
@ -673,11 +673,11 @@ sub preferences : Local {
### build preference array for TT ###
if(ref $c->session->{voip_preferences} eq 'ARRAY') {
if(ref $db_prefs eq 'ARRAY') {
my @stashprefs;
foreach my $pref (@{$c->session->{voip_preferences}}) {
foreach my $pref (@$db_prefs) {
# managed separately
next if $$pref{preference} eq 'lock';

Loading…
Cancel
Save