mhonarc-users

$ICON$ bug fix patch

1999-04-20 08:11:01
It seems $ICON$ does not work correctly.

It will generate defective tag like `ALT="[text/plain]">'
(and there's no `<IMG SRC="..."' anywhere).

This patch will fix it.

========================================
--- mhrcvars.pl,orig    Tue Apr 20 21:04:45 1999
+++ mhrcvars.pl Tue Apr 20 21:04:47 1999
@@ -155,7 +155,7 @@
            ($lref, $key, $pos) = compute_msg_pos($index, $var, $arg);
            if (!defined($key)) { $tmp = ""; last REPLACESW; }
            $tmp = $Icons{$ContentType{$key}} ?
-                       join(qq|<IMG SRC="$Icons{$ContentType{$key}}" |,
+                       join("", qq|<IMG SRC="$Icons{$ContentType{$key}}" |,
                             qq|ALT="[$ContentType{$key}]">|) :
                        qq|<IMG SRC="$Icons{'unknown'}" ALT="[unknown]">|;
            last REPLACESW;
========================================

-- 
Takashi P.KATOH

<Prev in Thread] Current Thread [Next in Thread>
  • $ICON$ bug fix patch, Takashi P.KATOH <=