renderContentOn: html 
	html
		heading: [html text: 'Dishes']
		level: 3.
	html
		table: [cList
				do: [:each | html
						tableRow: [html
								tableData: [html anchor
										callback: [ self editDish: each ];
										 with: each caption];
								tableData: each recipe;
								tableData: each comments;
								tableData: [html image url: each meta dishImage]
								]]]

editDish: aDish
	w := WADishEdit new.
	dish := each copy.
	w model: each.
	(self call: w) ifTrue: [ self session commit: [ ]]