#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 "$_[4]" if ($_[1]); } # Icons/graphics @Next = ("Next.gif", 31, 30, "align='middle'", "(next)"); @Prev = ("Prev.gif", 31, 30, "align='middle'", "(prev)"); _:> Image: <:=Name($img) :> <: Meta() :> <: } :> #c// ######################### #c// Prev/next #c// #########################
<: 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; :>
#c// Go back to the current image <: Set_Image_This(); :> #c// ######################### #c// The image and caption #c// ######################### <:if (Image_Height()> 700 || Image_Width() > 900) {if (Image_Height() > Image_Width()){$my_img_width="40%"}else{$my_img_width="'85%'"}:>
> src=<:=Image_URL():> name='photo' alt='<:=Image_Alt():>'/>
<: pImage_Caption() :>
<:}else{:>
> name='photo' alt='<:=Image_Alt():>'/>
<: pImage_Caption() :>
<:}:> #c// ######################### #c// Footer #c// #########################
<: Credit() :> on <:=scalar localtime:>