Index: data/_default/WebHome.txt =================================================================== RCS file: /cvsroot/twiki/twiki/data/_default/WebHome.txt,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -B -b -r1.1.1.1 -r1.2 --- data/_default/WebHome.txt 20 May 2005 14:43:36 -0000 1.1.1.1 +++ data/_default/WebHome.txt 20 May 2005 15:50:31 -0000 1.2 @@ -1,10 +1,10 @@ %META:TOPICINFO{author="PeterThoeny" date="1018766931" format="1.0" version="1.4"}% Welcome to the home of %WIKITOOLNAME%.%WEB%. This is a web-based collaboration area for ... * MeetingMinutes * ----++ Site Tools of the %WEB% Web +---++ Site Tools of the %WEB% Web %INCLUDE{"%TWIKIWEB%.WebSiteTools"}% Index: lib/TWiki/Access.pm =================================================================== RCS file: /cvsroot/twiki/twiki/lib/TWiki/Access.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -B -b -r1.1.1.1 -r1.2 @@ -407,6 +418,7 @@ sub prvGetUserList { my( $theItems ) = @_; + $theItems or return (); # comma delimited list of users or groups # i.e.: "%MAINWEB%.UserA, UserB, Main.UserC # something else" $theItems =~ s/(<[^>]*>)//go; # Remove HTML tags Index: lib/TWiki/Prefs.pm =================================================================== RCS file: /cvsroot/twiki/twiki/lib/TWiki/Prefs.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -B -b -r1.1.1.1 -r1.2 --- lib/TWiki/Prefs.pm 20 May 2005 14:43:36 -0000 1.1.1.1 +++ lib/TWiki/Prefs.pm 20 May 2005 15:50:41 -0000 1.2 @@ -633,6 +633,7 @@ sub formatAsFlag { my( $value ) = @_; + $value or return 0; $value =~ s/^\s*(.*?)\s*$/$1/gi; $value =~ s/off//gi; $value =~ s/no//gi; Index: lib/TWiki/Plugins/TablePlugin.pm =================================================================== RCS file: /cvsroot/twiki/twiki/lib/TWiki/Plugins/TablePlugin.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -B -b -r1.1.1.1 -r1.2 --- lib/TWiki/Plugins/TablePlugin.pm 20 May 2005 14:43:37 -0000 1.1.1.1 +++ lib/TWiki/Plugins/TablePlugin.pm 20 May 2005 15:50:44 -0000 1.2 @@ -184,7 +184,7 @@ { my( $args ) = @_; - return "" if( $args =~/^\s*$/ ); + return "" if( !$args || $args =~/^\s*$/ ); #Defines which column to initially sort : ShawnBradford 20020221 my $tmp = TWiki::Func::extractNameValuePair( $args, "initsort" );