#!/usr/bin/perl
-#
-# WARNING: This doesn't handle Rob's address-database-enhanced Patron XML format, with such things as Change of Address information
-#
use strict;
use warnings;
"middle_name",
"suffix_name",
"note",
- "comment"
+ "comment",
+ "staff",
+ "webcatpref",
+ "user_category1",
+ "user_category2",
+ "user_category3",
+ "dept",
+ "guardian",
+ "user_claims_ret",
+ #"user_environment",
+ #"user_library",
+ "user_department"
);
my @addr_elements = (
"std_city",
"std_state",
"std_zip",
+ "phone",
"dayphone",
"homephone",
"workphone",
- "email"
+ "email",
+ "location",
+ "usefor",
+ "care_of"
);
print STDOUT join("\t", @base_elements);
foreach my $addr ( 1..3 ) {
print STDOUT "\t" . join("\t", @addr_elements);
}
+print STDOUT "\tinactive_barcode1\tinactive_barcode2";
print STDOUT "\n";
for my $patron ( $doc->documentElement->childNodes ) {
}
}
+ my $inactive_barcode1 = '';
+ my $inactive_barcode2 = '';
+ for my $i_bc ( $patron->findnodes( "barcode" ) ) {
+ my $active = $i_bc->getAttribute('active');
+ if ($active eq "0") {
+ if (! $inactive_barcode1 ) {
+ $inactive_barcode1 = $i_bc->textContent;
+ } else {
+ if (! $inactive_barcode2 ) {
+ $inactive_barcode2 = $i_bc->textContent;
+ } else {
+ warn "Extra barcode (" . $i_bc->textContent . ") for user with id = " . $bc . "\n";
+ }
+ }
+ }
+ }
+ print STDOUT "$inactive_barcode1\t$inactive_barcode2"
+
print STDOUT "\n";
$count++;
}
}
}
- my $date;
+ my $date = $string;
if ($y && $m && $d) {
eval {
$date = sprintf('%04d-%02d-%-2d',$y, $m, $d)