[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-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]
[else]
[order [loop-code]]
[/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]