From 3ee3000306dcf88dca7fddb07ec5a02f8a3b4584 Mon Sep 17 00:00:00 2001 From: fukachan Date: Thu, 22 Mar 2001 07:33:37 +0000 Subject: relative ACTION url path enforce the output in Japanese EUC --- fml/lib/FML/Ticket/Model/minimal_states.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/fml/lib/FML/Ticket/Model/minimal_states.pm b/fml/lib/FML/Ticket/Model/minimal_states.pm index 9235c1c7..87a6ddcc 100644 --- a/fml/lib/FML/Ticket/Model/minimal_states.pm +++ b/fml/lib/FML/Ticket/Model/minimal_states.pm @@ -809,7 +809,7 @@ sub _show_ticket_by_html_table my $config = $curproc->{ config }; my $ml_name = $config->{ ml_name }; my $spool_dir = $config->{ spool_dir }; - my $action = $config->{ ticket_cgi_base_url } || '/cgi-bin/fmlticket.cgi'; + my $action = 'fmlticket.cgi'; my $target = $config->{ ticket_cgi_target_window } || 'TicketCGIWindow'; # printf($fd $format, @@ -842,7 +842,8 @@ sub _show_ticket_by_html_table $aid = (split(/\s+/, $articles))[0]; my $buf = $self->_article_summary( $spool_dir ."/". $aid ); $buf =~ s/\n/
\n/g; - print $buf; + use Language::ISO2022JP qw(STR2EUC); + print STR2EUC($buf); } -- cgit v1.2.1