[body 1]
[perl arg=scratch] $start = tag_data('session', 'arg') || 1; $chunk = 1; if($start =~ /(\d+):(\d*)/) { $start = $1; $chunk = $2 || 1; } $prev = $start - $chunk; if($prev < 1) { $prev = 0; } $Safe{'scratch'}{'start'} = $start; $Safe{'scratch'}{'chunk'} = $chunk; $Safe{'scratch'}{'next'} = $start + $chunk; $Safe{'scratch'}{'prev'} = $prev; $Safe{'scratch'}{'not_shown'} = 1; return ''; [/perl]

Browse __COMPANY__

[tag each products] [sort products:category -[scratch start] +[scratch chunk]] [loop-change 1] [condition][loop-field category][/condition]

[loop-field category]

[/loop-change 1] [set not_shown][/set]

[if_loop_field image]

[/if_loop_field]

[loop-description]

Catalog No.: [loop-code]

Price: $[loop-price]

[page [loop-code]][/page] [if-loop-field size]

[loop-accessories size][loop-accessories color]
[else] [order [loop-code]](ORDER NOW)[/order] [/else] [/if-loop-field] [/tag] [if scratch not_shown]

No more to show.

[/if]

[if scratch prev] [page href=browse1 arg="[scratch prev]:[scratch chunk]"]Previous   [/if] [if !scratch not_shown] [page href=browse1 arg="[scratch next]:[scratch chunk]"]Next [/if]


[buttonbar 0]