#c// ################################################################### <: # Image arrays are: name, width, height sub img_src { print "$_[4]" if ($_[1]); } # Path setting - this is the path to the images and css files $PATH = Theme_URL(); # Icons/graphics @Bar_L = ("Bar_L.png", 27, 20); @Bar_M = ("Bar_M.png", "90%", 20); @Bar_R = ("Bar_R.png", 27, 20); @More = ("More.png", 42, 18); @Back = ("Back.png", 32, 24); # Thumbnail border $X = Image_Page() ? Image_Width() : Option('x'); $Y = Image_Page() ? Image_Height() : Option('y'); #@ThBord_L = ("tho_left.png", 39, $Y-0-0); # width of left img #@ThBord_R = ("tho_right.png", 41, $Y-0-0); # height of top img + 2 #@ThBord_R = ("Null.gif", 2, $Y-0-0); # width of the right img + 2 @ThBord_T = ("tho_top.png", $X+10, 39); # width of left img + height of top img + 2 , height of top img #@ThBord_B = ("Null.gif", $X+39+1-0-0, 3); # width of left img + height of bottom img + 2 , height of top img + 2 # comment this line to enable "up" navigation # sub Back { ""; } $backText= "Dossier parent"; # text of the "up" button sub ChildAlbumText { "Sous albums : "; }; :>// end of easy configuration section <: # Shorthand for column info specified by -columns $Cols = Option('columns'); $Col_Perc = int(100/$Cols)."%"; :>// <: Meta() :> <: pAlbum_Name() :> >
<: pJoin_Parent_Albums(" : "); :>
<: # Are there more albums below this one? if (Child_Albums()) { :>
<: # Introduce what this div is about if (@More) { img_src(@More); } else { print ChildAlbumText(); } # content # Loop on all the albums while (Child_Albums()) { pChild_Album(); Next_Child_Album(); if (Child_Albums_Left()) { print ", "; } } :>
<: } :> <: $back=Back(); if ($back && $back ne "''") { :>
<: $imgAttributes = "align='middle' title='" . $backText . "'"; print ""; @Back ? img_src(@Back,$imgAttributes) : print $backText; print "\n"; :>
<: } :>
<: if (isHeader()) { _:>
<:pHeader():>
<: } _:>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
#c// #c// The images <: if (Images()) { _:>// <: while (Images()) { _:>// <: if (!(Image_Cnt() % $Cols) && Images_Left()) { _:>// #c// #c// Start a new row <: } :> #c// #c// End image loop <: Next_Image(); } :>//
<: if (@ThBord_LB) { _:> #c// The thumbnail is a complicated table for handling all the corners...
<:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_LT):> > alt=<:=Image_Alt():> width='<:=Option('x'):>' height="<:=Option('y'):>" border="0"> <:img_src(@ThBord_RT):>
<:img_src(@ThBord_L):> <:img_src(@ThBord_R):>
<:img_src(@ThBord_LB):> <:img_src(@ThBord_RB):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
<: } else { _:> <:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_L):>><:pImage_Thumb_Src():><:img_src(@ThBord_R):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
<: } _:> > <:=Image_Name():>
<:pImage_Caption():>
<:img_src("Null.gif",20,20):>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<:}:>// <: if (isFooter()) { _:>
<:pFooter():>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<: } _:>
Theme by thocar. <: Credit() :> on <:=scalar localtime:>