LP2045440: marc_export Exports Public Copy Tags

Public copy tags are now exported by `marc_export` in the 852
subfield z when the `--items` option is used.

To test:

1. Find some copies with copy tags where pub is true.

2. Export the bibs for these copies via `marc_export` with the
   `--items` option.

3. Check the 852s in the exported file to see that they have no
   subfiled z.

4. Apply the patch/commit, rebuild and install marc_export.

5. Repeat #2.

6. Check the output for the presence of subfield z in the 852 with the
   value from the copy tags from the database. To distinguish from
   public copy notes, the public copy tags will have the tag type
   label and ": " prepended to the value.

The following can be run on the command line as a shortcut for
steps 2 and 5:

    {
    psql <<EOF
    select acn.record
    from asset.call_number acn
    join asset.copy
    on acn.id = copy.call_number
    join asset.copy_tag_copy_map map
    on map.copy = copy.id
    join asset.copy_tag tag
    on tag.id = map.tag
    and tag.pub is true
    where not copy.deleted
    and not acn.deleted
    EOF
    } | marc_export --items --format xml -e UTF-8 > items.xml

Be sure to fill in the appropriate database connection parameters
on the psql line.

Signed-off-by: Jason Stephenson <jason@sigio.com>
Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>

Author: Dyrcona

Open-ILS/src/support-scripts/marc_export.in

@@ -416,6 +416,7 @@ sub new {
     $self->{acnClass} = Fieldmapper::class_for_hint('acn');
     $self->{acpClass} = Fieldmapper::class_for_hint('acp');
     $self->{acpnClass} = Fieldmapper::class_for_hint('acpn');
+    $self->{acptClass} = Fieldmapper::class_for_hint('acpt');
     $self->{sreClass} = Fieldmapper::class_for_hint('sre');
     $self->{acnpClass} = Fieldmapper::class_for_hint('acnp');
     $self->{acnsClass} = Fieldmapper::class_for_hint('acns');
@@ -738,6 +739,7 @@ sub next {
                                     (!$U->is_true($acp->holdable()) ? (x => 'unholdable') : ()),
                                     (!$U->is_true($acp->circulate()) ? (x => 'noncirculating') : ()),
                                     (!$U->is_true($acp->opac_visible()) ? (x => 'hidden') : ()),
+                                    ((defined($acp->tags()) && @{$acp->tags()}) ? map {(z => $_->value())} @{$acp->tags()} : ()),
                                     ((defined($acp->notes()) && @{$acp->notes()}) ? map {(z => ($_->title()) ? $_->title() . ": " . $_->value() : $_->value())} @{$acp->notes()} : ())
                                 ));
                         };
@@ -1027,6 +1029,10 @@ sub acps_for_bre {
                 $_->status($statuses->{$_->status()});
                 $_->call_number->prefix($prefixes->{$acn->prefix()});
                 $_->call_number->suffix($suffixes->{$acn->suffix()});
+                my @acpts = $self->public_acpts_for_acp($_);
+                if (@acpts) {
+                    $_->tags(\@acpts);
+                }
                 my @acpns = $self->public_acpns_for_acp($_);
                 if (@acpns) {
                     $_->notes(\@acpns);
@@ -1060,6 +1066,29 @@ sub public_acpns_for_acp {
     return ();
 }
 
+# Retrieves an array of public copy tags for a given copy
+sub public_acpts_for_acp {
+    my $self = shift;
+    my $acp = shift;
+    $acp = $acp->id() if (ref($acp));
+    unless ($self->{acptHandle}) {
+        my $query = "select " . join(',', map {"copy_tag." . $_} $self->{acptClass}->real_fields());
+        $query .= " from asset.copy_tag join asset.copy_tag_copy_map as map";
+        $query .= " on copy_tag.id = map.tag and map.copy = ?";
+        $query .= " join config.copy_tag_type on copy_tag_type.code = copy_tag.tag_type";
+        $query .= " where pub is true and value <> ''";
+        $query =~ s/copy_tag\.value/copy_tag_type.label || ': ' || copy_tag.value as "value"/;
+        $self->{acptHandle} = $self->{handle}->prepare($query);
+    }
+    if ($self->{acptHandle}->execute($acp)) {
+        my $result = $self->{acptHandle}->fetchall_arrayref( {} );
+        if ($result && @{$result}) {
+            return map {$self->{acptClass}->from_bare_hash($_)} @{$result};
+        }
+    }
+    return ();
+}
+
 # Retrieve an array of sre objects when the --mfhd option is used.
 sub sres_for_bre {
     my $self = shift;

docs/RELEASE_NOTES_NEXT/Cataloging/marc_export_public_copy_notes.adoc

@@ -0,0 +1,12 @@
+== marc_export Exports Public Copy Notes ==
+
+Public copy notes are now exported by `marc_export` in the 852
+subfield z when the `--items` option is used.
+
+== marc_export Exports Public Copy Tags ==
+
+Public copy tags are now exported by `marc_export` in the 852
+subfield z when the `--items` option is used.
+
+To distinguish copy tags from copy notes, the tags have the tag type
+label and ": " prepended to the value.