View | Details | Raw Unified | Return to bug 9252
Collapse All | Expand All

(-)a/C4/SIP/Sip/Configuration/Account.pm (+5 lines)
Lines 37-40 sub password { Link Here
37
    return $self->{password};
37
    return $self->{password};
38
}
38
}
39
39
40
sub send_patron_home_library_in_af {
41
    my $self = shift;
42
    return $self->{send_patron_home_library_in_af};
43
}
44
40
1;
45
1;
(-)a/C4/SIP/Sip/MsgType.pm (-2 / +4 lines)
Lines 431-437 sub handle { Link Here
431
# information will be returned to the terminal.
431
# information will be returned to the terminal.
432
# 
432
# 
433
sub build_patron_status {
433
sub build_patron_status {
434
    my ($patron, $lang, $fields)= @_;
434
    my ($patron, $lang, $fields, $server)= @_;
435
435
    my $patron_pwd = $fields->{(FID_PATRON_PWD)};
436
    my $patron_pwd = $fields->{(FID_PATRON_PWD)};
436
    my $resp = (PATRON_STATUS_RESP);
437
    my $resp = (PATRON_STATUS_RESP);
437
438
Lines 452-457 sub build_patron_status { Link Here
452
	}
453
	}
453
454
454
	$resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg);
455
	$resp .= maybe_add(FID_SCREEN_MSG, $patron->screen_msg);
456
	$resp .= maybe_add(FID_SCREEN_MSG, $patron->{branchcode}) if ( $server->{account}->{send_patron_home_library_in_af} );
455
	$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line);
457
	$resp .= maybe_add(FID_PRINT_LINE, $patron->print_line);
456
    } else {
458
    } else {
457
	# Invalid patron id.  Report that the user has no privs.,
459
	# Invalid patron id.  Report that the user has no privs.,
Lines 485-491 sub handle_patron_status { Link Here
485
	#warn $fields->{(FID_INST_ID)};
487
	#warn $fields->{(FID_INST_ID)};
486
    $ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status");
488
    $ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_patron_status");
487
    $patron = $ils->find_patron($fields->{(FID_PATRON_ID)});
489
    $patron = $ils->find_patron($fields->{(FID_PATRON_ID)});
488
    $resp = build_patron_status($patron, $lang, $fields);
490
    $resp = build_patron_status($patron, $lang, $fields, $server );
489
    $self->write_msg($resp);
491
    $self->write_msg($resp);
490
    return (PATRON_STATUS_REQ);
492
    return (PATRON_STATUS_REQ);
491
}
493
}
(-)a/etc/SIPconfig.xml (-2 / +2 lines)
Lines 41-47 Link Here
41
      <login id="koha2"  password="koha" institution="kohalibrary2" />
41
      <login id="koha2"  password="koha" institution="kohalibrary2" />
42
      <login id="lpl-sc" password="1234" institution="LPL" />
42
      <login id="lpl-sc" password="1234" institution="LPL" />
43
      <login id="lpl-sc-beacock" password="xyzzy"
43
      <login id="lpl-sc-beacock" password="xyzzy"
44
             delimiter="|" error-detect="enabled" institution="LPL" />
44
             delimiter="|" error-detect="enabled" institution="LPL"
45
             send_patron_home_library_in_af="1" />
45
  </accounts>
46
  </accounts>
46
47
47
<!--
48
<!--
48
- 

Return to bug 9252