From: Mike Rylander <mrylander@gmail.com>
Date: Fri, 18 Feb 2011 17:35:34 +0000 (-0500)
Subject: moving number padding normalizer function
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=14e7d80e1cc7edd4262e8f297f3f494fd921b327;p=evergreen%2Fequinox.git

moving number padding normalizer function
---

diff --git a/Open-ILS/src/sql/Pg/010.schema.biblio.sql b/Open-ILS/src/sql/Pg/010.schema.biblio.sql
index 71830b9b89..a2c1be47a0 100644
--- a/Open-ILS/src/sql/Pg/010.schema.biblio.sql
+++ b/Open-ILS/src/sql/Pg/010.schema.biblio.sql
@@ -87,21 +87,6 @@ CREATE TABLE biblio.monograph_part (
     CONSTRAINT record_label_unique UNIQUE (record,label)
 );
 
-CREATE OR REPLACE FUNCTION lpad_number_substrings( TEXT, TEXT, INT ) RETURNS TEXT AS $$
-    my $string = shift;
-    my $pad = shift;
-    my $len = shift;
-    my $find = $len - 1;
-
-    while ($string =~ /(?:^|\D)(\d{1,$find})(?:$|\D)/) {
-        my $padded = $1;
-        $padded = $pad x ($len - length($padded)) . $padded
-        $string =~ s/$1/$padded/sg;
-    }
-
-    return $string;
-$$ LANUGAGE PLPERLU;
-
 CREATE OR REPLACE FUNCTION biblio.normalize_biblio_monograph_part_sortkey () RETURNS TRIGGER AS $$
 BEGIN
     NEW.label_sortkey := REGEXP_REPLACE(