From cb15f1ef200f04e1258358fe9574bcdc08157a75 Mon Sep 17 00:00:00 2001 From: Andrew Date: Mon, 15 Jul 2024 15:04:26 +0100 Subject: [PATCH] Add
s to roisin_dubh_listings.pl --- roisin_dubh_listings.pl | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/roisin_dubh_listings.pl b/roisin_dubh_listings.pl index a3f0541..7f76f97 100755 --- a/roisin_dubh_listings.pl +++ b/roisin_dubh_listings.pl @@ -37,19 +37,19 @@ foreach my $listing (@$listings) { " . $listing->{introtext} . " " . $listing->{content} . " + + Location: " . $listing->{name} . "
+ Event start time: " . Date::strftime("%Y-%m-%d %a %H:%M:%S", $event_date) . "
+ Late night?: " . yes_or_no($listing->{late_night}) . "
+ Postponed?: " . yes_or_no($listing->{postponed}) . "
+
+ Ticket Price: €" . $listing->{prices}->{regular} . "
+ Ticket Allocation: " . $listing->{ticket_allocation} . "
+ Tickets remaining?: " . yes_or_no($listing->{ticket_remaining}) . "
+
+ Sales start time: " . Date::strftime("%Y-%m-%d %a %H:%M:%S", str2time($listing->{sales_start})) . "
+ On Sale?: " . yes_or_no($listing->{on_sale}) . "
]]> - - Location: " . $listing->{name} . " - Event start time: " . Date::strftime("%Y-%m-%d %a %H:%M:%S", $event_date) . " - Late night?: " . yes_or_no($listing->{late_night}) . " - Postponed?: " . yes_or_no($listing->{postponed}) . " - - Ticket Price: €" . $listing->{prices}->{regular} . " - Ticket Allocation: " . $listing->{ticket_allocation} . " - Tickets remaining?: " . yes_or_no($listing->{ticket_remaining}) . " - - Sales start time: " . Date::strftime("%Y-%m-%d %a %H:%M:%S", str2time($listing->{sales_start})) . " - On Sale?: " . yes_or_no($listing->{on_sale}) . " ");