pass a variable trough another sub via a form

[anthony]

Hi,

i have three sub home, display, save
## comments are in the scripts especially in sub save

#/usr/bin...
....##somecode to get zone + other
if ($zone eq "display"){&display;}
elseif{$zone eq "save"){&save;}
else{&home;}

sub home{
    ##just a form to ask search for a person's item
}

sub display{
 # so i have
open(FILE,...../items);
$counter = 0;
while(<FILE>){
    chomp $_;
        @items=split(/\|/,$_);
            if($items[4] eq person_looking_for){
                   $counter ++;
                        $a_line .="$counter|$item[1]|$item[2]\n";

print <<FORM;
.............
FORM
}##end if
}##end while
}##end sub


sub save{
    pint " $a_line";
    #how can i bring $a_line from a form and i don't want to use <input
Hiddent.....>??
   # is there anyother way??????
}

Best REgards,
ANthony Ward



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]