[popfile-commit] engine/UI HTML.pm,1.212,1.213

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv13753/UI

Modified Files:
	HTML.pm 
Log Message:
Improve information on the Word matrix display

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.212
retrieving revision 1.213
diff -C2 -d -r1.212 -r1.213
*** HTML.pm	10 Oct 2003 14:59:32 -0000	1.212
--- HTML.pm	10 Oct 2003 15:45:10 -0000	1.213
***************
*** 3542,3547 ****
          # matrix.  The classifier puts a comment in the right place, which we can replace
          # by the link.  (There's probably a better way.)
    
!         $fmtlinks = "<table width=\"100%\">\n<td class=\"top20\" align=\"left\"><b>$self->{language__}{View_WordMatrix}</b></td>\n<td class=\"historyNavigatorTop\">\n";
          if ($self->config_( 'wordtable_format' ) ne 'freq' ) {
              $fmtlinks .= "<a href=\"/view?view=" . $self->{history_keys__}[ $index ];
--- 3542,3555 ----
          # matrix.  The classifier puts a comment in the right place, which we can replace
          # by the link.  (There's probably a better way.)
+ 
+         my $view = $self->{language__}{View_WordProbabilities};
+         if ( $self->config_( 'wordtable_format' ) eq 'freq' ) {
+             $view = $self->{language__}{View_WordFrequencies};
+ 	}
+         if ( $self->config_( 'wordtable_format' ) eq 'score' ) {
+             $view = $self->{language__}{View_WordScores};
+ 	}
    
!         $fmtlinks = "<table width=\"100%\">\n<td class=\"top20\" align=\"left\"><b>$self->{language__}{View_WordMatrix} ($view)</b></td>\n<td class=\"historyNavigatorTop\">\n";
          if ($self->config_( 'wordtable_format' ) ne 'freq' ) {
              $fmtlinks .= "<a href=\"/view?view=" . $self->{history_keys__}[ $index ];