From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 29 Sep 2006 03:39:00 +0000 (+0000)
Subject: support for has_many/might_have
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=37a2282a6658e90debcf3516a1ae54fcd0ca68b0;p=evergreen%2Fpines.git

support for has_many/might_have


git-svn-id: svn://svn.open-ils.org/ILS/trunk@6261 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 0532d32d3b..ac39e37883 100644
--- a/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
@@ -879,7 +879,7 @@ sub build {
 	$self = $self->SUPER::new if (!ref($self));
 
 	$self->{_left_rel} = shift;
-	$self->{_left_col} = shift;
+	($self->{_left_col}) = split(/-/,shift());
 
 	$self->{_right_rel} = shift;
 	$self->{_right_col} = shift;