• Your recent searches
Biblio-ILL-ISO
20 results

 view release on metacpan or  search on metacpan

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

										    "R7A 7A1"
										    )
						);

#
# delivery-service
#
my $ds = new Biblio::ILL::ISO::DeliveryService( new Biblio::ILL::ISO::TransportationMode("Canada Post") );

#
# iLL-service-type
#
my $ists = new Biblio::ILL::ISO::ILLServiceTypeSequence( new Biblio::ILL::ISO::ILLServiceType("loan"),
							 new Biblio::ILL::ISO::ILLServiceType("copy-non-returnable")
							 );
$ists->add(new Biblio::ILL::ISO::ILLServiceType("locations"));  #example of adding to a sequence_of

#
# requester-optional-messages
#
my $rom = new Biblio::ILL::ISO::RequesterOptionalMessageType(1,1,"desires","requires");

#
# search-type
#
my $st = new Biblio::ILL::ISO::SearchType("need-Before-Date","1","20030720");

#
# supply-medium-into-type
#
my $smit = new Biblio::ILL::ISO::SupplyMediumInfoType("photocopy","legal-size paper");
my $smits = new Biblio::ILL::ISO::SupplyMediumInfoTypeSequence( $smit );

#
# place-on-hold
#
my $poh = new Biblio::ILL::ISO::PlaceOnHoldType("no");

#
# client-id
#
my $cid = new Biblio::ILL::ISO::ClientId("David Christensen","Most excellent","007");

#
# item-id
#
my $iid = new Biblio::ILL::ISO::ItemId("My Book","David Christensen","CHR001.1");
$iid->set_item_type("monograph");
$iid->set_medium_type("printed");
$iid->set_pagination("456");
$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();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );
$msg->set_transaction_type( $tt );
$msg->set_ILL_service_type_sequence( $ists );
$msg->set_requester_optional_messages( $rom );
$msg->set_place_on_hold( $poh );
$msg->set_item_id( $iid );
$msg->set_retry_flag("false");
$msg->set_forward_flag("true");

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_delivery_address( $da );
$msg->set_billing_address( $da );
$msg->set_delivery_service( $ds );
$msg->set_search_type( $st );
$msg->set_supply_medium_info_type_sequence( $smits );
$msg->set_client_id( $cid );

$msg->set_cost_info_type( $cit );
$msg->set_copyright_compliance("CanCopy");
$msg->set_third_party_info_type( $tpit );
$msg->set_requester_note("This is a requester note");
$msg->set_forward_note("This is a forward note");



#$msg->write("msg_01.request.ber");
$msgs{"01.request"} = $msg;





#========================================================================================


use Biblio::ILL::ISO::ForwardNotification;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#

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


#========================================================================================


use Biblio::ILL::ISO::Answer;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")
						 );

#
# requester-id
#
my $reqid = new Biblio::ILL::ISO::SystemId();
$reqid->set_person_name("David A. Christensen");

#
# responder-id
#
my $resid = new Biblio::ILL::ISO::SystemId("MWPL");

#
# transaction-results
#
my $tr = new Biblio::ILL::ISO::TransactionResults("conditional");

#
# results-explanation
#
my $sid = new Biblio::ILL::ISO::SystemId();
$sid->set_person_name("David A. Christensen");
$sid->set_institution_symbol("MWPL");
my $loc = new Biblio::ILL::ISO::LocationInfo($sid,
					     new Biblio::ILL::ISO::SystemAddress("SMTP","DChristensen\@westman.wave.ca"),
					     new Biblio::ILL::ISO::ILLString("This is a location note.")
					     );
my $locseq = new Biblio::ILL::ISO::LocationInfoSequence( $loc );
$sid = new Biblio::ILL::ISO::SystemId();
$sid->set_institution_name("Brandon Public Library");
$loc = new Biblio::ILL::ISO::LocationInfo($sid, new Biblio::ILL::ISO::SystemAddress("SMTP","library\@brandon.mb.ca") );
$locseq->add($loc);
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.");


#-------------------------------------------------------------------------------------------

$msg = new Biblio::ILL::ISO::Answer();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );
$msg->set_transaction_results( $tr );
$msg->set_results_explanation( $rexp );

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_responder_optional_messages( $rom );
$msg->set_send_to_list( $stlts );
$msg->set_already_tried_list( $atlt );
$msg->set_responder_note( $rn );



#$msg->write("msg_04.answer.ber");
$msgs{"04.answer"} = $msg;






#========================================================================================


use Biblio::ILL::ISO::ConditionalReply;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")
						 );

#

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

my $rn = new Biblio::ILL::ISO::ILLString("This is a responder-note.");


#-------------------------------------------------------------------------------------------

$msg = new Biblio::ILL::ISO::CancelReply();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );
$msg->set_answer("true");

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_responder_note( $rn );



#$msg->write("msg_07.cancel-reply.ber");
$msgs{"07.cancel-reply"} = $msg;






#========================================================================================


use Biblio::ILL::ISO::Received;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")
						 );

#
# requester-id
#
my $reqid = new Biblio::ILL::ISO::SystemId();
$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");

#
# requester-note
#
my $rn = new Biblio::ILL::ISO::ILLString("This is a requester-note.");


#-------------------------------------------------------------------------------------------

$msg = new Biblio::ILL::ISO::Received();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );
$msg->set_date_received( $dr );
$msg->set_shipped_service_type( $sst );

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_supplier_id( $sid );
$msg->set_requester_note( $rn );



#$msg->write("msg_08.received.ber");
$msgs{"08.received"} = $msg;






#========================================================================================


use Biblio::ILL::ISO::Recall;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")

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

#-------------------------------------------------------------------------------------------

$msg = new Biblio::ILL::ISO::StatusQuery();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_note( $note );



#$msg->write("msg_18.status-query.ber");
$msgs{"18.status-query"} = $msg;






#========================================================================================


use Biblio::ILL::ISO::StatusOrErrorReport;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")
						 );

#
# requester-id
#
my $reqid = new Biblio::ILL::ISO::SystemId();
$reqid->set_person_name("David A. Christensen");

#
# responder-id
#
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);


#
# note
#
my $note = new Biblio::ILL::ISO::ILLString("This is a note.");



#-------------------------------------------------------------------------------------------

$msg = new Biblio::ILL::ISO::StatusOrErrorReport();

# Minimum required:
$msg->set_protocol_version_num("version-2");
$msg->set_transaction_id( $tid );
$msg->set_service_date_time( $sdt );
$msg->set_status_report( $sr );

# Extra, useful info:
$msg->set_requester_id( $reqid );
$msg->set_responder_id( $resid );
$msg->set_note( $note );



#$msg->write("msg_19.status-or-error-report.ber");
$msgs{"19.status-or-error-report"} = $msg;






#========================================================================================


use Biblio::ILL::ISO::Expired;

#
# transaction-id
#
my $tid = new Biblio::ILL::ISO::TransactionId("PLS","001","", 
					      new Biblio::ILL::ISO::SystemId("MWPL"));

#
# service-date-time
#
my $sdt = new Biblio::ILL::ISO::ServiceDateTime( new Biblio::ILL::ISO::DateTime("20030623","114400"),
						 new Biblio::ILL::ISO::DateTime("20030623","114015")



( run in 1.216 second using v1.01-cache-2.11-cpan-9581c071862 )