#c// options: -known_images #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 = "10"; $BORDER_WIDTH = "0"; $TITLE_FONT = "face='Verdana,Arial,Helvetica' color='black' size='-1'"; $MAIN_FONT = "face='Verdana,Arial,Helvetica' color='#777777' size='-2'"; $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? <: my $alb = First('dirs'); if ($alb) { _:>
>Folders:
<: # Loop on all the albums if ($alb) { 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 <: my $path = Path('dir'); my $Story = "$path/Text.html"; $Story = "$path/Story.html" unless -f $Story; $Story = 0 unless -f $Story; :>// <: my $img = First('pics'); if ($img || $Story) { _:> <: if ($Story) { :>// <: } :>// <: while ($img) { _:>// <: if (New_Row($img,2) && Next($img)) { _:> #c// #c// Start a new row <: } :> #c// #c// End image loop <: $img = Next($img); } :>//
'> '> > <: print read_file($Story); :>
<: Border($img,'thumb','image', @Border) if Get($img,'thumb','x') :> > <:=Get($img,'href','image'):> <:=Pretty(Name($img),1,1):>
<:=$SEP_BAR:> <:}:>// #c// #c// Optional footer <: if (isFooter()) { _:> >
<:pFooter():>
<:=$SEP_BAR:> <: } _:>
><: Credit() :> on <:=scalar localtime:>