3 # This parses TCL items-out reports converted from excel to csv, turning them
4 # into a tab separated file. arg!
13 my ($a,$b,$c,$d,$e,$f,$g) = (0,1,2,3,4,5,6,7);
15 print "patron\titem\tout\tdue\tprice\n";
19 my @fields = split /\t/;
21 if ( (!$state || $state eq 'item' || $state eq 'none') && $fields[$f] eq 'Borrower ID') {
26 if ($state eq 'borrower') {
27 $patron = $fields[$f];
32 if ($state eq 'none' && $fields[$b] eq 'Item ID') {
37 if ($state eq 'item' && $fields[$b] =~ /^\d+$/o) {
39 if ($fields[$f] =~ /^(\d+)\/(\d+)\/(\d+)$/) {
40 $out = sprintf('%04d-%02d-%02d', 2000 + $3, $1, $2);
42 if ($fields[$e] =~ /^(\d+)\/(\d+)\/(\d+)$/) {
43 $due = sprintf('%04d-%02d-%02d', 2000 + $3, $1, $2);
45 ($price = $fields[$g]) =~ s/\*//go;
46 print join("\t", $patron, $item, $out, $due, $price) . "\n";