3 SELECT evergreen.upgrade_deps_block_check('0914', :eg_version);
5 CREATE OR REPLACE FUNCTION evergreen.lpad_number_substrings( TEXT, TEXT, INT ) RETURNS TEXT AS $$
6 my $string = shift; # Source string
7 my $pad = shift; # string to fill. Typically '0'. This should be a single character.
8 my $len = shift; # length of resultant padded field
11 while ($string =~ /(^|\D)(\d{1,$find})($|\D)/) {
13 $padded = $pad x ($len - length($padded)) . $padded;
14 $string = $` . $1 . $padded . $3 . $';
22 -- recompute the various normalized label fields that use lpad_number_substrings()
23 UPDATE biblio.monograph_part SET id = id;
24 UPDATE asset.call_number_prefix SET id = id;
25 UPDATE asset.call_number_suffix SET id = id;