[open-ils-commits] r18418 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ (miker)
svn at svn.open-ils.org
svn at svn.open-ils.org
Wed Oct 20 15:49:21 EDT 2010
Author: miker
Date: 2010-10-20 15:49:16 -0400 (Wed, 20 Oct 2010)
New Revision: 18418
Modified:
branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
Patch from tsbere to address backporting issue of hard due dates patch against trunk (also, get rid of 3-space indentation..)
Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm 2010-10-20 19:36:34 UTC (rev 18417)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm 2010-10-20 19:49:16 UTC (rev 18418)
@@ -1776,18 +1776,20 @@
sub build_checkout_circ_object {
my $self = shift;
- my $circ = Fieldmapper::action::circulation->new;
- my $duration = $self->duration_rule;
- my $max = $self->max_fine_rule;
- my $recurring = $self->recurring_fines_rule;
- my $hard_due_date = $self->hard_due_date;
- my $copy = $self->copy;
- my $patron = $self->patron;
- my $duration_date_ceiling_force;
+ my $circ = Fieldmapper::action::circulation->new;
+ my $duration = $self->duration_rule;
+ my $max = $self->max_fine_rule;
+ my $recurring = $self->recurring_fines_rule;
+ my $hard_due_date = $self->hard_due_date;
+ my $copy = $self->copy;
+ my $patron = $self->patron;
+ my $duration_date_ceiling;
+ my $duration_date_ceiling_force;
if( $duration ) {
my $policy = $self->get_circ_policy($duration, $recurring, $max, $hard_due_date);
+ $duration_date_ceiling = $policy->{duration_date_ceiling};
$duration_date_ceiling_force = $policy->{duration_date_ceiling_force};
my $dname = $duration->name;
More information about the open-ils-commits
mailing list