use C4::Koha;
use C4::Letters;
use C4::Biblio;
-use C4::Reserves;
use C4::Branch; # GetBranchName
use C4::Overdues qw/CheckBorrowerDebarred/;
use C4::Form::MessagingPreferences;
#start the page and read in includes
my $data = GetMember( 'borrowernumber' => $borrowernumber );
-my $reregistration = $input->param('reregistration');
if ( not defined $data ) {
$template->param (unknowuser => 1);
exit;
}
-# re-reregistration function to automatic calcul of date expiry
-if ( $reregistration eq 'y' ) {
- $data->{'dateexpiry'} = ExtendMemberSubscriptionTo( $borrowernumber );
-}
-
my $category_type = $data->{'category_type'};
### $category_type
borrowernumber => $borrowernumber,
othernames => $data->{'othernames'},
categoryname => $data->{'description'},
- reregistration => $reregistration,
+ was_renewed => $input->param('was_renewed') ? 1 : 0,
branch => $branch,
todaysdate => C4::Dates->today(),
totalprice => sprintf("%.2f", $totalprice),