projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 9605: rotating collections permissions are wrong
[koha_fer]
/
members
/
moremember.pl
diff --git
a/members/moremember.pl
b/members/moremember.pl
index
4ccba00
..
e6f80dd
100755
(executable)
--- a/
members/moremember.pl
+++ b/
members/moremember.pl
@@
-47,7
+47,6
@@
use C4::Circulation;
use C4::Koha;
use C4::Letters;
use C4::Biblio;
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;
use C4::Branch; # GetBranchName
use C4::Overdues qw/CheckBorrowerDebarred/;
use C4::Form::MessagingPreferences;
@@
-119,7
+118,6
@@
my $borrowernumber = $input->param('borrowernumber');
#start the page and read in includes
my $data = GetMember( 'borrowernumber' => $borrowernumber );
#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);
if ( not defined $data ) {
$template->param (unknowuser => 1);
@@
-127,11
+125,6
@@
if ( not defined $data ) {
exit;
}
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
my $category_type = $data->{'category_type'};
### $category_type
@@
-413,7
+406,7
@@
$template->param(
borrowernumber => $borrowernumber,
othernames => $data->{'othernames'},
categoryname => $data->{'description'},
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),
branch => $branch,
todaysdate => C4::Dates->today(),
totalprice => sprintf("%.2f", $totalprice),