popfile-commit

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

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

Modified Files:
	HTML.pm 
Log Message:
Fix problem with jump_to_message showing blank fields

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.150
retrieving revision 1.151
diff -C2 -d -r1.150 -r1.151
*** HTML.pm	2 May 2003 18:09:19 -0000	1.150
--- HTML.pm	6 May 2003 16:52:34 -0000	1.151
***************
*** 290,294 ****
          }
  
!         #Reset any filters
          $self->{form_}{filter}    = '';
          $self->{form_}{search}    = '';
--- 290,294 ----
          }
  
!         # Reset any filters
          $self->{form_}{filter}    = '';
          $self->{form_}{search}    = '';
***************
*** 299,304 ****
          # true if the file exists).
  
!         $self->invalidate_history_cache() if ( !$found && ( -e ( $self->global_config_( 'msgdir' ) . $file ) ) );
!         $self->http_redirect_( $client, "/view?session=$self->{session_key__}&view=$self->{form_}{view}&start_message=$self->{form_}{start_message}" );
          return 1;
      }
--- 299,308 ----
          # true if the file exists).
  
!         $self->invalidate_history_cache() if ( !$found );
!         if ( -e ( $self->global_config_( 'msgdir' ) . $file ) ) {
!             $self->http_redirect_( $client, "/view?session=$self->{session_key__}&view=$self->{form_}{view}&start_message=$self->{form_}{start_message}" );
! 	} else {
!             $self->http_redirect_( $client, "/history" );
!         }
          return 1;
      }
***************
*** 2928,2933 ****
      my ( $self, $client ) = @_;
  
      my $mail_file     = $self->{form_}{view};
!     my $start_message = $self->{form_}{start_message};
      my $reclassified  = $self->{history__}{$mail_file}{reclassified};
      my $bucket        = $self->{history__}{$mail_file}{bucket};
--- 2932,2939 ----
      my ( $self, $client ) = @_;
  
+     $self->load_history_cache__() if ( $self->{history_invalid__} == 1 );
+ 
      my $mail_file     = $self->{form_}{view};
!     my $start_message = $self->{form_}{start_message} || 0;
      my $reclassified  = $self->{history__}{$mail_file}{reclassified};
      my $bucket        = $self->{history__}{$mail_file}{bucket};
***************
*** 2971,2975 ****
  
      $body .= "</td>\n";
!     
      $body .= "<td class=\"openMessageCloser\">";
      $body .= "<a class=\"messageLink\" href=\"/history?" . $self->print_form_fields_(1,1,('start_message','filter','session','search','sort')) . "\">\n";
--- 2977,2981 ----
  
      $body .= "</td>\n";
! 
      $body .= "<td class=\"openMessageCloser\">";
      $body .= "<a class=\"messageLink\" href=\"/history?" . $self->print_form_fields_(1,1,('start_message','filter','session','search','sort')) . "\">\n";