patch from Brandon Uhlman (with slight alteration discussed and 1 added sanity check...

[Evergreen.git] / Open-ILS / src / perlmods / OpenILS / SIP / Patron.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
index a780b7e..ab47d70 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/OpenILS/SIP/Patron.pm
@@ -415,9 +415,17 @@ sub overdue_items {
 
        my @o;
        syslog('LOG_DEBUG', "OILS: overdue_items() fleshing circs @overdues");
+       
+       
+       my @return_datatype = grep { $_->{name} eq 'msg64_summary_datatype' } @{$self->{config}->{implementation_config}->{options}->{option}};
+       
        for my $circid (@overdues) {
                next unless $circid;
-               push( @o, __circ_to_title($self->{editor}, $circid) );
+               if(@return_datatype and $return_datatype[0]->{value} eq 'barcode') {
+                       push( @o, __circ_to_barcode($self->{editor}, $circid));
+               } else {
+                       push( @o, __circ_to_title($self->{editor}, $circid));
+               }
        }
        @overdues = @o;
 
@@ -425,6 +433,14 @@ sub overdue_items {
                [ $overdues[($start-1)..($end-1)] ] : \@overdues;
 }
 
+sub __circ_to_barcode {
+       my ($e, $circ) = @_;
+       return unless $circ;
+       $circ = $e->retrieve_action_circulation($circ);
+       my $copy = $e->retrieve_asset_copy($circ->target_copy);
+       return $copy->barcode;
+}
+
 sub __circ_to_title {
        my( $e, $circ ) = @_;
        return unless $circ;
@@ -447,10 +463,18 @@ sub charged_items {
 
        my @c;
        syslog('LOG_DEBUG', "OILS: charged_items() fleshing circs @charges");
+
+       my @return_datatype = grep { $_->{name} eq 'msg64_summary_datatype' } @{$self->{config}->{implementation_config}->{options}->{option}};
+
        for my $circid (@charges) {
                next unless $circid;
-               push( @c, __circ_to_title($self->{editor}, $circid) );
+               if(@return_datatype and $return_datatype[0]->{value} eq 'barcode') {
+                       push( @c, __circ_to_barcode($self->{editor}, $circid));
+               } else {
+                       push( @c, __circ_to_title($self->{editor}, $circid));
+               }
        }
+
        @charges = @c;
 
        return (defined $start and defined $end) ?