Factor out the query string generation from link printing.
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 31 Jul 2006 17:19:17 +0000 (19:19 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 31 Jul 2006 17:19:17 +0000 (19:19 +0200)
perl/Sesse/pr0n/Common.pm

index 6bcc538307f1fe9b4dbcab61dc50ac8858157092..be4385ae712ec60de351bbccb68976d35601ec8c 100644 (file)
@@ -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);
 }