[ic] Help with simple User tag

[DB]

I'm trying to modify an existing and working user tag that I found 
online. I want to define some variables based on the list of items in 
the cart. All of them get defined correctly except for the price which 
always comes up empty. I'm new at this user tag stuff... can someone help?

#---- begin atv  stuff ------------

UserTag atv Routine <<EOR
sub {

         my $atvtot = 0;
foreach my $atvindex (0 .. $#$Vend::Items) {
         my $atvcode = $Vend::Items->[$atvindex]{code};

# this is the one that doesn't get defined as I'd like
         my $atvprice =$Vend::Items->[$atvindex]{price};

         my $atvqty = $Vend::Items->[$atvindex]{quantity};
         my $atvbase = $Vend::Items->[$atvindex]{mv_ib};
         my $isatv = 1           if $atvcode =~ m/^MS/;


         my $atvmessage = <<EOM;
         <br>
         <p style="color: red ; font-size: 10px">
         isatv:  $isatv
         <br> atvqty: $atvqty
         <br>
         atvprice: $atvprice

         </p>
EOM

         $Vend::Items->[$atvindex]{atvmessage} = $atvmessage;
}}
EOR

#----  end atv stuff ------------


DB