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

Timestamp:

2013-01-15T22:49:23+13:00 (11 years ago)

Author:

davidb

Message:

Can now successfully obtain font size, font weight, font colour and font family information about each piece of text on a web page and convert to a corresponding text item on an Expeditee frame. Still need to account for text nodes with parents such as bold elements or heading elements.

File:

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

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

@@ -353 +353 @@
 
     
-    #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;
+    if ($css_font_size =~ m/^(\d+(?:\.\d*))px$/) {
+        $exp_font_size = int($1);
+    }
+    
+    return $exp_font_size;
+}
+
+sub convert_font_face
+{
+    my ($css_font_face) = @_;
+    my $exp_font_face = undef;
+    
+    if(lc($css_font_face) eq "bold"){
+            $exp_font_face = "b";
+    }else{      #for now - also need to take into account italic and italic bold.
+        $exp_font_face = "r";
     }
 
-    return $exp_font_size;
+    return $exp_font_face;
 }
 
@@ -405 +413 @@
     if(defined $font_specific_family_lookup->{lc($css_font_family)}){
         $exp_font_family = $css_font_family."_";
+    }else{
+    
+        #to account for instances where a list of fonts is stored as the font family, e.g. "Arial,Segoe...Sans-Serif".
+        #just extract the first font name from this list.
+        my @font_family_vals = split(',',$css_font_family);
+        
+        if(scalar(@font_family_vals) > 0){
+            $exp_font_family = $font_family_vals[0]."_";
+        }
+    
     }
-    
-    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;