sub inline {
my $self = shift;
my $wiki = shift;
+ my $name = shift;
my $text = shift;
- push(@{$self->{'memolist'}}, "[comment]".$text);
+ if($text eq ''){
+ $text = $name;
+ $name = '';
+ }
+
+ if($name ne ''){
+ push(@{$self->{'memolist'}}, "[comment]".$name." - ".$text);
+ } else {
+ push(@{$self->{'memolist'}}, "[comment]".$text);
+ }
my @list = @{$self->{'memolist'}};
- return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>';
+ if($name ne ''){
+ return '<span class="memo '.Util::escapeHTML($name).'"><a name="todo-'.($#list + 1).'"></a><b>'.Util::escapeHTML($name).'</b> - '.Util::escapeHTML($text).'</span>';
+ } else {
+ return '<span class="memo"><a name="todo-'.($#list + 1).'"></a>'.Util::escapeHTML($text).'</span>';
+ }
}
1;