- warn "PROGRAM $tag with $content\n";
- $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash($hash) );
- $rfid->write_afi( $tag => chr($afi) ) if $afi;
+ if ( $blank ) {
+warn dump( $blank );
+ my $type = ( grep { $blank->{$_} } keys %$blank )[0];
+ warn "BLANK $type $tag\n";
+ $rfid->write_blocks( $tag => Biblio::RFID::RFID501->$type );
+ } else {
+ warn "PROGRAM $tag with $content\n";
+ $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash($hash) );
+ $rfid->write_afi( $tag => chr($afi) ) if $afi;
+ }