Tatsuki SUGIURA
sugi****@users*****
2006年 10月 24日 (火) 17:54:01 JST
Index: slashjp/plugins/Admin/Admin.pm diff -u slashjp/plugins/Admin/Admin.pm:1.4 slashjp/plugins/Admin/Admin.pm:1.5 --- slashjp/plugins/Admin/Admin.pm:1.4 Fri Jul 14 10:54:25 2006 +++ slashjp/plugins/Admin/Admin.pm Tue Oct 24 17:54:01 2006 @@ -1,7 +1,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: Admin.pm,v 1.4 2006/07/14 01:54:25 sugi Exp $ +# $Id: Admin.pm,v 1.5 2006/10/24 08:54:01 sugi Exp $ package Slash::Admin; @@ -16,7 +16,7 @@ use base 'Slash::DB::Utility'; use base 'Slash::DB::MySQL'; -($VERSION) = ' $Revision: 1.4 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.5 $ ' =~ /\$Revision:\s+([^\s]+)/; # On a side note, I am not sure if I liked the way I named the methods either. # -Brian @@ -168,7 +168,7 @@ # label; otherwise just use the A content. while ($story_content =~ m|<a\s+(.*?)>(.*?)</a>|sgi) { my($a_attr, $label) = ($1, $2); - next unless $a_attr =~ /\bhref\s*=\s*["']/si; + next unless $a_attr =~ /\bhref\s*=\s*["'](?!#)/si; if ($a_attr =~ m/(\btitle\s*=\s*(["'])(.*?)\2)/si) { $label = $3; $a_attr =~ s/\Q$1\E//;