/usr/share/aat/INC/AAT_Table.inc is in octopussy 1.0.6-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | <AAT:Box>
<%
my %arg = @_;
my $obj_conf = AAT::Object::Configuration($arg{object});
my $actions = (defined $arg{edit} ? 1 : 0) + (defined $arg{remove} ? 1 : 0);
my $cols = scalar(@{$obj_conf->{field}}) + $actions;
%>
<AAT:BoxRow>
<AAT:BoxCol align="C" cspan="$cols">
<AAT:Label value="$arg{object} List" style="B" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
<AAT:BoxCol align="C" cspan="$cols"><hr></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
<%
foreach my $f (ARRAY($obj_conf->{field}))
{
my $label = $f->{label};
%><AAT:BoxCol><AAT:Label value="$label" style="B" /></AAT:BoxCol><%
}
if ($actions)
{
%><AAT:BoxCol cspan="$actions">
<AAT:Label value="_ACTION" style="B" /></AAT:BoxCol><%
}
%>
</AAT:BoxRow>
<AAT:BoxRow style="box">
<AAT:BoxCol align="C" cspan="$cols"><hr></AAT:BoxCol>
</AAT:BoxRow>
<%
my $list = AAT::Object::Data($arg{object});
foreach my $c (ARRAY($list))
{
%><AAT:BoxRow><%
foreach my $f (ARRAY($obj_conf->{field}))
{
%><AAT:BoxCol><%= $c->{$f->{fid}} %></AAT:BoxCol><%
}
if (defined $arg{edit})
{
%><AAT:BoxCol align="C">
<AAT:Button name="edit" tooltip="_EDIT" /></AAT:BoxCol><%
}
if (defined $arg{remove})
{
%><AAT:BoxCol align="C"><AAT:Button name="remove" tooltip="_REMOVE" />
</AAT:BoxCol><%
}
%></AAT:BoxRow><%
}
%>
</AAT:Box>
|