#! /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 *
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);
foreach my $cl (@cycle) {
&class_add($file,$t,$cl) if($cl);
}
- } else {
+ } else {
&class_add($file,$t,$c);
}
}