From ac8acff89b618aaff81589ba6269197a94a40d59 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 2 Oct 2006 08:54:21 +0000 Subject: [PATCH] adding UPPER/LOWER support git-svn-id: svn://svn.open-ils.org/ILS/trunk@6346 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Reporter/SQLBuilder.pm | 30 +++++++++++++++++++++- 1 file changed, 29 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm index 20310627c9..5939d253f9 100644 --- a/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm +++ b/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm @@ -505,7 +505,7 @@ package OpenILS::Reporter::SQLBuilder::Column::Transform::GenericTransform; sub toSQL { my $self = shift; my $name = $self->name; - my ($func) = keys %{ $self->{_column} }; + my $func = $self->{_column}->{transform}; my @params; @params = @{ $self->resolve_param( $self->{_column}->{params} ) } if ($self->{_column}->{params}); @@ -530,6 +530,34 @@ sub toSQL { sub is_aggregate { return 0 } #------------------------------------------------------------------------------------------------- +package OpenILS::Reporter::SQLBuilder::Column::Transform::upper; + +sub toSQL { + my $self = shift; + my $params = $self->resolve_param( $self->{_column}->{params} ); + my $start = $$params[0]; + my $len = $$params[1]; + return 'UPPER("' . $self->{_relation} . '"."' . $self->name . '")'; +} + +sub is_aggregate { return 0 } + + +#------------------------------------------------------------------------------------------------- +package OpenILS::Reporter::SQLBuilder::Column::Transform::lower; + +sub toSQL { + my $self = shift; + my $params = $self->resolve_param( $self->{_column}->{params} ); + my $start = $$params[0]; + my $len = $$params[1]; + return 'LOWER("' . $self->{_relation} . '"."' . $self->name . '")'; +} + +sub is_aggregate { return 0 } + + +#------------------------------------------------------------------------------------------------- package OpenILS::Reporter::SQLBuilder::Column::Transform::substring; sub toSQL { -- 2.11.0