Tatsuki SUGIURA
sugi****@users*****
2006年 9月 5日 (火) 17:00:18 JST
Index: slashjp/Slash/Display/Display.pm diff -u slashjp/Slash/Display/Display.pm:1.6 slashjp/Slash/Display/Display.pm:1.7 --- slashjp/Slash/Display/Display.pm:1.6 Wed Aug 30 17:54:09 2006 +++ slashjp/Slash/Display/Display.pm Tue Sep 5 17:00:18 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: Display.pm,v 1.6 2006/08/30 08:54:09 sugi Exp $ +# $Id: Display.pm,v 1.7 2006/09/05 08:00:18 sugi Exp $ package Slash::Display; @@ -50,7 +50,7 @@ use base 'Exporter'; use vars qw($VERSION @EXPORT @EXPORT_OK $CONTEXT %FILTERS $TEMPNAME); -($VERSION) = ' $Revision: 1.6 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.7 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw(slashDisplay slashDisplayName); @EXPORT_OK = qw(get_template); my(%objects); @@ -254,6 +254,10 @@ my $user = getCurrentUser(); my $gSkin = getCurrentSkin(); + # TODO: backported light mode. we should delete in future. + # This line for temp light mode, but maybe cause some probloems. + getCurrentForm('light') and $user->{light} = 1; + # save for later (local() seems not to work ... ?) my $origSkin = $user->{currentSkin} || $gSkin->{name}; my $origPage = $user->{currentPage};
SRAD