Lines 265-272
returns the number of rows affected
Link Here
|
265 |
sub AddItem2Serial { |
265 |
sub AddItem2Serial { |
266 |
my ( $serialid, $itemnumber ) = @_; |
266 |
my ( $serialid, $itemnumber ) = @_; |
267 |
my $dbh = C4::Context->dbh; |
267 |
my $dbh = C4::Context->dbh; |
268 |
my $rq = $dbh->prepare("INSERT INTO `serialitems` SET serialid=? , itemnumber=?"); |
268 |
|
269 |
$rq->execute( $serialid, $itemnumber ); |
269 |
$dbh->do( 'UPDATE serial SET itemnumber = ? WHERE serialid = ?', undef, $itemnumber, $serialid ); |
|
|
270 |
|
271 |
my $rq = $dbh->prepare("INSERT INTO serialitems ( itemnumber, serialid ) VALUES ( ?, ? )"); |
272 |
$rq->execute( $itemnumber, $serialid ); |
270 |
return $rq->rows; |
273 |
return $rq->rows; |
271 |
} |
274 |
} |
272 |
|
275 |
|
273 |
- |
|
|