Hi Chas,
thanks for your reply.
The code was the simplified code of a subroutine (below). The Data
originates from a Webformula and is passed on to the Subroutine like
snippet
&extract_data(@datum, @seminare, @staedte);
..
..
..
sub extract_data {
my $dates = shift;
my $themes = shift;
my $cities = shift;
my @dates = split /\s+/, "$dates";
my @themes = split /\s+/, "$themes";
my @cities = split /\s+/, "$cities";
if(@dates && !@themes && !@cities) {
my $date_count = @dates;
if($date_count > 1) {
$sth_between = $dbh->prepare( qq{SELECT * FROM termine
WHERE beginn BETWEEN ? and ?});
$sth_between->execute($dates[0],$dates[1]);
my $result = $sth_between->fetchrow_hashref();
if($result){
print $form->p("$result->{beginn}");
#print out rest of fields
}
}
else {
$sth_exact = $dbh->prepare(qq {SELECT * FROM termine WHERE
beginn < ? ORDER BY beginn ASC});
$sth_exact->execute($dates[0]);
my $result = $sth_exact->fetchrow_hashref();
if($result){
while($result){
print $form->p("$result->{beginn}");
#print out rest of fields
}
}
else{
print $form->p("Tut mir leid nichts gefunden");
}
}
}
#here should be all the other if else loop seven in total each printing
#out search results depending on which array or which combination of
#arrays contains data
}
Marcus
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
