develooper Front page | perl.beginners | Postings from February 2002

soft reference

From:
mb
Date:
February 1, 2002 10:12
Subject:
soft reference
Message ID:
000001c1ab4b$c3a74220$f788933e@w3w6d9
Hi,

I need help about soft referencing or extract value of array var.

Can some one get a look to code bellow :

Have a good week-end.
asma. 

####################################################################################
foreach(@articles)
{
##($code,$article,$codeFamil,$uniteVent,$idDepot,$quantite)
my @row1;
push(@row1,
     $q -> td({align => 'center'},$article),
     $q -> td({align => 'center'},$code),
     $q -> td({align => 'center'},$quantite),
     $q -> td
     (
      {align => 'center'},
      $q->popup_menu({
   name=>'intitF',
   values=>[@listeFamilles],
   default=>@listeFamille[0],
   linebreak=>'true',
      })
     ),
     $q -> td
     (
      {align => 'center'},
      $q->popup_menu({
   name=>'Uvente',
   values=>[1,2,3,4,5,6,7,8,9,10,11,12,"autre"],
   default=>"autre",
   linebreak=>'true',
      })
     ),
     $q -> td
     (
      {align => 'center'},
      $q -> submit
      ({
   name  => 'entreeArt',
   value  => "GO",
   class  => 'submit',
   onFocus => "javascript:document.$form_name.action = document.url ;'",
   onMouseOver => "this.style.color = '$red'",
   onMouseOut => "this.style.color = '$text_color'"
   })
      )
     );
-------------------------------------------------------->the pb reside on that I have tree times the same array ele of ListeRang
----------------------------------------------------------du to the hard ref I done on @row1
push(@ListeRang,@row1);
$idRang ++;
}





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About