- let results =
- let idx = ref ((page - 1) * results_per_page + List.length result + 1) in
- List.fold_right
- (fun uri i ->
- decr idx ;
- sprintf
- "<tr>
- <td valign=\"top\">%d.</td>
- <td><span class=\"uri\">%s</span></td>
- </tr>
- <tr>
- <td />
- <td><ht:OBJECT uri=\"%s\" mode=\"%s\"/></td>
- </tr>%s"
- !idx uri uri mode i)
- result ""
+ let output_results () =
+ let idx = ref ((page - 1) * results_per_page) in
+ List.iter
+ (fun uri ->
+ incr idx;
+ Printf.bprintf buffer
+ "<tr>
+ <td valign=\"top\">%d.</td>
+ <td><span class=\"uri\">%s</span></td>
+ </tr>
+ <tr>
+ <td />
+ <td><ht:OBJECT uri=\"%s\" mode=\"%s\"/></td>
+ </tr>"
+ !idx uri uri mode) result ;