1 package RFID::Biblio::RFID501;
8 RFID::Biblio::RFID501 - RFID Standard for Libraries
12 This module tries to decode tag format as specified in document
14 RFID 501: RFID Standards for Libraries
16 However, document is lacking real specification, so tag decoding
17 was done to be compliant with 3M implementation
23 my $hash = RFID::Biblio::Decode::RFID501->to_hash( $bytes );
25 my $hash = RFID::Biblio::Decode::RFID501->to_hash( [ 'blk1', 'blk2', ... , 'blk7' ] );
33 13 => 'Book with Audio Tape',
34 9 => 'Book with CD/CD ROM',
40 8 => 'Book with Diskette',
45 my ( $self, $data ) = @_;
49 $data = join('', @$data) if ref $data eq 'ARRAY';
51 warn "## to_hash $data\n";
53 my ( $u1, $set_item, $u2, $type, $content, $br_lib, $custom ) = unpack('C4Z16Nl>',$data);
57 set => ( $set_item & 0xf0 ) >> 4,
58 total => ( $set_item & 0x0f ),
61 type_label => $item_type->{$type},
64 branch => $br_lib >> 20,
65 library => $br_lib & 0x000fffff,