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 0532d32..ac39e37 100644 (file)
--- 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;