|
|
@@ -1,8 +1,8 @@
|
|
1
|
1
|
#!/usr/bin/env perl
|
|
2
|
2
|
|
|
3
|
|
-# Ruokalistaparseri v1.5.3
|
|
|
3
|
+# Ruokalistaparseri v1.5.4
|
|
4
|
4
|
# Copyright (c) 2007-2010 Timo Sirainen
|
|
5
|
|
-# 2011-2012 Toni Fadjukoff
|
|
|
5
|
+# 2011-2013 Toni Fadjukoff
|
|
6
|
6
|
# This is Public Domain
|
|
7
|
7
|
|
|
8
|
8
|
use strict;
|
|
|
@@ -80,8 +80,12 @@ my $file_header = '<?xml version="1.0" encoding="iso-8859-1"?>
|
|
80
|
80
|
<title>Ruokalistat</title>
|
|
81
|
81
|
<link rel="stylesheet" type="text/css" href="'.$global_prefix.'/ruoka.css" />
|
|
82
|
82
|
</head>
|
|
83
|
|
-<body onload="set_allergies()">
|
|
|
83
|
+<body>
|
|
84
|
84
|
|
|
|
85
|
+<div id="notice" style="border: 1px solid black; border-radius: 5px; padding: 5px;">
|
|
|
86
|
+PNA.fi on kolmannen osapuolen tarjoama palvelu. En voi taata ruokalistojen oikeellisuutta.
|
|
|
87
|
+Jos huomaat ruokalistassa virheen, nopeiten asia korjaantuu kun lähetät minulle siitä sähköpostia: <a href="mailto:lamperi+pna@gmail.com">lamperi+pna@gmail.com</a>
|
|
|
88
|
+</div>
|
|
85
|
89
|
|
|
86
|
90
|
<form method="get" action="/cgi-bin/food.cgi">
|
|
87
|
91
|
';
|
|
|
@@ -337,6 +341,7 @@ sub write_day {
|
|
337
|
341
|
my @allergy_strings = map('"'.$_.'"', @allergies);
|
|
338
|
342
|
print $fout "var allergies = [".join(",", @allergy_strings)."];\n";
|
|
339
|
343
|
print $fout "var food_count = $foodnum\n";
|
|
|
344
|
+ print $fout "window.onload = function() { set_allergies(); show_warning(); };\n";
|
|
340
|
345
|
print $fout "</script>\n";
|
|
341
|
346
|
|
|
342
|
347
|
print $fout "</div></div>$file_footer";
|
Toni Fadjukoff