[open-ils-commits] r14232 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-30 15:45:56 -0400 (Wed, 30 Sep 2009)
New Revision: 14232

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
during renewal, capture link to parent_circ for building the 'renewal chain'

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-30 19:00:32 UTC (rev 14231)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-30 19:45:56 UTC (rev 14232)
@@ -406,6 +406,7 @@
     capture
     noop
     void_overdues
+    parent_circ
 /;
 
 
@@ -1539,6 +1540,9 @@
    $circ->workstation($self->editor->requestor->wsid) 
     if defined $self->editor->requestor->wsid;
 
+    # renewals maintain a link to the parent circulation
+    $circ->parent_circ($self->parent_circ);
+
    if( $self->is_renewal ) {
       $circ->opac_renewal('t') if $self->opac_renewal;
       $circ->phone_renewal('t') if $self->phone_renewal;
@@ -2542,6 +2546,7 @@
 
     # -----------------------------------------------------------------
 
+    $self->parent_circ($circ->id);
     $self->renewal_remaining( $circ->renewal_remaining - 1 );
     $self->circ($circ);