--- trunk/lib/Frey/Web.pm	2008/12/04 20:20:45	720
+++ trunk/lib/Frey/Web.pm	2008/12/05 17:33:00	725
@@ -446,6 +446,7 @@
 sub icon_path {
 	my ($self,$class,$variant) = @_;
 	my $icon = $class;
+	$icon ||= $self->title;
 	$icon =~ s{::}{/}g;
 	$icon .= "/$variant" if $variant;
 	my $path = 'static/icons/' . $icon . '.png';
@@ -659,9 +660,10 @@
 sub checkbox {
 	my ($self,$name,$value) = @_;
 	my $checked = '';
-	my $all_checkboxes = $self->$name;
+	my $all_checkboxes = eval { $self->$name };
+	warn "ERROR tried to get checkbox value for '$name' which is unknown: $@" if $@;
 	$all_checkboxes = [ $all_checkboxes ] unless ref($all_checkboxes) eq 'ARRAY'; # sigh, too chatty
-	$checked = ' checked' if grep { $_ eq $value } @$all_checkboxes;
+	$checked = ' checked' if grep { defined $_ && $_ eq $value } @$all_checkboxes;
 	warn "# checkbox $name $value $checked\t", $self->dump( $self->$name );
 	qq|<input name="$name" value="$value" type="checkbox"$checked>|;
 }