#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(); # Image arrays are: name, width, height sub img_src { print "$_[4]" if ($_[1]); } # Icons/graphics @Next = ("Next.gif", 31, 30, "align='center'", "(next)"); @Prev = ("Prev.gif", 31, 30, "align='center'", "(prev)"); _:> Image: <:=Image_Name() :> <: Meta() :> #c// ######################### #c// Prev/next #c// #########################
<: Set_Image_Prev(); :> ><:img_src(@Prev); print "(prev)" unless @Prev; :><:=Image_Name():> <: Set_Image_This(); :> <:=Image_Name():> <: Set_Image_Next(); :> ><:=Image_Name():><:img_src(@Next); print "(next)" unless @Next; :>
#c// Go back to the current image <: Set_Image_This(); :> #c// ######################### #c// The image and caption #c// #########################
> {URL}{image_page}{image_src}:> alt=<:=Image_Alt():>>
<: pImage_Caption() :>
#c// ######################### #c// Footer #c// #########################
<: Credit() :> on <:=scalar localtime:>