#c// #################################################################### #c// Image Theme created by DaveSource.com, modified by frank@celler.de #c// #################################################################### <: # Path setting - this is the path to the images $PATH = Theme_URL(); # Slideshow setting $SLIDESHOW = Option('slideshow'); # Image arrays are: name, width, height sub img_src { print "" if ($_[1]); } # Icons/graphics @Next = ("Next.gif", 31, 30, "align='middle'", "(next)"); @Prev = ("Prev.gif", 31, 30, "align='middle'", "(prev)"); _:>
<: Set_Image_Prev(); :> #c <: $img=Prev($img); :> ><:img_src(@Prev); print "(prev)" unless @Prev; :><:=Name($img):> | <: Set_Image_This(); :> #c <: $img :> <:=Name($img):> | <: Set_Image_Next(); :> #c <: $img=Next($img); :> ><:=Image_Name():><:img_src(@Next); print "(next)" unless @Next; :> |