view release on metacpan or  search on metacpan

pl/ISO-t-dumper.pm  view on Meta::CPAN

# Renew-Answer (new types)
#  -- none

# Lost (new types)
#  -- none

# Damaged (new types)
# Currently unsupported:
#   use Biblio::ILL::ISO::DamagedDetails;

# Message (new types)
#  -- none

# Status-Query (new types)
#  -- none

# Status-Or-Error-Report (new types)
use Biblio::ILL::ISO::ReasonNoReport;
use Biblio::ILL::ISO::MostRecentService;
use Biblio::ILL::ISO::CurrentState;
use Biblio::ILL::ISO::HistoryReport;
use Biblio::ILL::ISO::StatusReport;
use Biblio::ILL::ISO::ErrorReport;
use Biblio::ILL::ISO::ReportSource;
use Biblio::ILL::ISO::AlreadyForwarded;
use Biblio::ILL::ISO::IntermediaryProblem;
use Biblio::ILL::ISO::SecurityProblem;
use Biblio::ILL::ISO::UnableToPerform;
use Biblio::ILL::ISO::UserErrorReport;
use Biblio::ILL::ISO::GeneralProblem;
use Biblio::ILL::ISO::TransactionIdProblem;
use Biblio::ILL::ISO::ILLAPDUtype;
use Biblio::ILL::ISO::StateTransitionProhibited;
use Biblio::ILL::ISO::ProviderErrorReport;

# Expired (new types)
#  -- none


my %hsh = ();
my $obj;
my $obj2;

$hsh{"01.ILLString"} = new Biblio::ILL::ISO::ILLString("A string");
$hsh{"02.AccountNumber"} = new Biblio::ILL::ISO::AccountNumber("1234567890");
$hsh{"03.PersonOrInstitutionSymbol"} = new Biblio::ILL::ISO::PersonOrInstitutionSymbol("MWPL");
$hsh{"04.NameOfPersonOrInstitution"} = new Biblio::ILL::ISO::NameOfPersonOrInstitution("Manitoba Public Library Services");

$hsh{"05.SystemId"} = new Biblio::ILL::ISO::SystemId();
$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",
					  "",
					  "Brandon",
					  "MB",
					  "CANADA",
					  "R7A 7A1"
					  );
$hsh{"12.SystemAddress"} = new Biblio::ILL::ISO::SystemAddress("SMTP","DChristensen\@westman.wave.ca");

$hsh{"13.DeliveryAddress"} = new Biblio::ILL::ISO::DeliveryAddress( new Biblio::ILL::ISO::SystemAddress("SMTP","DChristens\@gov.mb.ca"),
					       new Biblio::ILL::ISO::PostalAddress("Manitoba Public Library Services",
								 "",
								 "Unit 200",
								 "1525 First Street South",
								 "",
								 "Brandon",
								 "MB",
								 "CANADA",
								 "R7A 7A1"
								 )
					       );

$obj = new Biblio::ILL::ISO::EDeliveryDetails( new Biblio::ILL::ISO::SystemAddress("SMTP","bob\@hope.com") );
$hsh{"14.ElectronicDeliveryService"} = new Biblio::ILL::ISO::ElectronicDeliveryService($obj);
$hsh{"14.ElectronicDeliveryService"}->set_description("Just a dummy");
$hsh{"14.ElectronicDeliveryService"}->set_name_or_code("MSG ID: 1001");
$hsh{"14.ElectronicDeliveryService"}->set_delivery_time("235959");

$hsh{"15.ILLServiceTypeSequence"} = new Biblio::ILL::ISO::ILLServiceTypeSequence( new Biblio::ILL::ISO::ILLServiceType("loan"),
								new Biblio::ILL::ISO::ILLServiceType("copy-non-returnable")
								);
$hsh{"15.ILLServiceTypeSequence"}->add(new Biblio::ILL::ISO::ILLServiceType("locations"));

$hsh{"16.ItemType"} = new Biblio::ILL::ISO::ItemType("monograph");
$hsh{"17.MediumType"} = new Biblio::ILL::ISO::MediumType("printed");

$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")
							 );

$hsh{"24.SupplyMediumInfoType"} = new Biblio::ILL::ISO::SupplyMediumInfoType("photocopy","legal-size paper");

$hsh{"25.ThirdPartyInfoType.01"} = new Biblio::ILL::ISO::ThirdPartyInfoType();
$hsh{"26.ThirdPartyInfoType.02"} = new Biblio::ILL::ISO::ThirdPartyInfoType(1,1,1,1,"ordered",
							      new Biblio::ILL::ISO::SystemAddress("SMTP","David_A_Christensen\@hotmail.com"),
							      $hsh{"21.SendToListTypeSequence"},
							      $hsh{"06.AlreadyTriedListType"}
							      );

$hsh{"27.TransactionId"} = new Biblio::ILL::ISO::TransactionId("PLS","001","", new Biblio::ILL::ISO::SystemId("MWPL"));

$hsh{"28.DeliveryService.01"} = new Biblio::ILL::ISO::DeliveryService( new Biblio::ILL::ISO::TransportationMode("Canada Post") );
$hsh{"29.DeliveryService.02"} = new Biblio::ILL::ISO::ElectronicDeliveryServiceSequence( $hsh{"14.ElectronicDeliveryService"});
$obj = new Biblio::ILL::ISO::ElectronicDeliveryService( new Biblio::ILL::ISO::EDeliveryDetails( new Biblio::ILL::ISO::SystemAddress("SMTP","david\@alnitak.cxm")));
$obj->set_description("Another dummy");
$obj->set_name_or_code("MSG ID: 1002");
$obj->set_delivery_time("083000");
$hsh{"29.DeliveryService.02"}->add( $obj );

# Answer types (those not covered by Request, anyway).

$hsh{"30.TransactionResults"} = new Biblio::ILL::ISO::TransactionResults("will-supply");
$hsh{"31.ConditionalResultsCondition"} = new Biblio::ILL::ISO::ConditionalResultsCondition("library-use-only");

$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_person_name("David A. Christensen");
$obj->set_institution_symbol("MWPL");
$hsh{"32.LocationInfo"} = new Biblio::ILL::ISO::LocationInfo($obj,
							     new Biblio::ILL::ISO::SystemAddress("SMTP","DChristensen\@westman.wave.ca"),
							     new Biblio::ILL::ISO::ILLString("This is a location note.")
							     );

$hsh{"33.LocationInfoSequence"} = new Biblio::ILL::ISO::LocationInfoSequence( $hsh{"32.LocationInfo"} );
$obj = new Biblio::ILL::ISO::SystemId();
$obj->set_institution_name("Brandon Public Library");
$obj2 = new Biblio::ILL::ISO::LocationInfo($obj, new Biblio::ILL::ISO::SystemAddress("SMTP","library\@brandon.mb.ca") );
$hsh{"33.LocationInfoSequence"}->add($obj2);

$hsh{"34.ConditionalResults"} = new Biblio::ILL::ISO::ConditionalResults(new Biblio::ILL::ISO::ConditionalResultsCondition("charges"),
									 new Biblio::ILL::ISO::ISODate("20030727"),
									 $hsh{"33.LocationInfoSequence"},
									 new Biblio::ILL::ISO::DeliveryService( new Biblio::ILL::ISO::TransportationMode("Canada Post") )
									 );


$hsh{"35.RetryResults"} = new Biblio::ILL::ISO::RetryResults(new Biblio::ILL::ISO::ReasonNotAvailable("in-use-on-loan"),
							     new Biblio::ILL::ISO::ISODate("20030731"),
							     $hsh{"33.LocationInfoSequence"}
							     );