Arrive: $| $o->arrive_mdy |, Depart: $| $o->depart_mdy |
$-- perl --$
my $total = $o->days_total;
my $nber = $o->days_nber;
my $own = $o->days_paysown;
if ($nber > 0 && $own > 0) {
my $nbers = $nber == 1 ? '' : 's';
my $owns = $own == 1 ? '' : 's';
qq[Of these $total nights, NBER will pay for $nber night$nbers and you will pay for $own night$owns];
} elsif ($nber > 0 && $nber == $total) {
qq[NBER is paying for ] . ( $total == 1 ? q[this one night.] : qq[all $total of these nights.] );
} elsif ($own > 0 && $own == $total) {
qq[You are paying for ] . ( $total == 1 ? q[this one night.] : qq[all $total of these nights.] );
} else {
qq[Error: hotel days do not make sense. Please contact NBER];
}
$-- end --$
Room type: $"RM"
Travel allowance: $"travel_allowance"
$"user_visible_comments"
The NBER does not pay for incidentals (meals, phone calls, pay TV, internet charges) that appear on your hotel bill or any additional nights you decide to stay on your own. If you do not show up and do not call us to cancel, we will bill you for one (1) night's room and tax. Hotel reservations must be cancelled by noon the day before scheduled arrival to avoid being charged for the room.
] : '' $-- end --$