Attachment #29401 for bug #11577

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




    q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed,
                                maxissueqty, issuelength, lengthunit,
                                renewalsallowed, renewalperiod,
                                norenewalbefore, auto_renew,
                                fine, chargeperiod)
      VALUES (?, ?, ?, ?,
              ?, ?, ?,
              ?, ?,
              ?, ?,
              ?, ?
             )
    },

    '*', '*', '*', 25,
    20, 14, 'days',
    1, 7,
    '', 0,
    .10, 1
);





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

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

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

                renewalsallowed,
                renewalperiod,
                norenewalbefore,
                auto_renew,
                reservesallowed,
                issuelength,
                lengthunit,

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

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

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

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

Return to bug 11577

Lines 133-142 $dbh->do( Link Here

(-)a/t/db_dependent/Circulation.t (+3 lines)
133	q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed,	133	q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed,
134	maxissueqty, issuelength, lengthunit,	134	maxissueqty, issuelength, lengthunit,
135	renewalsallowed, renewalperiod,	135	renewalsallowed, renewalperiod,
		136	norenewalbefore, auto_renew,
136	fine, chargeperiod)	137	fine, chargeperiod)
137	VALUES (?, ?, ?, ?,	138	VALUES (?, ?, ?, ?,
138	?, ?, ?,	139	?, ?, ?,
139	?, ?,	140	?, ?,
		141	?, ?,
140	?, ?	142	?, ?
141	)	143	)
142	},	144	},
Lines 144-149 $dbh->do( Link Here
144	'', '', '*', 25,	146	'', '', '*', 25,
145	20, 14, 'days',	147	20, 14, 'days',
146	1, 7,	148	1, 7,
		149	'', 0,
147	.10, 1	150	.10, 1
148	);	151	);
149		152

Lines 117-122 my $sampleissuingrule1 = { Link Here

(-)a/t/db_dependent/Circulation_Issuingrule.t (-2 / +8 lines)
117	lengthunit => 'Null',	117	lengthunit => 'Null',
118	renewalperiod => 5,	118	renewalperiod => 5,
119	norenewalbefore => 6,	119	norenewalbefore => 6,
		120	auto_renew => 0,
120	issuelength => 5,	121	issuelength => 5,
121	chargeperiod => 0,	122	chargeperiod => 0,
122	rentaldiscount => '2.000000',	123	rentaldiscount => '2.000000',
Lines 140-145 my $sampleissuingrule2 = { Link Here
140	renewalsallowed => 'Null',	141	renewalsallowed => 'Null',
141	renewalperiod => 2,	142	renewalperiod => 2,
142	norenewalbefore => 7,	143	norenewalbefore => 7,
		144	auto_renew => 0,
143	reservesallowed => 'Null',	145	reservesallowed => 'Null',
144	issuelength => 2,	146	issuelength => 2,
145	lengthunit => 'Null',	147	lengthunit => 'Null',
Lines 165-170 my $sampleissuingrule3 = { Link Here
165	renewalsallowed => 'Null',	167	renewalsallowed => 'Null',
166	renewalperiod => 3,	168	renewalperiod => 3,
167	norenewalbefore => 8,	169	norenewalbefore => 8,
		170	auto_renew => 0,
168	reservesallowed => 'Null',	171	reservesallowed => 'Null',
169	issuelength => 3,	172	issuelength => 3,
170	lengthunit => 'Null',	173	lengthunit => 'Null',
Lines 190-195 $query = 'INSERT INTO issuingrules ( Link Here
190	renewalsallowed,	193	renewalsallowed,
191	renewalperiod,	194	renewalperiod,
192	norenewalbefore,	195	norenewalbefore,
		196	auto_renew,
193	reservesallowed,	197	reservesallowed,
194	issuelength,	198	issuelength,
195	lengthunit,	199	lengthunit,
Lines 206-212 $query = 'INSERT INTO issuingrules ( Link Here
206	chargename,	210	chargename,
207	restrictedtype,	211	restrictedtype,
208	maxsuspensiondays	212	maxsuspensiondays
209	) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';	213	) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
210	my $sth = $dbh->prepare($query);	214	my $sth = $dbh->prepare($query);
211	$sth->execute(	215	$sth->execute(
212	$sampleissuingrule1->{branchcode},	216	$sampleissuingrule1->{branchcode},
Lines 216-221 $sth->execute( Link Here
216	$sampleissuingrule1->{renewalsallowed},	220	$sampleissuingrule1->{renewalsallowed},
217	$sampleissuingrule1->{renewalperiod},	221	$sampleissuingrule1->{renewalperiod},
218	$sampleissuingrule1->{norenewalbefore},	222	$sampleissuingrule1->{norenewalbefore},
		223	$sampleissuingrule1->{auto_renew},
219	$sampleissuingrule1->{reservesallowed},	224	$sampleissuingrule1->{reservesallowed},
220	$sampleissuingrule1->{issuelength},	225	$sampleissuingrule1->{issuelength},
221	$sampleissuingrule1->{lengthunit},	226	$sampleissuingrule1->{lengthunit},
Lines 241-246 $sth->execute( Link Here
241	$sampleissuingrule2->{renewalsallowed},	246	$sampleissuingrule2->{renewalsallowed},
242	$sampleissuingrule2->{renewalperiod},	247	$sampleissuingrule2->{renewalperiod},
243	$sampleissuingrule2->{norenewalbefore},	248	$sampleissuingrule2->{norenewalbefore},
		249	$sampleissuingrule1->{auto_renew},
244	$sampleissuingrule2->{reservesallowed},	250	$sampleissuingrule2->{reservesallowed},
245	$sampleissuingrule2->{issuelength},	251	$sampleissuingrule2->{issuelength},
246	$sampleissuingrule2->{lengthunit},	252	$sampleissuingrule2->{lengthunit},
Lines 266-271 $sth->execute( Link Here
266	$sampleissuingrule3->{renewalsallowed},	272	$sampleissuingrule3->{renewalsallowed},
267	$sampleissuingrule3->{renewalperiod},	273	$sampleissuingrule3->{renewalperiod},
268	$sampleissuingrule3->{norenewalbefore},	274	$sampleissuingrule3->{norenewalbefore},
		275	$sampleissuingrule1->{auto_renew},
269	$sampleissuingrule3->{reservesallowed},	276	$sampleissuingrule3->{reservesallowed},
270	$sampleissuingrule3->{issuelength},	277	$sampleissuingrule3->{issuelength},
271	$sampleissuingrule3->{lengthunit},	278	$sampleissuingrule3->{lengthunit},
272	-