[popfile-commit] engine/UI HTML.pm,1.193,1.194

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

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

Modified Files:
	HTML.pm 
Log Message:
Added tests for the HTML magnet page

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.193
retrieving revision 1.194
diff -C2 -d -r1.193 -r1.194
*** HTML.pm	22 Aug 2003 00:40:05 -0000	1.193
--- HTML.pm	22 Aug 2003 02:06:27 -0000	1.194
***************
*** 1462,1466 ****
  
      if ( defined( $self->{form_}{count} ) && ( defined( $self->{form_}{update} ) || defined( $self->{form_}{create} ) ) ) {
!         for my $i ( 1 .. $self->{form_}{count} ) {
              my $mtype   = $self->{form_}{"type$i"};
              my $mtext   = $self->{form_}{"text$i"};
--- 1462,1466 ----
  
      if ( defined( $self->{form_}{count} ) && ( defined( $self->{form_}{update} ) || defined( $self->{form_}{create} ) ) ) {
!         for my $i ( 0 .. $self->{form_}{count} ) {
              my $mtype   = $self->{form_}{"type$i"};
              my $mtext   = $self->{form_}{"text$i"};
***************
*** 1472,1476 ****
                  my $obucket = $self->{form_}{"obucket$i"};
  
!                 $self->{classifier__}->delete_magnet( $obucket, $otype, $otext );
              }
  
--- 1472,1478 ----
                  my $obucket = $self->{form_}{"obucket$i"};
  
!                 if ( defined( $otype ) ) {
!                     $self->{classifier__}->delete_magnet( $obucket, $otype, $otext );
! 		}
              }
  
***************
*** 1651,1655 ****
  
      $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) {
--- 1653,1657 ----
  
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddType\">$self->{language__}{Magnet_MagnetType}:</label><br />\n";
!     $body .= "<select name=\"type0\" id=\"magnetsAddType\">\n";
  
      for my $mtype (keys %magnet_types) {
***************
*** 1661,1669 ****
      # Value widget
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddText\">$self->{language__}{Magnet_Value}:</label><br />\n";
!     $body .= "<input type=\"text\" name=\"text1\" id=\"magnetsAddText\" />\n<br /><br />\n";
  
      # Always Goes to Bucket widget
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddBucket\">$self->{language__}{Magnet_Always}:</label><br />\n";
!     $body .= "<select name=\"bucket1\" id=\"magnetsAddBucket\">\n<option value=\"\"></option>\n";
  
      my @buckets = $self->{classifier__}->get_buckets();
--- 1663,1671 ----
      # Value widget
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddText\">$self->{language__}{Magnet_Value}:</label><br />\n";
!     $body .= "<input type=\"text\" name=\"text0\" id=\"magnetsAddText\" />\n<br /><br />\n";
  
      # Always Goes to Bucket widget
      $body .= "<label class=\"magnetsLabel\" for=\"magnetsAddBucket\">$self->{language__}{Magnet_Always}:</label><br />\n";
!     $body .= "<select name=\"bucket0\" id=\"magnetsAddBucket\">\n<option value=\"\"></option>\n";
  
      my @buckets = $self->{classifier__}->get_buckets();