Attachment #28433 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,

                reservecharge,
                chargename,
                restrictedtype
                ) 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 139-144 my $sampleissuingrule2 = { Link Here
139	renewalsallowed => 'Null',	140	renewalsallowed => 'Null',
140	renewalperiod => 2,	141	renewalperiod => 2,
141	norenewalbefore => 7,	142	norenewalbefore => 7,
		143	auto_renew => 0,
142	reservesallowed => 'Null',	144	reservesallowed => 'Null',
143	issuelength => 2,	145	issuelength => 2,
144	lengthunit => 'Null',	146	lengthunit => 'Null',
Lines 163-168 my $sampleissuingrule3 = { Link Here
163	renewalsallowed => 'Null',	165	renewalsallowed => 'Null',
164	renewalperiod => 3,	166	renewalperiod => 3,
165	norenewalbefore => 8,	167	norenewalbefore => 8,
		168	auto_renew => 0,
166	reservesallowed => 'Null',	169	reservesallowed => 'Null',
167	issuelength => 3,	170	issuelength => 3,
168	lengthunit => 'Null',	171	lengthunit => 'Null',
Lines 187-192 $query = 'INSERT INTO issuingrules ( Link Here
187	renewalsallowed,	190	renewalsallowed,
188	renewalperiod,	191	renewalperiod,
189	norenewalbefore,	192	norenewalbefore,
		193	auto_renew,
190	reservesallowed,	194	reservesallowed,
191	issuelength,	195	issuelength,
192	lengthunit,	196	lengthunit,
Lines 202-208 $query = 'INSERT INTO issuingrules ( Link Here
202	reservecharge,	206	reservecharge,
203	chargename,	207	chargename,
204	restrictedtype	208	restrictedtype
205	) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';	209	) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
206	my $sth = $dbh->prepare($query);	210	my $sth = $dbh->prepare($query);
207	$sth->execute(	211	$sth->execute(
208	$sampleissuingrule1->{branchcode},	212	$sampleissuingrule1->{branchcode},
Lines 212-217 $sth->execute( Link Here
212	$sampleissuingrule1->{renewalsallowed},	216	$sampleissuingrule1->{renewalsallowed},
213	$sampleissuingrule1->{renewalperiod},	217	$sampleissuingrule1->{renewalperiod},
214	$sampleissuingrule1->{norenewalbefore},	218	$sampleissuingrule1->{norenewalbefore},
		219	$sampleissuingrule1->{auto_renew},
215	$sampleissuingrule1->{reservesallowed},	220	$sampleissuingrule1->{reservesallowed},
216	$sampleissuingrule1->{issuelength},	221	$sampleissuingrule1->{issuelength},
217	$sampleissuingrule1->{lengthunit},	222	$sampleissuingrule1->{lengthunit},
Lines 236-241 $sth->execute( Link Here
236	$sampleissuingrule2->{renewalsallowed},	241	$sampleissuingrule2->{renewalsallowed},
237	$sampleissuingrule2->{renewalperiod},	242	$sampleissuingrule2->{renewalperiod},
238	$sampleissuingrule2->{norenewalbefore},	243	$sampleissuingrule2->{norenewalbefore},
		244	$sampleissuingrule1->{auto_renew},
239	$sampleissuingrule2->{reservesallowed},	245	$sampleissuingrule2->{reservesallowed},
240	$sampleissuingrule2->{issuelength},	246	$sampleissuingrule2->{issuelength},
241	$sampleissuingrule2->{lengthunit},	247	$sampleissuingrule2->{lengthunit},
Lines 260-265 $sth->execute( Link Here
260	$sampleissuingrule3->{renewalsallowed},	266	$sampleissuingrule3->{renewalsallowed},
261	$sampleissuingrule3->{renewalperiod},	267	$sampleissuingrule3->{renewalperiod},
262	$sampleissuingrule3->{norenewalbefore},	268	$sampleissuingrule3->{norenewalbefore},
		269	$sampleissuingrule1->{auto_renew},
263	$sampleissuingrule3->{reservesallowed},	270	$sampleissuingrule3->{reservesallowed},
264	$sampleissuingrule3->{issuelength},	271	$sampleissuingrule3->{issuelength},
265	$sampleissuingrule3->{lengthunit},	272	$sampleissuingrule3->{lengthunit},
266	-