[popfile-commit] engine/UI HTML.pm,1.369,1.370

[Joseph C. <tex...@us...>]

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

Modified Files:
	HTML.pm 
Log Message:
Add template variable to determine if language is RTL.  This allows for a custom CSS file to handle differences that would make skins look better in RTL.  Allows removal of Sleet-RTL, since fliping the border images would be done in the rtl.css.

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.369
retrieving revision 1.370
diff -C2 -d -r1.369 -r1.370
*** HTML.pm	16 Feb 2006 09:25:34 -0000	1.369
--- HTML.pm	19 Feb 2006 11:27:43 -0000	1.370
***************
*** 901,905 ****
  #----------------------------------------------------------------------------
  #
! # handle_history_bar__ - handle the bar at the bottom of the page
  # that allows selection of the history configuration items
  #
--- 901,905 ----
  #----------------------------------------------------------------------------
  #
! # handle_history_bar__ - handle the bar at the bottom of the history page
  # that allows selection of the history configuration items
  #
***************
*** 1022,1026 ****
  #
  # handle_configuration_bar__ - handle the bar at the bottom of the page
! # that allows selection of the skin and language
  #
  # $client     The web browser to send the results to
--- 1022,1026 ----
  #
  # handle_configuration_bar__ - handle the bar at the bottom of the page
! # that allows selection of interface wide options (skin, language, password)
  #
  # $client     The web browser to send the results to
***************
*** 1995,1999 ****
  
      my $color = $self->classifier_()->get_bucket_color( $session, $bucket );
!     $templ->param( 'Bucket_Main_Title' => sprintf( $self->{language__}{SingleBucket_Title}, "<font color=\"$color\">$bucket</font>" ) );
  
      my $bucket_count = $self->classifier_()->get_bucket_word_count( $session, $bucket );
--- 1995,1999 ----
  
      my $color = $self->classifier_()->get_bucket_color( $session, $bucket );
!     $templ->param( 'Bucket_Main_Title' => sprintf( $self->{language__}{SingleBucket_Title}, "<span style=\"color:$color\">$bucket</span>" ) );
  
      my $bucket_count = $self->classifier_()->get_bucket_word_count( $session, $bucket );
***************
*** 3484,3489 ****
                     'Common_Middle_If_CanAdmin' =>
                         $self->user_global_config_( $user, 'can_admin' ),
!                    'If_Javascript_OK'          => $self->config_( 'allow_javascript' ),
!                    'Configuration_Action'      => $page );
  
      $self->{skin_root} = $root;
--- 3484,3491 ----
                     'Common_Middle_If_CanAdmin' =>
                         $self->user_global_config_( $user, 'can_admin' ),
!                    'If_Javascript_OK'        => $self->config_( 'allow_javascript' ),
!                    'If_Language_RTL'         =>
!                        ( $self->{language__}{LanguageDirection} eq 'rtl' ),
!                    'Configuration_Action'    => $page );
  
      $self->{skin_root} = $root;