Attachment #38591 for bug #14066

View | Details | Raw Unified | Return to bug 14066
Collapse All | Expand All




        'required' => '1',
        'min_ver'  => '0.08'
    },
    'Readonly' => {
        'usage'    => 'Core',
        'required' => '1',
        'min_ver'  => '1.03'
    },
    'Readonly::XS' => {
        'usage'    => 'Core',
        'required' => '0',
        'min_ver'  => '1.02'
    },
    'Graphics::Magick' => {
        'usage'    => 'Patron Card Creator Feature',
        'required' => '0',




use DateTime::Duration;
use C4::Context;
use Carp;
use Readonly;

sub new {
    my ( $classname, %options ) = @_;

    );
    $weekly_closed_days_sth->execute( $branch );
    $self->{weekly_closed_days} = [ 0, 0, 0, 0, 0, 0, 0 ];
    my $sunday => 7;
    while ( my $tuple = $weekly_closed_days_sth->fetchrow_hashref ) {
        $self->{weekly_closed_days}->[ $tuple->{weekday} ] = 1;
    }


    if ( $unit eq 'hours' ) {
        # Fixed for legacy support. Should be set as a branch parameter
        my $return_by_hour => 10;

        $dt = $self->addHours($startdate, $add_duration, $return_by_hour);
    } else {
- 

Return to bug 14066

Lines 237-252 our $PERL_DEPS = { Link Here

(-)a/C4/Installer/PerlDependencies.pm (-10 lines)
237	'required' => '1',	237	'required' => '1',
238	'min_ver' => '0.08'	238	'min_ver' => '0.08'
239	},	239	},
240	'Readonly' => {
241	'usage' => 'Core',
242	'required' => '1',
243	'min_ver' => '1.03'
244	},
245	'Readonly::XS' => {
246	'usage' => 'Core',
247	'required' => '0',
248	'min_ver' => '1.02'
249	},
250	'Graphics::Magick' => {	240	'Graphics::Magick' => {
251	'usage' => 'Patron Card Creator Feature',	241	'usage' => 'Patron Card Creator Feature',
252	'required' => '0',	242	'required' => '0',

Lines 8-14 use DateTime::Set; Link Here

(-)a/Koha/Calendar.pm (-4 / +2 lines)
8	use DateTime::Duration;	8	use DateTime::Duration;
9	use C4::Context;	9	use C4::Context;
10	use Carp;	10	use Carp;
11	use Readonly;
12		11
13	sub new {	12	sub new {
14	my ( $classname, %options ) = @_;	13	my ( $classname, %options ) = @_;
Lines 34-40 sub _init { Link Here
34	);	33	);
35	$weekly_closed_days_sth->execute( $branch );	34	$weekly_closed_days_sth->execute( $branch );
36	$self->{weekly_closed_days} = [ 0, 0, 0, 0, 0, 0, 0 ];	35	$self->{weekly_closed_days} = [ 0, 0, 0, 0, 0, 0, 0 ];
37	Readonly::Scalar my $sunday => 7;	36	my $sunday => 7;
38	while ( my $tuple = $weekly_closed_days_sth->fetchrow_hashref ) {	37	while ( my $tuple = $weekly_closed_days_sth->fetchrow_hashref ) {
39	$self->{weekly_closed_days}->[ $tuple->{weekday} ] = 1;	38	$self->{weekly_closed_days}->[ $tuple->{weekday} ] = 1;
40	}	39	}
Lines 127-133 sub addDate { Link Here
127		126
128	if ( $unit eq 'hours' ) {	127	if ( $unit eq 'hours' ) {
129	# Fixed for legacy support. Should be set as a branch parameter	128	# Fixed for legacy support. Should be set as a branch parameter
130	Readonly::Scalar my $return_by_hour => 10;	129	my $return_by_hour => 10;
131		130
132	$dt = $self->addHours($startdate, $add_duration, $return_by_hour);	131	$dt = $self->addHours($startdate, $add_duration, $return_by_hour);
133	} else {	132	} else {
134	-