Attachment #115177 for bug #26351

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

Lines 642-649 sub GetServices { Link Here

(-)a/C4/ILSDI/Services.pm (-2 / +1 lines)
642		642
643	# Issuing management	643	# Issuing management
644	my $barcode = $item->barcode \|\| '';	644	my $barcode = $item->barcode \|\| '';
645	$barcode = barcodedecode($barcode) if ( $barcode && C4::Context->preference('itemBarcodeInputFilter') );	645	$barcode = barcodedecode($barcode) if $barcode;
646	($barcode) = Koha::Plugins->call('item_barcode_transform', $barcode ) \|\| $barcode;
647	if ($barcode) {	646	if ($barcode) {
648	my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $barcode );	647	my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $barcode );
649		648

Lines 89-96 sub store { Link Here

(-)a/Koha/Item.pm (-2 / +1 lines)
89	$self->itype($self->biblio->biblioitem->itemtype);	89	$self->itype($self->biblio->biblioitem->itemtype);
90	}	90	}
91		91
92	my ($transformed_barcode) = Koha::Plugins->call( 'item_barcode_transform', $self->barcode ) \|\| $self->barcode;	92	$self->barcode( barcodedecode( $self->barcode ) );
93	$self->barcode($transformed_barcode);
94		93
95	my $today = dt_from_string;	94	my $today = dt_from_string;
96	my $action = 'create';	95	my $action = 'create';

