deedee's Admin Pages

#!/usr/local/bin/perl printTop(); print "

"; open(FOOD_ITEM, "foodItemDescription.dat"); @foodArray = ; close(FOOD_ITEM); chomp @foodArray; for ($sCounter=0; $sCounter <= $#foodArray; $sCounter++) { ($sFoodName,$sFoodType,$sFoodDescription) = split(/\|/, $foodArray[$sCounter]); $foodArraySwap[$sCounter] = $sFoodType . "|" . $sFoodName . "|" . $sFoodDescription; } @foodArraySwap = sort(@foodArraySwap); print ""; print ""; print "

\ \;<\/td>"; print "

NAME <\/i><\/b><\/td>"; print "

DESCRIPTION <\/i><\/b><\/td>"; print "

TYPE <\/i><\/b><\/td><\/tr>"; for ($i=0; $i <= $#foodArraySwap; $i++) { ($foodType,$foodName,$foodDescription) = split(/\|/, $foodArraySwap[$i]); print "

<\/td>"; print "

" . $foodName . "<\/b><\/td>"; print "

" . $foodDescription . "<\/b><\/td>"; print "

" . $foodType . "<\/b><\/td>"; print "<\/tr>"; } print "<\/table>"; printMiddle(); print ""; print ""; print "
\ \;<\/td>"; print " NAME <\/i><\/b><\/td>"; print " DESCRIPTION <\/i><\/b><\/td>"; print " TYPE <\/i><\/b><\/td><\/tr>"; for ($i=0; $i <= $#foodArraySwap; $i++) { ($foodType,$foodName,$foodDescription) = split(/\|/, $foodArraySwap[$i]); if ($foodType eq "Breakfast" || $foodType eq "Dessert") { print "
<\/td>"; print " " . $foodName . "<\/b><\/td>"; print " " . $foodDescription . "<\/b><\/td>"; print " " . $foodType . "<\/b><\/td>"; print "<\/tr>"; } } print "<\/table>"; printMiddle2(); print "\ \;"; print "
"; print ""; print " $\"Back\"$ <\/a>"; print "<\/div>"; print "<\/form>"; printBottom(); #================================================= sub printTop { print < deedee's Admin Pages

deedee's
ADMIN PAGES HOME | FOOD ITEM | PRINT | UPDATE MENU | UPDATE BRUNCH

Meal Menu

ENDTOP } #====================================================== sub printMiddle { print <

Breakfast Menu

ENDMIDDLE } #====================================================== sub printMiddle2 { print <

Update Page

ENDMIDDLE2 } #====================================================== sub printBottom { print <

ENDBOTTOM }