1 package OpenILS::Application::Actor::Stage;
2 use strict; use warnings;
3 use base 'OpenILS::Application';
4 use OpenILS::Application::AppUtils;
5 use OpenILS::Utils::CStoreEditor q/:funcs/;
6 use OpenSRF::Utils::Logger q/$logger/;
7 use OpenILS::Utils::Fieldmapper;
8 my $U = "OpenILS::Application::AppUtils";
11 __PACKAGE__->register_method (
12 method => 'create_user_stage',
13 api_name => 'open-ils.actor.user.stage.create',
16 Creates a new pending user account including addresses and statcats.
17 Users are added to staging tables pending staff review.
20 {desc => 'user', type => 'object', class => 'stgu'},
21 {desc => 'Mailing address. Optional', type => 'object', class => 'stgma'},
22 {desc => 'Billing address. Optional', type => 'object', class => 'stgba'},
23 {desc => 'Statcats. Optional. This is an array of "stgsc" objects', type => 'array'},
26 desc => 'username on success, Event on error',
33 sub create_user_stage {
34 my($self, $conn, $user, $mail_addr, $bill_addr, $statcats) = @_; # more?
36 return 0 unless $U->ou_ancestor_setting_value('opac.allow_pending_user');
37 return OpenILS::Event->new('BAD_PARAMS') unless $user;
39 my $e = new_editor(xact => 1);
41 my $uname = $U->create_uuid_string;
42 $user->usrname($uname);
44 $e->create_staging_user_stage($user) or return $e->die_event;
47 $mail_addr->usrname($uname);
48 $e->create_staging_mailing_address_stage($mail_addr) or return $e->die_event;
52 $bill_addr->usrname($uname);
53 $e->create_staging_billing_address_stage($bill_addr) or return $e->die_event;
57 foreach (@$statcats) {
59 $e->create_staging_statcat_stage($_) or return $e->die_event;
64 $conn->respond_complete($uname);
66 $U->create_events_for_hook('stgu.create', $user, $user->home_ou);
70 __PACKAGE__->register_method (
71 method => 'user_stage_by_org',
72 api_name => 'open-ils.actor.user.stage.retrieve.by_org',
76 sub user_stage_by_org {
77 my($self, $conn, $auth, $org_id, $limit, $offset) = @_;
79 my $e = new_editor(authtoken => $auth);
80 return $e->event unless $e->checkauth;
81 $org_id ||= $e->requestor->ws_ou;
82 return $e->event unless $e->allowed('VIEW_USER', $org_id);
87 my $stage_ids = $e->search_staging_user_stage(
89 { home_ou => $org_id, complete => 'f'},
92 order_by => {stgu => 'row_id'}
98 $conn->respond(flesh_user_stage($e, $_)) for @$stage_ids;
102 sub flesh_user_stage {
103 my($e, $row_id) = @_;
104 my $user = $e->retrieve_staging_user_stage($row_id) or return undef;
107 billing_addresses => $e->search_staging_billing_address_stage({usrname => $user->usrname}),
108 mailing_addresses => $e->search_staging_mailing_address_stage({usrname => $user->usrname}),
109 cards => $e->search_staging_card_stage({usrname => $user->usrname}),
110 statcats => $e->search_staging_statcat_stage({usrname => $user->usrname})
115 __PACKAGE__->register_method (
116 method => 'user_stage_by_uname',
117 api_name => 'open-ils.actor.user.stage.retrieve.by_username',
120 sub user_stage_by_uname {
121 my($self, $conn, $auth, $username) = @_;
123 my $e = new_editor(authtoken => $auth);
124 return $e->event unless $e->checkauth;
126 my $user = $e->search_staging_user_stage({
127 usrname => $username,
129 })->[0] or return $e->event;
131 return $e->event unless $e->allowed('VIEW_USER', $user->home_ou);
132 return flesh_user_stage($e, $user->row_id);
138 __PACKAGE__->register_method (
139 method => 'delete_user_stage',
140 api_name => 'open-ils.actor.user.stage.delete',
143 sub delete_user_stage {
144 my($self, $conn, $auth, $row_id) = @_;
146 my $e = new_editor(authtoken => $auth, xact => 1);
147 return $e->die_event unless $e->checkauth;
148 my $data = flesh_user_stage($e, $row_id) or return $e->die_event;
150 return $e->die_event unless $e->allowed('UPDATE_USER', $data->{user}->home_ou);
152 $e->delete_staging_user_stage($data->{user}) or return $e->die_event;
154 for my $addr (@{$data->{mailing_addresses}}) {
155 $e->delete_staging_mailing_address_stage($addr) or return $e->die_event;
158 for my $addr (@{$data->{billing_addresses}}) {
159 $e->delete_staging_billing_address_stage($addr) or return $e->die_event;
162 for my $card (@{$data->{cards}}) {
163 $e->delete_staging_card_stage($card) or return $e->die_event;
166 for my $statcat (@{$data->{statcats}}) {
167 $e->delete_staging_statcat_stage($statcat) or return $e->die_event;