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 |
- |
|
|