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 d9b673a1785a45958d3c7c7c6ff9b84c8e01395d..3b76ac430ec7d30ae800f57022201fa9e94e8373 100755 (executable)
--- 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 2e6a89d3e72c231ce0ad230b3b8db13169f29a55..74c600ae5201671b3ea5360ec7099020aa3f4fdf 100755 (executable)
--- a/src/lib/Spong/ServiceList.pm
+++ b/src/lib/Spong/ServiceList.pm
@@ -240,9 +240,4 @@ sub display_wml {
    }
 }
 
-
-
-
-
-
 1;