[open-ils-commits] r10192 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-07-30 14:00:57 -0400 (Wed, 30 Jul 2008)
New Revision: 10192

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
falling back to existing is_true method

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-07-30 17:37:44 UTC (rev 10191)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-07-30 18:00:57 UTC (rev 10192)
@@ -11,14 +11,6 @@
 my %scripts;
 my $script_libs;
 
-sub isTrue {
-    my $v = shift;
-    return 1 if ($v == 1);
-    return 1 if ($v =~ /^t/io);
-    return 1 if ($v =~ /^y/io);
-    return 0;
-}
-
 sub initialize {
 
     my $self = shift;
@@ -1072,7 +1064,7 @@
 
         # if is_percent is true then the max->amount is
         # use as a percentage of the copy price
-        if (isTrue($max->is_percent)) {
+        if ($U->is_true($max->is_percent)) {
 
             my $cn = $self->editor->retrieve_asset_call_number($copy->call_number);