#c// option: -known_images #c// option: -name_length 0 #c// ################################################################### #c// Story Theme (based of Maste theme by DaveSource.com) #c// ################################################################### #c// <: # Path setting - this is the path to the images $PATH = Theme_URL(); # Font/color settings for the document $INTER_ROW_HEIGHT = "5"; $BORDER_WIDTH = "0"; $TITLE_FONT = "face='Verdana,Arial,Helvetica' color='black' size='-1'"; $MAIN_FONT = "face='Verdana,Arial,Helvetica' color='#777777' size='-1'"; $STORY_FONT = "face='Verdana,Arial,Helvetica' color='#555555' size='-1'"; $CREDIT_FONT = "face='Verdana,Arial,Helvetica' color='blue' size='-2'"; $BODY = "bgcolor='#ffffff' text='#777777' link='blue' alink='blue' vlink='purple'"; $SEP_BAR = "


"; # Thumbnail border @ThBord_L = ("$PATH/ThBord_L.gif", 11, 0); @ThBord_R = ("$PATH/ThBord_R.gif", 13, 0); @ThBord_TL = ("$PATH/ThBord_TL.gif", 11, 11); @ThBord_TR = ("$PATH/ThBord_TR.gif", 13, 11); @ThBord_BL = ("$PATH/ThBord_BL.gif", 11, 13); @ThBord_BR = ("$PATH/ThBord_BR.gif", 13, 13); @ThBord_T = ("$PATH/ThBord_T.gif", 0, 11); @ThBord_B = ("$PATH/ThBord_B.gif", 0, 13); @Border = (\@ThBord_TL,\@ThBord_T,\@ThBord_TR,\@ThBord_RT,\@ThBord_R,\@ThBord_RB,\@ThBord_BR,\@ThBord_B,\@ThBord_BL,\@ThBord_LB,\@ThBord_L,\@ThBord_LT); :>// <: Meta() :> Album: <: Path('album_name') :> > <: if (isHeader()) { _:> <: } _:>
> Album: <:= Parent_Albums(":") :> <: my $back = Back(); if ($back && $back ne "''" && $back ne "'0'") { _:>
class='title'>Up
<: } _:>
>
<:pHeader():>
<:=$SEP_BAR:> #c// Are there more albums below this one? <: if (my $alb = First('dirs')) { _:>
>Folders:
#c// #c// Loop on all the albums <: while ($alb) { print "  "; print Get($alb,'href','dir'); print Pretty(Name($alb),1); print ""; print Caption($alb),"
\n"; print "
\n"; $alb = Next($alb); } _:>
#c// Bar after child albums <:=$SEP_BAR:> #c// #c// End if sub-albums <: } :> #c// The images <: if (my $img = First('pics')) { _:> <: while ($img) { my $left = ((Get($img,'num')+1) % 2) ? 1 : 0; my $align = $left ? "left" : "right"; my $thumbalign = $left ? "right" : "left"; my $valign = $left ? "top" : "bottom"; _:>// <: if (!$left) { _:>// <: } _:>// <: if (New_Row($img,2) && Next($img)) { _:>// #c// #c// Start a new row <: } :>// #c// #c// End image loop <: $img = Next($img); :>// <: } :>//
<: Border($img,'thumb','image', @Border) if Get($img,'thumb','x') :>
> <:=Get($img,'href','image'):> <:=Pretty(Name($img),1,1):> > <:=Caption($img):>
<:=$SEP_BAR:> <:}:>// #c// #c// Optional footer <: if (isFooter()) { _:> >
<:pFooter():>
<:=$SEP_BAR:> <: } _:>
><: Credit() :> on <:=scalar localtime:>