Lines 517-524 if ($op eq "additem") { Link Here

(-)a/cataloguing/additem.pl (-2 / +1 lines)
517		517
518	my $addedolditem = TransformMarcToKoha( $record );	518	my $addedolditem = TransformMarcToKoha( $record );
519		519
520	my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $addedolditem->{'barcode'} ) \|\| $addedolditem->{'barcode'};	520	$addedolditem->{barcode} = barcodedecode( $addedolditem->{barcode} );
521	$addedolditem->{'barcode'} = $new_barcode;
522		521
523	# If we have to add or add & duplicate, we add the item	522	# If we have to add or add & duplicate, we add the item
524	if ( $add_submit \|\| $add_duplicate_submit ) {	523	if ( $add_submit \|\| $add_duplicate_submit ) {

Lines 164-172 if (C4::Context->preference("DisplayClearScreenButton")) { Link Here

(-)a/circ/circulation.pl (-3 / +1 lines)
164		164
165	for my $barcode ( @$barcodes ) {	165	for my $barcode ( @$barcodes ) {
166	$barcode =~ s/^\s\|\s$//g; # remove leading/trailing whitespace	166	$barcode =~ s/^\s\|\s$//g; # remove leading/trailing whitespace
167	$barcode = barcodedecode($barcode)	167	$barcode = barcodedecode( $barcode ) if $barcode;
168	if( $barcode && C4::Context->preference('itemBarcodeInputFilter'));
169	( $barcode ) = Koha::Plugins->call( 'item_barcode_transform', $barcode ) \|\| $barcode;
170	}	168	}
171		169
172	my $stickyduedate = $query->param('stickyduedate') \|\| $session->param('stickyduedate');	170	my $stickyduedate = $query->param('stickyduedate') \|\| $session->param('stickyduedate');





    # decode barcode    ## Didn't we already decode them before passing them back last time??
    $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace
    $barcode = barcodedecode($barcode) if $barcode;
    $barcode = barcodedecode($barcode) if(C4::Context->preference('itemBarcodeInputFilter'));

    ######################
    #Are these lines still useful ?

my $returnbranch;
if ($barcode) {
    $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace
    $barcode = barcodedecode($barcode) if $barcode;
    $barcode = barcodedecode($barcode) if C4::Context->preference('itemBarcodeInputFilter');
    my $item = Koha::Items->find({ barcode => $barcode });

    if ( $item ) {




sub kocIssueItem {
    my $circ = shift;

    $circ->{barcode} = barcodedecode( $circ->{barcode} ) if $circ->{barcode};

    my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $circ->{barcode} ) || $circ->{barcode};
    $circ->{barcode} = $new_barcode;

    my $branchcode = C4::Context->userenv->{branch};
    my $patron = Koha::Patrons->find( { cardnumber => $circ->{cardnumber} } );


sub kocReturnItem {
    my ( $circ ) = @_;
    $circ->{'barcode'} = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter'));

    $circ->{barcode} = barcodedecode( $circ->{barcode} ) if $circ->{barcode};
    $circ->{barcode} = $new_barcode;

    my $item = Koha::Items->find({ barcode => $circ->{barcode} });
    my $biblio = $item->biblio;

Lines 110-116 my ($op, $patronid, $patronlogin, $patronpw, $barcode, $confirmed, $newissues) = Link Here

(-)a/opac/sco/sco-main.pl (-1 / +1 lines)
110	$query->param("newissues") \|\| '',	110	$query->param("newissues") \|\| '',
111	);	111	);
112		112
113	( $barcode ) = Koha::Plugins->call( 'item_barcode_transform', $barcode ) \|\| $barcode;	113	$barcode = barcodedecode( $barcode ) if $barcode;
114		114
115	my @newissueslist = split /,/, $newissues;	115	my @newissueslist = split /,/, $newissues;
116	my $issuenoconfirm = 1; #don't need to confirm on issue.	116	my $issuenoconfirm = 1; #don't need to confirm on issue.

Lines 404-410 if ($op eq "show"){ Link Here

(-)a/tools/batchMod.pl (-1 / +1 lines)
404	my @barcodelist = grep /\S/, ( split /[$split_chars]/, $list );	404	my @barcodelist = grep /\S/, ( split /[$split_chars]/, $list );
405	@barcodelist = uniq @barcodelist;	405	@barcodelist = uniq @barcodelist;
406		406
407	@barcodelist = map { ( Koha::Plugins->call( 'item_barcode_transform', $_ ) )[0] \|\| $_ } @barcodelist;	407	@barcodelist = map { barcodedecode( $_ ) } @barcodelist;
408		408
409	# Note: adding lc for case insensitivity	409	# Note: adding lc for case insensitivity
410	my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => \@barcodelist }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed };	410	my %itemdata = map { lc($_->{barcode}) => $_->{itemnumber} } @{ Koha::Items->search({ barcode => \@barcodelist }, { columns => [ 'itemnumber', 'barcode' ] } )->unblessed };

Lines 183-189 if ( ($uploadbarcodes && length($uploadbarcodes) > 0) \|\| ($barcodelist && length Link Here

(-)a/tools/inventory.pl (-2 / +1 lines)
183	for my $barcode (@uploadedbarcodes) {	183	for my $barcode (@uploadedbarcodes) {
184	next unless $barcode;	184	next unless $barcode;
185		185
186	($barcode) = Koha::Plugins->call('item_barcode_transform', $barcode ) \|\| $barcode;	186	$barcode = barcodedecode($barcode);
187		187
188	++$lines_read;	188	++$lines_read;
189	if (length($barcode)>$barcode_size) {	189	if (length($barcode)>$barcode_size) {
190	-

Return to bug 26351

Lines 115-122 foreach ( $query->param ) { Link Here

(-)a/circ/returns.pl (-4 / +2 lines)
115		115
116	# decode barcode ## Didn't we already decode them before passing them back last time??	116	# decode barcode ## Didn't we already decode them before passing them back last time??
117	$barcode =~ s/^\s\|\s$//g; # remove leading/trailing whitespace	117	$barcode =~ s/^\s\|\s$//g; # remove leading/trailing whitespace
118	( $barcode ) = Koha::Plugins->call( 'item_barcode_transform', $barcode ) \|\| $barcode;	118	$barcode = barcodedecode($barcode) if $barcode;
119	$barcode = barcodedecode($barcode) if(C4::Context->preference('itemBarcodeInputFilter'));
120		119
121	######################	120	######################
122	#Are these lines still useful ?	121	#Are these lines still useful ?
Lines 245-252 if ($canceltransfer){ Link Here
245	my $returnbranch;	244	my $returnbranch;
246	if ($barcode) {	245	if ($barcode) {
247	$barcode =~ s/^\s\|\s$//g; # remove leading/trailing whitespace	246	$barcode =~ s/^\s\|\s$//g; # remove leading/trailing whitespace
248	( $barcode ) = Koha::Plugins->call( 'item_barcode_transform', $barcode ) \|\| $barcode;	247	$barcode = barcodedecode($barcode) if $barcode;
249	$barcode = barcodedecode($barcode) if C4::Context->preference('itemBarcodeInputFilter');
250	my $item = Koha::Items->find({ barcode => $barcode });	248	my $item = Koha::Items->find({ barcode => $barcode });
251		249
252	if ( $item ) {	250	if ( $item ) {

Lines 246-255 sub arguments_for_command { Link Here

(-)a/offline_circ/process_koc.pl (-7 / +2 lines)
246	sub kocIssueItem {	246	sub kocIssueItem {
247	my $circ = shift;	247	my $circ = shift;
248		248
249	$circ->{ 'barcode' } = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter'));	249	$circ->{barcode} = barcodedecode( $circ->{barcode} ) if $circ->{barcode};
250
251	my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $circ->{barcode} ) \|\| $circ->{barcode};
252	$circ->{barcode} = $new_barcode;
253		250
254	my $branchcode = C4::Context->userenv->{branch};	251	my $branchcode = C4::Context->userenv->{branch};
255	my $patron = Koha::Patrons->find( { cardnumber => $circ->{cardnumber} } );	252	my $patron = Koha::Patrons->find( { cardnumber => $circ->{cardnumber} } );
Lines 330-339 sub kocIssueItem { Link Here
330		327
331	sub kocReturnItem {	328	sub kocReturnItem {
332	my ( $circ ) = @_;	329	my ( $circ ) = @_;
333	$circ->{'barcode'} = barcodedecode($circ->{'barcode'}) if( $circ->{'barcode'} && C4::Context->preference('itemBarcodeInputFilter'));
334		330
335	my ( $new_barcode ) = Koha::Plugins->call( 'item_barcode_transform', $circ->{barcode} ) \|\| $circ->{barcode};	331	$circ->{barcode} = barcodedecode( $circ->{barcode} ) if $circ->{barcode};
336	$circ->{barcode} = $new_barcode;
337		332
338	my $item = Koha::Items->find({ barcode => $circ->{barcode} });	333	my $item = Koha::Items->find({ barcode => $circ->{barcode} });
339	my $biblio = $item->biblio;	334	my $biblio = $item->biblio;