Lines 116-122
BEGIN {
Link Here
|
116 |
&AddMember |
116 |
&AddMember |
117 |
&AddMember_Opac |
117 |
&AddMember_Opac |
118 |
&MoveMemberToDeleted |
118 |
&MoveMemberToDeleted |
119 |
&ExtendMemberSubscriptionTo |
|
|
120 |
); |
119 |
); |
121 |
|
120 |
|
122 |
#Check data |
121 |
#Check data |
Lines 1682-1720
sub HandleDelBorrower {
Link Here
|
1682 |
#Koha::Virtualshelf->new->delete too. |
1681 |
#Koha::Virtualshelf->new->delete too. |
1683 |
} |
1682 |
} |
1684 |
|
1683 |
|
1685 |
=head2 ExtendMemberSubscriptionTo (OUEST-PROVENCE) |
|
|
1686 |
|
1687 |
$date = ExtendMemberSubscriptionTo($borrowerid, $date); |
1688 |
|
1689 |
Extending the subscription to a given date or to the expiry date calculated on ISO date. |
1690 |
Returns ISO date. |
1691 |
|
1692 |
=cut |
1693 |
|
1694 |
sub ExtendMemberSubscriptionTo { |
1695 |
my ( $borrowerid,$date) = @_; |
1696 |
my $dbh = C4::Context->dbh; |
1697 |
my $borrower = GetMember('borrowernumber'=>$borrowerid); |
1698 |
unless ($date){ |
1699 |
$date = (C4::Context->preference('BorrowerRenewalPeriodBase') eq 'dateexpiry') ? |
1700 |
eval { output_pref( { dt => dt_from_string( $borrower->{'dateexpiry'} ), dateonly => 1, dateformat => 'iso' } ); } |
1701 |
: |
1702 |
output_pref( { dt => dt_from_string, dateonly => 1, dateformat => 'iso' } ); |
1703 |
$date = Koha::Patron::Categories->find( $borrower->{categorycode} )->get_expiry_date( $date ); |
1704 |
} |
1705 |
my $sth = $dbh->do(<<EOF); |
1706 |
UPDATE borrowers |
1707 |
SET dateexpiry='$date' |
1708 |
WHERE borrowernumber='$borrowerid' |
1709 |
EOF |
1710 |
|
1711 |
AddEnrolmentFeeIfNeeded( $borrower->{categorycode}, $borrower->{borrowernumber} ); |
1712 |
|
1713 |
logaction("MEMBERS", "RENEW", $borrower->{'borrowernumber'}, "Membership renewed")if C4::Context->preference("BorrowersLog"); |
1714 |
return $date if ($sth); |
1715 |
return 0; |
1716 |
} |
1717 |
|
1718 |
=head2 GetTitles (OUEST-PROVENCE) |
1684 |
=head2 GetTitles (OUEST-PROVENCE) |
1719 |
|
1685 |
|
1720 |
($borrowertitle)= &GetTitles(); |
1686 |
($borrowertitle)= &GetTitles(); |