+ my ( $class, $r ) = @_;
+ my $method = $r->action;
+ return if $r->{template}; # Authentication has set this, we're done.
+
+ $r->{template} = $method;
+ $r->objects( [] );
+ my $obj = $class->retrieve( $r->{args}->[0] );
+ if ($obj) {
+ $r->objects( [$obj] );
+ shift @{ $r->{args} };
+ }
+ $class->$method( $r, $obj, @{ $r->{args} } );
+}
+
+sub display_columns {
+ sort shift->columns;