From 850e56526767cb1cfb9aa23883f5188afb620b57 Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Tue, 19 Aug 2008 06:07:11 +0000
Subject: [PATCH] handle main card inactive

---
 unicorn_patron_xml2text.pl |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/unicorn_patron_xml2text.pl b/unicorn_patron_xml2text.pl
index fcaaedf..4df8e75 100755
--- a/unicorn_patron_xml2text.pl
+++ b/unicorn_patron_xml2text.pl
@@ -110,10 +110,14 @@ for my $patron ( $doc->documentElement->childNodes ) {
 
     my $inactive_barcode1 = '';
     my $inactive_barcode2 = '';
+    my $userid_active = 't';
     my @barcodes = $patron->findnodes( "barcodes" );
     for my $i_bc ( $barcodes[0]->findnodes( "barcode" ) ) {
         my $active = $i_bc->getAttribute('active');
-        if ($active eq "0") {
+        if ($active eq "0" && $i_bc->textContent eq $bc) {
+            $userid_active = 'f';
+        }
+        if ($active eq "0" && $i_bc->textContent ne $bc) {
             if (! $inactive_barcode1 ) {
                 $inactive_barcode1 = $i_bc->textContent;
             } else {
@@ -125,7 +129,7 @@ for my $patron ( $doc->documentElement->childNodes ) {
             }
         }
     }
-    print STDOUT "$inactive_barcode1\t$inactive_barcode2";
+    print STDOUT "$userid_active\t$inactive_barcode1\t$inactive_barcode2";
 
     print STDOUT "\n";
 	$count++;
-- 
1.7.2.5