Help for this page

Select Code to Download


  1. or download this
    my $retail_rate = $self->{'TOUR'}->{'RATE'}{$rateid}{'retail_rate'};
my $coupon = $self->{COUPONAMOUNT};
my $discounted_rate = $retail_rate - $coupon;
print "$retail_rate $coupon $discounted_rate\n";
  2. or download this
    my $retail_rate = $self->{'TOUR'}->{'RATE'}{$rateid}{'retail_rate'};
my $coupon = $self->{COUPONAMOUNT};
...
$coupon += 0;
my $discounted_rate = $retail_rate - $coupon;
print "$retail_rate $coupon $discounted_rate\n";
  3. or download this
    my $retail_rate = $self->{'TOUR'}->{'RATE'}{$rateid}{'retail_rate'};
my $coupon = $self->{COUPONAMOUNT};
...
$coupon += 0;
my $discounted_rate = $retail_rate + 1;
print "$retail_rate $coupon $discounted_rate\n";
  4. or download this
    my $retail_rate = $self->{'TOUR'}->{'RATE'}{$rateid}{'retail_rate'};
my $coupon = $self->{COUPONAMOUNT};
...
my $discounted_rate = $retail_rate;
$discounted_rate++;
print "$retail_rate $coupon $discounted_rate\n";