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};