Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Modify an adult with guarantees now modifies the guarantees also.

IE change of address effects the guarantees record as well
  • Loading branch information...
commit 5374431f08d13b8f6d38b3206c06d750609f2dec 1 parent e21914e
rangi authored
Showing with 19 additions and 0 deletions.
  1. +19 −0
@@ -7,6 +7,7 @@
use CGI;
use C4::Database;
use C4::Input;
+use C4::Search;
use Date::Manip;
use strict;
@@ -60,6 +61,24 @@
+# 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
+if ($data{'categorycode'} eq 'A' || $data{'categorycode'} eq 'W'){
+ # is adult check guarantees;
+ my ($count,$guarantees)=findguarantees($data{'borrowernumber'});
+ for (my $i=0;$i<$count;$i++){
+ my $guaquery="update borrowers set streetaddress='$data{'address'}',faxnumber='$data{'faxnumber'}',
+ streetcity='$data{'streetcity'}',phoneday='$data{'phoneday'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}'
+ ,streetaddress='$data{'address'}'
+ where borrowernumber='$guarantees->[$i]->{'borrowernumber'}'";
+ my $sth3=$dbh->prepare($guaquery);
+ $sth3->execute;
+ $sth3->finish;
+ }
#print $query;
my $sth2=$dbh->prepare($query);
Please sign in to comment.
Something went wrong with that request. Please try again.