From 387820a60d6a1ecbc9e8dcc0a922ad6e5ce293bc Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Wed, 18 May 2011 02:30:13 +0200 Subject: [PATCH] brmd::Alphasign: Remember last mode too --- brmd/brmd.pl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/brmd/brmd.pl b/brmd/brmd.pl index ab7e86d..0255d24 100755 --- a/brmd/brmd.pl +++ b/brmd/brmd.pl @@ -414,10 +414,11 @@ sub web_alphasign_text { $response->push_header("Content-Type", "text/html"); disable_caching($response); my $text = $alphasign->last_text_escaped(); + my $lm = $alphasign->last_mode(); my $help = $alphasign->markup_help(); $help =~ s/&/&/g; $help =~ s//>/g; $help =~ s/\n/
/g; - my $modes = join("\n", map { "" } $alphasign->mode_list()); + my $modes = join("\n", map { "$_" } $alphasign->mode_list()); $response->content(< @@ -665,7 +666,7 @@ use Tie::IxHash; sub new { my $class = shift; - my $self = bless { last_text => '' }, $class; + my $self = bless { last_text => '', last_mode => 'hold' }, $class; POE::Session->create( object_states => [ @@ -835,6 +836,7 @@ sub markup_help { sub text { my ($heap, $self, $mode, $string) = (@_[HEAP, OBJECT, ARG0, ARG1]); + $self->{last_mode} = $mode; $mode = $modes{$mode}; $self->{last_text} = $string; $string = substr($string, 0, 256); @@ -843,6 +845,10 @@ sub text { $string =~ s/<(.*?)>/$markup{$1}->[0]/gei; $_[KERNEL]->yield('rawtext', $mode, $string); } +sub last_mode { + my $self = shift; + return $self->{last_mode}; +} sub last_text { my $self = shift; return $self->{last_text};