Greetings, fellow monks.

I'm having a problem with a sub that receives an array as parameter and should make a decision based on the values of each element of this array.

My problem is that it doesn't make the right decision. So, either I'm being very blind and stupid or my perl interpreter is going nuts. I know that the first option seems to be the right one, so I ask for your wisdom and patience.

The sub is called by this line: 
$status_chg = DevelopUtils::check_status(@status_atividades);

[download]
and in the DevelopUtils.pm file there is the corresponding sub, wich is: 
sub check_status
{
    @status_atividades = @_;
    $status_possivel="";
    $l = 0;

    foreach $status(@status_atividades)
    {
        if ($l < 1)
        {
            if ($status eq "1" or $status eq "9")
            {
                $status_possivel .= "<option value=\"2\">Cancelada</op
+tion>\n";
                $status_possivel .= "<option value=\"3\">Agendada</opt
+ion>\n";
                $l++;
            }
            elsif ($status eq "3" or $status eq "9")
            {
                $status_possivel .= "<option value=\"4\">Em Análise Fu
+ncional</option>\n";
                $l++;
            }
    }
    return($status_possivel);
    }
}

[download]
The problem is that I always get only the first option of the if part as if it is the only option available.

Please, what the hell am I doing wrong on this???

Thanks in advance,

Er Galvão Abbott
a.k.a. Lobo, DaWolf
Webdeveloper

In reply to Can't get the right array value by DaWolf

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.