- added beautiful error message if no default material is available

www/new.tcl

@@ -77,6 +77,16 @@ set default_material_id [db_string default_cost_center "
 	limit 1
 " -default ""]
 
+# Deal with no default material
+if {"" == $default_material_id} {
+    ad_return_complaint 1 "
+	<b>No default 'Material'</b>:<br>
+	It seems somebody has deleted all materials in the system.<br>
+	Please tell your System Administrator to go to Home - Admin - 
+	Materials and create at least on Material".
+    "
+}
+
 
 set button_pressed [template::form get_action task]
 if {"delete" == $button_pressed} {