CVS: mhonarc/MHonArc/lib mhutil.pl,2.16,2.17

Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv2077

Modified Files:
	mhutil.pl 
Log Message:
* Changed anchor markup to use lowercase.


Index: mhutil.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhutil.pl,v
retrieving revision 2.16
retrieving revision 2.17
diff -C2 -r2.16 -r2.17
*** mhutil.pl	30 Jul 2002 05:10:30 -0000	2.16
--- mhutil.pl	1 Aug 2002 02:27:51 -0000	2.17
***************
*** 468,472 ****
  	if (/^</) {
  	    chop; substr($_, 0, 1) = "";
! 	    $ret .= qq|&lt;<A HREF="$_">$_</A>&gt;|;
  	} else {
  	    $ret .= &$MHeadCnvFunc($_);
--- 468,472 ----
  	if (/^</) {
  	    chop; substr($_, 0, 1) = "";
! 	    $ret .= qq|&lt;<a href="$_">$_</a>&gt;|;
  	} else {
  	    $ret .= &$MHeadCnvFunc($_);
***************
*** 522,526 ****
      my @groups = split(/,/, $str);	# Split groups
      foreach (@groups) {			# Make hyperlinks
! 	s|(.*)|<A HREF="news:$1";>$1</A>|;
      }
      $h . join(', ', @groups);	# Rejoin string
--- 522,526 ----
      my @groups = split(/,/, $str);	# Split groups
      foreach (@groups) {			# Make hyperlinks
! 	s|(.*)|<a href="news:$1";>$1</a>|;
      }
      $h . join(', ', @groups);	# Rejoin string
***************
*** 563,567 ****
      $url =~ s/\$TOADDRDOMAIN\$/$todomain/g;
      $url =~ s/\$ADDR\$/$to/g;
!     qq|<A HREF="$url">| . &htmlize(&rewrite_address($eaddr)) . q|</A>|;
  }
  
--- 563,567 ----
      $url =~ s/\$TOADDRDOMAIN\$/$todomain/g;
      $url =~ s/\$ADDR\$/$to/g;
!     qq|<a href="$url">| . &htmlize(&rewrite_address($eaddr)) . q|</a>|;
  }
  

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV