added history type code to display routines

diff --git a/src/lib/Spong/History.pm b/src/lib/Spong/History.pm
index 9ed056636aac6cd4b71d4d90d82a5b8ed18ec251..7d1e9d3bbe484efb2b4894db6421a035778a181b 100755 (executable)
--- a/src/lib/Spong/History.pm
+++ b/src/lib/Spong/History.pm
@@ -85,6 +85,8 @@ sub display_text {
    $shost = (split( /\./, $self->host() ))[0] unless $shost;
 
    print $self->color(), " "x(7-length($self->color()));
+   my($type) = substr($self->type,0,1); $type =~ tr/a-z/A-Z/;
+   print " $type ";
    print sprintf( "%2.2d:%2.2d  ", $hour, $min );
    print substr( $shost, 0, 12 ), " "x(14-length(substr($shost, 0, 12)));
    print substr( $self->service(), 0, 5 );
@@ -103,7 +105,7 @@ sub display_html {
 
    $shost = (split( /\./, $self->host() ))[0] unless $shost;
 
-   print "<tr><td width=7% align=left valign=top>";
+   print "<tr><td width=5% align=left valign=top>";
 
    if( $main::WWW_USE_IMAGES == 1 ) {
       print "<a href=\"" . $main::WWWSPONG . "/histservice/".$self->host()
@@ -120,7 +122,11 @@ sub display_html {
       print "</td></tr></table>";
    }
 
-   print "</td><td width=12% align=center valign=top>";
+   print "</td>\n";
+   print "<td width=5% align=center>";
+   my($type) = substr($self->type,0,1); $type =~ tr/a-z/A-Z/;
+   print "$type</td>\n";
+   print "<td width=10% align=center valign=top>";
    printf ( "%2.2d:%2.2d</td>", $hour, $min );
    print "<td width=15% align=left valign=top>$shost </td>\n";
    print "<td width=15% align=left valign=top>$service</td>\n";