/[suikacvs]/markup/html/whatpm/Whatpm/ContentChecker.pm
Suika

Diff of /markup/html/whatpm/Whatpm/ContentChecker.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by wakaba, Sat Aug 4 13:48:25 2007 UTC revision 1.43 by wakaba, Sun Aug 5 04:50:57 2007 UTC
# Line 11  my $XML_NS = q<http://www.w3.org/XML/199 Line 11  my $XML_NS = q<http://www.w3.org/XML/199
11  my $XMLNS_NS = q<http://www.w3.org/2000/xmlns/>;  my $XMLNS_NS = q<http://www.w3.org/2000/xmlns/>;
12    
13  my $Namespace = {  my $Namespace = {
14      q<http://www.w3.org/2005/Atom> => {module => 'Whatpm::ContentChecker::Atom'},
15    $HTML_NS => {module => 'Whatpm::ContentChecker::HTML'},    $HTML_NS => {module => 'Whatpm::ContentChecker::HTML'},
16    $XML_NS => {loaded => 1},    $XML_NS => {loaded => 1},
17    $XMLNS_NS => {loaded => 1},    $XMLNS_NS => {loaded => 1},
# Line 198  sub check_document ($$$) { Line 199  sub check_document ($$$) {
199        
200    my $docel_nsuri = $docel->namespace_uri;    my $docel_nsuri = $docel->namespace_uri;
201    $docel_nsuri = '' unless defined $docel_nsuri;    $docel_nsuri = '' unless defined $docel_nsuri;
202      unless ($Namespace->{$docel_nsuri}->{loaded}) {
203        if ($Namespace->{$docel_nsuri}->{module}) {
204          eval qq{ require $Namespace->{$docel_nsuri}->{module} } or die $@;
205        } else {
206          $Namespace->{$docel_nsuri}->{loaded} = 1;
207        }
208      }
209    my $docel_def = $Element->{$docel_nsuri}->{$docel->manakai_local_name} ||    my $docel_def = $Element->{$docel_nsuri}->{$docel->manakai_local_name} ||
210      $Element->{$docel_nsuri}->{''} ||      $Element->{$docel_nsuri}->{''} ||
211      $ElementDefault;      $ElementDefault;
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24