all2xml.pl - fix for swish without filter
openisis/perl/OpenIsis.pm - removed warning
git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@259
13eb9ef6-21d5-0310-b721-
a9d68796d827
}
# type="swish" ; field for swish
if ($swish) {
- my $tmp;
+ my $tmp = $swish;
if ($filter && ($s || $se)) {
no strict 'refs';
- $tmp = join(" ",&$filter($swish)) if ($s || $se);
+ $tmp = join(" ",&$filter($tmp)) if ($s || $se);
}
$tmp = chk_eval($tmp);
sub MHL {
for ( @_ ) {
- s/(<[^=>]*)=[^>]+>/\1>/g; # dump <a=b> substitutions
+ s/(<[^=>]*)=[^>]+>/$1>/g; # dump <a=b> substitutions
s/></; /g; # replace >< pairs
s/[><]//g; # nuke other ><
s/^\^.//; # kill initial subfield spec