insert reader idetification
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 14 Apr 2014 13:06:21 +0000 (15:06 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 14 Apr 2014 13:06:21 +0000 (15:06 +0200)
scripts/RFID-JSONP-server.pl

index 974a316..76aa261 100755 (executable)
@@ -135,6 +135,7 @@ sub http_server {
                                foreach my $tag ( @tags ) {
                                        my $hash = $rfid->to_hash( $tag );
                                        $hash->{sid}  = $tag;
+                                       $hash->{reader} = $rfid->from_reader( $tag );
                                        if ( $hash->{tag_type} eq 'SmartX' ) {
                                                my $borrower = rfid_borrower $hash;
                                                if ( exists $borrower->{error} ) {