package Opals::XML::SAX::CircData;

# Version number
$VERSION   = 0.01;

use warnings;
use strict;
use XML::SAX;
use base qw( XML::SAX::Base );

my $rid;

sub start_element {
    my ($self, $element) = @_;
    my $name = $element->{'Name'};
    if ($name eq 'record') {
        $rid = $element->{'Attributes'}{'{}rid'}{'Value'};
#        $self->{'circData'}->{$rid} = {};
    }
    elsif ($name eq 'location') {
        my ($path, $code) = (
            $element->{'Attributes'}{'{}path'}{'Value'},
            $element->{'Attributes'}{'{}code'}{'Value'}
        );
        #$path =~ m/^\/[\w]+\/([\w]+)\//;
        #my $sCode = $1;

        #$self->{'circData'}->{$rid}->{$path . $code}->{'path'} = $path;
        #$self->{'circData'}->{$rid}->{$path . $code}->{'code'} = $code;
        foreach my $a (qw(lid unionId path code name holdingCount loanCount 
                code0 name0 
                code1 name1 
                code2 name2 
                code3 name3)) {
            #$self->{'circData'}->{$rid}->{"$sCode:$code"}->{$a} =
            $self->{'circData'}->{$rid}->{$path . $code}->{$a} =
                $element->{'Attributes'}{'{}'.$a}{'Value'};
        }
    }
}

#sub end_element {
#    my ($self, $element) = @_;
#    my $name = $element->{'Name'};
#    if ($name eq 'record') {
#        push @{$self->{'loanlist'}}, $self->{'loan'};
#        $self->{'loan'} = undef;
#    }
#
#}

#sub characters {
#    my ( $self, $chars ) = @_;
#}


1;