Multi lookup dictionary syntax change

master
rgaul 2016-04-23 23:16:01 +00:00
parent 6e93004eb4
commit a9ed5ed5bb
1 changed files with 2 additions and 2 deletions

View File

@ -22,8 +22,8 @@ handle query_parts => sub {
if ($_ =~ /^(.*\b)([A-Za-z]+)\s+(\d*[1-9]\d*)(.*\b)$/i) {
my $era_name = lc($2);
my $era_year = $3;
my $gregorian_year_started = $year_definitions->{$era_name}->{'gregorian_year_started'};
my $wikipedia_link = $year_definitions->{$era_name}->{'wikipedia_link'};
my $gregorian_year_started = $year_definitions->{$era_name}{'gregorian_year_started'};
my $wikipedia_link = $year_definitions->{$era_name}{'wikipedia_link'};
my $year = $gregorian_year_started + $era_year;
my $era = DateTime->now->set_year($year)->era;