Lines 201-207
sub insert_week_day_holiday {
Link Here
|
201 |
croak "Invalid weekday $weekday" unless $weekday =~ m/^[0-6]$/; |
201 |
croak "Invalid weekday $weekday" unless $weekday =~ m/^[0-6]$/; |
202 |
|
202 |
|
203 |
my $dbh = C4::Context->dbh(); |
203 |
my $dbh = C4::Context->dbh(); |
204 |
my $insertHoliday = $dbh->prepare("insert into repeatable_holidays (id,branchcode,weekday,day,month,title,description) values ( '',?,?,NULL,NULL,?,? )"); |
204 |
my $insertHoliday = $dbh->prepare("insert into repeatable_holidays (branchcode,weekday,day,month,title,description) values ( ?,?,NULL,NULL,?,? )"); |
205 |
$insertHoliday->execute( $self->{branchcode}, $weekday, $options{title}, $options{description}); |
205 |
$insertHoliday->execute( $self->{branchcode}, $weekday, $options{title}, $options{description}); |
206 |
$self->{'week_days_holidays'}->{$weekday}{title} = $options{title}; |
206 |
$self->{'week_days_holidays'}->{$weekday}{title} = $options{title}; |
207 |
$self->{'week_days_holidays'}->{$weekday}{description} = $options{description}; |
207 |
$self->{'week_days_holidays'}->{$weekday}{description} = $options{description}; |
Lines 232-238
sub insert_day_month_holiday {
Link Here
|
232 |
my %options = @_; |
232 |
my %options = @_; |
233 |
|
233 |
|
234 |
my $dbh = C4::Context->dbh(); |
234 |
my $dbh = C4::Context->dbh(); |
235 |
my $insertHoliday = $dbh->prepare("insert into repeatable_holidays (id,branchcode,weekday,day,month,title,description) values ('', ?, NULL, ?, ?, ?,? )"); |
235 |
my $insertHoliday = $dbh->prepare("insert into repeatable_holidays (branchcode,weekday,day,month,title,description) values (?, NULL, ?, ?, ?,? )"); |
236 |
$insertHoliday->execute( $self->{branchcode}, $options{day},$options{month},$options{title}, $options{description}); |
236 |
$insertHoliday->execute( $self->{branchcode}, $options{day},$options{month},$options{title}, $options{description}); |
237 |
$self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{title} = $options{title}; |
237 |
$self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{title} = $options{title}; |
238 |
$self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{description} = $options{description}; |
238 |
$self->{'day_month_holidays'}->{"$options{month}/$options{day}"}{description} = $options{description}; |
Lines 269-275
sub insert_single_holiday {
Link Here
|
269 |
|
269 |
|
270 |
my $dbh = C4::Context->dbh(); |
270 |
my $dbh = C4::Context->dbh(); |
271 |
my $isexception = 0; |
271 |
my $isexception = 0; |
272 |
my $insertHoliday = $dbh->prepare("insert into special_holidays (id,branchcode,day,month,year,isexception,title,description) values ('', ?,?,?,?,?,?,?)"); |
272 |
my $insertHoliday = $dbh->prepare("insert into special_holidays (branchcode,day,month,year,isexception,title,description) values (?,?,?,?,?,?,?)"); |
273 |
$insertHoliday->execute( $self->{branchcode}, $options{day},$options{month},$options{year}, $isexception, $options{title}, $options{description}); |
273 |
$insertHoliday->execute( $self->{branchcode}, $options{day},$options{month},$options{year}, $isexception, $options{title}, $options{description}); |
274 |
$self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title}; |
274 |
$self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title}; |
275 |
$self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description}; |
275 |
$self->{'single_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description}; |
Lines 315-321
sub insert_exception_holiday {
Link Here
|
315 |
|
315 |
|
316 |
my $dbh = C4::Context->dbh(); |
316 |
my $dbh = C4::Context->dbh(); |
317 |
my $isexception = 1; |
317 |
my $isexception = 1; |
318 |
my $insertException = $dbh->prepare("insert into special_holidays (id,branchcode,day,month,year,isexception,title,description) values ('', ?,?,?,?,?,?,?)"); |
318 |
my $insertException = $dbh->prepare("insert into special_holidays (branchcode,day,month,year,isexception,title,description) values (?,?,?,?,?,?,?)"); |
319 |
$insertException->execute( $self->{branchcode}, $options{day},$options{month},$options{year}, $isexception, $options{title}, $options{description}); |
319 |
$insertException->execute( $self->{branchcode}, $options{day},$options{month},$options{year}, $isexception, $options{title}, $options{description}); |
320 |
$self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title}; |
320 |
$self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{title} = $options{title}; |
321 |
$self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description}; |
321 |
$self->{'exception_holidays'}->{"$options{year}/$options{month}/$options{day}"}{description} = $options{description}; |
322 |
- |
|
|