[popfile-commit] engine/UI HTML.pm,1.182,1.183

[<ssc...@us...>]

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

Modified Files:
	HTML.pm 
Log Message:
prevent cache misses on jump_to and view pages

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.182
retrieving revision 1.183
diff -C2 -d -r1.182 -r1.183
*** HTML.pm	13 Jul 2003 10:51:22 -0000	1.182
--- HTML.pm	26 Jul 2003 07:39:19 -0000	1.183
***************
*** 445,448 ****
--- 445,451 ----
          my $found = 0;
          my $file = $self->{form_}{view};
+ 
+         $self->copy_pre_cache__() if ($self->{need_resort__});
+ 
          foreach my $akey ( keys %{ $self->{history__} } ) {
              if ($akey eq $file) {
***************
*** 3325,3328 ****
--- 3328,3339 ----
      $self->load_history_cache__() if ( $self->{history_invalid__} == 1 );
  
+     if ( $self->{need_resort__} == 1 ) {
+ 
+         $self->copy_pre_cache__();
+         $self->sort_filter_history( (defined($self->{form_}{filter})?$self->{form_}{filter}:''),
+                                     (defined($self->{form_}{search})?$self->{form_}{search}:''),
+                                     (defined($self->{form_}{sort})?$self->{form_}{sort}:'') );
+     }
+ 
      my $mail_file     = $self->{form_}{view};
      my $start_message = $self->{form_}{start_message} || 0;
***************
*** 3362,3365 ****
--- 3373,3377 ----
  
      if ( $index == -1 ) {
+         $self->log_("view page cache miss");
          return $self->http_redirect_( $client, '/history' );
      }