|
Lines 3542-3548
sub SendCirculationAlert {
Link Here
|
| 3542 |
} |
3542 |
} |
| 3543 |
) or next; |
3543 |
) or next; |
| 3544 |
|
3544 |
|
| 3545 |
$schema->storage->txn_begin; |
|
|
| 3546 |
C4::Context->dbh->do(q|LOCK TABLE message_queue READ|) unless $do_not_lock; |
3545 |
C4::Context->dbh->do(q|LOCK TABLE message_queue READ|) unless $do_not_lock; |
| 3547 |
C4::Context->dbh->do(q|LOCK TABLE message_queue WRITE|) unless $do_not_lock; |
3546 |
C4::Context->dbh->do(q|LOCK TABLE message_queue WRITE|) unless $do_not_lock; |
| 3548 |
my $message = C4::Message->find_last_message($borrower, $type, $mtt); |
3547 |
my $message = C4::Message->find_last_message($borrower, $type, $mtt); |
|
Lines 3554-3560
sub SendCirculationAlert {
Link Here
|
| 3554 |
$message->update; |
3553 |
$message->update; |
| 3555 |
} |
3554 |
} |
| 3556 |
C4::Context->dbh->do(q|UNLOCK TABLES|) unless $do_not_lock; |
3555 |
C4::Context->dbh->do(q|UNLOCK TABLES|) unless $do_not_lock; |
| 3557 |
$schema->storage->txn_commit; |
|
|
| 3558 |
} |
3556 |
} |
| 3559 |
|
3557 |
|
| 3560 |
return; |
3558 |
return; |
| 3561 |
- |
|
|