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