[popfile-commit] engine/UI HTML.pm,1.101,1.102

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

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

Modified Files:
	HTML.pm 
Log Message:
Broke my own rule about surrounding things with parens and got bitten

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -C2 -d -r1.101 -r1.102
*** HTML.pm	3 Mar 2003 23:14:44 -0000	1.101
--- HTML.pm	4 Mar 2003 15:49:25 -0000	1.102
***************
*** 705,711 ****
      $self->config_( 'xpl', $self->{form__}{xpl}-1 )     if ( ( defined($self->{form__}{xpl}) ) && ( ( $self->{form__}{xpl} >= 1 ) && ( $self->{form__}{xpl} <= 2 ) ) );
  
!     if ( defined($self->{form__}{language__}) ) {
!         if ( $self->config_( 'language' ) ne $self->{form__}{language__} ) {
!             $self->config_( 'language', $self->{form__}{language__} );
              load_language( $self,  $self->config_( 'language' ) );
          }
--- 705,711 ----
      $self->config_( 'xpl', $self->{form__}{xpl}-1 )     if ( ( defined($self->{form__}{xpl}) ) && ( ( $self->{form__}{xpl} >= 1 ) && ( $self->{form__}{xpl} <= 2 ) ) );
  
!     if ( defined($self->{form__}{language}) ) {
!         if ( $self->config_( 'language' ) ne $self->{form__}{language} ) {
!             $self->config_( 'language', $self->{form__}{language} );
              load_language( $self,  $self->config_( 'language' ) );
          }
***************
*** 2146,2150 ****
      # for non-culling and new entries that need to be added to the end
  
!     my @history_files = sort compare_mf glob $self->global_config_( 'msgdir' ) . "popfile*=*.msg";
  
      foreach my $i ( 0 .. $#history_files ) {
--- 2146,2150 ----
      # for non-culling and new entries that need to be added to the end
  
!     my @history_files = sort compare_mf glob( $self->global_config_( 'msgdir' ) . "popfile*=*.msg" );
  
      foreach my $i ( 0 .. $#history_files ) {
***************
*** 3363,3367 ****
  
      if ( $self->{today} > $yesterday ) {
!         my @mail_files = glob $self->global_config_( 'msgdir' ) . "popfile*=*.msg";
  
          foreach my $mail_file (@mail_files) {
--- 3363,3367 ----
  
      if ( $self->{today} > $yesterday ) {
!         my @mail_files = glob( $self->global_config_( 'msgdir' ) . "popfile*=*.msg" );
  
          foreach my $mail_file (@mail_files) {
***************
*** 3375,3379 ****
           # Clean up old style msg/cls files
  
!         @mail_files = glob $self->global_config_( 'msgdir' ) . "popfile*_*.???";
  
          foreach my $mail_file (@mail_files) {
--- 3375,3379 ----
           # Clean up old style msg/cls files
  
!         @mail_files = glob( $self->global_config_( 'msgdir' ) . "popfile*_*.???" );
  
          foreach my $mail_file (@mail_files) {