Lines 114-120
BEGIN {
Link Here
|
114 |
&AddMember |
114 |
&AddMember |
115 |
&AddMember_Opac |
115 |
&AddMember_Opac |
116 |
&MoveMemberToDeleted |
116 |
&MoveMemberToDeleted |
117 |
&ExtendMemberSubscriptionTo |
|
|
118 |
); |
117 |
); |
119 |
|
118 |
|
120 |
#Check data |
119 |
#Check data |
Lines 1578-1616
sub HandleDelBorrower {
Link Here
|
1578 |
#Koha::Virtualshelf->new->delete too. |
1577 |
#Koha::Virtualshelf->new->delete too. |
1579 |
} |
1578 |
} |
1580 |
|
1579 |
|
1581 |
=head2 ExtendMemberSubscriptionTo (OUEST-PROVENCE) |
|
|
1582 |
|
1583 |
$date = ExtendMemberSubscriptionTo($borrowerid, $date); |
1584 |
|
1585 |
Extending the subscription to a given date or to the expiry date calculated on ISO date. |
1586 |
Returns ISO date. |
1587 |
|
1588 |
=cut |
1589 |
|
1590 |
sub ExtendMemberSubscriptionTo { |
1591 |
my ( $borrowerid,$date) = @_; |
1592 |
my $dbh = C4::Context->dbh; |
1593 |
my $borrower = GetMember('borrowernumber'=>$borrowerid); |
1594 |
unless ($date){ |
1595 |
$date = (C4::Context->preference('BorrowerRenewalPeriodBase') eq 'dateexpiry') ? |
1596 |
eval { output_pref( { dt => dt_from_string( $borrower->{'dateexpiry'} ), dateonly => 1, dateformat => 'iso' } ); } |
1597 |
: |
1598 |
output_pref( { dt => dt_from_string, dateonly => 1, dateformat => 'iso' } ); |
1599 |
$date = Koha::Patron::Categories->find( $borrower->{categorycode} )->get_expiry_date( $date ); |
1600 |
} |
1601 |
my $sth = $dbh->do(<<EOF); |
1602 |
UPDATE borrowers |
1603 |
SET dateexpiry='$date' |
1604 |
WHERE borrowernumber='$borrowerid' |
1605 |
EOF |
1606 |
|
1607 |
AddEnrolmentFeeIfNeeded( $borrower->{categorycode}, $borrower->{borrowernumber} ); |
1608 |
|
1609 |
logaction("MEMBERS", "RENEW", $borrower->{'borrowernumber'}, "Membership renewed")if C4::Context->preference("BorrowersLog"); |
1610 |
return $date if ($sth); |
1611 |
return 0; |
1612 |
} |
1613 |
|
1614 |
=head2 GetTitles (OUEST-PROVENCE) |
1580 |
=head2 GetTitles (OUEST-PROVENCE) |
1615 |
|
1581 |
|
1616 |
($borrowertitle)= &GetTitles(); |
1582 |
($borrowertitle)= &GetTitles(); |