# Copyright 2002-2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.
# 
# $Id: query.coretag,v 1.4 2007-03-30 23:40:49 pajamian Exp $

UserTag query               Order        sql
UserTag query               addAttr
UserTag query               attrAlias    base table
UserTag query               hasEndTag
UserTag query               PosNumber    1
UserTag query               Version      $Revision: 1.4 $
UserTag query               MapRoutine   Vend::Interpolate::query

sub query {
if(ref $_[0]) {
  unshift @_, '';
}
my ($query, $opt, $text) = @_;
$opt = {} if ! $opt;
$opt->{prefix} = 'sql' unless $opt->{prefix};
if($opt->{more} and $Vend::More_in_progress) {
  undef $Vend::More_in_progress;
  return region($opt, $text);
}
$opt->{table} = $Vend::Cfg->{ProductFiles}[0]
  unless $opt->{table};
my $db = $Vend::Database{$opt->{table}} ;
return $opt->{failure} if ! $db;

$opt->{query} = $query
  if $query;

$opt->{query} =~ s:
    \[\Q$opt->{prefix}\E[_-]quote\](.*?)\[/\Q$opt->{prefix}\E[_-]quote\]
  :
    $db->quote($1)
  :xisge;

if (! $opt->{wantarray} and ! defined $MVSAFE::Safe) {
  my $result = $db->query($opt, $text);
  return (ref $result) ? '' : $result;
}
$db->query($opt, $text);
}