popfile-commit

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

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

Modified Files:
	HTML.pm 
Log Message:
Quarantined messages do not have XTC, XPL and subject modification applied to them, that happens to the quarantine wrapper

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.84
retrieving revision 1.85
diff -C2 -d -r1.84 -r1.85
*** HTML.pm	24 Feb 2003 23:08:50 -0000	1.84
--- HTML.pm	24 Feb 2003 23:40:21 -0000	1.85
***************
*** 2095,2103 ****
  		}
  	} else {
! 
! 		# Here's a quick shortcut so that we don't have to iterate
! 		# if there's no work for us to do
! 	
! 		@{$self->{history_keys_}} = sort compare_mf keys %{$self->{history_}};
  	}
  
--- 2095,2099 ----
  		}
  	} else {
! 		@{$self->{history_keys_}} = keys %{$self->{history_}};
  	}
  
***************
*** 2116,2120 ****
          								  	return ( $a1 cmp $b1 ); 
          								  } @{$self->{history_keys_}};
!     }
  }
  
--- 2112,2121 ----
          								  	return ( $a1 cmp $b1 ); 
          								  } @{$self->{history_keys_}};
!     } else {
! 		# Here's a quick shortcut so that we don't have to iterate
! 		# if there's no work for us to do
! 	
! 		@{$self->{history_keys_}} = sort compare_mf @{$self->{history_keys_}};
! 	}    
  }
  
***************
*** 2152,2156 ****
  
      foreach my $i ( 0 .. $#history_files ) {
!     
      	# Strip any directory portion of the name in the current file so that we
      	# just get the base name of the file that we are dealing with
--- 2153,2157 ----
  
      foreach my $i ( 0 .. $#history_files ) {
! 
      	# Strip any directory portion of the name in the current file so that we
      	# just get the base name of the file that we are dealing with
***************
*** 2238,2241 ****
--- 2239,2243 ----
  
      $self->{history_invalid_} = 0;
+     $self->sort_filter_history( '', '', '' );
  }