#c// ################################################################### #c// Album Theme by George Hansper #c// ################################################################### #c// <: # Path setting - this is the path to the images $PATH = Theme_URL(); @Photo_Border = ('white',5); #@Album_Border = ('#101080',5); #@Movie_Border = ( 'black',5); $INITIAL_ICON_SIZE=150; $COLS=Option('columns'); # Borders my %Border = ( Photo => { L => { url => "$PATH/Photo_Border_L.gif", x => 25, y => 100 }, R => { url => "$PATH/Photo_Border_R.gif", x => 25, y => 100 }, TL => { url => "$PATH/Photo_Border_TL.gif", x => 25, y => 25 }, TR => { url => "$PATH/Photo_Border_TR.gif", x => 25, y => 25 }, BL => { url => "$PATH/Photo_Border_BL.gif", x => 25, y => 25 }, BR => { url => "$PATH/Photo_Border_BR.gif", x => 25, y => 25 }, T => { url => "$PATH/Photo_Border_T.gif", x => 125, y => 25 }, B => { url => "$PATH/Photo_Border_B.gif", x => 125, y => 25 } }, Album => { TL => { url => "$PATH/Album_Border_TL.png", x => 6, y => 6 }, T => { url => "$PATH/Album_Border_TL.png", x => 300, y => 6 }, TR => { url => "$PATH/Album_Border_TR.png", x => 25, y => 6 }, R => { url => "$PATH/Album_Border_R.png", x => 25, y => 300 }, BR => { url => "$PATH/Album_Border_BR.png", x => 25, y => 25 }, B => { url => "$PATH/Album_Border_B.png", x => 300, y => 25 }, BL => { url => "$PATH/Album_Border_BL.png", x => 6, y => 25 }, L => { url => "$PATH/Album_Border_TL.png", x => 6, y => 300 }, }, Movie => { TL => { url => "$PATH/Movie_Border_CNR.gif", x => 15, y => 5 }, TR => { url => "$PATH/Movie_Border_CNR.gif", x => 15, y => 5 }, BL => { url => "$PATH/Movie_Border_CNR.gif", x => 15, y => 5 }, BR => { url => "$PATH/Movie_Border_CNR.gif", x => 15, y => 5 }, L => { url => "$PATH/Movie_Border_L.gif", x => 15, y => 114 }, R => { url => "$PATH/Movie_Border_R.gif", x => 15, y => 114 }, T => { url => "$PATH/Movie_Border_CNR.gif", x => 15, y => 5 }, B => { url => "$PATH/Movie_Border_CNR.gif", x => 15, y => 5 } } ); # my %Border sub My_Border { my ($tag,$border) = @_; my $indent; my $html; $_ = $tag; m/^(\s*)/; $indent = $1; if ( @{$border} > 0 ) { # Simple border - Color+width only $html = $indent . "
\n"; $html .= $tag . "\n"; $html .= $indent . " |
\n"; $html .= $indent . " | \n"; $html .= $indent . " | \n"; $html .= $indent . " |
\n"; $html .= $indent . " | \n"; $html .= $tag . "\n"; $html .= $indent . " | \n"; $html .= $indent . "\n"; $html .= $indent . " |
\n"; $html .= $indent . " | \n"; $html .= $indent . " | \n"; $html .= $indent . " |
<:= Parent_Albums(':') :> | #c # Previous image <:=Get( Prev(This_Image, Option('image_loop')) ,'href','image_page'):> < Prev | <:=Name(This_Image) :> | #c # Next image <:=Get( Next(This_Image, Option('image_loop')) ,'href','image_page'):> Next > | ><:=Trans('Index'):> |
<: if ($Prev_2) { _:> <:=Get($Prev_2,'href','image_page'):> << <:=Trans('Prev'):> -2 <: } _:> | <: if ($Prev_1) { _:> <:=Get($Prev_1,'href','image_page'):> < <:=Trans('Prev'):> <: } _:> | <:=Trans('This image'):> | <: if ($Next_1) { _:> <:=Get($Next_1,'href','image_page'):> <:=Trans('Next'):> > <: } _:> | <: if ($Next_2) { _:> <:=Get($Next_2,'href','image_page'):> <:=Trans('Next'):> +2 >> <: } _:> |
<: if ($Prev_2) { _:> <:=img_with_border($Prev_2):> <: } _:> | <: if ($Prev_1) { _:> <:=img_with_border($Prev_1):> <: } _:> | width=<:=Get(This_Image,'thumb','x')*0.6 :> height=<:=Get(This_Image,'thumb','y')*0.6 :> > | <: if ($Next_1) { _:> <:=img_with_border($Next_1):> <: } _:> | <: if ($Next_2) { _:> <:=img_with_border($Next_2):> <: } _:> |
<: if ($Prev_2) { _:>
<:=Caption($Prev_2):>
<:=Get($Prev_2,'full','x'):> x <:=Get($Prev_2,'full','y'):> - <:=Get($Prev_2,'full','filesize'):>bytes <: } _:> |
<: if ($Prev_1) { _:>
<:=Caption($Prev_1):>
<:=Get($Prev_1,'full','x'):> x <:=Get($Prev_1,'full','y'):> - <:=Get($Prev_1,'full','filesize'):>bytes <: } _:> |
<: if ($Next_1) { _:>
<:=Caption($Next_1):>
<:=Get($Next_1,'full','x'):> x <:=Get($Next_1,'full','y'):> - <:=Get($Next_1,'full','filesize'):>bytes <: } _:> |
<: if ($Next_2) { _:>
<:=Caption($Next_2):>
<:=Get($Next_2,'full','x'):> x <:=Get($Next_2,'full','y'):> - <:=Get($Next_2,'full','filesize'):>bytes <: } _:> |