-foreach my $rfid ( @rfid ) {
- my $visible = $rfid->scan;
- foreach my $tag ( keys %$visible ) {
- next unless $tag eq $sid;
- warn "PROGRAM $tag with $content\n";
- $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash({ content => $content }) );
- $rfid->write_afi( $tag => chr($afi) ) if $afi;
- }
+foreach my $tag ( $rfid->tags ) {
+ warn "visible $tag\n";
+ next unless $tag eq $sid;
+ warn "PROGRAM $tag with $content\n";
+ $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash({ content => $content }) );
+ $rfid->write_afi( $tag => chr($afi) ) if $afi;