safer alias fallback

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6578 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 20aad45..f0b4e42 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Reporter/SQLBuilder.pm
@@ -972,7 +972,7 @@ sub parse {
        $self->set_builder($b);
 
        $self->{_table} = $rel_data->{table};
-       $self->{_alias} = $rel_data->{alias} || $self->name;
+       $self->{_alias} = $rel_data->{alias} || $self->{_table};
        $self->{_join} = [];
        $self->{_columns} = [];