|
|
|
|
1
|
use vars qw(@day_names);
|
1
|
use vars qw(@day_names);
|
2
|
use JSON;
|
2
|
use JSON;
|
3
|
|
3
|
|
4
|
-my $erkkeri_title = "(TTY) Amica Erkkeri";
|
|
|
5
|
my @restaurant_info = (
|
4
|
my @restaurant_info = (
|
6
|
- [ "(TaY) Amica Minerva", "http://www.amica.fi/minerva", "", "middle", "http://www.amica.fi/modules/json/json/Index?costNumber=0815" ]
|
|
|
|
|
5
|
+ [ "(TaY) Amica Minerva", "http://www.amica.fi/minerva", "", "middle", "http://www.amica.fi/modules/json/json/Index?costNumber=0815" ],
|
|
|
6
|
+ [ "(TTY) Ravintola Reaktori", "http://www.amica.fi/reaktori", "", "middle", "http://www.amica.fi/modules/json/json/Index?costNumber=0812" ]
|
7
|
);
|
7
|
);
|
8
|
|
8
|
|
9
|
sub utf8_to_8859 {
|
9
|
sub utf8_to_8859 {
|