[popfile-commit] engine/UI HTML.pm,1.176,1.177

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

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

Modified Files:
	HTML.pm 
Log Message:
Fix problem with number of hash elements in magnet updates

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.176
retrieving revision 1.177
diff -C2 -d -r1.176 -r1.177
*** HTML.pm	6 Jul 2003 01:08:33 -0000	1.176
--- HTML.pm	6 Jul 2003 01:18:38 -0000	1.177
***************
*** 1434,1440 ****
  
                  for my $bucket ($self->{classifier__}->get_buckets_with_magnets()) {
!                     my %magnets = $self->{classifier__}->get_magnets( $bucket, $mtype );
  
!                     if ( defined( $magnets{$mtext} ) ) {
                          $found  = 1;
                          $magnet_message .= "<blockquote>\n<div class=\"error02\">\n<b>";
--- 1434,1441 ----
  
                  for my $bucket ($self->{classifier__}->get_buckets_with_magnets()) {
!                     my %magnets;
!                     @magnets{ $self->{classifier__}->get_magnets( $bucket, $mtype )} = ();
  
!                     if ( exists( $magnets{$mtext} ) ) {
                          $found  = 1;
                          $magnet_message .= "<blockquote>\n<div class=\"error02\">\n<b>";
***************
*** 1447,1451 ****
                  if ( $found == 0 )  {
                      for my $bucket ($self->{classifier__}->get_buckets_with_magnets()) {
!                         my %magnets = $self->{classifier__}->get_magnets( $bucket, $mtype );
  
                          for my $from (keys %magnets)  {
--- 1448,1453 ----
                  if ( $found == 0 )  {
                      for my $bucket ($self->{classifier__}->get_buckets_with_magnets()) {
!                         my %magnets;
!                         @magnets{ $self->{classifier__}->get_magnets( $bucket, $mtype )} = ();
  
                          for my $from (keys %magnets)  {