From 14e7d80e1cc7edd4262e8f297f3f494fd921b327 Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Fri, 18 Feb 2011 12:35:34 -0500 Subject: [PATCH] moving number padding normalizer function --- Open-ILS/src/sql/Pg/010.schema.biblio.sql | 15 --------------- 1 file changed, 15 deletions(-) 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( -- 2.11.0