From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 31 Jul 2006 17:19:17 +0000 (+0200)
Subject: Factor out the query string generation from link printing.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=57eab1fc20fd2c7f972a12631b2cca978fb9f8cb

Factor out the query string generation from link printing.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 6bcc538..be4385a 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -117,10 +117,10 @@ sub scale_aspect {
 	return ($width, $height);
 }
 
-sub print_link {
-	my ($r, $title, $baseurl, $param, $defparam) = @_;
-	my $str = "<a href=\"$baseurl";
+sub get_query_string {
+	my ($param, $defparam) = @_;
 	my $first = 1;
+	my $str = "";
 
 	while (my ($key, $value) = each %$param) {
 		next unless defined($value);
@@ -130,8 +130,12 @@ sub print_link {
 		$str .= "$key=$value";
 		$first = 0;
 	}
-	
-	$str .= "\">$title</a>";
+	return $str;
+}
+
+sub print_link {
+	my ($r, $title, $baseurl, $param, $defparam) = @_;
+	my $str = "<a href=\"$baseurl" . get_query_string($param, $defparam) . "\">$title</a>";
 	$r->print($str);
 }