[popfile-commit] engine/UI HTML.pm,1.192,1.193

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

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

Modified Files:
	HTML.pm 
Log Message:
Added profiler hints to HTML; HTML test suite coverage now at 64%... just the final hard 26% (History and Buckets) to go

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.192
retrieving revision 1.193
diff -C2 -d -r1.192 -r1.193
*** HTML.pm	21 Aug 2003 17:07:05 -0000	1.192
--- HTML.pm	22 Aug 2003 00:40:05 -0000	1.193
***************
*** 514,518 ****
      }
  
!     my %url_table = ( '/security'      => \&security_page,
                        '/configuration' => \&configuration_page,
                        '/buckets'       => \&corpus_page,
--- 514,518 ----
      }
  
!     my %url_table = ( '/security'      => \&security_page,       # PROFILE BLOCK START
                        '/configuration' => \&configuration_page,
                        '/buckets'       => \&corpus_page,
***************
*** 521,525 ****
                        '/history'       => \&history_page,
                        '/view'          => \&view_page,
!                       '/'              => \&history_page );
  
      # Any of the standard pages can be found in the url_table, the other pages are probably
--- 521,525 ----
                        '/history'       => \&history_page,
                        '/view'          => \&view_page,
!                       '/'              => \&history_page );      # PROFILE BLOCK STOP
  
      # Any of the standard pages can be found in the url_table, the other pages are probably
***************
*** 1045,1051 ****
  
      for my $name (sort keys %{$self->{dynamic_ui__}{configuration}}) {
!         $body .= $self->{dynamic_ui__}{configuration}{$name}->configure_item( $name,
                                                                                \%{$self->{language__}},
!                                                                               $self->{session_key__} );
      }
  
--- 1045,1051 ----
  
      for my $name (sort keys %{$self->{dynamic_ui__}{configuration}}) {
!         $body .= $self->{dynamic_ui__}{configuration}{$name}->configure_item( $name,                    # PROFILE BLOCK START
                                                                                \%{$self->{language__}},
!                                                                               $self->{session_key__} ); # PROFILE BLOCK STOP
      }
  
***************
*** 1165,1171 ****
  
      for my $name (sort keys %{$self->{dynamic_ui__}{security}}) {
!         $body .= $self->{dynamic_ui__}{security}{$name}->configure_item( $name,
                                                                                \%{$self->{language__}},
!                                                                               $self->{session_key__} );
      }
  
--- 1165,1171 ----
  
      for my $name (sort keys %{$self->{dynamic_ui__}{security}}) {
!         $body .= $self->{dynamic_ui__}{security}{$name}->configure_item( $name,                         # PROFILE BLOCK START
                                                                                \%{$self->{language__}},
!                                                                               $self->{session_key__} ); # PROFILE BLOCK STOP
      }
  
***************
*** 1196,1202 ****
  
      for my $name (sort keys %{$self->{dynamic_ui__}{chain}}) {
!         $body .= $self->{dynamic_ui__}{chain}{$name}->configure_item( $name,
                                                                                \%{$self->{language__}},
!                                                                               $self->{session_key__} );
      }
  
--- 1196,1202 ----
  
      for my $name (sort keys %{$self->{dynamic_ui__}{chain}}) {
!         $body .= $self->{dynamic_ui__}{chain}{$name}->configure_item( $name,                            # PROFILE BLOCK START
                                                                                \%{$self->{language__}},
!                                                                               $self->{session_key__} ); # PROFILE BLOCK STOP
      }
  
***************
*** 3131,3135 ****
  
      $self->load_history_cache__() if ( $self->{history_invalid__} == 1 );
!     $self->sort_filter_history( $self->{form_}{filter},
                                  $self->{form_}{search},
                                  $self->{form_}{sort} ) if ( ( defined( $self->{form_}{setfilter}     ) ) ||
--- 3131,3135 ----
  
      $self->load_history_cache__() if ( $self->{history_invalid__} == 1 );
!     $self->sort_filter_history( $self->{form_}{filter}, # PROFILE BLOCK START
                                  $self->{form_}{search},
                                  $self->{form_}{sort} ) if ( ( defined( $self->{form_}{setfilter}     ) ) ||
***************
*** 3139,3143 ****
                                                              ( defined( $self->{form_}{clearall}      ) ) ||
                                                              ( defined( $self->{form_}{clearpage}     ) ) ||
!                                                             ( $self->{need_resort__} == 1 )            );
  
      # Redirect somewhere safe if non-idempotent action has been taken
--- 3139,3143 ----
                                                              ( defined( $self->{form_}{clearall}      ) ) ||
                                                              ( defined( $self->{form_}{clearpage}     ) ) ||
!                                                             ( $self->{need_resort__} == 1 )            );      # PROFILE BLOCK STOP
  
      # Redirect somewhere safe if non-idempotent action has been taken
***************
*** 3196,3203 ****
          # Column headers
  
!         my %headers_table = ( '',        'ID',
                                'from',    'From',
                                'subject', 'Subject',
!                               'bucket',  'Classification');
  
          $body .= "<tr valign=\"bottom\">\n";
--- 3196,3203 ----
          # Column headers
  
!         my %headers_table = ( '',        'ID',              # PROFILE BLOCK START
                                'from',    'From',
                                'subject', 'Subject',
!                               'bucket',  'Classification'); # PROFILE BLOCK STOP
  
          $body .= "<tr valign=\"bottom\">\n";
***************
*** 3637,3643 ****
      my ( $self ) = @_;
  
!     my @chars = ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',
                    'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'U', 'V', 'W', 'X', 'Y',
!                   'Z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A' );
  
      $self->{session_key__} = '';
--- 3637,3643 ----
      my ( $self ) = @_;
  
!     my @chars = ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',   # PROFILE BLOCK START
                    'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'U', 'V', 'W', 'X', 'Y',
!                   'Z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A' ); # PROFILE BLOCK STOP
  
      $self->{session_key__} = '';