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

        }

=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'});

    }

}

-