$template->param( sms_providers => \@providers );
}
-my $guarantorid = $input->param('guarantorid');
my $actionType = $input->param('actionType') || '';
my $modify = $input->param('modify');
my $delete = $input->param('delete');
# isn't a duplicate. Marking FIXME because this
# script needs to be refactored.
my $nok = $input->param('nok');
-my $guarantorinfo = $input->param('guarantorinfo');
my $step = $input->param('step') || 0;
my @errors;
my $borrower_data;
my $NoUpdateLogin;
my $userenv = C4::Context->userenv;
+## Deal with guarantor stuff
+$template->param( relationships => scalar $patron->guarantor_relationships ) if $patron;
+
+my $guarantor_id = $input->param('guarantor_id');
+my $guarantor = undef;
+$guarantor = Koha::Patrons->find( $guarantor_id ) if $guarantor_id;
+$template->param( guarantor => $guarantor );
+
+my @delete_guarantor = $input->multi_param('delete_guarantor');
+foreach my $id ( @delete_guarantor ) {
+ my $r = Koha::Patron::Relationships->find( $id );
+ $r->delete() if $r;
+}
+
## Deal with debarments
$template->param(
debarments => scalar GetDebarments( { borrowernumber => $borrowernumber } ) );
my $check_BorrowerMandatoryField=C4::Context->preference("BorrowerMandatoryField");
my @field_check=split(/\|/,$check_BorrowerMandatoryField);
foreach (@field_check) {
- $template->param( "mandatory$_" => 1);
+ $template->param( "mandatory$_" => 1 );
}
# function to designate unwanted fields
my $check_BorrowerUnwantedField=C4::Context->preference("BorrowerUnwantedField");
@field_check=split(/\|/,$check_BorrowerUnwantedField);
foreach (@field_check) {
next unless m/\w/o;
- $template->param( "no$_" => 1);
+ $template->param( "no$_" => 1 );
}
$template->param( "add" => 1 ) if ( $op eq 'add' );
$template->param( "quickadd" => 1 ) if ( $quickadd );
$template->param( "duplicate" => 1 ) if ( $op eq 'duplicate' );
$template->param( "checked" => 1 ) if ( defined($nodouble) && $nodouble eq 1 );
if ( $op eq 'modify' or $op eq 'save' or $op eq 'duplicate' ) {
- my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
+ my $logged_in_user = Koha::Patrons->find( $loggedinuser );
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
$borrower_data = $patron->unblessed;
qr/^add_debarment$/, qr/^debarred_expiration$/, qr/^remove_debarment$/, # We already dealt with debarments previously
qr/^housebound_chooser$/, qr/^housebound_deliverer$/,
qr/^select_city$/,
+ qr/^new_guarantor_/,
+ qr/^guarantor_firstname$/,
+ qr/^guarantor_surname$/,
+ qr/^delete_guarantor$/,
);
for my $regexp (@keys_to_delete) {
for (keys %newdata) {
if ( $patrons->count > 0) {
$nodouble = 0;
$check_member = $patrons->next->borrowernumber;
- }
-}
- #recover all data from guarantor address phone ,fax...
-if ( $guarantorid ) {
- if (my $guarantor = Koha::Patrons->find( $guarantorid )) {
- my $guarantordata = $guarantor->unblessed;
- $category_type = $guarantordata->{categorycode} eq 'I' ? 'P' : 'C';
- $guarantorinfo=$guarantordata->{'surname'}." , ".$guarantordata->{'firstname'};
- $newdata{'contactfirstname'}= $guarantordata->{'firstname'};
- $newdata{'contactname'} = $guarantordata->{'surname'};
- $newdata{'contacttitle'} = $guarantordata->{'title'};
- if ( $op eq 'add' ) {
- foreach (qw(streetnumber address streettype address2
- zipcode country city state phone phonepro mobile fax email emailpro branchcode
- B_streetnumber B_streettype B_address B_address2
- B_city B_state B_zipcode B_country B_email B_phone)) {
- $newdata{$_} = $guarantordata->{$_};
- }
+
+ my @new_guarantors;
+ my @new_guarantor_id = $input->multi_param('new_guarantor_id');
+ my @new_guarantor_relationship = $input->multi_param('new_guarantor_relationship');
+ foreach my $gid ( @new_guarantor_id ) {
+ my $patron = Koha::Patrons->find( $gid );
+ my $relationship = shift( @new_guarantor_relationship );
+ next unless $patron;
+ my $g = { patron => $patron, relationship => $relationship };
+ push( @new_guarantors, $g );
}
+ $template->param( new_guarantors => \@new_guarantors );
}
}
}
}
- if($newdata{surname} && C4::Context->preference('uppercasesurnames')) {
- $newdata{'surname'} = uc($newdata{'surname'});
- }
-
if (C4::Context->preference("IndependentBranches")) {
unless ( C4::Context->IsSuperLibrarian() ){
$debug and print STDERR " $newdata{'branchcode'} : ".$userenv->{flags}.":".$userenv->{branch};
# Lot of code will need to be removed from this script to handle exceptions raised by Koha::Patron->store
warn "Patron creation failed! - $@"; # Maybe we must die instead of just warn
} else {
+ add_guarantors( $patron, $input );
$borrowernumber = $patron->borrowernumber;
$newdata{'borrowernumber'} = $borrowernumber;
}
$patron->set_password({ password => $password });
}
+ add_guarantors( $patron, $input );
if (C4::Context->preference('ExtendedPatronAttributes') and $input->param('setting_extended_patron_attributes')) {
C4::Members::Attributes::SetBorrowerAttributes($borrowernumber, $extended_patron_attributes);
}
'categoryloop' => \@categoryloop
};
}
-
-$template->param('typeloop' => \@typeloop,
- no_categories => $no_categories);
-if($no_categories){ $no_add = 1; }
-
+$template->param(
+ typeloop => \@typeloop,
+ no_categories => $no_categories,
+);
my $cities = Koha::Cities->search( {}, { order_by => 'city_name' } );
my $roadtypes = C4::Koha::GetAuthorisedValues( 'ROADTYPE' );
push(@relshipdata, \%row);
}
-my %flags = ( 'gonenoaddress' => ['gonenoaddress' ],
- 'lost' => ['lost']);
+my %flags = (
+ 'gonenoaddress' => ['gonenoaddress'],
+ 'lost' => ['lost']
+);
-
my @flagdata;
-foreach (keys(%flags)) {
- my $key = $_;
- my %row = ('key' => $key,
- 'name' => $flags{$key}[0]);
- if ($data{$key}) {
- $row{'yes'}=' checked';
- $row{'no'}='';
+foreach ( keys(%flags) ) {
+ my $key = $_;
+ my %row = (
+ 'key' => $key,
+ 'name' => $flags{$key}[0]
+ );
+ if ( $data{$key} ) {
+ $row{'yes'} = ' checked';
+ $row{'no'} = '';
}
- else {
- $row{'yes'}='';
- $row{'no'}=' checked';
- }
- push @flagdata,\%row;
+ else {
+ $row{'yes'} = '';
+ $row{'no'} = ' checked';
+ }
+ push @flagdata, \%row;
}
# get Branch Loop
$template->param(TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"));
}
-$template->param( "showguarantor" => ($category_type=~/A|I|S|X/) ? 0 : 1); # associate with step to know where you are
+$template->param( "show_guarantor" => ( $category_type =~ /A|I|S|X/ ) ? 0 : 1 ); # associate with step to know where you are
$debug and warn "memberentry step: $step";
$template->param(%data);
$template->param( "step_$step" => 1) if $step; # associate with step to know where u are
check_member => $check_member,#to know if the borrower already exist(=>1) or not (=>0)
"op$op" => 1);
-$guarantorid = $borrower_data->{'guarantorid'} || $guarantorid;
-my $guarantor = $guarantorid ? Koha::Patrons->find( $guarantorid ) : undef;
$template->param(
patron => $patron ? $patron : \%newdata, # Used by address include templates now
nodouble => $nodouble,
borrowernumber => $borrowernumber, #register number
- guarantor => $guarantor,
- guarantorid => $guarantorid,
relshiploop => \@relshipdata,
btitle=> $default_borrowertitle,
- guarantorinfo => $guarantorinfo,
flagloop => \@flagdata,
category_type =>$category_type,
modify => $modify,
# HouseboundModule data
$template->param(
- housebound_role => scalar Koha::Patron::HouseboundRoles->find($borrowernumber),
+ housebound_role => Koha::Patron::HouseboundRoles->find($borrowernumber),
);
if(defined($data{'flags'})){
}
+sub add_guarantors {
+ my ( $patron, $input ) = @_;
+
+ my @new_guarantor_id = $input->multi_param('new_guarantor_id');
+ my @new_guarantor_relationship = $input->multi_param('new_guarantor_relationship');
+
+ for ( my $i = 0 ; $i < scalar @new_guarantor_id; $i++ ) {
+ my $guarantor_id = $new_guarantor_id[$i];
+ my $relationship = $new_guarantor_relationship[$i];
+
+ next unless $guarantor_id;
+
+ $patron->add_guarantor(
+ {
+ guarantor_id => $guarantor_id,
+ relationship => $relationship,
+ }
+ );
+ }
+}
+
# Local Variables:
# tab-width: 8
# End: