|
@@ -5,6 +5,7 @@ use POSIX qw(strftime);
|
5
|
5
|
my @restaurant_info = (
|
6
|
6
|
[ "(TaY) Sodexo Linna", "http://www.sodexo.fi/linna", "", "right", 92],
|
7
|
7
|
#[ "(TTY) Sodexo Erkkeri", "http://www.sodexo.fi/erkkeri", "", "left", 100]
|
|
8
|
+ [ "(TTY) Sodexo Hertsi", "http://www.sodexo.fi/tty-tietotalo", "", "left", 12812]
|
8
|
9
|
);
|
9
|
10
|
|
10
|
11
|
my ($cur_text, $cur_title, $parse_func, $day_id, $week);
|