--- bin/ldap2model.pl	2008/05/15 17:38:13	116
+++ bin/ldap2model.pl	2008/05/15 18:33:58	117
@@ -81,7 +81,7 @@
 	my $model;
 	warn "Creating columns for model $objectClass\n";
 
-	$methods .= qq/\n=head2 $objectClass\n=cut\n\n/;
+	my $aliases = qq/\n=head1 $objectClass helper methods\n=cut\n\n/;
 
 	sub entry {
 		my ( $e, $add ) = @_;
@@ -90,7 +90,7 @@
 			warn "WARNING: column $name found again, skipping...\n";
 			return '';
 		}
-		$methods .= qq/sub $_ { \$_[0]->$name }\n/ foreach @{$_->{aliases}};
+		$aliases .= qq/sub $_ { \$_[0]->$name }\n/ foreach @{$_->{aliases}};
 		my $out = qq/\tcolumn $name =>\n\t\tlabel is _('$_->{desc}')/;
 #		$out .= qq/,\n\t\t# single-value/ if $_->{'single-value'};
 #		$out .= qq/,\n\t\tfilters are qw(A3C::Filter::Array)/ unless $_->{'single-value'};
@@ -118,6 +118,8 @@
 	} $schema->may( $objectClass );
 	$model .= qq/\t# $objectClass may:\n\n$may\n/ if $may;
 
+	$methods .= $aliases unless $aliases;
+
 	return $model;
 }
 
@@ -132,7 +134,7 @@
 
 $methods
 
-=head ACL
+=head2 ACL
 
 We use L<A3C::DefaultACL> for access control