Attachment #91364 for bug #21824

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

Lines 54-60 sub do_hold { Link Here

(-)a/C4/SIP/ILS/Transaction/Hold.pm (-1 / +1 lines)
54	$self->ok(0);	54	$self->ok(0);
55	return $self;	55	return $self;
56	}	56	}
57	my $branch = ( $self->pickup_location \|\| $self->{patron}->branchcode );	57	my $branch = ( $self->pickup_location \|\| $self->{patron}->{branchcode} );
58	unless ($branch) {	58	unless ($branch) {
59	$self->screen_msg('No branch specified (or found w/ patron).');	59	$self->screen_msg('No branch specified (or found w/ patron).');
60	$self->ok(0);	60	$self->ok(0);




my $fee_amount;
my $fee_identifier;
my $transaction_id;
my $pickup_location;

my $terminator = q{};



    "s|summary=s" => \$summary,

    "fee-type=s"        => \$fee_type,
    "payment-type=s"    => \$payment_type,
    "currency-type=s"   => \$currency_type,
    "fee-amount=s"      => \$fee_amount,
    "fee-identifier=s"  => \$fee_identifier,
    "transaction-id=s"  => \$transaction_id,
    "pickup-location=s" => \$pickup_location,

    "t|terminator=s" => \$terminator,


            hold_mode           => '+',
            transaction_date    => $transaction_date,
            expiration_date     => undef,
            pickup_location     => $pickup_location,
            hold_type           => undef,
            institution_id      => $location_code,
            patron_identifier   => $patron_identifier,

  --fee-amount      Fee amount for Fee Paid message, required
  --fee-identifier  Fee identifier for Fee Paid message, optional
  --transaction-id  Transaction id for Fee Paid message, optional
  --pickup-location Pickup location (branchcode) for Hold message, optional

  -m --message     SIP2 message to execute

- 

Return to bug 21824

Lines 52-57 my $currency_type; Link Here

(-)a/misc/sip_cli_emulator.pl (-8 / +10 lines)
52	my $fee_amount;	52	my $fee_amount;
53	my $fee_identifier;	53	my $fee_identifier;
54	my $transaction_id;	54	my $transaction_id;
		55	my $pickup_location;
55		56
56	my $terminator = q{};	57	my $terminator = q{};
57		58
Lines 73-84 GetOptions( Link Here
73		74
74	"s\|summary=s" => \$summary,	75	"s\|summary=s" => \$summary,
75		76
76	"fee-type=s" => \$fee_type,	77	"fee-type=s" => \$fee_type,
77	"payment-type=s" => \$payment_type,	78	"payment-type=s" => \$payment_type,
78	"currency-type=s" => \$currency_type,	79	"currency-type=s" => \$currency_type,
79	"fee-amount=s" => \$fee_amount,	80	"fee-amount=s" => \$fee_amount,
80	"fee-identifier=s" => \$fee_identifier,	81	"fee-identifier=s" => \$fee_identifier,
81	"transaction-id=s" => \$transaction_id,	82	"transaction-id=s" => \$transaction_id,
		83	"pickup-location=s" => \$pickup_location,
82		84
83	"t\|terminator=s" => \$terminator,	85	"t\|terminator=s" => \$terminator,
84		86
Lines 265-271 my $handlers = { Link Here
265	hold_mode => '+',	267	hold_mode => '+',
266	transaction_date => $transaction_date,	268	transaction_date => $transaction_date,
267	expiration_date => undef,	269	expiration_date => undef,
268	pickup_location => undef,	270	pickup_location => $pickup_location,
269	hold_type => undef,	271	hold_type => undef,
270	institution_id => $location_code,	272	institution_id => $location_code,
271	patron_identifier => $patron_identifier,	273	patron_identifier => $patron_identifier,
Lines 636-641 Options: Link Here
636	--fee-amount Fee amount for Fee Paid message, required	638	--fee-amount Fee amount for Fee Paid message, required
637	--fee-identifier Fee identifier for Fee Paid message, optional	639	--fee-identifier Fee identifier for Fee Paid message, optional
638	--transaction-id Transaction id for Fee Paid message, optional	640	--transaction-id Transaction id for Fee Paid message, optional
		641	--pickup-location Pickup location (branchcode) for Hold message, optional
639		642
640	-m --message SIP2 message to execute	643	-m --message SIP2 message to execute
641		644
642	-