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 71830b9..a2c1be4 100644 (file)
--- 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(