# Range HTML
::run test ! -d scratch
::run mkdir scratch

::sleep 1
:{write scratch/photopubrc
<imagedirs>
   dir scratch
   suffix .jpg
</imagedirs>
<infofile>
  dir scratch
  filename info
  makealbum all
</infofile>
<rangetemplates>
  down scratch/downwards.thtml
  across scratch/across.thtml
</rangetemplates>
:}

:{write scratch/info
group 1-5 foo
describe 1 bar
describe 2 foo
:}

:{write scratch/downwards.thtml
<repeat picture>
<a picture thumb=40x30><ifdescr>$description</ifdescr></a>
</repeat>
:}

::makeimage 100x75 scratch/1.jpg
::makeimage 100x75 scratch/2.jpg

:{init
:{rangehtml range=/1-5 style=/down
<a href="display.pl?photo=/1&amp;thumb=40x30">bar</a>
<a href="display.pl?photo=/2&amp;thumb=40x30">foo</a>
:}

:{rangehtml range=/1-5 style=/down search=foo
<a href="display.pl?photo=/2&amp;thumb=40x30">foo</a>
:}
:}

::sleep 1
:{write scratch/downwards.thtml
<maxitems 1>
<repeat picture>
<a picture thumb=40x30><ifdescr>$description</ifdescr></a>
</repeat>
<ifprev><a prev>prev</a></ifprev>
:}

:{init
:{rangehtml range=/1-5 style=/down page=2
<a  href="display.pl?photo=/2&amp;thumb=40x30">foo</a>
<a  href="range.pl?range=/1-5&amp;style=/down&amp;page=1" >prev</a>
:}
:}

:{write scratch/across.thtml
<repeat picture>
<a picture thumb=40x30>
<img picture thumb=20x15 />
</a>
</repeat>
:}

:{init
:{rangehtml range=/1-5 style=/across
<a href="display.pl?photo=/1&amp;thumb=40x30">
<img src="display.pl?photo=/1&amp;thumb=20x15" alt="Photo /1" width="20" height="15" />
</a>
<a href="display.pl?photo=/2&amp;thumb=40x30">
<img src="display.pl?photo=/2&amp;thumb=20x15" alt="Photo /2" width="20" height="15" />
</a>
:}
:}

::sleep 1
:{append scratch/photopubrc
<path test>
   templatealias /
</path>
:}

:{write scratch/downwards.thtml
$styleroot
:}

:{write scratch/across.thtml
<iftitle>$title</iftitle>
<ifnotitle>Range $range</ifnotitle>
:}

:{init
:{rangehtml range=/1-5 style=/test/down
/test
:}

:{rangehtml range=/1-5 style=/across album=/all
foo
:}

:{rangehtml range=/2-4 style=/across album=/all
Range /2-4
:}
:}

::sleep 1
:{write scratch/downwards.thtml
<repeat picture>
$counter
$photo
$filesizek
$picid
<a embed>
<editinfo>
</repeat>
:}

:{init
:{rangehtml range=/1-5 style=/down
1
/1
0
/1
<a href="embed.pl?photo=/1">
<p><input type="text" name="desc/1" size=40 value="bar"><select name="effect/1"> <option value="none" selected>none</option> <option value="rotate90">rotate90</option> <option value="rotate180">rotate180</option> <option value="rotate270">rotate270</option></select>
2
/2
0
/2
<a href="embed.pl?photo=/2">
<p><input type="text" name="desc/2" size=40 value="foo"><select name="effect/2"> <option value="none" selected>none</option> <option value="rotate90">rotate90</option> <option value="rotate180">rotate180</option> <option value="rotate270">rotate270</option></select>
:}
:}

::sleep 1
:{write scratch/info
describe 1 foo
describe 2 bar
describe 3 baz
describe 4 quux
describe 5 blat
:}

::makeimage 100x75 scratch/3.jpg
::makeimage 100x75 scratch/4.jpg
::makeimage 100x75 scratch/5.jpg

:{write scratch/downwards.thtml
<repeat picture>
$photo
<ifcount=1>first</ifcount>
<ifcount=-1>last</ifcount>
<ifcount mod 2=1>odd</ifcount>
</repeat>
:}

:{init
:{rangehtml range=/1-5 style=/down
/1
first
odd
/2
/3
odd
/4
/5
last
odd
:}
:}

::sleep 1
:{write scratch/downwards.thtml
<repeat picture inner=3>
[
<inner>
$description
</inner>
]
</repeat>
:}

:{init
:{rangehtml range=/1-5 style=/down
[
foo
bar
baz
]
[
quux
blat
]
:}
:}

::run rm scratch/*
::run rmdir scratch