--- deliantra/Deliantra-Client/DC/Pod.pm 2008/03/30 00:25:11 1.20
+++ deliantra/Deliantra-Client/DC/Pod.pm 2008/03/30 11:31:09 1.22
@@ -47,7 +47,8 @@
$node = $node->[N_PARENT]
or return 0;
- return scalar grep $_ eq $kw, @{ $node->[N_KW] };
+ #TODO: maybe get rid of lowercasing?
+ return scalar grep lc eq $kw, @{ $node->[N_KW] };
}
sub find(@) {
@@ -124,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) = @_;
@@ -152,6 +166,7 @@
}
my %as_paragraphs = (
+ %as_common,
image => sub {
my ($par, $path, $flags) = @_;