# handling subrelation Places

delete prefix;
delete per_tuple;
delete postfix;

delete TEMP1

let prefix = ' ';
let per_tuple = 'Licence: <<Licence>>, Name: <<Name>>, Phone: <<Phone>>, Population: <<Population>>
<p>';
let postfix = ' ';

let TEMP1 = 
  TABLE() feed addcounter[NoTop, 1] remove[Places]
  TABLE() feed addcounter[NoTop, 1]
    project[NoTop, Places] 
    unnest[Places]
    addcounter[NoPlaces, 1]
    extend[XXXNo: (.NoTop * 1000) + .NoPlaces]
    toFields[XXXNo]
    Markups_Places feed project[Field, Markup, StartMarkup] {mu} 
    hashjoin[Field, Field_mu]
    extend[Field2: .Markup_mu + .Value]
    sortby[XXXNo, StartMarkup_mu]
    groupby[XXXNo; Page: group feed 
      aggregateB[Field2; fun(t1: text, t2: text) t1 + t2; ''] 
        + FinalMarkup_Places + nl]
    extend[NoTop: .XXXNo div 1000, NoPlaces: .XXXNo mod 1000]
    groupby[NoTop; Places: prefix + group feed 
      aggregateB[Page; fun(t3: text, t4: text) t3 + t4; ''] + postfix] {f}
  mergejoin[NoTop, NoTop_f]
  remove[NoTop, NoTop_f]
  consume
  


# handling the top level

delete prefix;
delete per_tuple;
delete postfix;

let prefix = readFile(PATH + 'prefix.html');
let per_tuple = readFile(PATH + 'per_tuple.html');
let postfix = readFile(PATH + 'postfix.html');


query TEMP1 feed 
  addcounter[XXXNo, 1]
  toFields[XXXNo]
  nest[XXXNo; Row]
  extend[Page:
    .Row afeed Markups feed {mu} hashjoin[Field, Field_mu]
    sortby[StartMarkup_mu]
    extend[Field2: .Markup_mu + .Value]
    aggregateB[Field2; fun(t1: text, t2: text) t1 + t2; ''] + FinalMarkup]
  aggregateB[Page; fun(t3: text, t4: text) t3 + t4; '']
  within[writeFile(prefix + . recode["latin1", "utf8"] + postfix, PATH + 'result.html')]