|
Lines 2816-2822
sub AddRenewal {
Link Here
|
| 2816 |
my $itemnumber = shift or return; |
2816 |
my $itemnumber = shift or return; |
| 2817 |
my $branch = shift; |
2817 |
my $branch = shift; |
| 2818 |
my $datedue = shift; |
2818 |
my $datedue = shift; |
| 2819 |
my $lastreneweddate = shift || DateTime->now(time_zone => C4::Context->tz)->ymd(); |
2819 |
my $lastreneweddate = shift || DateTime->now(time_zone => C4::Context->tz); |
| 2820 |
|
2820 |
|
| 2821 |
my $item = GetItem($itemnumber) or return; |
2821 |
my $item = GetItem($itemnumber) or return; |
| 2822 |
my $item_object = Koha::Items->find( $itemnumber ); # Should replace $item |
2822 |
my $item_object = Koha::Items->find( $itemnumber ); # Should replace $item |
| 2823 |
- |
|
|