LPAD() demands that its first parameter be TEXT in PostgreSQL 8.3; cast accordingly

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
index df2b501..228b6d3 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
@@ -395,7 +395,7 @@ sub toSQL {
        $val =~ s/'/\\'/go;
 
        return "EXTRACT(YEAR FROM '$rtime'::TIMESTAMPTZ + '$val months')" .
-               " || '-' || LPAD(EXTRACT(MONTH FROM '$rtime'::TIMESTAMPTZ + '$val months'),2,'0')";
+               " || '-' || LPAD(EXTRACT(MONTH FROM '$rtime'::TIMESTAMPTZ + '$val months')::text,2,'0')";
 }
 
 
@@ -721,7 +721,7 @@ package OpenILS::Reporter::SQLBuilder::Column::Transform::month_trunc;
 sub toSQL {
        my $self = shift;
        return 'EXTRACT(YEAR FROM "' . $self->{_relation} . '"."' . $self->name . '")' .
-               ' || \'-\' || LPAD(EXTRACT(MONTH FROM "' . $self->{_relation} . '"."' . $self->name . '"),2,\'0\')';
+               ' || \'-\' || LPAD(EXTRACT(MONTH FROM "' . $self->{_relation} . '"."' . $self->name . '")::text,2,\'0\')';
 }
 
 sub is_aggregate { return 0 }