package Opals::XML::SAX::ILL;

# 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 'request') {
        my $reqID = $element->{'Attributes'}{'{}reqID'}{'Value'};
        my $ILLID = $element->{'Attributes'}{'{}ILLID'}{'Value'};
        $self->{'requests'}->{$reqID} = {
            reqID   => $reqID,
            ILLID   => $ILLID,
        };
    }
}

#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;