From 7e4dd2b9c1bed469c53bccc9c89c9d178f0f318c Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 21 Feb 2008 17:34:28 +0000 Subject: [PATCH] adding authoritative method varients git-svn-id: svn://svn.open-ils.org/ILS/trunk@8808 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 10 ++++++++++ .../perlmods/OpenILS/Application/Actor/UserGroups.pm | 1 + Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 3 +++ Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 2 ++ .../perlmods/OpenILS/Application/Circ/CopyLocations.pm | 1 + .../src/perlmods/OpenILS/Application/Circ/Holds.pm | 2 ++ .../src/perlmods/OpenILS/Application/Circ/Money.pm | 3 +++ .../src/perlmods/OpenILS/Application/Circ/NonCat.pm | 1 + .../src/perlmods/OpenILS/Application/Search/Biblio.pm | 4 ++++ 9 files changed, 27 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 915fade4ee..cf521ef86d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm @@ -914,6 +914,7 @@ sub search_username { __PACKAGE__->register_method( method => "user_retrieve_by_barcode", + authoritative => 1, api_name => "open-ils.actor.user.fleshed.retrieve_by_barcode",); sub user_retrieve_by_barcode { @@ -1340,6 +1341,7 @@ sub check_user_perms4 { __PACKAGE__->register_method( method => "user_fines_summary", api_name => "open-ils.actor.user.fines.summary", + authoritative => 1, notes => <<" NOTES"); Returns a short summary of the users total open fines, excluding voided fines Params are login_session, user_id @@ -1636,6 +1638,7 @@ sub user_transaction_retrieve { __PACKAGE__->register_method( method => "hold_request_count", api_name => "open-ils.actor.user.hold_requests.count", + authoritative => 1, argc => 1, notes => <<" NOTES"); Returns hold ready/total counts @@ -1719,6 +1722,7 @@ sub checkedout_count { __PACKAGE__->register_method( method => "checked_out", api_name => "open-ils.actor.user.checked_out", + authoritative => 1, argc => 2, signature => q/ Returns a structure of circulations objects sorted by @@ -1736,6 +1740,7 @@ __PACKAGE__->register_method( __PACKAGE__->register_method( method => "checked_out", api_name => "open-ils.actor.user.checked_out.count", + authoritative => 1, argc => 2, signature => q/@see open-ils.actor.user.checked_out/ ); @@ -1907,6 +1912,7 @@ sub _checked_out_WHAT { __PACKAGE__->register_method( method => "checked_in_with_fines", api_name => "open-ils.actor.user.checked_in_with_fines", + authoritative => 1, argc => 2, signature => q/@see open-ils.actor.user.checked_out/ ); @@ -1969,6 +1975,7 @@ __PACKAGE__->register_method( __PACKAGE__->register_method( method => "user_transaction_history", api_name => "open-ils.actor.user.transactions.history.have_balance", + authoritative => 1, argc => 1, notes => <<" NOTES"); Returns a list of billable transaction ids for a user that have a balance, optionally by type @@ -1983,6 +1990,7 @@ __PACKAGE__->register_method( __PACKAGE__->register_method( method => "user_transaction_history", api_name => "open-ils.actor.user.transactions.history.have_bill", + authoritative => 1, argc => 1, notes => <<" NOTES"); Returns a list of billable transaction ids for a user that has billings @@ -2431,6 +2439,7 @@ sub workstation_list { __PACKAGE__->register_method ( method => 'fetch_patron_note', api_name => 'open-ils.actor.note.retrieve.all', + authoritative => 1, signature => q/ Returns a list of notes for a given user Requestor must have VIEW_USER permission if pub==false and @@ -2627,6 +2636,7 @@ sub usrname_exists { __PACKAGE__->register_method( method => 'barcode_exists', api_name => 'open-ils.actor.barcode.exists', + authoritative => 1, signature => q/ Returns 1 if the requested barcode exists, returns 0 otherwise / diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm index 7ab395abdf..b2ec498521 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor/UserGroups.pm @@ -13,6 +13,7 @@ sub initialize { return 1; } __PACKAGE__->register_method( method => 'get_users_from_usergroup', api_name => 'open-ils.actor.usergroup.members.retrieve', + authoritative => 1, signature => q/ Returns a list of ids for users that are in the given usergroup / diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index 4d97e1477f..326c1c3eb9 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -495,6 +495,7 @@ sub _tcn_exists { __PACKAGE__->register_method( method => "biblio_record_record_metadata", api_name => "open-ils.cat.biblio.record.metadata.retrieve", + authoritative => 1, argc => 1, #(session_id, biblio_tree ) notes => "Walks the tree and commits any changed nodes " . "adds any new nodes, and deletes any deleted nodes", @@ -625,6 +626,7 @@ sub _update_record_metadata { __PACKAGE__->register_method( method => "orgs_for_title", + authoritative => 1, api_name => "open-ils.cat.actor.org_unit.retrieve_by_title" ); @@ -643,6 +645,7 @@ sub orgs_for_title { __PACKAGE__->register_method( method => "retrieve_copies", + authoritative => 1, api_name => "open-ils.cat.asset.copy_tree.retrieve"); __PACKAGE__->register_method( diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index aca42a03e0..2076337490 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -884,6 +884,7 @@ sub age_hold_rules { __PACKAGE__->register_method( method => 'copy_details_barcode', + authoritative => 1, api_name => 'open-ils.circ.copy_details.retrieve.barcode'); sub copy_details_barcode { my( $self, $conn, $auth, $barcode ) = @_; @@ -1054,6 +1055,7 @@ sub magic_fetch { __PACKAGE__->register_method( method => "fleshed_circ_retrieve", + authoritative => 1, api_name => "open-ils.circ.fleshed.retrieve",); sub fleshed_circ_retrieve { diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/CopyLocations.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/CopyLocations.pm index ab572bfa03..f5c5dd259c 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/CopyLocations.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/CopyLocations.pm @@ -139,6 +139,7 @@ sub cl_update { __PACKAGE__->register_method( method => 'fetch_loc', + authoritative => 1, api_name => 'open-ils.circ.copy_location.retrieve', ); diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm index 348f42161a..7014ba374d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm @@ -301,6 +301,7 @@ NOTE __PACKAGE__->register_method( method => "retrieve_holds", + authoritative => 1, api_name => "open-ils.circ.holds.id_list.retrieve", notes => <register_method( method => 'uber_hold', + authoritative => 1, api_name => 'open-ils.circ.hold.details.retrieve' ); diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index 5a6245632c..6dbe760026 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -256,6 +256,7 @@ sub retrieve_payments { __PACKAGE__->register_method( method => "retrieve_payments2", + authoritative => 1, api_name => "open-ils.circ.money.payment.retrieve.all", notes => "Returns a list of payments attached to a given transaction" ); @@ -342,6 +343,7 @@ sub fetch_grocery { __PACKAGE__->register_method( method => "billing_items", + authoritative => 1, api_name => "open-ils.circ.money.billing.retrieve.all", notes =><<" NOTE"); Returns a list of billing items for the given transaction. @@ -504,6 +506,7 @@ sub _check_open_xact { __PACKAGE__->register_method ( method => 'fetch_mbts', + authoritative => 1, api_name => 'open-ils.circ.money.billable_xact_summary.retrieve' ); sub fetch_mbts { diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm index 325bed4487..5fb1dfa20b 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/NonCat.pm @@ -161,6 +161,7 @@ sub fetch_noncat { __PACKAGE__->register_method( method => 'fetch_open_noncats', + authoritative => 1, api_name => 'open-ils.circ.open_non_cataloged_circulation.user', signature => q/ Returns an id-list of non-cataloged circulations that are considered diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 4d411b30cf..fa3ba56188 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -102,6 +102,7 @@ sub record_id_to_mods { __PACKAGE__->register_method( method => "record_id_to_mods_slim", + authoritative => 1, api_name => "open-ils.search.biblio.record.mods_slim.retrieve", argc => 1, note => "Provide ID, we provide the mods" @@ -130,6 +131,7 @@ __PACKAGE__->register_method( __PACKAGE__->register_method( method => "record_id_to_copy_count", + authoritative => 1, api_name => "open-ils.search.biblio.record.copy_count.staff", ); @@ -234,6 +236,7 @@ sub volume_retrieve { __PACKAGE__->register_method( method => "fleshed_copy_retrieve_batch", + authoritative => 1, api_name => "open-ils.search.asset.copy.fleshed.batch.retrieve"); sub fleshed_copy_retrieve_batch { @@ -1324,6 +1327,7 @@ sub cn_browse { __PACKAGE__->register_method( method => "fetch_cn", + authoritative => 1, api_name => "open-ils.search.callnumber.retrieve", notes => "retrieves a callnumber based on ID", ); -- 2.43.2