From ad69fc565fe01e18bca7d3ad975156d6a2c8a604 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 15 Mar 2011 18:00:30 +0100
Subject: Only place lightbox html links when lightbox is enabled

---
 lib/App/Dthumb.pm         | 6 ++++++
 lib/App/Dthumb/Data.pm.PL | 5 ++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

(limited to 'lib/App')

diff --git a/lib/App/Dthumb.pm b/lib/App/Dthumb.pm
index 8d71383..f7b6d86 100755
--- a/lib/App/Dthumb.pm
+++ b/lib/App/Dthumb.pm
@@ -146,6 +146,12 @@ sub new {
 		height => $conf{size} * $conf{spacing} . 'px',
 	);
 
+	if ($conf{lightbox}) {
+		$ref->{data}->set_vars(
+			lightbox => $ref->{data}->get('html_lightbox.dthumb'),
+		);
+	}
+
 	$ref->{html} = $ref->{data}->get('html_start.dthumb');
 
 	return bless($ref, $obj);
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index eaf914e..a0fb4f5 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -103,7 +103,10 @@ B<get> function, dthumb will replace occurences of "<!-- $key -->" or "/* $key
 
 sub set_vars {
 	my ($self, %vars) = @_;
-	$self->{replace} = \%vars;
+
+	while (my ($key, $value) = each(%vars)) {
+		$self->{replace}->{$key} = $value;
+	}
 }
 
 
-- 
cgit v1.2.3