File Coverage

blib/lib/Biblio/ILL/ISO/ReasonUnfilled.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	28	33	84.8

package Biblio::ILL::ISO::ReasonUnfilled;

=head1 NAME

Biblio::ILL::ISO::ReasonUnfilled

=cut

use Biblio::ILL::ISO::ILLASNtype;
use Biblio::ILL::ISO::ENUMERATED;

use Carp;

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';
#---------------------------------------------------------------------------
# Mods
# 0.01 - 2003.07.26 - original version
#---------------------------------------------------------------------------

=head1 DESCRIPTION

Biblio::ILL::ISO::ReasonUnfilled is a derivation of Biblio::ILL::ISO::ENUMERATED.

=head1 USES

 None.

=head1 USED IN

 Biblio::ILL::ISO::UnfilledResults

=cut

BEGIN{@ISA = qw ( Biblio::ILL::ISO::ENUMERATED
		  Biblio::ILL::ISO::ILLASNtype );}   # inherit from ILLASNtype

=head1 FROM THE ASN DEFINITION

 Reason-Unfilled ::= ENUMERATED {
	in-use-on-loan	(1),
	in-process	(2),
	lost	(3),
	non-circulating	(4),
	not-owned	(5),
	on-order	(6),
	volume-issue-not-yet-available	(7),
	at-bindery	(8),
	lacking	(9),
	not-on-shelf 	(10),
	on-reserve	(11),
	poor-condition	(12),
	cost-exceeds-limit	(13),
	charges	(14),
	prepayment-required	(15),
	lacks-copyright-compliance	(16),
	not-found-as-cited	(17),
	locations-not-found	(18),
	on-hold	(19),
	policy-problem	(20),
	mandatory-messaging-not-supported	(21),
	expiry-not-supported	(22) ,
	requested-delivery-services-not-supported	(23),
 	preferred-delivery-time-not-possible	(24),
	other	(27),
	responder-specific	(28)
	}

=cut

=head1 METHODS

=cut

#---------------------------------------------------------------
#
#---------------------------------------------------------------
=head1

=head2 new( $s )

 Creates a new ReasonUnfilled object.
 Valid paramaters are listed in the FROM THE ASN DEFINITION section
 (e.g. "in-use-on-loan").

=cut
sub new {
    my $class = shift;
    my $self = {};

    $self->{"ENUM_LIST"} = {"in-use-on-loan" => 1,
			    "in-process" => 2,
			    "lost" => 3,
			    "non-circulating" => 4,
			    "not-owned" => 5,
			    "on-order" => 6,
			    "volume-issue-not-yet-available" => 7,
			    "at-bindery" => 8,
			    "lacking" => 9,
			    "not-on-shelf" => 10,
			    "on-reserve" => 11,
			    "poor-condition" => 12,
			    "cost-exceeds-limit" => 13,
			    "charges" => 14,
			    "prepayment-required" => 15,
			    "lacks-copyright-compliance" => 16,
			    "not-found-as-cited" => 17,
			    "locations-not-found" => 18,
			    "on-hold" => 19,
			    "policy-problem" => 20,
			    "mandatory-messaging-not-supported" => 21,
			    "expiry-not-supported" => 22,
			    "requested-delivery-services-not-supported" => 23,
			    "preferred-delivery-time-not-possible" => 24,
			    "other" => 27,
			    "responder-specific" => 28
			    };

    if (@_) {
	my $s = shift;

	if ( exists $self->{"ENUM_LIST"}->{$s} ) {
	    $self->{"ENUMERATED"} = $self->{"ENUM_LIST"}->{$s};
	} else {
	    croak "invalid ReasonUnfilled type: [$s]";
	}
    }

    bless($self, ref($class) || $class);
    return ($self);
}

=head1 SEE ALSO

See the README for system design notes.
See the parent class(es) for other available methods.

For more information on Interlibrary Loan standards (ISO 10160/10161),
a good place to start is:

http://www.nlc-bnc.ca/iso/ill/main.htm

=cut

=head1 AUTHOR

David Christensen,

=cut


=head1 COPYRIGHT AND LICENSE

Copyright 2003 by David Christensen

This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;