#1 Selecting SQL has no effect

[Wesley Wannemacher]

After downloading and using the tool, I noticed right
away that I couldn't just select a portion of my SQL
code to be executed. I just thought it was expected
behavior, then I figured I would take a gander at the
code and see if I could adapt it so that I could just
select one query at a time to be executed. It appears
as though someone has already anticipated my request:
from sub execsql :
my ($start, $end) = $itxt->tagRanges('sel');
if( !defined($start) || ($start eq $end) ) {
$start = '0.0';
$end = 'end';
}

From looking at a couple perl/tk FAQs it appears this
is the standard way to make grab the selection from the
text widget. However, on my machine (Solaris 9, perl
5.6.1, all dependencies met list on project home page)
no range is ever defined, I just get everything in the
window executed.

I wouldn't mind contributing, since I use the tool
myself quite frequently, and I also dabble in perl
quite extensively ;)

[Wesley Wannemacher]

Logged In: YES
user_id=588543

I messed around a little bit with the code and found that
the following fixes my problem:

my ($start, $end) = $itxt->tag('ranges', 'sel');
if( !defined($start) || ($start eq $end) ) {
$start = '0.0';
$end = 'end';
}

Seems to be specific to my build of something, but I am not
sure what. However, my fix doesn't break any existing
functionality and will work on all other platforms as
well... Take it if you want it ;)