Lines 70-75
subtest 'General Add, Get and Del tests' => sub {
Link Here
|
70 |
is( $getitem->{location}, $location, "The location should not have been modified" ); |
70 |
is( $getitem->{location}, $location, "The location should not have been modified" ); |
71 |
is( $getitem->{permanent_location}, $location, "The permanent_location should have been set to the location value" ); |
71 |
is( $getitem->{permanent_location}, $location, "The permanent_location should have been set to the location value" ); |
72 |
|
72 |
|
|
|
73 |
|
74 |
# Do not modify anything, and do not explode! |
75 |
my $dbh = C4::Context->dbh; |
76 |
local $dbh->{RaiseError} = 1; |
77 |
ModItem({}, $bibnum, $itemnumber); |
78 |
|
73 |
# Modify item; setting barcode. |
79 |
# Modify item; setting barcode. |
74 |
ModItem({ barcode => '987654321' }, $bibnum, $itemnumber); |
80 |
ModItem({ barcode => '987654321' }, $bibnum, $itemnumber); |
75 |
my $moditem = GetItem($itemnumber); |
81 |
my $moditem = GetItem($itemnumber); |
76 |
- |
|
|