deedee's Admin Pages

#!/usr/local/bin/perl printTop(); open(FOOD_ITEM, "foodItemDescription.dat"); @foodArray = ; close(FOOD_ITEM); for ($cVar=0; $cVar <= $#foodArray; $cVar++) { chomp $foodArray[$cVar]; } @foodArray = sort(@foodArray); print "

"; print ""; print ""; print "

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

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

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

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

<\/td>"; print "

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

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

" . $foodType . "<\/b><\/td>"; print "<\/tr>"; } print "

<\/td>"; print "

Don't Modify anything <\/b><\/td><\/tr>"; print "<\/table>"; 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

Modify Food Item

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

ENDBOTTOM }