From 2fceb4da7a7f8f96d8f7d0e27734c7ef91403dd5 Mon Sep 17 00:00:00 2001 From: Michael Hafen Date: Tue, 5 May 2009 15:01:09 -0600 Subject: [PATCH] Tweak offline_circ - honor itemBarcodeInputFilter and add to Makefile.PL Add the ofline_circ directory to Makefile.PL as needing to be installed. Add calls to barcodedecode() on issueing and returning. Signed-off-by: Galen Charlton --- Makefile.PL | 1 + offline_circ/process_koc.pl | 2 ++ 2 files changed, 3 insertions(+) diff --git a/Makefile.PL b/Makefile.PL index d388096779..d97a996cb5 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -250,6 +250,7 @@ my $target_map = { './changelanguage.pl' => 'INTRANET_CGI_DIR', './check_sysprefs.pl' => 'NONE', './circ' => 'INTRANET_CGI_DIR', + './offline_circ' => 'INTRANET_CGI_DIR', './edithelp.pl' => 'INTRANET_CGI_DIR', './etc' => { target => 'KOHA_CONF_DIR', trimdir => -1 }, './etc/zebradb' => { target => 'ZEBRA_CONF_DIR', trimdir => -1 }, diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl index 093d34ce43..87ae5c16e4 100755 --- a/offline_circ/process_koc.pl +++ b/offline_circ/process_koc.pl @@ -237,6 +237,7 @@ sub arguments_for_command { sub kocIssueItem { my $circ = shift; + $circ->{ 'barcode' } = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter')); my $branchcode = C4::Context->userenv->{branch}; my $borrower = GetMember( $circ->{ 'cardnumber' }, 'cardnumber' ); my $item = GetBiblioFromItemNumber( undef, $circ->{ 'barcode' } ); @@ -321,6 +322,7 @@ sub kocIssueItem { sub kocReturnItem { my ( $circ ) = @_; + $circ->{'barcode'} = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter')); my $item = GetBiblioFromItemNumber( undef, $circ->{ 'barcode' } ); #warn( Data::Dumper->Dump( [ $circ, $item ], [ qw( circ item ) ] ) ); my $borrowernumber = _get_borrowernumber_from_barcode( $circ->{'barcode'} ); -- 2.20.1