From: Stephen L Johnson <sjohnson@monsters.org>
Date: Mon, 16 Oct 2000 20:52:29 +0000 (+0000)
Subject: tweaked display_wml routines and fixed bug in display code: none def'ed var.
X-Git-Tag: spong-2_7_0-beta1~2
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b988953d237fdf67b3fc1980a23c3181034e3742;p=spong.git

tweaked display_wml routines and fixed bug in display code: none def'ed var.
---

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 "<br/><b>",$self->name(),"</b> ",$self->color(),"\n";
@@ -332,7 +333,7 @@ sub display_wml {
       print "<br/><br/>\n";
       foreach $line ( split /\r?\n/s,$self->message() ) {
          print "<br/>",$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;