X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=be4385ae712ec60de351bbccb68976d35601ec8c;hp=6bcc538307f1fe9b4dbcab61dc50ac8858157092;hb=57eab1fc20fd2c7f972a12631b2cca978fb9f8cb;hpb=73989553af1cafeade2d91cc5ca32ea5eeffb8cb

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);
 }