From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 29 Mar 2011 16:07:17 +0000 (+0000)
Subject: Missed function in upgrade script
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2bdd3899fec7a03b9c47822d07bf4312736d5f34;p=evergreen%2Ftadl.git

Missed function in upgrade script

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_2_1@19888 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/sql/Pg/upgrade/0504.schema.parts_and_cnaffix.sql b/Open-ILS/src/sql/Pg/upgrade/0504.schema.parts_and_cnaffix.sql
index 5245e37f6c..020a78a814 100644
--- a/Open-ILS/src/sql/Pg/upgrade/0504.schema.parts_and_cnaffix.sql
+++ b/Open-ILS/src/sql/Pg/upgrade/0504.schema.parts_and_cnaffix.sql
@@ -2,6 +2,21 @@ BEGIN;
 
 INSERT INTO config.upgrade_log (version) VALUES ('0504'); -- miker
 
+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;
+$$ LANGUAGE PLPERLU;
+
 CREATE TABLE biblio.monograph_part (
     id              SERIAL  PRIMARY KEY,
     record          BIGINT  NOT NULL REFERENCES biblio.record_entry (id),