[popfile-commit] engine/UI HTML.pm,1.344,1.345

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25150/UI

Modified Files:
	HTML.pm 
Log Message:
Perform range checking on the value entered in the Jump to page form.

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.344
retrieving revision 1.345
diff -C2 -d -r1.344 -r1.345
*** HTML.pm	24 Feb 2005 09:05:47 -0000	1.344
--- HTML.pm	24 Feb 2005 13:49:24 -0000	1.345
***************
*** 2528,2532 ****
  
      if ( defined( $self->{form_}{gopage} ) ) {
!         return $self->http_redirect_( $client, "/history?start_message=" . ( ( $self->{form_}{jumptopage} - 1 ) * $self->user_config_( $self->{sessions__}{$session}{user}, 'page_size' ) ) . '&' . $self->print_form_fields_(1,0,('filter','search','sort','session','negate') ), $session );
      }
  
--- 2528,2539 ----
  
      if ( defined( $self->{form_}{gopage} ) ) {
!         my $destination = ( $self->{form_}{jumptopage} - 1 ) * 
!                      $self->user_config_( $self->{sessions__}{$session}{user}, 'page_size' );
!         my $maximum = $self->history_()->get_query_size( $self->{q__} );
!         
!         if ( $destination <= $maximum && $destination > 0 ) {
!             return $self->http_redirect_( $client, "/history?start_message=$destination&" 
!                  . $self->print_form_fields_(1,0,('filter','search','sort','session','negate') ), $session );
!         }
      }