| 
				
			 | 
			
			
				@@ -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); 
			 |