From 20a7f91f7ab83d23613fe98228b3f7546f6daa10 Mon Sep 17 00:00:00 2001
From: Rogan Hamby <rogan.hamby@gmail.com>
Date: Thu, 29 Nov 2018 15:19:43 -0500
Subject: [PATCH] Lp 1805897: Add Item Status to the Holdings of marc_export.in
Export status in the 852 subfield s when exporting items.
Signed-off-by: Rogan Hamby <rogan.hamby@gmail.com>
Signed-off-by: John Yorio <jyorio@equinoxinitiative.org>
Signed-off-by: Steve Callender <stevecallender@equinoxinitiative.org>
Signed-off-by: Jason Stephenson <jason@sigio.com>
---
Open-ILS/src/support-scripts/marc_export.in | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/Open-ILS/src/support-scripts/marc_export.in b/Open-ILS/src/support-scripts/marc_export.in
index 403187498e..843ddff1ca 100755
--- a/Open-ILS/src/support-scripts/marc_export.in
+++ b/Open-ILS/src/support-scripts/marc_export.in
@@ -532,6 +532,7 @@ sub next {
my $price = ($acp->price() ? $Marque::config->option_value('money').$acp->price() : '');
my $prefix = $acp->call_number()->prefix()->label();
my $suffix = $acp->call_number()->suffix()->label();
+ my $status = $acp->status()->name();
eval {
local $SIG{__WARN__} = sub {
my $message = "Warning from bibliographic record " . $r->id() . ": "
@@ -550,6 +551,7 @@ sub next {
($suffix ? (m => Encode::decode_utf8($suffix)) : ()),
($acp->circ_modifier() ? (g => Encode::decode_utf8($acp->circ_modifier())) : ()),
p => Encode::decode_utf8($acp->barcode()),
+ s => Encode::decode_utf8($status),
($price ? (y => Encode::decode_utf8($price)) : ()),
($acp->copy_number() ? (t => $acp->copy_number()) : ()),
($U->is_true($acp->ref()) ? (x => 'reference') : ()),
@@ -663,6 +665,24 @@ sub shelves {
return @{$self->{shelves}};
}
+# Returns an array of ccs objects.
+sub statuses {
+ my $self = shift;
+
+ unless ($self->{statuses} && @{$self->{statuses}}) {
+ my $fmClass = Fieldmapper::class_for_hint('ccs');
+ my @classFields = $fmClass->real_fields();
+ my $classTable = $fmClass->Table();
+ my $query = 'select ' . join(',', @classFields);
+ $query .= "\nfrom $classTable";
+ my $result = $self->{handle}->selectall_arrayref($query, {Slice=>{}});
+ my @statuses = map {$fmClass->from_bare_hash($_)} @{$result};
+ $self->{statuses} = \@statuses;
+ }
+
+ return @{$self->{statuses}};
+}
+
# Returns an array of acnp objects.
sub prefixes {
my $self = shift;
@@ -736,6 +756,7 @@ sub acps_for_bre {
my @locations = $self->shelves();
my @prefixes = $self->prefixes();
my @suffixes = $self->suffixes();
+ my @statuses = $self->statuses();
my @acns = $self->acns_for_bre($bre);
if (@acns) {
@@ -752,12 +773,14 @@ sub acps_for_bre {
my $cn = $_->call_number();
my $clib = $_->circ_lib();
my $loc = $_->location();
+ my $stat = $_->status();
my ($org) = grep {$_->id() == $clib} @orgs;
my ($acn) = grep {$_->id() == $cn} @acns;
my ($location) = grep {$_->id() == $loc} @locations;
my $olib = $acn->owning_lib();
my $pre = $acn->prefix();
my $suf = $acn->suffix();
+ my ($ccs) = grep {$_->id() == $stat} @statuses;
my ($acnp) = grep {$_->id() == $pre} @prefixes;
my ($acns) = grep {$_->id() == $suf} @suffixes;
my ($owner) = grep {$_->id() == $olib} @orgs;
@@ -767,6 +790,7 @@ sub acps_for_bre {
$_->location($location);
$_->call_number->prefix($acnp);
$_->call_number->suffix($acns);
+ $_->status($ccs);
}
return @acps;
}
--
2.11.0