%doc> Generic object view Uses metadata to display all fields with their values and lists of each group of 'has_many' related objects Required Arguments: table name and either id or position %doc> <%args> $table $id $user => $ui->get_current_user($r) $view => 'all' $edit => undef %args> <%attr> title => 'View Object' %attr> <%init> my $DEBUG = 0; my($obj, $prevobj ); my %ftables; unless ( $obj = $table->retrieve($id) ){ $m->comp('error.mhtml', error => "Nonexistent record: $id"); } # Check if user can view this object my $manager = $ui->get_permission_manager($r); unless ( $manager && $manager->can($user, "view", $obj) ){ $m->comp('/generic/error.mhtml', error=>"You don't have permission to view this object"); } my $labelstr = $obj->get_label; my %linksfrom = $table->meta_data->get_links_from; my %order = $table->meta_data->get_column_order; if ( $DEBUG ){ print '%ARGS is
', Dumper(%ARGS), '
', Dumper(%linksfrom), '
', Dumper(%order), '