#!/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);
}
}
- my $date;
+ my $date = $string;
if ($y && $m && $d) {
eval {
$date = sprintf('%04d-%02d-%-2d',$y, $m, $d)