Bugzilla – Attachment 69139 Details for
Bug 13937
Add a Z39.50 daemon that can inject item status MARC subfields
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 13937: Followup - pass through yaz switches and don't ignore case
Bug-13937-Followup---pass-through-yaz-switches-and.patch (text/plain), 1.60 KB, created by
Nick Clemens
on 2017-11-14 12:30:42 UTC
(
hide
)
Description:
Bug 13937: Followup - pass through yaz switches and don't ignore case
Filename:
MIME Type:
Creator:
Nick Clemens
Created:
2017-11-14 12:30:42 UTC
Size:
1.60 KB
patch
obsolete
>From 53462a4db0e495fb7c9b8d3e20b34720021122df Mon Sep 17 00:00:00 2001 >From: Nick Clemens <nick@bywatersolutions.com> >Date: Tue, 14 Nov 2017 12:29:52 +0000 >Subject: [PATCH] Bug 13937: Followup - pass through yaz switches and don't > ignore case > >--- > misc/z3950_responder.pl | 23 +++++++++++++++-------- > 1 file changed, 15 insertions(+), 8 deletions(-) > >diff --git a/misc/z3950_responder.pl b/misc/z3950_responder.pl >index e1056c5..2e63177 100755 >--- a/misc/z3950_responder.pl >+++ b/misc/z3950_responder.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use Carp; >-use Getopt::Long; >+use Getopt::Long qw(:config no_ignore_case); > use Pod::Usage; > > use C4::Context; >@@ -102,10 +102,17 @@ my @yaz_options; > > sub add_yaz_option { > my ( $opt_name, $opt_value ) = @_; >+ warn "name: $opt_name and value: $opt_value"; > > push @yaz_options, "-$opt_name", "$opt_value"; > } > >+sub pass_yaz_option { >+ my ( $opt_name ) = @_; >+ >+ push @yaz_options, "-$opt_name"; >+} >+ > GetOptions( > '-h|help' => \$help, > '--man' => \$man, >@@ -126,13 +133,13 @@ GetOptions( > 'C=s' => \&add_yaz_option, > 'm=s' => \&add_yaz_option, > 'w=s' => \&add_yaz_option, >- 'z' => \&add_yaz_option, >- 'K' => \&add_yaz_option, >- 'i' => \&add_yaz_option, >- 'D' => \&add_yaz_option, >- 'S' => \&add_yaz_option, >- 'T' => \&add_yaz_option, >- '1' => \&add_yaz_option >+ 'z' => \&pass_yaz_option, >+ 'K' => \&pass_yaz_option, >+ 'i' => \&pass_yaz_option, >+ 'D' => \&pass_yaz_option, >+ 'S' => \&pass_yaz_option, >+ 'T' => \&pass_yaz_option, >+ '1' => \&pass_yaz_option > ) || pod2usage(2); > > pod2usage(1) if $help; >-- >2.1.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 13937
:
46369
|
47417
|
47418
|
47419
|
53503
|
58122
|
58125
|
58126
|
59443
|
59444
|
60735
|
60736
|
60737
|
60738
|
66943
|
66944
|
66945
|
66946
| 69139