![]() ![]() | ![]() |
version 1.356, 2014/01/15 17:52:04 | version 1.357, 2014/12/11 01:44:55 |
---|---|
Line 3348 END | Line 3348 END |
sub htmltag{ | sub htmltag{ |
return | return |
qq|<$_[0]| | qq|<$_[0]| |
. join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys %{ $_[2] } ) | . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys(%{ $_[2] }) ) |
. ($_[1] ? qq|>$_[1]</$_[0]>| : qq|/>|). "\n"; | . ($_[1] ? qq|>$_[1]</$_[0]>| : qq|/>|). "\n"; |
}; | }; |