| 
				
			 | 
			
			
				@@ -1,9 +1,9 @@ 
			 | 
		
	
		
			
			| 
				1
			 | 
			
				1
			 | 
			
			
				 use vars qw(@day_names); 
			 | 
		
	
		
			
			| 
				2
			 | 
			
				2
			 | 
			
			
				 use JSON; 
			 | 
		
	
		
			
			| 
				3
			 | 
			
				3
			 | 
			
			
				  
			 | 
		
	
		
			
			| 
				4
			 | 
			
				
			 | 
			
			
				-my $erkkeri_title = "(TTY) Amica Erkkeri"; 
			 | 
		
	
		
			
			| 
				5
			 | 
			
				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
			 | 
			
				9
			 | 
			
			
				 sub utf8_to_8859 { 
			 |