foreach..

[Maxipoint Rep Office]

this is actual part of my code.. all work but it seems that something is
wrong in foreach part.. in reality script calculate $dodatne_opcije only!
$vrsta_paketa is not added in calculation..

my $vrsta_paketa = {
        '20MB' => 205,
        '50MB' => 270,
        '100MB' => 350,
        '200MB' => 450,
        '500MB' => 550,
        '1000MB' => 750
        };

my $dodatne_opcije = {
        'Subdomene' => 73,
        'ASP' => 70,
        'SSL' => 440,
        'Java' => 40
        };


    foreach(keys %{$dodatne_opcije}){
        if($forma->{$_} eq $_){
                $cena +=  $dodatne_opcije->{$_};
        }
    }
        

my $pdv = 0.22 * $cena;

my $ukupno = $pdv + $cena;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>