Tatsuki SUGIURA
sugi****@users*****
2006年 7月 13日 (木) 10:12:27 JST
Index: slashjp/themes/slashcode/htdocs/index.pl diff -u slashjp/themes/slashcode/htdocs/index.pl:1.9 slashjp/themes/slashcode/htdocs/index.pl:1.10 --- slashjp/themes/slashcode/htdocs/index.pl:1.9 Wed Jul 12 21:24:23 2006 +++ slashjp/themes/slashcode/htdocs/index.pl Thu Jul 13 10:12:27 2006 @@ -2,7 +2,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: index.pl,v 1.9 2006/07/12 12:24:23 sugi Exp $ +# $Id: index.pl,v 1.10 2006/07/13 01:12:27 sugi Exp $ use strict; use Slash; @@ -776,11 +776,11 @@ $url = $gSkin->{rootdir} . '/' . $gSkin->{index_handler} . '?section=' . $skin->{name}; } - push @links, [ $url, $skin->{hostname} || $skin->{title}, '', 'section']; + push @links, [ $url, $skin->{title}, '', 'section']; } if ($user->{seclev} >= 100) { - push @links, [ "$gSkin->{rootdir}/admin.pl?op=edit&sid=$story->{sid}", getData('edit'), '', 'edit' ]; + push @links, [ "$gSkin->{absolutedir}/admin.pl?op=edit&sid=$story->{sid}", getData('edit'), '', 'edit' ]; if ($constants->{plugin}{Ajax}) { my $signoff = slashDisplay("signoff", { stoid => $story->{stoid}, storylink => 1 }, { Return => 1 } ); push @links, $signoff; Index: slashjp/themes/slashcode/htdocs/users.pl diff -u slashjp/themes/slashcode/htdocs/users.pl:1.10 slashjp/themes/slashcode/htdocs/users.pl:1.11 --- slashjp/themes/slashcode/htdocs/users.pl:1.10 Wed Jul 12 21:24:23 2006 +++ slashjp/themes/slashcode/htdocs/users.pl Thu Jul 13 10:12:27 2006 @@ -2,7 +2,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: users.pl,v 1.10 2006/07/12 12:24:23 sugi Exp $ +# $Id: users.pl,v 1.11 2006/07/13 01:12:27 sugi Exp $ use strict; use Digest::MD5 'md5_hex'; @@ -2732,8 +2732,9 @@ push @reasons, $reasons->{$id}{name}; } - for my $reason_name (@reasons) { - my $key = "reason_alter_$reason_name"; + for my $reason_id (%$reasons) { + next unless $reasons->{$reason_id}{listable}; + my $key = "reason_alter_$reason_id"; my $answer = $form->{$key} || 0; $answer = 0 if !$answer || $answer !~ /^[\-+]?\d+$/; $user_edits_table->{$key} = ($answer == 0) ? '' : $answer;
SRAD