RE: &&

There in lies your problem.. you are not passing to the subroutine
correctly.

try declaring your sub like so:
sub extract_data (\@\@\@){
but if you do this don't call extract_data with &
use 
extract_data(@datum, @seminare, @staedte); 

or pass the ref of the arrays:
extract_data(\@datum, \@seminare, \@staedte); 


> -----Original Message-----
> From: MarcusWillemsen@compuserve.de
> [mailto:MarcusWillemsen@compuserve.de]
> Sent: Thursday, March 28, 2002 10:39 AM
> To: Chas Owens
> Cc: beginners@perl.org
> Subject: Re: &&
> 
> 
> 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: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org
> 

----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.

• && by MarcusWillemsen
• RE: && by Nikola Janceski
• RE: && by Chas Owens
• RE: && by Nikola Janceski
• RE: && by Chas Owens
• RE: && by Nikola Janceski
• Re: && by MarcusWillemsen
• Re: && by Chas Owens