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" );