[popfile-commit] engine/UI HTML.pm,1.140,1.141

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

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

Modified Files:
	HTML.pm 
Log Message:
Added a new API called get_magnet_types to get the possible header magnets so that the knowledge about them is controlled by the Bayes module in one place; added Cc magnets

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.140
retrieving revision 1.141
diff -C2 -d -r1.140 -r1.141
*** HTML.pm	20 Apr 2003 21:00:09 -0000	1.140
--- HTML.pm	20 Apr 2003 21:09:06 -0000	1.141
***************
*** 1301,1305 ****
      $body .= "<th class=\"magnetsLabel\" scope=\"col\">$self->{language__}{Remove}</th>\n</tr>\n";
  
!     my %magnet_types = ( 'from', 'From', 'to', 'To', 'subject', 'Subject' );
      my $i = 0;
  
--- 1301,1305 ----
      $body .= "<th class=\"magnetsLabel\" scope=\"col\">$self->{language__}{Remove}</th>\n</tr>\n";
  
!     my %magnet_types = $self->{classifier__}->get_magnet_types();
      my $i = 0;
  
***************
*** 1365,1372 ****
      # Magnet Type widget
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddType\">$self->{language__}{Magnet_MagnetType}:</label><br />\n";
!     $body .= "<select name=\"type1\" id=\"magnetsAddType\">\n<option value=\"from\">\n$self->{language__}{From}</option>\n";
!     $body .= "<option value=\"to\">\n$self->{language__}{To}</option>\n";
!     $body .= "<option value=\"subject\">\n$self->{language__}{Subject}</option>\n</select>\n";
!     $body .= "<input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />\n<br /><br />\n";
      $body .= "<input type=\"hidden\" name=\"count\" value=\"1\" />\n";
  
--- 1365,1374 ----
      # Magnet Type widget
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddType\">$self->{language__}{Magnet_MagnetType}:</label><br />\n";
!     $body .= "<select name=\"type1\" id=\"magnetsAddType\">\n";
! 
!     for my $mtype (keys %magnet_types) {
!         $body .= "<option value=\"$mtype\">\n$self->{language__}{$magnet_types{$mtype}}</option>\n";
!     }
!     $body .= "</select>\n<input type=\"hidden\" name=\"session\" value=\"$self->{session_key__}\" />\n<br /><br />\n";
      $body .= "<input type=\"hidden\" name=\"count\" value=\"1\" />\n";