Attachment #25166 for bug #7413

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




    finedays           => 0,
    lengthunit         => 'Null',
    renewalperiod      => 5,
    norenewalbefore    => 6,
    issuelength        => 5,
    chargeperiod       => 0,
    rentaldiscount     => '2.000000',

    maxissueqty        => 2,
    renewalsallowed    => 'Null',
    renewalperiod      => 2,
    norenewalbefore    => 7,
    reservesallowed    => 'Null',
    issuelength        => 2,
    lengthunit         => 'Null',

    maxissueqty        => 3,
    renewalsallowed    => 'Null',
    renewalperiod      => 3,
    norenewalbefore    => 8,
    reservesallowed    => 'Null',
    issuelength        => 3,
    lengthunit         => 'Null',

                maxissueqty,
                renewalsallowed,
                renewalperiod,
                norenewalbefore,
                reservesallowed,
                issuelength,
                lengthunit,

                reservecharge,
                chargename,
                restrictedtype
                ) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
my $sth = $dbh->prepare($query);
$sth->execute(
    $sampleissuingrule1->{branchcode},

    $sampleissuingrule1->{maxissueqty},
    $sampleissuingrule1->{renewalsallowed},
    $sampleissuingrule1->{renewalperiod},
    $sampleissuingrule1->{norenewalbefore},
    $sampleissuingrule1->{reservesallowed},
    $sampleissuingrule1->{issuelength},
    $sampleissuingrule1->{lengthunit},

    $sampleissuingrule2->{maxissueqty},
    $sampleissuingrule2->{renewalsallowed},
    $sampleissuingrule2->{renewalperiod},
    $sampleissuingrule2->{norenewalbefore},
    $sampleissuingrule2->{reservesallowed},
    $sampleissuingrule2->{issuelength},
    $sampleissuingrule2->{lengthunit},

    $sampleissuingrule3->{maxissueqty},
    $sampleissuingrule3->{renewalsallowed},
    $sampleissuingrule3->{renewalperiod},
    $sampleissuingrule3->{norenewalbefore},
    $sampleissuingrule3->{reservesallowed},
    $sampleissuingrule3->{issuelength},
    $sampleissuingrule3->{lengthunit},
- 

Return to bug 7413

Lines 116-121 my $sampleissuingrule1 = { Link Here

(-)a/t/db_dependent/Circulation_Issuingrule.t (-2 / +8 lines)
116	finedays => 0,	116	finedays => 0,
117	lengthunit => 'Null',	117	lengthunit => 'Null',
118	renewalperiod => 5,	118	renewalperiod => 5,
		119	norenewalbefore => 6,
119	issuelength => 5,	120	issuelength => 5,
120	chargeperiod => 0,	121	chargeperiod => 0,
121	rentaldiscount => '2.000000',	122	rentaldiscount => '2.000000',
Lines 137-142 my $sampleissuingrule2 = { Link Here
137	maxissueqty => 2,	138	maxissueqty => 2,
138	renewalsallowed => 'Null',	139	renewalsallowed => 'Null',
139	renewalperiod => 2,	140	renewalperiod => 2,
		141	norenewalbefore => 7,
140	reservesallowed => 'Null',	142	reservesallowed => 'Null',
141	issuelength => 2,	143	issuelength => 2,
142	lengthunit => 'Null',	144	lengthunit => 'Null',
Lines 160-165 my $sampleissuingrule3 = { Link Here
160	maxissueqty => 3,	162	maxissueqty => 3,
161	renewalsallowed => 'Null',	163	renewalsallowed => 'Null',
162	renewalperiod => 3,	164	renewalperiod => 3,
		165	norenewalbefore => 8,
163	reservesallowed => 'Null',	166	reservesallowed => 'Null',
164	issuelength => 3,	167	issuelength => 3,
165	lengthunit => 'Null',	168	lengthunit => 'Null',
Lines 183-188 $query = 'INSERT INTO issuingrules ( Link Here
183	maxissueqty,	186	maxissueqty,
184	renewalsallowed,	187	renewalsallowed,
185	renewalperiod,	188	renewalperiod,
		189	norenewalbefore,
186	reservesallowed,	190	reservesallowed,
187	issuelength,	191	issuelength,
188	lengthunit,	192	lengthunit,
Lines 198-204 $query = 'INSERT INTO issuingrules ( Link Here
198	reservecharge,	202	reservecharge,
199	chargename,	203	chargename,
200	restrictedtype	204	restrictedtype
201	) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';	205	) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
202	my $sth = $dbh->prepare($query);	206	my $sth = $dbh->prepare($query);
203	$sth->execute(	207	$sth->execute(
204	$sampleissuingrule1->{branchcode},	208	$sampleissuingrule1->{branchcode},
Lines 207-212 $sth->execute( Link Here
207	$sampleissuingrule1->{maxissueqty},	211	$sampleissuingrule1->{maxissueqty},
208	$sampleissuingrule1->{renewalsallowed},	212	$sampleissuingrule1->{renewalsallowed},
209	$sampleissuingrule1->{renewalperiod},	213	$sampleissuingrule1->{renewalperiod},
		214	$sampleissuingrule1->{norenewalbefore},
210	$sampleissuingrule1->{reservesallowed},	215	$sampleissuingrule1->{reservesallowed},
211	$sampleissuingrule1->{issuelength},	216	$sampleissuingrule1->{issuelength},
212	$sampleissuingrule1->{lengthunit},	217	$sampleissuingrule1->{lengthunit},
Lines 230-235 $sth->execute( Link Here
230	$sampleissuingrule2->{maxissueqty},	235	$sampleissuingrule2->{maxissueqty},
231	$sampleissuingrule2->{renewalsallowed},	236	$sampleissuingrule2->{renewalsallowed},
232	$sampleissuingrule2->{renewalperiod},	237	$sampleissuingrule2->{renewalperiod},
		238	$sampleissuingrule2->{norenewalbefore},
233	$sampleissuingrule2->{reservesallowed},	239	$sampleissuingrule2->{reservesallowed},
234	$sampleissuingrule2->{issuelength},	240	$sampleissuingrule2->{issuelength},
235	$sampleissuingrule2->{lengthunit},	241	$sampleissuingrule2->{lengthunit},
Lines 253-258 $sth->execute( Link Here
253	$sampleissuingrule3->{maxissueqty},	259	$sampleissuingrule3->{maxissueqty},
254	$sampleissuingrule3->{renewalsallowed},	260	$sampleissuingrule3->{renewalsallowed},
255	$sampleissuingrule3->{renewalperiod},	261	$sampleissuingrule3->{renewalperiod},
		262	$sampleissuingrule3->{norenewalbefore},
256	$sampleissuingrule3->{reservesallowed},	263	$sampleissuingrule3->{reservesallowed},
257	$sampleissuingrule3->{issuelength},	264	$sampleissuingrule3->{issuelength},
258	$sampleissuingrule3->{lengthunit},	265	$sampleissuingrule3->{lengthunit},
259	-