X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=back2html.pm;h=ba224c79acbba03e092a68019ff015133479f37d;hb=59ace2b4b24a63980678c794091a17f6acfb64cb;hp=95742d2c848eb48c7a191e99c457dea0a487363c;hpb=f67f3b45ca268b7dcc54bc9d4977b8927f1cb21d;p=webpac diff --git a/back2html.pm b/back2html.pm index 95742d2..ba224c7 100644 --- a/back2html.pm +++ b/back2html.pm @@ -6,6 +6,7 @@ sub back2html { my $html = shift; + my $url_params = shift; $html =~ s/</g; $html =~ s/>/>/g; @@ -16,7 +17,7 @@ sub back2html { # convert spaces in left field to non-breaking spaces $items[0] =~ s#\s+# #g; # try to make link on right field - sub mkurl { + sub mkurl($) { my $url = shift || die "mkurl needs url as argument"; # chop URLS longer than 60 characters my $txturl = substr($1,0,60); @@ -27,7 +28,21 @@ sub back2html { $out .= join("