Merge branch 'xorg/maint'
[platal.git] / bin / devel / xhtml.classes.pl
index 86c56a0..4d48a1b 100755 (executable)
@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 #***************************************************************************
-#*  Copyright (C) 2003-2006 Polytechnique.org                              *
+#*  Copyright (C) 2003-2014 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);
         }
     }