package Opals::XML::SAX::Library;

# Version number
$VERSION   = 0.01;

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

sub start_element {
    my ($self, $element) = @_;
    my $name = $element->{'Name'};
    if ($name eq 'library') {
        my $lid = $element->{'Attributes'}{'{}lid'}{'Value'};
        foreach my $a (qw(lid unionId path code name addrLine1 addrLine2
                city state zip phone fax contact email status curTime)) {
            $self->{'library'}->{$lid}->{$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;