write_afi added

diff --git a/lib/RFID/Biblio/CPRM02.pm b/lib/RFID/Biblio/CPRM02.pm
index 8222d03..c8abcf7 100644 (file)
--- a/lib/RFID/Biblio/CPRM02.pm
+++ b/lib/RFID/Biblio/CPRM02.pm
@@ -243,6 +243,19 @@ sub read_afi {
        return $info->{AFI} || die "no AFI for $tag in ",dump($info);
 
 }
-sub write_afi {}
+
+sub write_afi {
+       my $tag = shift;
+       $tag = shift if ref $tag;
+
+       my $afi = shift || die "no afi?";
+       $afi = as_hex $afi;
+
+       cpr( "FF  B0  27  01  $tag  $afi", "Write AFI $tag $afi", sub {
+               my $data = shift;
+               warn "## write_afi $tag got ",as_hex($data);
+       });
+
+}
 
 1