|
|
|
|
5
|
my @restaurant_info = (
|
5
|
my @restaurant_info = (
|
6
|
#[ "(TaY) Sodexo Linna", "http://www.sodexo.fi/fi-FI/linna/lounas/", "right" ],
|
6
|
#[ "(TaY) Sodexo Linna", "http://www.sodexo.fi/fi-FI/linna/lounas/", "right" ],
|
7
|
#[ "(TTY) Sodexo Erkkeri", "http://www.sodexo.fi/fi-FI/erkkeri/lounas/", "left" ]
|
7
|
#[ "(TTY) Sodexo Erkkeri", "http://www.sodexo.fi/fi-FI/erkkeri/lounas/", "left" ]
|
8
|
- [ "(TaY) Sodexo Linna", "http://www.sodexo.fi/linna", "right", 92],
|
|
|
9
|
- [ "(TTY) Sodexo Erkkeri", "http://www.sodexo.fi/erkkeri", "left", 100]
|
|
|
|
|
8
|
+ [ "(TaY) Sodexo Linna", "http://www.sodexo.fi/linna", "", "right", 92],
|
|
|
9
|
+ [ "(TTY) Sodexo Erkkeri", "http://www.sodexo.fi/erkkeri", "", "left", 100]
|
10
|
);
|
10
|
);
|
11
|
|
11
|
|
12
|
my ($cur_text, $cur_title, $parse_func, $day_id, $week);
|
12
|
my ($cur_text, $cur_title, $parse_func, $day_id, $week);
|
|
|
|
|
41
|
# Loops restraurants
|
41
|
# Loops restraurants
|
42
|
foreach my $i (@restaurant_info) {
|
42
|
foreach my $i (@restaurant_info) {
|
43
|
my @info = @{$i};
|
43
|
my @info = @{$i};
|
44
|
- my $kitchen = $info[3];
|
|
|
|
|
44
|
+ my $kitchen = $info[4];
|
45
|
$title = $info[0];
|
45
|
$title = $info[0];
|
46
|
$cur_title = $title;
|
46
|
$cur_title = $title;
|
47
|
$open_hours = "";
|
47
|
$open_hours = "";
|