1 use strict; use warnings;
2 package OpenILS::Application::Cat;
3 use OpenILS::Application::AppUtils;
4 use OpenILS::Application;
5 use OpenILS::Application::Cat::Merge;
6 use OpenILS::Application::Cat::Authority;
7 use OpenILS::Application::Cat::BibCommon;
8 use OpenILS::Application::Cat::AssetCommon;
9 use base qw/OpenILS::Application/;
10 use Time::HiRes qw(time);
11 use OpenSRF::EX qw(:try);
12 use OpenSRF::Utils::JSON;
13 use OpenILS::Utils::Fieldmapper;
15 use OpenILS::Const qw/:const/;
18 use Unicode::Normalize;
20 use OpenILS::Utils::CStoreEditor q/:funcs/;
22 use OpenSRF::Utils::SettingsClient;
23 use OpenSRF::Utils::Logger qw($logger);
24 use OpenSRF::AppSession;
26 my $U = "OpenILS::Application::AppUtils";
29 my $assetcom = 'OpenILS::Application::Cat::AssetCommon';
31 __PACKAGE__->register_method(
32 method => "retrieve_marc_template",
33 api_name => "open-ils.cat.biblio.marc_template.retrieve",
35 Returns a MARC 'record tree' based on a set of pre-defined templates.
36 Templates include : book
39 sub retrieve_marc_template {
40 my( $self, $client, $type ) = @_;
41 return $marctemplates{$type} if defined($marctemplates{$type});
42 $marctemplates{$type} = _load_marc_template($type);
43 return $marctemplates{$type};
46 __PACKAGE__->register_method(
47 method => 'fetch_marc_template_types',
48 api_name => 'open-ils.cat.marc_template.types.retrieve'
51 my $marc_template_files;
53 sub fetch_marc_template_types {
54 my( $self, $conn ) = @_;
55 __load_marc_templates();
56 return [ keys %$marc_template_files ];
59 sub __load_marc_templates {
60 return if $marc_template_files;
61 if(!$conf) { $conf = OpenSRF::Utils::SettingsClient->new; }
63 $marc_template_files = $conf->config_value(
64 "apps", "open-ils.cat","app_settings", "marctemplates" );
66 $logger->info("Loaded marc templates: " . Dumper($marc_template_files));
69 sub _load_marc_template {
72 __load_marc_templates();
74 my $template = $$marc_template_files{$type};
75 open( F, $template ) or
76 throw OpenSRF::EX::ERROR ("Unable to open MARC template file: $template : $@");
80 my $xml = join('', @xml);
82 return XML::LibXML->new->parse_string($xml)->documentElement->toString;
87 __PACKAGE__->register_method(
88 method => 'fetch_bib_sources',
89 api_name => 'open-ils.cat.bib_sources.retrieve.all');
91 sub fetch_bib_sources {
92 return OpenILS::Application::Cat::BibCommon->fetch_bib_sources();
95 __PACKAGE__->register_method(
96 method => "create_record_xml",
97 api_name => "open-ils.cat.biblio.record.xml.create.override",
98 signature => q/@see open-ils.cat.biblio.record.xml.create/);
100 __PACKAGE__->register_method(
101 method => "create_record_xml",
102 api_name => "open-ils.cat.biblio.record.xml.create",
104 Inserts a new biblio with the given XML
108 sub create_record_xml {
109 my( $self, $client, $login, $xml, $source, $oargs, $strip_grps ) = @_;
111 my $override = 1 if $self->api_name =~ /override/;
112 $oargs = { all => 1 } unless defined $oargs;
114 my( $user_obj, $evt ) = $U->checksesperm($login, 'CREATE_MARC');
117 $logger->activity("user ".$user_obj->id." creating new MARC record");
119 my $meth = $self->method_lookup("open-ils.cat.biblio.record.xml.import");
121 $meth = $self->method_lookup(
122 "open-ils.cat.biblio.record.xml.import.override") if $override;
124 my ($s) = $meth->run($login, $xml, $source, $oargs, $strip_grps);
130 __PACKAGE__->register_method(
131 method => "biblio_record_replace_marc",
132 api_name => "open-ils.cat.biblio.record.xml.update",
135 Updates the XML for a given biblio record.
136 This does not change any other aspect of the record entry
137 exception the XML, the editor, and the edit date.
138 @return The update record object
142 __PACKAGE__->register_method(
143 method => 'biblio_record_replace_marc',
144 api_name => 'open-ils.cat.biblio.record.marc.replace',
146 @param auth The authtoken
147 @param recid The record whose MARC we're replacing
148 @param newxml The new xml to use
152 __PACKAGE__->register_method(
153 method => 'biblio_record_replace_marc',
154 api_name => 'open-ils.cat.biblio.record.marc.replace.override',
155 signature => q/@see open-ils.cat.biblio.record.marc.replace/
158 sub biblio_record_replace_marc {
159 my( $self, $conn, $auth, $recid, $newxml, $source, $oargs, $strip_grps ) = @_;
160 my $e = new_editor(authtoken=>$auth, xact=>1);
161 return $e->die_event unless $e->checkauth;
162 return $e->die_event unless $e->allowed('UPDATE_MARC', $e->requestor->ws_ou);
164 my $fix_tcn = $self->api_name =~ /replace/o;
165 if($self->api_name =~ /override/o) {
166 $oargs = { all => 1 } unless defined $oargs;
171 my $res = OpenILS::Application::Cat::BibCommon->biblio_record_replace_marc(
172 $e, $recid, $newxml, $source, $fix_tcn, $oargs, $strip_grps);
174 $e->commit unless $U->event_code($res);
179 __PACKAGE__->register_method(
180 method => "template_overlay_biblio_record_entry",
181 api_name => "open-ils.cat.biblio.record_entry.template_overlay",
184 Overlays biblio.record_entry MARC values
185 @param auth The authtoken
186 @param records The record ids to be updated by the template
187 @param template The overlay template
188 @return Stream of hashes record id in the key "record" and t or f for the success of the overlay operation in key "success"
192 sub template_overlay_biblio_record_entry {
193 my($self, $conn, $auth, $records, $template) = @_;
194 my $e = new_editor(authtoken=>$auth, xact=>1);
195 return $e->die_event unless $e->checkauth;
197 $records = [$records] if (!ref($records));
199 for my $rid ( @$records ) {
200 my $rec = $e->retrieve_biblio_record_entry($rid);
203 unless ($e->allowed('UPDATE_RECORD', $rec->owner, $rec)) {
204 $conn->respond({ record => $rid, success => 'f' });
208 my $success = $e->json_query(
209 { from => [ 'vandelay.template_overlay_bib_record', $template, $rid ] }
210 )->[0]->{'vandelay.template_overlay_bib_record'};
212 $conn->respond({ record => $rid, success => $success });
219 __PACKAGE__->register_method(
220 method => "template_overlay_container",
221 api_name => "open-ils.cat.container.template_overlay",
224 Overlays biblio.record_entry MARC values
225 @param auth The authtoken
226 @param container The container, um, containing the records to be updated by the template
227 @param template The overlay template, or nothing and the method will look for a negative bib id in the container
228 @return Stream of hashes record id in the key "record" and t or f for the success of the overlay operation in key "success"
232 __PACKAGE__->register_method(
233 method => "template_overlay_container",
234 api_name => "open-ils.cat.container.template_overlay.background",
237 Overlays biblio.record_entry MARC values
238 @param auth The authtoken
239 @param container The container, um, containing the records to be updated by the template
240 @param template The overlay template, or nothing and the method will look for a negative bib id in the container
241 @return Cache key to check for status of the container overlay
245 sub template_overlay_container {
246 my($self, $conn, $auth, $container, $template) = @_;
247 my $e = new_editor(authtoken=>$auth, xact=>1);
248 return $e->die_event unless $e->checkauth;
250 my $actor = OpenSRF::AppSession->create('open-ils.actor') if ($self->api_name =~ /background$/);
252 my $items = $e->search_container_biblio_record_entry_bucket_item({ bucket => $container });
256 ($titem) = grep { $_->target_biblio_record_entry < 0 } @$items;
261 $items = [grep { $_->target_biblio_record_entry > 0 } @$items];
263 $template = $e->retrieve_biblio_record_entry( $titem->target_biblio_record_entry )->marc;
267 my $num_succeeded = 0;
269 $conn->respond_complete(
270 $actor->request('open-ils.actor.anon_cache.set_value', $auth, batch_edit_progress => {})->gather(1)
273 for my $item ( @$items ) {
274 my $rec = $e->retrieve_biblio_record_entry($item->target_biblio_record_entry);
278 if ($e->allowed('UPDATE_RECORD', $rec->owner, $rec)) {
279 $success = $e->json_query(
280 { from => [ 'vandelay.template_overlay_bib_record', $template, $rec->id ] }
281 )->[0]->{'vandelay.template_overlay_bib_record'};
284 if ($success eq 'f') {
292 'open-ils.actor.anon_cache.set_value', $auth,
293 batch_edit_progress => {
294 succeeded => $num_succeeded,
295 failed => $num_failed
299 $conn->respond({ record => $rec->id, success => $success });
302 if ($success eq 't') {
303 unless ($e->delete_container_biblio_record_entry_bucket_item($item)) {
307 'open-ils.actor.anon_cache.set_value', $auth,
308 batch_edit_progress => {
311 succeeded => $num_succeeded,
312 failed => $num_failed,
317 return { complete => 1, success => 'f' };
323 if ($titem && !$num_failed) {
324 return $e->die_event unless ($e->delete_container_biblio_record_entry_bucket_item($titem));
330 'open-ils.actor.anon_cache.set_value', $auth,
331 batch_edit_progress => {
334 succeeded => $num_succeeded,
335 failed => $num_failed,
339 return { complete => 1, success => 't' };
344 'open-ils.actor.anon_cache.set_value', $auth,
345 batch_edit_progress => {
348 succeeded => $num_succeeded,
349 failed => $num_failed,
353 return { complete => 1, success => 'f' };
359 __PACKAGE__->register_method(
360 method => "update_biblio_record_entry",
361 api_name => "open-ils.cat.biblio.record_entry.update",
363 Updates a biblio.record_entry
364 @param auth The authtoken
365 @param record The record with updated values
366 @return 1 on success, Event on error.
370 sub update_biblio_record_entry {
371 my($self, $conn, $auth, $record) = @_;
372 my $e = new_editor(authtoken=>$auth, xact=>1);
373 return $e->die_event unless $e->checkauth;
374 return $e->die_event unless $e->allowed('UPDATE_RECORD');
375 $e->update_biblio_record_entry($record) or return $e->die_event;
380 __PACKAGE__->register_method(
381 method => "undelete_biblio_record_entry",
382 api_name => "open-ils.cat.biblio.record_entry.undelete",
384 Un-deletes a record and sets active=true
385 @param auth The authtoken
386 @param record The record_id to ressurect
387 @return 1 on success, Event on error.
390 sub undelete_biblio_record_entry {
391 my($self, $conn, $auth, $record_id) = @_;
392 my $e = new_editor(authtoken=>$auth, xact=>1);
393 return $e->die_event unless $e->checkauth;
394 return $e->die_event unless $e->allowed('UPDATE_RECORD');
396 my $record = $e->retrieve_biblio_record_entry($record_id)
397 or return $e->die_event;
398 $record->deleted('f');
399 $record->active('t');
401 # Set the leader/05 to indicate that the record has been corrected/revised
402 my $marc = $record->marc();
403 $marc =~ s{(<leader>.{5}).}{$1c};
404 $record->marc($marc);
406 # no 2 non-deleted records can have the same tcn_value
407 my $existing = $e->search_biblio_record_entry(
409 tcn_value => $record->tcn_value,
410 id => {'!=' => $record_id}
412 return OpenILS::Event->new('TCN_EXISTS') if @$existing;
414 $e->update_biblio_record_entry($record) or return $e->die_event;
420 __PACKAGE__->register_method(
421 method => "biblio_record_xml_import",
422 api_name => "open-ils.cat.biblio.record.xml.import.override",
423 signature => q/@see open-ils.cat.biblio.record.xml.import/);
425 __PACKAGE__->register_method(
426 method => "biblio_record_xml_import",
427 api_name => "open-ils.cat.biblio.record.xml.import",
428 notes => <<" NOTES");
429 Takes a marcxml record and imports the record into the database. In this
430 case, the marcxml record is assumed to be a complete record (i.e. valid
431 MARC). The title control number is taken from (whichever comes first)
432 tags 001, 039[ab], 020a, 022a, 010, 035a and whichever does not already exist
434 user_session must have IMPORT_MARC permissions
438 sub biblio_record_xml_import {
439 my( $self, $client, $authtoken, $xml, $source, $auto_tcn, $oargs, $strip_grps) = @_;
440 my $e = new_editor(xact=>1, authtoken=>$authtoken);
441 return $e->die_event unless $e->checkauth;
442 return $e->die_event unless $e->allowed('IMPORT_MARC', $e->requestor->ws_ou);
444 if ($self->api_name =~ /override/) {
445 $oargs = { all => 1 } unless defined $oargs;
449 my $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
450 $e, $xml, $source, $auto_tcn, $oargs, $strip_grps);
452 return $record if $U->event_code($record);
459 __PACKAGE__->register_method(
460 method => "biblio_record_record_metadata",
461 api_name => "open-ils.cat.biblio.record.metadata.retrieve",
463 argc => 2, #(session_id, list of bre ids )
464 notes => "Returns a list of slim-downed bre objects based on the " .
468 sub biblio_record_record_metadata {
469 my( $self, $client, $authtoken, $ids ) = @_;
471 return [] unless $ids and @$ids;
473 my $editor = new_editor(authtoken => $authtoken);
474 return $editor->event unless $editor->checkauth;
475 return $editor->event unless $editor->allowed('VIEW_USER');
480 return $editor->event unless
481 my $rec = $editor->retrieve_biblio_record_entry($_);
482 $rec->creator($editor->retrieve_actor_user($rec->creator));
483 $rec->editor($editor->retrieve_actor_user($rec->editor));
484 $rec->attrs($U->get_bre_attrs([$rec->id], $editor)->{$rec->id});
485 $rec->clear_marc; # slim the record down
486 push( @results, $rec );
494 __PACKAGE__->register_method(
495 method => "biblio_record_marc_cn",
496 api_name => "open-ils.cat.biblio.record.marc_cn.retrieve",
497 argc => 1, #(bib id )
499 desc => 'Extracts call number candidates from a bibliographic record',
501 {desc => 'Record ID', type => 'number'},
502 {desc => '(Optional) Classification scheme ID', type => 'number'},
505 return => {desc => 'Hash of candidate call numbers identified by tag' }
508 sub biblio_record_marc_cn {
509 my( $self, $client, $id, $class ) = @_;
511 my $e = new_editor();
512 my $marc = $e->retrieve_biblio_record_entry($id)->marc;
514 my $doc = XML::LibXML->new->parse_string($marc);
515 $doc->documentElement->setNamespace( "http://www.loc.gov/MARC21/slim", "marc", 1 );
520 @fields = split(/,/, $e->retrieve_asset_call_number_class($class)->field);
522 @fields = qw/050ab 055ab 060ab 070ab 080ab 082ab 086ab 088ab 090 092 096 098 099/;
525 # Get field/subfield combos based on acnc value; for example "050ab,055ab"
527 foreach my $field (@fields) {
528 my $tag = substr($field, 0, 3);
529 $logger->debug("Tag = $tag");
530 my @node = $doc->findnodes("//marc:datafield[\@tag='$tag']");
532 # Now parse the subfields and build up the subfield XPath
533 my @subfields = split(//, substr($field, 3));
535 # If they give us no subfields to parse, default to just the 'a'
540 foreach my $sf (@subfields) {
541 $subxpath .= "\@code='$sf' or ";
543 $subxpath = substr($subxpath, 0, -4);
544 $logger->debug("subxpath = $subxpath");
546 # Find the contents of the specified subfields
547 foreach my $x (@node) {
548 my $cn = $x->findvalue("marc:subfield[$subxpath]");
549 push @res, {$tag => $cn} if ($cn);
556 __PACKAGE__->register_method(
557 method => 'autogen_barcodes',
558 api_name => "open-ils.cat.item.barcode.autogen",
560 desc => 'Returns N generated barcodes following a specified barcode.',
562 {desc => 'Authentication token', type => 'string'},
563 {desc => 'Barcode which the sequence should follow from', type => 'string'},
564 {desc => 'Number of barcodes to generate', type => 'number'},
565 {desc => 'Options hash. Currently you can pass in checkdigit : false to disable the use of checkdigits.'}
567 return => {desc => 'Array of generated barcodes'}
571 sub autogen_barcodes {
572 my( $self, $client, $auth, $barcode, $num_of_barcodes, $options ) = @_;
573 my $e = new_editor(authtoken => $auth);
574 return $e->event unless $e->checkauth;
575 return $e->event unless $e->allowed('UPDATE_COPY', $e->requestor->ws_ou);
578 my $barcode_text = '';
579 my $barcode_number = 0;
581 if ($barcode =~ /^(\D+)/) { $barcode_text = $1; }
582 if ($barcode =~ /(\d+)$/) { $barcode_number = $1; }
585 for (my $i = 1; $i <= $num_of_barcodes; $i++) {
586 my $calculated_barcode;
588 # default is to use checkdigits, so looking for an explicit false here
589 if (defined $$options{'checkdigit'} && ! $$options{'checkdigit'}) {
590 $calculated_barcode = $barcode_number + $i;
592 if ($barcode_number =~ /^\d{8}$/) {
593 $calculated_barcode = add_codabar_checkdigit($barcode_number + $i, 0);
594 } elsif ($barcode_number =~ /^\d{9}$/) {
595 $calculated_barcode = add_codabar_checkdigit($barcode_number + $i*10, 1); # strip last digit
596 } elsif ($barcode_number =~ /^\d{13}$/) {
597 $calculated_barcode = add_codabar_checkdigit($barcode_number + $i, 0);
598 } elsif ($barcode_number =~ /^\d{14}$/) {
599 $calculated_barcode = add_codabar_checkdigit($barcode_number + $i*10, 1); # strip last digit
601 $calculated_barcode = $barcode_number + $i;
604 push @res, $barcode_text . $calculated_barcode;
609 # Codabar doesn't define a checkdigit algorithm, but this one is typically used by libraries. gmcharlt++
610 sub add_codabar_checkdigit {
612 my $strip_last_digit = shift;
614 return $barcode if $barcode =~ /\D/;
615 $barcode = substr($barcode, 0, length($barcode)-1) if $strip_last_digit;
616 my @digits = split //, $barcode;
618 for (my $i = 1; $i < length($barcode); $i+=2) { # for a 13/14 digit barcode, would expect 1,3,5,7,9,11
619 $total += $digits[$i];
621 for (my $i = 0; $i < length($barcode); $i+=2) { # for a 13/14 digit barcode, would expect 0,2,4,6,8,10,12
622 $total += (2 * $digits[$i] >= 10) ? (2 * $digits[$i] - 9) : (2 * $digits[$i]);
624 my $remainder = $total % 10;
625 my $checkdigit = ($remainder == 0) ? $remainder : 10 - $remainder;
626 return $barcode . $checkdigit;
629 __PACKAGE__->register_method(
630 method => "orgs_for_title",
632 api_name => "open-ils.cat.actor.org_unit.retrieve_by_title"
636 my( $self, $client, $record_id ) = @_;
638 my $vols = $U->simple_scalar_request(
640 "open-ils.cstore.direct.asset.call_number.search.atomic",
641 { record => $record_id, deleted => 'f' });
643 my $orgs = { map {$_->owning_lib => 1 } @$vols };
644 return [ keys %$orgs ];
648 __PACKAGE__->register_method(
649 method => "retrieve_copies",
651 api_name => "open-ils.cat.asset.copy_tree.retrieve");
653 __PACKAGE__->register_method(
654 method => "retrieve_copies",
655 api_name => "open-ils.cat.asset.copy_tree.global.retrieve");
657 # user_session may be null/undef
658 sub retrieve_copies {
660 my( $self, $client, $user_session, $docid, @org_ids ) = @_;
662 if(ref($org_ids[0])) { @org_ids = @{$org_ids[0]}; }
666 # grabbing copy trees should be available for everyone..
667 if(!@org_ids and $user_session) {
668 my($user_obj, $evt) = OpenILS::Application::AppUtils->checkses($user_session);
670 @org_ids = ($user_obj->home_ou);
673 # Create an editor that can be shared across all iterations of
674 # _build_volume_list(). Otherwise, .authoritative calls can result
675 # in creating too many cstore connections.
676 my $e = new_editor();
678 if( $self->api_name =~ /global/ ) {
679 return _build_volume_list($e, { record => $docid, deleted => 'f', label => { '<>' => '##URI##' } } );
684 for my $orgid (@org_ids) {
685 my $vols = _build_volume_list($e,
686 { record => $docid, owning_lib => $orgid, deleted => 'f', label => { '<>' => '##URI##' } } );
687 push( @all_vols, @$vols );
697 sub _build_volume_list {
699 my $search_hash = shift;
703 $search_hash->{deleted} = 'f';
705 my $vols = $e->search_asset_call_number([
709 flesh_fields => { acn => ['prefix','suffix','label_class'] },
710 'order_by' => { 'acn' => 'oils_text_as_bytea(label_sortkey), oils_text_as_bytea(label), id, owning_lib' }
716 for my $volume (@$vols) {
718 my $copies = $e->search_asset_copy([
719 { call_number => $volume->id , deleted => 'f' },
725 bmp => { type => 'left' }
730 flesh_fields => { acp => ['stat_cat_entries','parts'] },
732 {'class' => 'bmp', 'field' => 'label_sortkey', 'transform' => 'oils_text_as_bytea'},
733 {'class' => 'bmp', 'field' => 'label', 'transform' => 'oils_text_as_bytea'},
734 {'class' => 'acp', 'field' => 'barcode'}
739 for my $c (@$copies) {
740 if( $c->status == OILS_COPY_STATUS_CHECKED_OUT ) {
742 $e->search_action_circulation(
744 { target_copy => $c->id },
746 order_by => { circ => 'xact_start desc' },
755 $volume->copies($copies);
756 push( @volumes, $volume );
759 #$session->disconnect();
765 __PACKAGE__->register_method(
766 method => "fleshed_copy_update",
767 api_name => "open-ils.cat.asset.copy.fleshed.batch.update",);
769 __PACKAGE__->register_method(
770 method => "fleshed_copy_update",
771 api_name => "open-ils.cat.asset.copy.fleshed.batch.update.override",);
774 sub fleshed_copy_update {
775 my( $self, $conn, $auth, $copies, $delete_stats, $oargs, $create_parts ) = @_;
776 return 1 unless ref $copies;
777 my( $reqr, $evt ) = $U->checkses($auth);
779 my $editor = new_editor(requestor => $reqr, xact => 1);
780 if ($self->api_name =~ /override/) {
781 $oargs = { all => 1 } unless defined $oargs;
785 my $retarget_holds = [];
786 $evt = OpenILS::Application::Cat::AssetCommon->update_fleshed_copies(
787 $editor, $oargs, undef, $copies, $delete_stats, $retarget_holds, undef, $create_parts);
790 $logger->info("fleshed copy update failed with event: ".OpenSRF::Utils::JSON->perl2JSON($evt));
796 $logger->info("fleshed copy update successfully updated ".scalar(@$copies)." copies");
797 reset_hold_list($auth, $retarget_holds);
802 sub reset_hold_list {
803 my($auth, $hold_ids) = @_;
804 return unless @$hold_ids;
805 $logger->info("reseting holds after copy status change: @$hold_ids");
806 my $ses = OpenSRF::AppSession->create('open-ils.circ');
807 $ses->request('open-ils.circ.hold.reset.batch', $auth, $hold_ids);
810 __PACKAGE__->register_method(
811 method => "transfer_copies_to_volume",
812 api_name => "open-ils.cat.transfer_copies_to_volume",
815 desc => 'Transfers specified copies to the specified call number, and changes Circ Lib to match the new Owning Lib.',
817 {desc => 'Authtoken', type => 'string'},
818 {desc => 'Call Number ID', type => 'number'},
819 {desc => 'Array of Copy IDs', type => 'array'},
822 return => {desc => '1 on success, Event on error'}
825 __PACKAGE__->register_method(
826 method => "transfer_copies_to_volume",
827 api_name => "open-ils.cat.transfer_copies_to_volume.override",);
829 sub transfer_copies_to_volume {
830 my( $self, $conn, $auth, $volume, $copies, $oargs ) = @_;
831 my $delete_stats = 1;
832 my $force_delete_empty_bib = undef;
833 my $create_parts = undef;
837 return 1 unless ref $copies;
838 my( $reqr, $evt ) = $U->checkses($auth);
840 my $editor = new_editor(requestor => $reqr, xact => 1);
841 if ($self->api_name =~ /override/) {
842 $oargs = { all => 1 } unless defined $oargs;
847 # does the volume exist? good, we also need its owning_lib later
848 my( $cn, $cn_evt ) = $U->fetch_callnumber( $volume, 0, $editor );
849 return $cn_evt if $cn_evt;
851 # flesh and munge the copies
852 my $fleshed_copies = [];
854 foreach my $copy_id ( @{ $copies } ) {
855 $copy = $editor->search_asset_copy([
856 { id => $copy_id , deleted => 'f' },
862 bmp => { type => 'left' }
867 flesh_fields => { acp => ['parts'] }
870 return OpenILS::Event->new('ASSET_COPY_NOT_FOUND') if !$copy;
871 $copy->call_number( $volume );
872 $copy->circ_lib( $cn->owning_lib() );
873 $copy->ischanged( 't' );
874 push @$fleshed_copies, $copy;
878 my $retarget_holds = [];
879 $evt = OpenILS::Application::Cat::AssetCommon->update_fleshed_copies(
880 $editor, $oargs, undef, $fleshed_copies, $delete_stats, $retarget_holds, $force_delete_empty_bib, $create_parts);
883 $logger->info("copy to volume transfer failed with event: ".OpenSRF::Utils::JSON->perl2JSON($evt));
888 # take care of the parts
889 for my $copy (@$fleshed_copies) {
890 my $parts = $copy->parts;
893 foreach my $part (@$parts) {
894 my $part_label = $part->label;
895 my $part_obj = $editor->search_biblio_monograph_part(
902 $part_obj = Fieldmapper::biblio::monograph_part->new();
903 $part_obj->label( $part_label );
904 $part_obj->record( $cn->record );
905 unless($editor->create_biblio_monograph_part($part_obj)) {
906 return $editor->die_event if $editor->die_event;
909 push @$part_objs, $part_obj;
911 $copy->parts( $part_objs );
913 $evt = OpenILS::Application::Cat::AssetCommon->update_copy_parts($editor, $copy, 1); #delete_parts=1
918 $logger->info("copy to volume transfer successfully updated ".scalar(@$copies)." copies");
919 reset_hold_list($auth, $retarget_holds);
924 __PACKAGE__->register_method(
925 method => 'in_db_merge',
926 api_name => 'open-ils.cat.biblio.records.merge',
928 Merges a group of records
929 @param auth The login session key
930 @param master The id of the record all other records should be merged into
931 @param records Array of records to be merged into the master record
932 @return 1 on success, Event on error.
937 my( $self, $conn, $auth, $master, $records ) = @_;
939 my $editor = new_editor( authtoken => $auth, xact => 1 );
940 return $editor->die_event unless $editor->checkauth;
941 return $editor->die_event unless $editor->allowed('MERGE_BIB_RECORDS'); # TODO see below about record ownership
944 for my $source ( @$records ) {
945 #XXX we actually /will/ want to check perms for master and sources after record ownership exists
947 # This stored proc (asset.merge_record_assets(target,source)) has the side effects of
948 # moving call_number, title-type (and some volume-type) hold_request and uri-mapping
949 # objects from the source record to the target record, so must be called from within
952 $count += $editor->json_query({
956 transform => 'asset.merge_record_assets',
962 where => { id => $master }
963 })->[0]->{count}; # count of objects moved, of all types
971 __PACKAGE__->register_method(
972 method => 'in_db_auth_merge',
973 api_name => 'open-ils.cat.authority.records.merge',
975 Merges a group of authority records
976 @param auth The login session key
977 @param master The id of the record all other records should be merged into
978 @param records Array of records to be merged into the master record
979 @return 1 on success, Event on error.
983 sub in_db_auth_merge {
984 my( $self, $conn, $auth, $master, $records ) = @_;
986 my $editor = new_editor( authtoken => $auth, xact => 1 );
987 return $editor->die_event unless $editor->checkauth;
988 return $editor->die_event unless $editor->allowed('MERGE_AUTH_RECORDS'); # TODO see below about record ownership
991 for my $source ( @$records ) {
992 $count += $editor->json_query({
996 transform => 'authority.merge_records',
1002 where => { id => $master }
1003 })->[0]->{count}; # count of objects moved, of all types
1010 __PACKAGE__->register_method(
1011 method => 'calculate_marc_merge',
1012 api_name => 'open-ils.cat.merge.marc.per_profile',
1014 Calculate the result of merging one or more MARC records
1015 per the specified merge profile
1016 @param auth The login session key
1017 @param merge_profile ID of the record merge profile
1018 @param records Array of two or more MARCXML records to be
1019 merged. If two are supplied, the first
1020 is treated as the record to be overlaid,
1021 and the the incoming record that will
1022 overlay the first. If more than two are
1023 supplied, the first is treated as the
1024 record to be overlaid, and each following
1025 record in turn will be merged into that
1027 @return MARCXML string of the results of the merge
1030 __PACKAGE__->register_method(
1031 method => 'calculate_bib_marc_merge',
1032 api_name => 'open-ils.cat.merge.biblio.per_profile',
1034 Calculate the result of merging one or more bib records
1035 per the specified merge profile
1036 @param auth The login session key
1037 @param merge_profile ID of the record merge profile
1038 @param records Array of two or more bib record IDs of
1039 the bibs to be merged.
1040 @return MARCXML string of the results of the merge
1043 __PACKAGE__->register_method(
1044 method => 'calculate_authority_marc_merge',
1045 api_name => 'open-ils.cat.merge.authority.per_profile',
1047 Calculate the result of merging one or more authority records
1048 per the specified merge profile
1049 @param auth The login session key
1050 @param merge_profile ID of the record merge profile
1051 @param records Array of two or more bib record IDs of
1052 the bibs to be merged.
1053 @return MARCXML string of the results of the merge
1057 sub _handle_marc_merge {
1058 my ($e, $merge_profile_id, $records) = @_;
1060 my $result = shift @$records;
1061 foreach my $incoming (@$records) {
1062 my $response = $e->json_query({
1064 'vandelay.merge_record_xml_using_profile',
1069 return unless ref($response);
1070 $result = $response->[0]->{'vandelay.merge_record_xml_using_profile'};
1075 sub calculate_marc_merge {
1076 my( $self, $conn, $auth, $merge_profile_id, $records ) = @_;
1078 my $e = new_editor(authtoken=>$auth, xact=>1);
1079 return $e->die_event unless $e->checkauth;
1081 my $merge_profile = $e->retrieve_vandelay_merge_profile($merge_profile_id)
1082 or return $e->die_event;
1083 return $e->die_event unless ref($records) && @$records >= 2;
1085 return _handle_marc_merge($e, $merge_profile_id, $records)
1088 sub calculate_bib_marc_merge {
1089 my( $self, $conn, $auth, $merge_profile_id, $bib_ids ) = @_;
1091 my $e = new_editor(authtoken=>$auth, xact=>1);
1092 return $e->die_event unless $e->checkauth;
1094 my $merge_profile = $e->retrieve_vandelay_merge_profile($merge_profile_id)
1095 or return $e->die_event;
1096 return $e->die_event unless ref($bib_ids) && @$bib_ids >= 2;
1099 foreach my $id (@$bib_ids) {
1100 my $bre = $e->retrieve_biblio_record_entry($id) or return $e->die_event;
1101 push @$records, $bre->marc();
1104 return _handle_marc_merge($e, $merge_profile_id, $records)
1107 sub calculate_authority_marc_merge {
1108 my( $self, $conn, $auth, $merge_profile_id, $authority_ids ) = @_;
1110 my $e = new_editor(authtoken=>$auth, xact=>1);
1111 return $e->die_event unless $e->checkauth;
1113 my $merge_profile = $e->retrieve_vandelay_merge_profile($merge_profile_id)
1114 or return $e->die_event;
1115 return $e->die_event unless ref($authority_ids) && @$authority_ids >= 2;
1118 foreach my $id (@$authority_ids) {
1119 my $are = $e->retrieve_authority_record_entry($id) or return $e->die_event;
1120 push @$records, $are->marc();
1123 return _handle_marc_merge($e, $merge_profile_id, $records)
1126 __PACKAGE__->register_method(
1127 method => "fleshed_volume_update",
1128 api_name => "open-ils.cat.asset.volume.fleshed.batch.update",);
1130 __PACKAGE__->register_method(
1131 method => "fleshed_volume_update",
1132 api_name => "open-ils.cat.asset.volume.fleshed.batch.update.override",);
1134 sub fleshed_volume_update {
1135 my( $self, $conn, $auth, $volumes, $delete_stats, $options, $oargs ) = @_;
1136 my( $reqr, $evt ) = $U->checkses($auth);
1137 return $evt if $evt;
1140 if ($self->api_name =~ /override/) {
1141 $oargs = { all => 1 } unless defined $oargs;
1145 my $editor = new_editor( requestor => $reqr, xact => 1 );
1146 my $retarget_holds = [];
1147 my $auto_merge_vols = $options->{auto_merge_vols};
1148 my $create_parts = $options->{create_parts};
1151 for my $vol (@$volumes) {
1152 $logger->info("vol-update: investigating volume ".$vol->id);
1154 $vol->editor($reqr->id);
1155 $vol->edit_date('now');
1157 my $copies = $vol->copies;
1160 $vol->editor($editor->requestor->id);
1161 $vol->edit_date('now');
1163 if( $vol->isdeleted ) {
1165 $logger->info("vol-update: deleting volume");
1166 return $editor->die_event unless
1167 $editor->allowed('UPDATE_VOLUME', $vol->owning_lib);
1169 if(my $evt = $assetcom->delete_volume($editor, $vol, $oargs, $$options{force_delete_copies})) {
1174 return $editor->die_event unless
1175 $editor->update_asset_call_number($vol);
1177 } elsif( $vol->isnew ) {
1178 $logger->info("vol-update: creating volume");
1179 ($vol,$evt) = $assetcom->create_volume( $auto_merge_vols ? { all => 1} : $oargs, $editor, $vol );
1180 return $evt if $evt;
1182 } elsif( $vol->ischanged ) {
1183 $logger->info("vol-update: update volume");
1184 my $resp = update_volume($vol, $editor, ($oargs->{all} or grep { $_ eq 'VOLUME_LABEL_EXISTS' } @{$oargs->{events}} or $auto_merge_vols));
1185 return $resp->{evt} if $resp->{evt};
1186 $vol = $resp->{merge_vol} if $resp->{merge_vol};
1189 # now update any attached copies
1190 if( $copies and @$copies and !$vol->isdeleted ) {
1191 $_->call_number($vol->id) for @$copies;
1192 $evt = $assetcom->update_fleshed_copies(
1193 $editor, $oargs, $vol, $copies, $delete_stats, $retarget_holds, undef, $create_parts);
1194 return $evt if $evt;
1195 push( @$copy_ids, $_->id ) for @$copies;
1200 reset_hold_list($auth, $retarget_holds);
1201 if ($options->{return_copy_ids}) {
1204 return scalar(@$volumes);
1212 my $auto_merge = shift;
1216 return {evt => $editor->event} unless
1217 $editor->allowed('UPDATE_VOLUME', $vol->owning_lib);
1219 return {evt => $evt}
1220 if ( $evt = OpenILS::Application::Cat::AssetCommon->org_cannot_have_vols($editor, $vol->owning_lib) );
1222 my $vols = $editor->search_asset_call_number({
1223 owning_lib => $vol->owning_lib,
1224 record => $vol->record,
1225 label => $vol->label,
1226 prefix => $vol->prefix,
1227 suffix => $vol->suffix,
1229 id => {'!=' => $vol->id}
1236 # If the auto-merge option is on, merge our updated volume into the existing
1237 # volume with the same record + owner + label.
1238 ($merge_vol, $evt) = OpenILS::Application::Cat::Merge::merge_volumes($editor, [$vol], $vols->[0]);
1239 return {evt => $evt, merge_vol => $merge_vol};
1242 return {evt => OpenILS::Event->new('VOLUME_LABEL_EXISTS', payload => $vol->id)};
1246 return {evt => $editor->die_event} unless $editor->update_asset_call_number($vol);
1252 __PACKAGE__->register_method (
1253 method => 'delete_bib_record',
1254 api_name => 'open-ils.cat.biblio.record_entry.delete');
1256 sub delete_bib_record {
1257 my($self, $conn, $auth, $rec_id) = @_;
1258 my $e = new_editor(xact=>1, authtoken=>$auth);
1259 return $e->die_event unless $e->checkauth;
1260 return $e->die_event unless $e->allowed('DELETE_RECORD', $e->requestor->ws_ou);
1261 my $vols = $e->search_asset_call_number({record=>$rec_id, deleted=>'f'});
1262 return OpenILS::Event->new('RECORD_NOT_EMPTY', payload=>$rec_id) if @$vols;
1263 my $evt = OpenILS::Application::Cat::BibCommon->delete_rec($e, $rec_id);
1264 if($evt) { $e->rollback; return $evt; }
1271 __PACKAGE__->register_method (
1272 method => 'batch_volume_transfer',
1273 api_name => 'open-ils.cat.asset.volume.batch.transfer',
1276 __PACKAGE__->register_method (
1277 method => 'batch_volume_transfer',
1278 api_name => 'open-ils.cat.asset.volume.batch.transfer.override',
1282 sub batch_volume_transfer {
1283 my( $self, $conn, $auth, $args, $oargs ) = @_;
1286 my $rec = $$args{docid};
1287 my $o_lib = $$args{lib};
1288 my $vol_ids = $$args{volumes};
1290 my $override = 1 if $self->api_name =~ /override/;
1291 $oargs = { all => 1 } unless defined $oargs;
1293 $logger->info("merge: transferring volumes to lib=$o_lib and record=$rec");
1295 my $e = new_editor(authtoken => $auth, xact =>1);
1296 return $e->event unless $e->checkauth;
1297 return $e->event unless $e->allowed('UPDATE_VOLUME', $o_lib);
1299 my $dorg = $e->retrieve_actor_org_unit($o_lib)
1300 or return $e->event;
1302 my $ou_type = $e->retrieve_actor_org_unit_type($dorg->ou_type)
1303 or return $e->event;
1305 return $evt if ( $evt = OpenILS::Application::Cat::AssetCommon->org_cannot_have_vols($e, $o_lib) );
1307 my $vols = $e->batch_retrieve_asset_call_number($vol_ids);
1312 for my $vol (@$vols) {
1314 # if we've already looked at this volume, go to the next
1315 next if !$vol or grep { $vol->id == $_ } @seen;
1317 # grab all of the volumes in the list that have
1318 # the same label so they can be merged
1319 my @all = grep { $_->label eq $vol->label } @$vols;
1321 # take note of the fact that we've looked at this set of volumes
1322 push( @seen, $_->id ) for @all;
1323 push( @rec_ids, $_->record ) for @all;
1325 # for each volume, see if there are any copies that have a
1326 # remote circ_lib (circ_lib != vol->owning_lib and != $o_lib ).
1328 unless( $override && ($oargs->{all} || grep { $_ eq 'COPY_REMOTE_CIRC_LIB' } @{$oargs->{events}}) ) {
1331 $logger->debug("merge: searching for copies with remote circ_lib for volume ".$v->id);
1333 call_number => $v->id,
1334 circ_lib => { "not in" => [ $o_lib, $v->owning_lib ] },
1338 my $copies = $e->search_asset_copy($args, {idlist=>1});
1340 # if the copy's circ_lib matches the destination lib,
1342 return OpenILS::Event->new('COPY_REMOTE_CIRC_LIB') if @$copies;
1346 # record the difference between the destination bib and the present bib
1347 my $same_bib = $vol->record == $rec;
1349 # see if there is a volume at the destination lib that
1350 # already has the requested label
1351 my $existing_vol = $e->search_asset_call_number(
1353 label => $vol->label,
1354 prefix => $vol->prefix,
1355 suffix => $vol->suffix,
1357 owning_lib => $o_lib,
1362 if( $existing_vol ) {
1364 if( grep { $_->id == $existing_vol->id } @all ) {
1365 # this volume is already accounted for in our list of volumes to merge
1366 $existing_vol = undef;
1369 # this volume exists on the destination record/owning_lib and must
1370 # be used as the destination for merging
1371 $logger->debug("merge: volume already exists at destination record: ".
1372 $existing_vol->id.' : '.$existing_vol->label) if $existing_vol;
1376 if( @all > 1 || $existing_vol ) {
1377 $logger->info("merge: found collisions in volume transfer");
1378 my @args = ($e, \@all);
1379 @args = ($e, \@all, $existing_vol) if $existing_vol;
1380 ($vol, $evt) = OpenILS::Application::Cat::Merge::merge_volumes(@args);
1381 return $evt if $evt;
1384 if( !$existing_vol ) {
1386 $vol->owning_lib($o_lib);
1388 $vol->editor($e->requestor->id);
1389 $vol->edit_date('now');
1391 $logger->info("merge: updating volume ".$vol->id);
1392 $e->update_asset_call_number($vol) or return $e->event;
1395 $logger->info("merge: bypassing volume update because existing volume used as target");
1398 # regardless of what volume was used as the destination,
1399 # update any copies that have moved over to the new lib
1400 my $copies = $e->search_asset_copy([
1401 { call_number => $vol->id , deleted => 'f' },
1407 bmp => { type => 'left' }
1412 flesh_fields => { acp => ['parts'] }
1416 # update circ lib on the copies - make this a method flag?
1417 for my $copy (@$copies) {
1418 next if $copy->circ_lib == $o_lib;
1419 $logger->info("merge: transfer moving circ lib on copy ".$copy->id);
1420 $copy->circ_lib($o_lib);
1421 $copy->editor($e->requestor->id);
1422 $copy->edit_date('now');
1423 $e->update_asset_copy($copy) or return $e->event;
1426 # update parts if volume is moving bib records
1428 for my $copy (@$copies) {
1429 my $parts = $copy->parts;
1432 foreach my $part (@$parts) {
1433 my $part_label = $part->label;
1434 my $part_obj = $e->search_biblio_monograph_part(
1442 $part_obj = Fieldmapper::biblio::monograph_part->new();
1443 $part_obj->label( $part_label );
1444 $part_obj->record( $rec );
1445 unless($e->create_biblio_monograph_part($part_obj)) {
1446 return $e->die_event if $e->die_event;
1449 push @$part_objs, $part_obj;
1452 $copy->parts( $part_objs );
1453 $copy->ischanged(1);
1454 $evt = OpenILS::Application::Cat::AssetCommon->update_copy_parts($e, $copy, 1); #delete_parts=1
1455 return $evt if $evt;
1459 # Now see if any empty records need to be deleted after all of this
1462 $logger->debug("merge: seeing if we should delete record $_...");
1463 $evt = OpenILS::Application::Cat::BibCommon->delete_rec($e, $_)
1464 if OpenILS::Application::Cat::BibCommon->title_is_empty($e, $_);
1465 return $evt if $evt;
1469 $logger->info("merge: transfer succeeded");
1477 __PACKAGE__->register_method(
1478 api_name => 'open-ils.cat.call_number.find_or_create',
1479 method => 'find_or_create_volume',
1482 sub find_or_create_volume {
1483 my( $self, $conn, $auth, $label, $record_id, $org_id, $prefix, $suffix, $label_class ) = @_;
1484 my $e = new_editor(authtoken=>$auth, xact=>1);
1485 return $e->die_event unless $e->checkauth;
1486 my ($vol, $evt, $exists) =
1487 OpenILS::Application::Cat::AssetCommon->find_or_create_volume($e, $label, $record_id, $org_id, $prefix, $suffix, $label_class);
1488 return $evt if $evt;
1489 $e->rollback if $exists;
1491 return { 'acn_id' => $vol->id, 'existed' => $exists };
1495 __PACKAGE__->register_method(
1496 method => "create_serial_record_xml",
1497 api_name => "open-ils.cat.serial.record.xml.create.override",
1498 signature => q/@see open-ils.cat.serial.record.xml.create/);
1500 __PACKAGE__->register_method(
1501 method => "create_serial_record_xml",
1502 api_name => "open-ils.cat.serial.record.xml.create",
1504 Inserts a new serial record with the given XML
1508 sub create_serial_record_xml {
1509 my( $self, $client, $login, $source, $owning_lib, $record_id, $xml, $oargs ) = @_;
1511 my $override = 1 if $self->api_name =~ /override/; # not currently used
1512 $oargs = { all => 1 } unless defined $oargs; # Not currently used, but here for consistency.
1514 my $e = new_editor(xact=>1, authtoken=>$login);
1515 return $e->die_event unless $e->checkauth;
1516 return $e->die_event unless $e->allowed('CREATE_MFHD_RECORD', $owning_lib);
1518 # Auto-populate the location field of a placeholder MFHD record with the library name
1519 my $aou = $e->retrieve_actor_org_unit($owning_lib) or return $e->die_event;
1521 my $mfhd = Fieldmapper::serial::record_entry->new;
1523 $mfhd->source($source) if $source;
1524 $mfhd->record($record_id);
1525 $mfhd->creator($e->requestor->id);
1526 $mfhd->editor($e->requestor->id);
1527 $mfhd->create_date('now');
1528 $mfhd->edit_date('now');
1529 $mfhd->owning_lib($owning_lib);
1531 # If the caller did not pass in MFHD XML, create a placeholder record.
1532 # The placeholder will only contain the name of the owning library.
1533 # The goal is to generate common patterns for the caller in the UI that
1534 # then get passed in here.
1536 my $aou_name = $aou->name;
1539 xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"
1540 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
1541 xmlns="http://www.loc.gov/MARC21/slim">
1542 <leader>00307ny a22001094 4500</leader>
1543 <controlfield tag="001">42153</controlfield>
1544 <controlfield tag="005">20090601182414.0</controlfield>
1545 <controlfield tag="004">$record_id</controlfield>
1546 <controlfield tag="008"> 4u####8###l# 4 uueng1 </controlfield>
1547 <datafield tag="852" ind1=" " ind2=" "> <subfield code="b">$aou_name</subfield></datafield>
1551 my $marcxml = XML::LibXML->new->parse_string($xml);
1552 $marcxml->documentElement->setNamespace("http://www.loc.gov/MARC21/slim", "marc", 1 );
1553 $marcxml->documentElement->setNamespace("http://www.loc.gov/MARC21/slim");
1555 $mfhd->marc($U->entityize($marcxml->documentElement->toString));
1557 $e->create_serial_record_entry($mfhd) or return $e->die_event;
1563 __PACKAGE__->register_method(
1564 method => "create_update_asset_copy_template",
1565 api_name => "open-ils.cat.asset.copy_template.create_or_update"
1568 sub create_update_asset_copy_template {
1569 my ($self, $client, $authtoken, $act) = @_;
1571 my $e = new_editor("xact" => 1, "authtoken" => $authtoken);
1572 return $e->die_event unless $e->checkauth;
1573 return $e->die_event unless $e->allowed(
1574 "ADMIN_ASSET_COPY_TEMPLATE", $act->owning_lib
1577 $act->editor($e->requestor->id);
1578 $act->edit_date("now");
1582 $act->creator($e->requestor->id);
1583 $act->create_date("now");
1585 $e->create_asset_copy_template($act) or return $e->die_event;
1588 $e->update_asset_copy_template($act) or return $e->die_event;
1589 $retval = $e->retrieve_asset_copy_template($e->data);
1591 $e->commit and return $retval;
1594 __PACKAGE__->register_method(
1595 method => "acn_sms_msg",
1596 api_name => "open-ils.cat.acn.send_sms_text",
1598 Send an SMS text from an A/T template for specified call numbers.
1600 First parameter is null or an auth token (whether a null is allowed
1601 depends on the sms.disable_authentication_requirement.callnumbers OU
1604 Second parameter is the id of the context org.
1606 Third parameter is the code of the SMS carrier from the
1607 config.sms_carrier table.
1609 Fourth parameter is the SMS number.
1611 Fifth parameter is the ACN id's to target, though currently only the
1612 first ACN is used by the template (and the UI is only sending one).
1617 my($self, $conn, $auth, $org_id, $carrier, $number, $target_ids) = @_;
1619 my $sms_enable = $U->ou_ancestor_setting_value(
1620 $org_id || $U->get_org_tree->id,
1623 # We could maybe make a Validator for this on the templates
1624 if (! $U->is_true($sms_enable)) {
1628 my $disable_auth = $U->ou_ancestor_setting_value(
1629 $org_id || $U->get_org_tree->id,
1630 'sms.disable_authentication_requirement.callnumbers'
1635 ? (authtoken => $auth, xact => 1)
1638 return $e->event unless $disable_auth || $e->checkauth;
1640 my $targets = $e->batch_retrieve_asset_call_number($target_ids);
1642 $e->rollback; # FIXME using transaction because of pgpool/slony setups, but not
1643 # simply making this method authoritative because of weirdness
1644 # with transaction handling in A/T code that causes rollback
1645 # failure down the line if handling many targets
1647 return undef unless @$targets;
1648 return $U->fire_object_event(
1650 'acn.format.sms_text', # hook
1653 undef, # granularity
1655 sms_carrier => $carrier,
1656 sms_notify => $number
1663 __PACKAGE__->register_method(
1664 method => "fixed_field_values_by_rec_type",
1665 api_name => "open-ils.cat.biblio.fixed_field_values.by_rec_type",
1668 desc => 'Given a record type (as in cmfpm.rec_type), return fixed fields and their possible values as known to the DB',
1670 {desc => 'Record Type', type => 'string'},
1671 {desc => '(Optional) Fixed field', type => 'string'},
1674 return => {desc => 'an object in which the keys are fixed fields and the values are arrays representing the set of all unique values for that fixed field in that record type', type => 'object' }
1678 sub fixed_field_values_by_rec_type {
1679 my ($self, $conn, $rec_type, $fixed_field) = @_;
1682 my $values = $e->json_query({
1684 crad => ["fixed_field"],
1685 ccvm => [qw/code value/],
1686 cmfpm => [qw/length default_val/],
1694 fkey => "fixed_field",
1695 field => "fixed_field"
1702 "+cmfpm" => {rec_type => $rec_type},
1703 defined $fixed_field ?
1704 ("+crad" => {fixed_field => $fixed_field}) : ()
1707 {class => "crad", field => "fixed_field"},
1708 {class => "ccvm", field => "code"}
1710 }) or return $e->die_event;
1713 for my $row (@$values) {
1714 $result->{$row->{fixed_field}} ||= [];
1715 push @{$result->{$row->{fixed_field}}}, [@$row{qw/code value length default_val/}];
1721 __PACKAGE__->register_method(
1722 method => "retrieve_tag_table",
1723 api_name => "open-ils.cat.tag_table.all.retrieve.local",
1727 desc => "Retrieve set of MARC tags, subfields, and indicator values for the user's OU",
1729 {desc => 'Authtoken', type => 'string'},
1730 {desc => 'MARC Format', type => 'string'},
1731 {desc => 'MARC Record Type', type => 'string'},
1734 return => {desc => 'Structure representing the tag table available to that user', type => 'object' }
1736 __PACKAGE__->register_method(
1737 method => "retrieve_tag_table",
1738 api_name => "open-ils.cat.tag_table.all.retrieve.stock",
1742 desc => 'Retrieve set of MARC tags, subfields, and indicator values for stock MARC standard',
1744 {desc => 'Authtoken', type => 'string'},
1745 {desc => 'MARC Format', type => 'string'},
1746 {desc => 'MARC Record Type', type => 'string'},
1749 return => {desc => 'Structure representing the stock tag table', type => 'object' }
1751 __PACKAGE__->register_method(
1752 method => "retrieve_tag_table",
1753 api_name => "open-ils.cat.tag_table.field_list.retrieve.local",
1757 desc => "Retrieve set of MARC tags for available to the user's OU",
1759 {desc => 'Authtoken', type => 'string'},
1760 {desc => 'MARC Format', type => 'string'},
1761 {desc => 'MARC Record Type', type => 'string'},
1764 return => {desc => 'Structure representing the tags available to that user', type => 'object' }
1766 __PACKAGE__->register_method(
1767 method => "retrieve_tag_table",
1768 api_name => "open-ils.cat.tag_table.field_list.retrieve.stock",
1772 desc => 'Retrieve set of MARC tags for stock MARC standard',
1774 {desc => 'Authtoken', type => 'string'},
1775 {desc => 'MARC Format', type => 'string'},
1776 {desc => 'MARC Record Type', type => 'string'},
1779 return => {desc => 'Structure representing the stock MARC tags', type => 'object' }
1782 sub retrieve_tag_table {
1783 my( $self, $conn, $auth, $marc_format, $marc_record_type ) = @_;
1784 my $e = new_editor( authtoken=>$auth, xact=>1 );
1785 return $e->die_event unless $e->checkauth;
1787 my $field_list_only = ($self->api_name =~ /\.field_list\./) ? 1 : 0;
1789 if ($self->api_name =~ /\.local$/) {
1790 $context_ou = $e->requestor->ws_ou;
1794 unless ($field_list_only) {
1795 my $subfields = $e->json_query(
1796 { from => [ 'config.ou_marc_subfields', 1, $marc_record_type, $context_ou ] }
1798 foreach my $sf (@$subfields) {
1800 code => $sf->{code},
1801 description => $sf->{description},
1802 mandatory => $sf->{mandatory},
1803 repeatable => $sf->{repeatable},
1805 if ($sf->{value_ctype}) {
1806 $sf_data->{value_list} = $e->json_query({
1807 select => { ccvm => [
1809 { column => 'value', alias => 'description' }
1813 where => { ctype => $sf->{value_ctype} },
1814 order_by => { ccvm => { code => {} } },
1817 push @{ $sf_by_tag{$sf->{tag}} }, $sf_data;
1821 my $fields = $e->json_query(
1822 { from => [ 'config.ou_marc_fields', 1, $marc_record_type, $context_ou ] }
1825 foreach my $field (@$fields) {
1826 next if $field->{hidden} eq 't';
1827 unless ($field_list_only) {
1828 my $tag = $field->{tag};
1829 if ($tag ge '010') {
1830 for my $pos (1..2) {
1831 my $ind_ccvm_key = "${marc_format}_${marc_record_type}_${tag}_ind_${pos}";
1832 my $indvals = $e->json_query({
1833 select => { ccvm => [
1835 { column => 'value', alias => 'description' }
1839 where => { ctype => $ind_ccvm_key }
1841 next unless defined($indvals);
1842 $field->{"ind$pos"} = $indvals;
1844 $field->{subfields} = exists($sf_by_tag{$tag}) ? $sf_by_tag{$tag} : [];
1847 $conn->respond($field);