Biblio-ILL-ISO
view release on metacpan or search on metacpan
lib/Biblio/ILL/ISO/Answer.pm view on Meta::CPAN
#---------------------------------------------------------------
#
#---------------------------------------------------------------
=head1
=head2 set_send_to_list($stlts)
Sets the message's send-to-list.
Expects a valid Biblio::ILL::ISO::SendToListTypeSequence.
my $sid = new Biblio::ILL::ISO::SystemId("MBOM");
my $stlt = new Biblio::ILL::ISO::SendToListType( $sid );
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( $stlt );
$sid = new Biblio::ILL::ISO::SystemId("MWPL");
my $act = new Biblio::ILL::ISO::AccountNumber("PLS001");
my $sa = new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca");
$stlts->add( new Biblio::ILL::ISO::SendToListType( $sid,
$act,
$sa
)
lib/Biblio/ILL/ISO/Answer.pm view on Meta::CPAN
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( $sid );
$sid = new Biblio::ILL::ISO::SystemId();
$sid->set_institution_name("Winnipeg Public Library");
$atlt->add($sid);
$sid = new Biblio::ILL::ISO::SystemId();
$sid->set_person_name("Frank Emil Urwald");
$atlt->add($sid);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
$msg->set_already_tried_list($atlt);
This is an optional field.
=cut
sub set_already_tried_list {
my $self = shift;
my ($parm) = shift;
lib/Biblio/ILL/ISO/Received.pm view on Meta::CPAN
#---------------------------------------------------------------
#
#---------------------------------------------------------------
=head1
=head2 set_supplier_id($sid)
Sets the message's supplier-id.
Expects a valid Biblio::ILL::ISO::SystemId.
my $sid = new Biblio::ILL::ISO::SystemId("MBOM");
$msg->set_supplier_id($sid);
This is an optional field.
=cut
sub set_supplier_id {
my $self = shift;
my ($parm) = shift;
croak "missing supplier-id" unless $parm;
lib/Biblio/ILL/ISO/Request.pm view on Meta::CPAN
#
#---------------------------------------------------------------
=head1
=head2 set_third_party_info_type($tpit)
Sets the message's third-party-info-type.
Expects a valid Biblio::ILL::ISO::ThirdPartyInfoType.
# The send-to-list-type sequence
my $stlt = new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") )
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( $stlt );
$stlts->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
# The already-tried-list-type
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
my $obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
# And finally, the third-party-info-type
my $sa = new Biblio::ILL::ISO::SystemAddress("SMTP","David_A_Christensen\@hotmail.com");
my $tpit = new Biblio::ILL::ISO::ThirdPartyInfoType(1,1,1,1,
"ordered",
$sa,
$stlts,
$atlt
);
msg->set_third_party_info_type($tpit);
lib/Biblio/ILL/ISO/StatusOrErrorReport.pm view on Meta::CPAN
=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);
pl/ISO-msg-t-dumper.pm view on Meta::CPAN
$iid->set_publication_date("2003");
#
# cost-info-type
#
my $cit = new Biblio::ILL::ISO::CostInfoType("","","","PLS001","\$40.00");
#
# third-party-info-type
#
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") ));
$stlts->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
my $tpit = new Biblio::ILL::ISO::ThirdPartyInfoType(1,1,1,1,"ordered",
new Biblio::ILL::ISO::SystemAddress("SMTP","David_A_Christensen\@hotmail.com"),
$stlts,
$atlt
);
#-------------------------------------------------------------------------------------------
$msg = new Biblio::ILL::ISO::Request();
pl/ISO-msg-t-dumper.pm view on Meta::CPAN
my $conres = new Biblio::ILL::ISO::ConditionalResults(new Biblio::ILL::ISO::ConditionalResultsCondition("charges"),
new Biblio::ILL::ISO::ISODate("20030727"),
$locseq,
new Biblio::ILL::ISO::DeliveryService( new Biblio::ILL::ISO::TransportationMode("Canada Post") )
);
my $rexp = new Biblio::ILL::ISO::ResultsExplanation( $conres );
#
# send-to-list
#
my $stlt = new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") );
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( $stlt );
$stlts->add( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
#
# already-tried-list
#
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
#
# responder-optional-messages
#
my $rom = new Biblio::ILL::ISO::ResponderOptionalMessageType(1,1,"desires","requires");
#
# responder-note
#
my $rn = new Biblio::ILL::ISO::ILLString("This is a responder-note.");
pl/ISO-msg-t-dumper.pm view on Meta::CPAN
$reqid->set_person_name("David A. Christensen");
#
# responder-id
#
my $resid = new Biblio::ILL::ISO::SystemId("MWPL");
#
# supplier-id
#
my $sid = new Biblio::ILL::ISO::SystemId("MBOM");
#
# date-received
#
my $dr = new Biblio::ILL::ISO::ISODate("20030813");
#
# shipped-service-type
#
my $sst = new Biblio::ILL::ISO::ShippedServiceType("loan");
pl/ISO-msg-t-dumper.pm view on Meta::CPAN
#
my $resid = new Biblio::ILL::ISO::SystemId("MWPL");
#
# status-report
#
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);
pl/ISO-t-dumper.pm view on Meta::CPAN
$hsh{"05.SystemId"}->set_person_name("David A. Christensen");
$hsh{"05.SystemId"}->set_institution_symbol("MWPL");
$hsh{"06.AlreadyTriedListType"} = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$hsh{"06.AlreadyTriedListType"}->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$hsh{"06.AlreadyTriedListType"}->add($obj);
$hsh{"06.AlreadyTriedListType"}->add( new Biblio::ILL::ISO::SystemId("MBOM"));
$hsh{"07.AmountString"} = new Biblio::ILL::ISO::AmountString("\$123.45");
$hsh{"08.Amount"} = new Biblio::ILL::ISO::Amount("\$67.89","CAD");
$hsh{"09.ClientId"} = new Biblio::ILL::ISO::ClientId("David Christensen","Most excellent","007");
$hsh{"10.CostInfoType"} = new Biblio::ILL::ISO::CostInfoType("","","","PLS001","\$40.00");
$hsh{"11.PostalAddress"} = new Biblio::ILL::ISO::PostalAddress("Manitoba Public Library Services",
"",
"Unit 200",
"1525 First Street South",
pl/ISO-t-dumper.pm view on Meta::CPAN
$hsh{"18.ItemId"} = new Biblio::ILL::ISO::ItemId("My Book","David Christensen","CHR001.1");
$hsh{"18.ItemId"}->set_item_type("monograph");
$hsh{"18.ItemId"}->set_medium_type("printed");
$hsh{"18.ItemId"}->set_pagination("456");
$hsh{"18.ItemId"}->set_publication_date("2003");
$hsh{"19.RequesterOptionalMessageType"} = new Biblio::ILL::ISO::RequesterOptionalMessageType(1,1,"desires","requires");
$hsh{"20.SearchType"} = new Biblio::ILL::ISO::SearchType("no-Expiry","1","","20030720");
$hsh{"21.SendToListTypeSequence"} = new Biblio::ILL::ISO::SendToListTypeSequence( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") ));
$hsh{"21.SendToListTypeSequence"}->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
$hsh{"22.ServiceDateTime.01"} = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623") );
$hsh{"23.ServiceDateTime.02"} = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
new Biblio::ILL::ISO::DateTime("20030623","114015")
);
pl/ISOtypetest.pm view on Meta::CPAN
$hsh{"05.SystemId"}->set_person_name("David A. Christensen");
$hsh{"05.SystemId"}->set_institution_symbol("MWPL");
$hsh{"06.AlreadyTriedListType"} = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$hsh{"06.AlreadyTriedListType"}->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$hsh{"06.AlreadyTriedListType"}->add($obj);
$hsh{"06.AlreadyTriedListType"}->add( new Biblio::ILL::ISO::SystemId("MBOM"));
$hsh{"07.AmountString"} = new Biblio::ILL::ISO::AmountString("\$123.45");
$hsh{"08.Amount"} = new Biblio::ILL::ISO::Amount("\$67.89","CAD");
$hsh{"09.ClientId"} = new Biblio::ILL::ISO::ClientId("David Christensen","Most excellent","007");
$hsh{"10.CostInfoType"} = new Biblio::ILL::ISO::CostInfoType("","","","PLS001","\$40.00");
$hsh{"11.PostalAddress"} = new Biblio::ILL::ISO::PostalAddress("Manitoba Public Library Services",
"",
"Unit 200",
"1525 First Street South",
pl/ISOtypetest.pm view on Meta::CPAN
$hsh{"18.ItemId"} = new Biblio::ILL::ISO::ItemId("My Book","David Christensen","CHR001.1");
$hsh{"18.ItemId"}->set_item_type("monograph");
$hsh{"18.ItemId"}->set_medium_type("printed");
$hsh{"18.ItemId"}->set_pagination("456");
$hsh{"18.ItemId"}->set_publication_date("2003");
$hsh{"19.RequesterOptionalMessageType"} = new Biblio::ILL::ISO::RequesterOptionalMessageType(1,1,"desires","requires");
$hsh{"20.SearchType"} = new Biblio::ILL::ISO::SearchType("no-Expiry","1","","20030720");
$hsh{"21.SendToListTypeSequence"} = new Biblio::ILL::ISO::SendToListTypeSequence( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") ));
$hsh{"21.SendToListTypeSequence"}->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
$hsh{"22.ServiceDateTime"} = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623") );
$hsh{"23.ServiceDateTime test 2"} = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
new Biblio::ILL::ISO::DateTime("20030623","114015")
);
pl/messages/01.request.write.pm view on Meta::CPAN
$iid->set_publication_date("2003");
#
# cost-info-type
#
my $cit = new Biblio::ILL::ISO::CostInfoType("","","","PLS001","\$40.00");
#
# third-party-info-type
#
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") ));
$stlts->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
my $tpit = new Biblio::ILL::ISO::ThirdPartyInfoType(1,1,1,1,"ordered",
new Biblio::ILL::ISO::SystemAddress("SMTP","David_A_Christensen\@hotmail.com"),
$stlts,
$atlt
);
#-------------------------------------------------------------------------------------------
my $msg = new Biblio::ILL::ISO::Request();
pl/messages/04.answer.write.pm view on Meta::CPAN
my $conres = new Biblio::ILL::ISO::ConditionalResults(new Biblio::ILL::ISO::ConditionalResultsCondition("charges"),
new Biblio::ILL::ISO::ISODate("20030727"),
$locseq,
new Biblio::ILL::ISO::DeliveryService( new Biblio::ILL::ISO::TransportationMode("Canada Post") )
);
my $rexp = new Biblio::ILL::ISO::ResultsExplanation( $conres );
#
# send-to-list
#
my $stlt = new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") );
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( $stlt );
$stlts->add( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
#
# already-tried-list
#
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
#
# responder-optional-messages
#
my $rom = new Biblio::ILL::ISO::ResponderOptionalMessageType(1,1,"desires","requires");
#
# responder-note
#
my $rn = new Biblio::ILL::ISO::ILLString("This is a responder-note.");
pl/messages/08.received.write.pm view on Meta::CPAN
$reqid->set_person_name("David A. Christensen");
#
# responder-id
#
my $resid = new Biblio::ILL::ISO::SystemId("MWPL");
#
# supplier-id
#
my $sid = new Biblio::ILL::ISO::SystemId("MBOM");
#
# date-received
#
my $dr = new Biblio::ILL::ISO::ISODate("20030813");
#
# shipped-service-type
#
my $sst = new Biblio::ILL::ISO::ShippedServiceType("loan");
pl/messages/19.status-or-error-report.write.pm view on Meta::CPAN
#
my $resid = new Biblio::ILL::ISO::SystemId("MWPL");
#
# status-report
#
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);
t/02.types.t view on Meta::CPAN
$hsh{"05.SystemId"}->set_person_name("David A. Christensen");
$hsh{"05.SystemId"}->set_institution_symbol("MWPL");
$hsh{"06.AlreadyTriedListType"} = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$hsh{"06.AlreadyTriedListType"}->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$hsh{"06.AlreadyTriedListType"}->add($obj);
$hsh{"06.AlreadyTriedListType"}->add( new Biblio::ILL::ISO::SystemId("MBOM"));
$hsh{"07.AmountString"} = new Biblio::ILL::ISO::AmountString("\$123.45");
$hsh{"08.Amount"} = new Biblio::ILL::ISO::Amount("\$67.89","CAD");
$hsh{"09.ClientId"} = new Biblio::ILL::ISO::ClientId("David Christensen","Most excellent","007");
$hsh{"10.CostInfoType"} = new Biblio::ILL::ISO::CostInfoType("","","","PLS001","\$40.00");
$hsh{"11.PostalAddress"} = new Biblio::ILL::ISO::PostalAddress("Manitoba Public Library Services",
"",
"Unit 200",
"1525 First Street South",
t/02.types.t view on Meta::CPAN
$hsh{"18.ItemId"} = new Biblio::ILL::ISO::ItemId("My Book","David Christensen","CHR001.1");
$hsh{"18.ItemId"}->set_item_type("monograph");
$hsh{"18.ItemId"}->set_medium_type("printed");
$hsh{"18.ItemId"}->set_pagination("456");
$hsh{"18.ItemId"}->set_publication_date("2003");
$hsh{"19.RequesterOptionalMessageType"} = new Biblio::ILL::ISO::RequesterOptionalMessageType(1,1,"desires","requires");
$hsh{"20.SearchType"} = new Biblio::ILL::ISO::SearchType("no-Expiry","1","","20030720");
$hsh{"21.SendToListTypeSequence"} = new Biblio::ILL::ISO::SendToListTypeSequence( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") ));
$hsh{"21.SendToListTypeSequence"}->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
$hsh{"22.ServiceDateTime.01"} = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623") );
$hsh{"23.ServiceDateTime.02"} = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
new Biblio::ILL::ISO::DateTime("20030623","114015")
);
t/03.messages.t view on Meta::CPAN
$iid->set_publication_date("2003");
#
# cost-info-type
#
my $cit = new Biblio::ILL::ISO::CostInfoType("","","","PLS001","\$40.00");
#
# third-party-info-type
#
my $stlts = new Biblio::ILL::ISO::SendToListTypeSequence( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") ));
$stlts->add(new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
my $atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
my $tpit = new Biblio::ILL::ISO::ThirdPartyInfoType(1,1,1,1,"ordered",
new Biblio::ILL::ISO::SystemAddress("SMTP","David_A_Christensen\@hotmail.com"),
$stlts,
$atlt
);
#-------------------------------------------------------------------------------------------
$msg = new Biblio::ILL::ISO::Request();
t/03.messages.t view on Meta::CPAN
my $conres = new Biblio::ILL::ISO::ConditionalResults(new Biblio::ILL::ISO::ConditionalResultsCondition("charges"),
new Biblio::ILL::ISO::ISODate("20030727"),
$locseq,
new Biblio::ILL::ISO::DeliveryService( new Biblio::ILL::ISO::TransportationMode("Canada Post") )
);
my $rexp = new Biblio::ILL::ISO::ResultsExplanation( $conres );
#
# send-to-list
#
my $stlt = new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MBOM") );
$stlts = new Biblio::ILL::ISO::SendToListTypeSequence( $stlt );
$stlts->add( new Biblio::ILL::ISO::SendToListType( new Biblio::ILL::ISO::SystemId("MWPL"),
new Biblio::ILL::ISO::AccountNumber("PLS001"),
new Biblio::ILL::ISO::SystemAddress("SMTP","pls\@gov.mb.ca")
)
);
#
# already-tried-list
#
$atlt = new Biblio::ILL::ISO::AlreadyTriedListType( new Biblio::ILL::ISO::SystemId("BVAS") );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Winnipeg Public Library");
$atlt->add($obj);
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("Frank Emil Urwald");
$atlt->add($obj);
$atlt->add( new Biblio::ILL::ISO::SystemId("MBOM"));
#
# responder-optional-messages
#
$rom = new Biblio::ILL::ISO::ResponderOptionalMessageType(1,1,"desires","requires");
#
# responder-note
#
$rn = new Biblio::ILL::ISO::ILLString("This is a responder-note.");
t/03.messages.t view on Meta::CPAN
$reqid->set_person_name("David A. Christensen");
#
# responder-id
#
$resid = new Biblio::ILL::ISO::SystemId("MWPL");
#
# supplier-id
#
$sid = new Biblio::ILL::ISO::SystemId("MBOM");
#
# date-received
#
my $dr = new Biblio::ILL::ISO::ISODate("20030813");
#
# shipped-service-type
#
$sst = new Biblio::ILL::ISO::ShippedServiceType("loan");
t/03.messages.t view on Meta::CPAN
#
$resid = new Biblio::ILL::ISO::SystemId("MWPL");
#
# status-report
#
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);
t/msg_04.answer.ber view on Meta::CPAN
d‚€¡
¡MWPL¡PLS¢001¢( €20030623114400¡€20030623114015£¡ David A. Christensen¤
¡MWPLŸ ¿ Ú¡×0Ô€20030727¢µ0n0l $ ¡MWPL¡ David A. Christensen¡( SMTP¡ DChristensen@westman.wave.ca¢This is a location note.0C0A ¡¡Brandon Public Library¡! SMTP¡library@brandon.mb.ca§
Canada Post·A0
¡MBOM01
¡MWPL¡PLS001¢ SMTP¡
pls@gov.mb.ca¿"P0
¡BVAS0 ¡¡Winnipeg Public Library0¡ Frank Emil Urwald0
¡MBOM¼0€ÿÿ‚ƒ¿.This is a responder-note.
t/msg_08.received.ber view on Meta::CPAN
h©€¡
¡MWPL¡PLS¢001¢( €20030623114400¡€20030623114015£¡ David A. Christensen¤
¡MWPLº
¡MBOMŸ$20030813›¿.This is a requester-note.
t/msg_19.status-or-error-report.ber view on Meta::CPAN
sû€¡
¡MWPL¡PLS¢001¢( €20030623114400¡€20030623114015£¡ David A. Christensen¤
¡MWPL¿,s0q l0j€20030815¡
Anne Author¢ A Title…20030811†‡20030813¨
¡MBOM‰Š«This is a history report.¿.This is a note.
t/types_06.AlreadyTriedListType view on Meta::CPAN
bless( {
'name-of-person-or-institution' => bless( {
'name-of-person' => bless( {
'generalstring' => 'Frank Emil Urwald'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::NameOfPersonOrInstitution' )
}, 'Biblio::ILL::ISO::SystemId' ),
bless( {
'person-or-institution-symbol' => bless( {
'institution-symbol' => bless( {
'generalstring' => 'MBOM'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::PersonOrInstitutionSymbol' )
}, 'Biblio::ILL::ISO::SystemId' )
]
}, 'Biblio::ILL::ISO::AlreadyTriedListType' );
t/types_21.SendToListTypeSequence view on Meta::CPAN
$VAR1 = bless( {
'SEQUENCE' => [
bless( {
'system-id' => bless( {
'person-or-institution-symbol' => bless( {
'institution-symbol' => bless( {
'generalstring' => 'MBOM'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::PersonOrInstitutionSymbol' )
}, 'Biblio::ILL::ISO::SystemId' )
}, 'Biblio::ILL::ISO::SendToListType' ),
bless( {
'system-id' => bless( {
'person-or-institution-symbol' => bless( {
'institution-symbol' => bless( {
'generalstring' => 'MWPL'
}, 'Biblio::ILL::ISO::ILLString' )
t/types_26.ThirdPartyInfoType.02 view on Meta::CPAN
'generalstring' => 'David_A_Christensen@hotmail.com'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::SystemAddress' ),
'permission-to-change-send-to-list' => 1,
'send-to-list' => bless( {
'SEQUENCE' => [
bless( {
'system-id' => bless( {
'person-or-institution-symbol' => bless( {
'institution-symbol' => bless( {
'generalstring' => 'MBOM'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::PersonOrInstitutionSymbol' )
}, 'Biblio::ILL::ISO::SystemId' )
}, 'Biblio::ILL::ISO::SendToListType' ),
bless( {
'system-id' => bless( {
'person-or-institution-symbol' => bless( {
'institution-symbol' => bless( {
'generalstring' => 'MWPL'
}, 'Biblio::ILL::ISO::ILLString' )
t/types_26.ThirdPartyInfoType.02 view on Meta::CPAN
bless( {
'name-of-person-or-institution' => bless( {
'name-of-person' => bless( {
'generalstring' => 'Frank Emil Urwald'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::NameOfPersonOrInstitution' )
}, 'Biblio::ILL::ISO::SystemId' ),
bless( {
'person-or-institution-symbol' => bless( {
'institution-symbol' => bless( {
'generalstring' => 'MBOM'
}, 'Biblio::ILL::ISO::ILLString' )
}, 'Biblio::ILL::ISO::PersonOrInstitutionSymbol' )
}, 'Biblio::ILL::ISO::SystemId' )
]
}, 'Biblio::ILL::ISO::AlreadyTriedListType' ),
'permission-to-forward' => 1,
'permission-to-chain' => 1
}, 'Biblio::ILL::ISO::ThirdPartyInfoType' );
( run in 0.691 second using v1.01-cache-2.11-cpan-e9daa2b36ef )