h1: ewok locks [$ var $req *set $s $c $] [- $req = shift; my $db = DBIx::Database->Get('ewok'); my $param = { '!DataSource' => $db, '!Table' => 'locks', '!PrimKey' => 'file', '$fields' => q(file, user, date_format(ts,'%d-%b-%Y %T') as locktime), '$order' => 'dir, file', }; $param->{user} = $req->{user} if ! $req->{authz}->{admin}; *set = DBIx::Recordset->Search($param); -] [$ if ($req->{authz}->{admin}) $]
[- $c = 0; -][$ while ($s = $set->Next) $] [- $c++ -][$ endwhile $]
 FileUserLocktime
[+ $s->{file} +] [+ $s->{user} +] [+ $s->{locktime} +]
[$ else $] [- $c = 0; -][$ while ($s = $set->Next) $] [- $c++ -][$ endwhile $]
 FileLocktime
[+ $s->{file} +] [+ $s->{locktime} +]
[$ endif $]