--- trunk/back2html.pm 2003/11/16 13:20:14 146 +++ trunk/back2html.pm 2005/01/19 22:29:54 638 @@ -6,6 +6,7 @@ sub back2html { my $html = shift; + my $url_params = shift; $html =~ s/</g; $html =~ s/>/>/g; @@ -16,7 +17,7 @@ # 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 @@ $out .= join("