From b988953d237fdf67b3fc1980a23c3181034e3742 Mon Sep 17 00:00:00 2001 From: Stephen L Johnson Date: Mon, 16 Oct 2000 20:52:29 +0000 Subject: [PATCH] tweaked display_wml routines and fixed bug in display code: none def'ed var. --- src/lib/Spong/Service.pm | 3 ++- src/lib/Spong/ServiceList.pm | 5 ----- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/src/lib/Spong/Service.pm b/src/lib/Spong/Service.pm index d9b673a..3b76ac4 100755 --- a/src/lib/Spong/Service.pm +++ b/src/lib/Spong/Service.pm @@ -323,6 +323,7 @@ sub display_html { sub display_wml { my( $self, $format ) = @_; + my( $cnt ) = 0; if ( $format eq "full" ) { print "
",$self->name()," ",$self->color(),"\n"; @@ -332,7 +333,7 @@ sub display_wml { print "

\n"; foreach $line ( split /\r?\n/s,$self->message() ) { print "
",$line,"\n"; - if ( ++$i >= 15 ) { last; } + if ( ++$cnt >= 15 ) { last; } } } diff --git a/src/lib/Spong/ServiceList.pm b/src/lib/Spong/ServiceList.pm index 2e6a89d..74c600a 100755 --- a/src/lib/Spong/ServiceList.pm +++ b/src/lib/Spong/ServiceList.pm @@ -240,9 +240,4 @@ sub display_wml { } } - - - - - 1; -- 2.30.2