Changeset 26727 for gs3-extensions/html-to-expeditee/trunk/src/perllib/CssStyleToExpAttr.pm

Timestamp:

2013-01-15T20:53:38+13:00 (11 years ago)

Author:

davidb

Message:

Working on obtaining the correct font information for text elements on an html page.

File:

• gs3-extensions/html-to-expeditee/trunk/src/perllib/CssStyleToExpAttr.pm (modified) (3 diffs)

gs3-extensions/html-to-expeditee/trunk/src/perllib/CssStyleToExpAttr.pm

@@ -55 +55 @@
   "tahoma"          => "sans-serif",
   "geneva"          => "sans-serif",
+  "georgia"         => "serif",
   "times"           => "serif",
   "times new roman"     => "serif",
@@ -351 +352 @@
     my $exp_font_size = undef;
 
-    if ($css_font_size =~ m/^(\d+(?:\.\d*))px$/) {
-    $exp_font_size = int($1);
-    }
+    
+    #if ($css_font_size =~ m/^(\d+(?:\.\d*))px$/) {
+    #   $exp_font_size = int($1);
+    #}
+    
+    $css_font_size =~ s/[^0-9]//g;
+    
+    if(defined $css_font_size){
+        $exp_font_size = $css_font_size;
+    }
 
     return $exp_font_size;
@@ -384 +392 @@
     return $exp_color;
 }
+
+sub convert_font_family
+{
+    my ($css_font_family) = @_;
+        
+    print STDERR "*** PASSING PARAMETER css font family: ".$css_font_family."\n";
+    
+    my $exp_font_family;
+    
+    #use $font_specific_family_lookup and $font_generic_family_lookup
+    #to find the appropriate font family tag to output to expeditee.
+    if(defined $font_specific_family_lookup->{lc($css_font_family)}){
+        $exp_font_family = $css_font_family."_";
+    }
+    
+    print STDERR "**** TESTING TESTING ".$font_specific_family_lookup->{"georgia"}."\n";
+    print STDERR "**** TESTING TESTING ".$font_specific_family_lookup->{lc($css_font_family)}."\n";
+    print STDERR "**** TESTING TESTING ".$font_specific_family_lookup->{$css_font_family}."\n";
+    print STDERR "In CssStyleToExpAttr: font family attribute: $exp_font_family ******* \n";
+    
+    return $exp_font_family;
+}
+
+sub convert_font_style
+{
+    my ($css_font_style) = @_;
+
+    my $exp_font_style;
+    
+    return $exp_font_style;
+}
     
 1;
-