Lines 25-33
use C4::Context;
Link Here
|
25 |
use C4::Members::Messaging; |
25 |
use C4::Members::Messaging; |
26 |
use C4::Debug; |
26 |
use C4::Debug; |
27 |
|
27 |
|
|
|
28 |
use constant MAX_DAYS_IN_ADVANCE => 30; |
29 |
|
28 |
=head1 NAME |
30 |
=head1 NAME |
29 |
|
31 |
|
30 |
C4::Form::MessagingPreferences - manage messaging prefernces form |
32 |
C4::Form::MessagingPreferences - manage messaging preferences form |
31 |
|
33 |
|
32 |
=head1 SYNOPSIS |
34 |
=head1 SYNOPSIS |
33 |
|
35 |
|
Lines 134-143
sub set_form_values {
Link Here
|
134 |
if ( $option->{'takes_days'} ) { |
136 |
if ( $option->{'takes_days'} ) { |
135 |
my $days_in_advance = $pref->{'days_in_advance'} ? $pref->{'days_in_advance'} : 0; |
137 |
my $days_in_advance = $pref->{'days_in_advance'} ? $pref->{'days_in_advance'} : 0; |
136 |
$option->{days_in_advance} = $days_in_advance; |
138 |
$option->{days_in_advance} = $days_in_advance; |
137 |
@{$option->{'select_days'}} = map {; { |
139 |
@{$option->{'select_days'}} = map { { |
138 |
day => $_, |
140 |
day => $_, |
139 |
selected => $_ == $days_in_advance ? 'selected="selected"' :'' } |
141 |
selected => $_ == $days_in_advance } |
140 |
} ( 0..30 ); # FIXME: 30 is a magic number. |
142 |
} ( 0..MAX_DAYS_IN_ADVANCE ); |
141 |
} |
143 |
} |
142 |
foreach my $transport ( keys %{$pref->{'transports'}} ) { |
144 |
foreach my $transport ( keys %{$pref->{'transports'}} ) { |
143 |
$option->{'transports_'.$transport} = 1; |
145 |
$option->{'transports_'.$transport} = 1; |