renderContentOn: html 
	html
		heading: [html text: 'Dishes']
		level: 3.
	html
		table: [cList
				do: [:each | html
						tableRow: [html
								tableData: [html anchor
										callback: [| w dish | 
											w := WADishEdit new.
											dish := each copy.
											w model: each.
											(self call: w) ifTrue: [TestDB db commit: [each := each.]]];
										 with: each caption];
								tableData: each recipe;
								tableData: each comments;
								tableData: [html image url: each meta dishImage]
								]]]