@@ -, +, @@ C4::Members::UpdateGuarantees subroutine 668 my $borrowercategory= GetBorrowercategory( 669 if ( exists $borrowercategory->{'category_type'} && 670 # is adult check guarantees; 671 UpdateGuarantees(%data); 672 } 989 sub UpdateGuarantees { 990 my %data = shift; modularizing (with Members.pm) members management (beginning of...) --- C4/Members.pm | 33 --------------------------------- 1 file changed, 33 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -662,15 +662,6 @@ sub ModMember { }); my $execute_success = $rs->update($new_borrower); if ($execute_success ne '0E0') { # only proceed if the update was a success - # ok if its an adult (type) it may have borrowers that depend on it as a guarantor - # so when we update information for an adult we should check for guarantees and update the relevant part - # of their records, ie addresses and phone numbers - my $borrowercategory= GetBorrowercategory( $data{'category_type'} ); - if ( exists $borrowercategory->{'category_type'} && $borrowercategory->{'category_type'} eq ('A' || 'S') ) { - # is adult check guarantees; - UpdateGuarantees(%data); - } - # If the patron changes to a category with enrollment fee, we add a fee if ( $data{categorycode} and $data{categorycode} ne $old_categorycode ) { if ( C4::Context->preference('FeeOnChangePatronCategory') ) { @@ -975,30 +966,6 @@ sub GetGuarantees { return ( scalar(@$data), $data ); } -=head2 UpdateGuarantees - - &UpdateGuarantees($parent_borrno); - - -C<&UpdateGuarantees> borrower data for an adult and updates all the guarantees -with the modified information - -=cut - -#' -sub UpdateGuarantees { - my %data = shift; - my $dbh = C4::Context->dbh; - my ( $count, $guarantees ) = GetGuarantees( $data{'borrowernumber'} ); - foreach my $guarantee (@$guarantees){ - my $guaquery = qq|UPDATE borrowers - SET address=?,fax=?,B_city=?,mobile=?,city=?,phone=? - WHERE borrowernumber=? - |; - my $sth = $dbh->prepare($guaquery); - $sth->execute($data{'address'},$data{'fax'},$data{'B_city'},$data{'mobile'},$data{'city'},$data{'phone'},$guarantee->{'borrowernumber'}); - } -} =head2 GetPendingIssues my $issues = &GetPendingIssues(@borrowernumber); --