openinteract-commits

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25036

Modified Files:
	Request.pm 
Log Message:
cosmetic debugging additions/modifications


Index: Request.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Request.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -d -r1.48 -r1.49
*** Request.pm	28 Nov 2004 17:50:46 -0000	1.48
--- Request.pm	2 Feb 2005 13:13:50 -0000	1.49
***************
*** 403,407 ****
      elsif ( my @param_lang = $self->param( $lang_config->{choice_param_name} ) ) {
          $log->is_debug &&
!             $log->debug( "Added language from parameter: $session_lang" );
          push @lang, @param_lang;
      }
--- 403,408 ----
      elsif ( my @param_lang = $self->param( $lang_config->{choice_param_name} ) ) {
          $log->is_debug &&
!             $log->debug( "Added language from request parameter ",
!                          "'$lang_config->{choice_param_name}'" );
          push @lang, @param_lang;
      }
***************
*** 412,415 ****
--- 413,417 ----
      }
  
+ 
      if ( my @browser_lang = $self->_find_browser_languages ) {
          $log->is_debug &&
***************
*** 425,428 ****
--- 427,433 ----
          $self->{_user_language} = \@lang;
      }
+     $log->is_debug &&
+         $log->debug( "Request property 'language' now: ",
+                      join( ', ', @{ $self->{_user_language} } ) );
  }
  
***************
*** 446,450 ****
                      sort { $b->[1] <=> $a->[1] } @lang_data;
      $log->is_debug &&
!         $log->debug( "Found the following languages from the browser: ",
                       join( ', ', @langs ) );
      return @langs;
--- 451,455 ----
                      sort { $b->[1] <=> $a->[1] } @lang_data;
      $log->is_debug &&
!         $log->debug( "Parsed browser header into following language tags: ",
                       join( ', ', @langs ) );
      return @langs;
***************
*** 478,482 ****
          $log ||= get_logger( LOG_REQUEST );
          my @langs = $self->language;
!         $log->info( "Retrieved languages for request: ", join( ', ', @langs ) );
          $self->{_lang_handle} = OpenInteract2::I18N->get_handle( @langs );
          if ( $log->is_debug ) {
--- 483,487 ----
          $log ||= get_logger( LOG_REQUEST );
          my @langs = $self->language;
!         $log->info( "Languages for this request: ", join( ', ', @langs ) );
          $self->{_lang_handle} = OpenInteract2::I18N->get_handle( @langs );
          if ( $log->is_debug ) {
***************
*** 484,488 ****
              no strict 'refs';
              my @parents = @{ $type . '::ISA' };
!             $log->debug( "Language handle is of type: $type with parents: ",
                           join( ', ', @parents ) );
          }
--- 489,493 ----
              no strict 'refs';
              my @parents = @{ $type . '::ISA' };
!             $log->debug( "Language handle is of type '$type' with parents: ",
                           join( ', ', @parents ) );
          }
***************
*** 510,514 ****
  
  # Initialize new object
! sub init          { oi_error 'Subclass must implement init()' }
  
  1;
--- 515,519 ----
  
  # Initialize new object
! sub init { oi_error 'Subclass must implement init()' }
  
  1;