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";
|
