The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Biblio::ILL::ISO::CostInfoType

VERSION

Version 0.01

DESCRIPTION

Biblio::ILL::ISO::CostInfoType is a derivation of Biblio::ILL::ISO::ILLASNtype.

USES

 Biblio::ILL::ISO::AccountNumber
 Biblio::ILL::ISO::Amount

USED IN

 Biblio::ILL::ISO::Request

FROM THE ASN DEFINITION

 Cost-Info-Type ::= SEQUENCE {
        account-number          [0]     Account-Number OPTIONAL,
        maximum-cost            [1]     IMPLICIT Amount OPTIONAL,
        reciprocal-agreement    [2]     IMPLICIT BOOLEAN, -- DEFAULT FALSE,
        will-pay-fee            [3]     IMPLICIT BOOLEAN, -- DEFAULT FALSE,
        payment-provided        [4]     IMPLICIT BOOLEAN -- DEFAULT FALSE
        }

METHODS

from_asn($href)

Given a properly formatted hash, builds the object.

new( $reciprocal_agreement, $will_pay_fee, $payment_provided [, $account] [, $maxcost])

Creates a new CostInfoType object. Expects a reciprocal-agreement flag (0/1), a will-pay-fee flag (0/1), a payment-provided flag (0/1), (optionally) an account-number (Biblio::ILL:ISO::AccountNumber), and (optionally) a maximum-cost (Biblio::ILL::ISO::Amount).

set( $reciprocal_agreement [, [$will_pay_fee] [, [$payment_provided] [, [$account] [, $maxcost]]]] )

 Sets the object's reciprocal-agreement flag (0/1),
 (optionally) will-pay-fee flag (0/1), 
 (optionally) payment-provided flag (0/1),
 (optionally) account-number (Biblio::ILL:ISO::AccountNumber), and 
 (optionally) maximum-cost (Biblio::ILL::ISO::Amount).

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

AUTHOR

David Christensen, <DChristensenSPAMLESS@westman.wave.ca>

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.