Browse Source

Remove extra print statements

Toni Fadjukoff 8 years ago
parent
commit
92c4fd25b0
1 changed files with 0 additions and 2 deletions
  1. 0 2
      amica.pl

+ 0 - 2
amica.pl View File

33
     my $SetMenus = $LunchMenu->{'SetMenus'};
33
     my $SetMenus = $LunchMenu->{'SetMenus'};
34
     my $Html = $LunchMenu->{'Html'};
34
     my $Html = $LunchMenu->{'Html'};
35
     if (length($Html) > 0) {
35
     if (length($Html) > 0) {
36
-      print "Doing html\n";
37
       my @Menus = split('<p>', $Html);
36
       my @Menus = split('<p>', $Html);
38
-      print "SetMenus" . @Menus . "\n";
39
       foreach my $SetMenu (@Menus) {
37
       foreach my $SetMenu (@Menus) {
40
         my @Meals = split('<br />', $SetMenu);
38
         my @Meals = split('<br />', $SetMenu);
41
 	foreach my $Meal (@Meals) {
39
 	foreach my $Meal (@Meals) {