X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=bin%2Fdevel%2Fxhtml.classes.pl;h=a7b6ecbc9cbf2207b54240ab129c0b637181bfa4;hb=af3b6644d6a4ccf3d4d6224f7ad09c42d811a87c;hp=f0524efa1fcba76ccb2f5a6053d26726be6aa4c4;hpb=5ddeb07cc787dd1dc3630a31f1528f5cc7c4d9b9;p=platal.git diff --git a/bin/devel/xhtml.classes.pl b/bin/devel/xhtml.classes.pl index f0524ef..a7b6ecb 100755 --- a/bin/devel/xhtml.classes.pl +++ b/bin/devel/xhtml.classes.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -w #*************************************************************************** -#* Copyright (C) 2003-2007 Polytechnique.org * +#* Copyright (C) 2003-2010 Polytechnique.org * #* http://opensource.polytechnique.org/ * #* * #* This program is free software; you can redistribute it and/or modify * @@ -91,7 +91,7 @@ sub parse_tag($$) { if($tag =~ / (checked|disabled|multiple|readonly)( |$)/); print STDERR "${red}XHTML error: ${yel}attribut $1 ${blu}($file)${gra}\n" if($tag =~ / (align|width|border|color|valign)=/); - + # récupération des classes utilisées ... if($tag =~ /^(\w+).* class=('{[^}]*}'|"{[^}]*}"|'[^{}']*'|"[^{}"]*")/) { my $t = lc($1); @@ -102,7 +102,7 @@ sub parse_tag($$) { foreach my $cl (@cycle) { &class_add($file,$t,$cl) if($cl); } - } else { + } else { &class_add($file,$t,$c); } }