- let sth = dbh#prepare_cached "select p.url, p.url = 'index',
- p.title, p.description,
- p.last_modified_date,
- (select content from contents
- where pageid = p.id
- order by ordering limit 1) as content
- from pages p
- where p.hostid = ? and p.url is not null
- and p.redirect is null
- order by 2 desc, 3, 1" in
- sth#execute [`Int hostid];
+ let rows = PGSQL(dbh)
+ "select p.url, p.url = 'index', p.title, p.description,
+ p.last_modified_date, (select content from contents
+ where pageid = p.id
+ order by ordering limit 1) as content
+ from pages p
+ where p.hostid = $hostid and p.url is not null
+ and p.redirect is null
+ order by 2 desc, 3, 1" in