|
Lines 16-21
Link Here
|
| 16 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
16 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
|
|
19 |
use Data::Dumper; |
| 19 |
|
20 |
|
| 20 |
use Koha::DateUtils; |
21 |
use Koha::DateUtils; |
| 21 |
use DateTime::Duration; |
22 |
use DateTime::Duration; |
|
Lines 143-148
$dbh->do(
Link Here
|
| 143 |
$samplecat->{category_type} |
144 |
$samplecat->{category_type} |
| 144 |
); |
145 |
); |
| 145 |
|
146 |
|
|
|
147 |
my $TEST_ITEMTYPE = "_T_ITYPE"; |
| 148 |
my %TEST_ITEMTYPE_REC = ( |
| 149 |
itemtype => $TEST_ITEMTYPE, |
| 150 |
rentalcharge => "1.50", |
| 151 |
); |
| 152 |
Koha::ItemType->new(\%TEST_ITEMTYPE_REC)->store; |
| 153 |
|
| 154 |
t::lib::Mocks::mock_preference( 'item-level_itypes', 1 ); |
| 155 |
|
| 146 |
#Add biblio and item |
156 |
#Add biblio and item |
| 147 |
my $record = MARC::Record->new(); |
157 |
my $record = MARC::Record->new(); |
| 148 |
$record->append_fields( |
158 |
$record->append_fields( |
|
Lines 158-164
my @sampleitem1 = C4::Items::AddItem(
Link Here
|
| 158 |
homebranch => $samplebranch1->{branchcode}, |
168 |
homebranch => $samplebranch1->{branchcode}, |
| 159 |
holdingbranch => $samplebranch1->{branchcode}, |
169 |
holdingbranch => $samplebranch1->{branchcode}, |
| 160 |
issue => 1, |
170 |
issue => 1, |
| 161 |
reserve => 1 |
171 |
reserve => 1, |
|
|
172 |
itype => $TEST_ITEMTYPE, |
| 162 |
}, |
173 |
}, |
| 163 |
$biblionumber |
174 |
$biblionumber |
| 164 |
); |
175 |
); |
|
Lines 170-176
my @sampleitem2 = C4::Items::AddItem(
Link Here
|
| 170 |
homebranch => $samplebranch2->{branchcode}, |
181 |
homebranch => $samplebranch2->{branchcode}, |
| 171 |
holdingbranch => $samplebranch2->{branchcode}, |
182 |
holdingbranch => $samplebranch2->{branchcode}, |
| 172 |
notforloan => 1, |
183 |
notforloan => 1, |
| 173 |
issue => 1 |
184 |
issue => 1, |
|
|
185 |
itype => $TEST_ITEMTYPE, |
| 174 |
}, |
186 |
}, |
| 175 |
$biblionumber |
187 |
$biblionumber |
| 176 |
); |
188 |
); |
|
Lines 209-217
my $userenv = C4::Context->userenv
Link Here
|
| 209 |
|
221 |
|
| 210 |
#Begin Tests |
222 |
#Begin Tests |
| 211 |
|
223 |
|
|
|
224 |
my $bib = GetBiblioFromItemNumber( $item_id1); |
| 225 |
$query = " SELECT count(*) FROM accountlines"; |
| 226 |
my $sth = $dbh->prepare($query); |
| 227 |
$sth->execute; |
| 228 |
my $countaccount = $sth -> fetchrow_array; |
| 229 |
is ($countaccount,0,"0 accountline exists"); |
| 230 |
|
| 212 |
#Test AddIssue |
231 |
#Test AddIssue |
| 213 |
$query = " SELECT count(*) FROM issues"; |
232 |
$query = " SELECT count(*) FROM issues"; |
| 214 |
my $sth = $dbh->prepare($query); |
233 |
$sth = $dbh->prepare($query); |
| 215 |
$sth->execute; |
234 |
$sth->execute; |
| 216 |
my $countissue = $sth -> fetchrow_array; |
235 |
my $countissue = $sth -> fetchrow_array; |
| 217 |
is ($countissue ,0, "there is no issue"); |
236 |
is ($countissue ,0, "there is no issue"); |
|
Lines 232-251
my $issue_id2 = $dbh->last_insert_id( undef, undef, 'issues', undef );
Link Here
|
| 232 |
|
251 |
|
| 233 |
$sth->execute; |
252 |
$sth->execute; |
| 234 |
$countissue = $sth -> fetchrow_array; |
253 |
$countissue = $sth -> fetchrow_array; |
| 235 |
is ($countissue,1,"1 issues have been added"); |
254 |
is ($countissue,1,"1 issue has been added"); |
| 236 |
|
255 |
|
| 237 |
#Test AddIssuingCharge |
256 |
#Test AddIssuingCharge |
| 238 |
$query = " SELECT count(*) FROM accountlines"; |
257 |
$query = " SELECT * FROM accountlines"; |
| 239 |
$sth = $dbh->prepare($query); |
258 |
my $acc_sth = $dbh->prepare($query); |
| 240 |
$sth->execute; |
259 |
$acc_sth->execute; |
| 241 |
my $countaccount = $sth -> fetchrow_array; |
260 |
my $account = $acc_sth -> fetchall_arrayref({}); |
| 242 |
is ($countaccount,0,"0 accountline exists"); |
261 |
ok (scalar(@$account) == 1 && $account->[0]{accounttype} eq "Rent","accountline has been added") |
| 243 |
is( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ), |
262 |
or diag( Dumper($account) ); |
| 244 |
1, "An issuing charge has been added" ); |
263 |
|
| 245 |
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef ); |
|
|
| 246 |
$sth->execute; |
| 247 |
$countaccount = $sth -> fetchrow_array; |
| 248 |
is ($countaccount,1,"1 accountline has been added"); |
| 249 |
|
264 |
|
| 250 |
#Test AddRenewal |
265 |
#Test AddRenewal |
| 251 |
my $datedue3 = |
266 |
my $datedue3 = |
|
Lines 256-261
like(
Link Here
|
| 256 |
qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/, |
271 |
qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/, |
| 257 |
"AddRenewal returns a date" |
272 |
"AddRenewal returns a date" |
| 258 |
); |
273 |
); |
|
|
274 |
$acc_sth->execute; |
| 275 |
$account = $acc_sth -> fetchall_arrayref({}); |
| 276 |
ok (scalar(@$account) == 2 && $account->[1]{accounttype} eq "Rent","another accountline has been added") |
| 277 |
or diag( Dumper($account) ); |
| 259 |
|
278 |
|
| 260 |
#Test GetBiblioIssues |
279 |
#Test GetBiblioIssues |
| 261 |
is( GetBiblioIssues(), undef, "GetBiblio Issues without parameters" ); |
280 |
is( GetBiblioIssues(), undef, "GetBiblio Issues without parameters" ); |
| 262 |
- |
|
|