--- deliantra/Deliantra-Client/DC/Pod.pm 2008/03/30 10:18:16 1.21 +++ deliantra/Deliantra-Client/DC/Pod.pm 2008/03/30 11:31:09 1.22 @@ -125,7 +125,20 @@ } } +my %as_common = ( + h1 => sub { + "\n\n$_[1]\n" + }, + h2 => sub { + "\n\n$_[1]\n" + }, + h3 => sub { + "\n\n$_[1]\n" + }, +); + my %as_label = ( + %as_common, image => sub { my ($par, $path) = @_; @@ -153,6 +166,7 @@ } my %as_paragraphs = ( + %as_common, image => sub { my ($par, $path, $flags) = @_;