view release on metacpan or  search on metacpan

lib/Biblio/ILL/ISO/StatusOrErrorReport.pm  view on Meta::CPAN

 Sets the message's responder-id.  
 Expects a valid Biblio::ILL::ISO::SystemId.

    my $resid = new Biblio::ILL::ISO::SystemId("MWPL");
    $msg->set_responder_id($resid);

 This is an optional field.

=cut
sub set_responder_id {
    my $self = shift;
    my ($parm) = shift;

    croak "missing responder-id" unless $parm;
    croak "invalid responder-id" unless (ref($parm) eq "Biblio::ILL::ISO::SystemId");

    $self->{"responder-id"} = $parm;

    return;
}

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

=head2 set_reason_no_report($rnr)

 Sets the message's reason-no-report.
 Acceptable parameter values are the strings:
    temporary
    permanent

 This is an optional field.

=cut
sub set_reason_no_report {
    my $self = shift;
    my ($parm) = shift;

    $self->{"reason-no-report"} = new Biblio::ILL::ISO::ReasonNoReport($parm);

    return;
}

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

=head2 set_status_report($sr)

 Sets the message's status-report.
 Expects a valid Biblio::ILL::ISO::StatusReport.

    my $cs = new Biblio::ILL::ISO::CurrentState("sHIPPED");
    my $hr = new Biblio::ILL::ISO::HistoryReport("20030811",
	    				         "fORWARD",
					         "20030813",
                                                 new Biblio::ILL::ISO::SystemId("MBOM"),
					         "20030815",
					         "Anne Author",
					         "A Title",
					         "",
					         "",
					         "loan",
					         new Biblio::ILL::ISO::TransactionResults("will-supply"),
					         "This is a history report."
					         );
    my $sr = new Biblio::ILL::ISO::StatusReport($hr, $cs);
    $msg->set_status_report($sr);

 This is an optional field.

=cut
sub set_status_report {
    my $self = shift;
    my ($parm) = shift;

    croak "missing status-report" unless $parm;
    croak "invalid status-report" unless (ref($parm) eq "Biblio::ILL::ISO::StatusReport");

    $self->{"status-report"} = $parm;

    return;
}

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

=head2 set_error_report($er)

 Sets the message's error-report.
 Expects a valid Biblio::ILL::ISO::ErrorReport.

    my $tip = new Biblio::ILL::ISO::TransactionIdProblem("duplicate-transaction-id");
    my $per = new Biblio::ILL::ISO::ProviderErrorReport( $tip );
    my $er  = new Biblio::ILL::ISO::ErrorReport("Some correlation information",
		 			        "provider",
						$per,
						);
    $msg->set_error_report($er);

 This is an optional field.

=cut
sub set_error_report {
    my $self = shift;
    my ($parm) = shift;

    croak "missing error-report" unless $parm;
    croak "invalid error-report" unless (ref($parm) eq "Biblio::ILL::ISO::ErrorReport");

    $self->{"error-report"} = $parm;

    return;
}