sort print queue before printing by cardnumber

[Biblio-RFID.git] / scripts / print.pl

diff --git a/scripts/print.pl b/scripts/print.pl
index cf76823..fbc82a2 100755 (executable)
--- a/scripts/print.pl
+++ b/scripts/print.pl
@@ -53,6 +53,9 @@ while(<>) {
        push @queue, [ @a ] if ! $numbers->{ $a[0] };
 }
 
+# sort by card number
+@queue = sort { $a->[0] <=> $b->[0] } @queue;
+
 print "# queue ", dump @queue;
 
 my $rfid = Biblio::RFID::Reader->new( $reader );