[popfile-commit] engine/UI HTML.pm,1.189,1.190

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	HTML.pm 
Log Message:
Added support for right-to-left languages (e.g. Hebrew, Arabic) and a Hebrew translation

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.189
retrieving revision 1.190
diff -C2 -d -r1.189 -r1.190
*** HTML.pm	20 Aug 2003 01:40:12 -0000	1.189
--- HTML.pm	20 Aug 2003 01:52:49 -0000	1.190
***************
*** 618,621 ****
--- 618,627 ----
      $result .= "<html lang=\"$self->{language__}{LanguageCode}\">\n<head>\n<title>$self->{language__}{Header_Title}</title>\n";
  
+     $result .= "<meta http-equiv=\"Pragma\" content=\"no-cache\">\n";
+     $result .= "<meta http-equiv=\"Expires\" content=\"0\">\n";
+ 
+     $result .= "<meta http-equiv=\"Cache-Control\" content=\"no-cache\">\n";
+     $result .= "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$self->{language__}{LanguageCharset}\">\n</head>\n";
+ 
      # If we are handling the shutdown page, then send the CSS along with the
      # page to avoid a request back from the browser _after_ we've shutdown,
***************
*** 640,649 ****
      $result .= "<link rel=\"icon\" href=\"popfile.ico\" type=\"image/ico\">\n";
  
-     $result .= "<meta http-equiv=\"Pragma\" content=\"no-cache\">\n";
-     $result .= "<meta http-equiv=\"Expires\" content=\"0\">\n";
- 
-     $result .= "<meta http-equiv=\"Cache-Control\" content=\"no-cache\">\n";
-     $result .= "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$self->{language__}{LanguageCharset}\">\n</head>\n";
- 
      return $result;
  }
--- 646,649 ----
***************
*** 671,675 ****
      # footer created by html_common_bottom takes care of that.
  
!     my $result = "<body>\n<table class=\"shellTop\" align=\"center\" width=\"100%\" summary=\"\">\n";
  
      # upper whitespace
--- 671,675 ----
      # footer created by html_common_bottom takes care of that.
  
!     my $result = "<body dir=\"$self->{language__}{LanguageDirection}\">\n<table class=\"shellTop\" align=\"center\" width=\"100%\" summary=\"\">\n";
  
      # upper whitespace
***************
*** 756,760 ****
      $result .= "<td class=\"shellTopRight\"></td>\n</tr>\n<tr>\n";
      $result .= "<td class=\"shellLeft\"></td>\n";
!     $result .= "<td align=\"left\" class=\"naked\">\n" . $text . "\n</td>\n";
  
      $result .= "<td class=\"shellRight\"></td>\n</tr>\n";
--- 756,760 ----
      $result .= "<td class=\"shellTopRight\"></td>\n</tr>\n<tr>\n";
      $result .= "<td class=\"shellLeft\"></td>\n";
!     $result .= "<td class=\"naked\">\n" . $text . "\n</td>\n";
  
      $result .= "<td class=\"shellRight\"></td>\n</tr>\n";