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

Timestamp:

2012-01-12T15:52:20+13:00 (12 years ago)

Author:

davidb

Message:

More careful recursive traversal to classifier nodes; further developed of CSS to Expeditee attributes (background colour); and slightly less cludgy way to deal with full img URLS

File:

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

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

@@ -357 +357 @@
     return $exp_font_size;
 }
+
+
+sub convert_color
+{
+    my ($css_color) = @_;
+
+    my $exp_color;
+
+    if ($css_color =~ m/^rgb\((\d+),\s*(\d+),\s*(\d+)\)$/) {
+
+    my $r = int(100*$1/255);
+    my $g = int(100*$2/255);
+    my $b = int(100*$3/255);
+
+    print STDERR "*** r = $r, g = $g, b = $b\n";
+
+    $exp_color = "$r $g $b";
+
+    print STDERR "*** exp color = $exp_color\n";
+
+    }
+    elsif ($css_color =~ m/^transparent/i) {
+    $exp_color = undef;
+    }
+
+    return $exp_color;
+}
     
 1;