gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Alter itemBarcodeInputFilter T-Prefix. 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Ryan Higgins 2008-05-10 14:03:48 -05:00 committed by Joshua Ferraro
parent 92ca50980f
commit bd30b60a8a
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
C4/Circulation.pm
View File

@ -106,21 +106,26 @@ Also deals with stocktaking.
=head1 FUNCTIONS
=head2 decode
=head2 barcodedecode
=head3 $str = &decode($chunk);
=head3 $str = &barcodedecode($barcode);
=over 4
=item Generic filter function for barcode string.
Called on every circ if the System Pref itemBarcodeInputFilter is set.
Will do some manipulation of the barcode for systems that deliver a barcode
to circulation.pl that differs from the barcode stored for the item.
For proper functioning of this filter, calling the function on the
correct barcode string (items.barcode) should return an unaltered barcode.
=back
=cut
# FIXME From Paul : i don't understand what this sub does & why it has to be called on every circ. Speak of this with chris maybe ?
# FIXME -- the &decode fcn below should be wrapped into this one.
# FIXME -- these plugins should be moved out of Circulation.pm
#
sub barcodedecode {
my ($barcode) = @_;
my $filter = C4::Context->preference('itemBarcodeInputFilter');
@ -138,8 +143,14 @@ sub barcodedecode {
return $barcode;
}
} elsif($filter eq 'T-prefix') {
my $num = ( $barcode =~ /^[Tt] /) ? substr($barcode,2) + 0 : $barcode;
return sprintf( "T%07d",$num);
if ( $barcode =~ /^[Tt]/) {
if (substr($barcode,1,1) eq '0') {
return $barcode;
} else {
$barcode = substr($barcode,2) + 0 ;
}
}
return sprintf( "T%07d",$barcode);
}
}