|
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(); |