/[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.99 by wakaba, Sun Sep 21 12:37:09 2008 UTC revision 1.100 by wakaba, Mon Sep 22 06:48:03 2008 UTC
# Line 575  sub check_element ($$$;$) { Line 575  sub check_element ($$$;$) {
575    $self->{id} = {};    $self->{id} = {};
576    $self->{id_type} = {}; # 'form' / 'labelable' / 'menu'    $self->{id_type} = {}; # 'form' / 'labelable' / 'menu'
577    $self->{form} = {}; # form/@name    $self->{form} = {}; # form/@name
578    $self->{form_ref} = []; # @form    $self->{idref} = []; # @form, @for, @contextmenu
579    $self->{term} = {};    $self->{term} = {};
580    $self->{usemap} = [];    $self->{usemap} = [];
581    $self->{ref} = []; # datetemplate data references    $self->{ref} = []; # datetemplate data references
582    $self->{template} = []; # datatemplate template references    $self->{template} = []; # datatemplate template references
   $self->{contextmenu} = [];  
583    $self->{map} = {};    $self->{map} = {};
584    $self->{has_link_type} = {};    $self->{has_link_type} = {};
585    $self->{flag} = {};    $self->{flag} = {};
# Line 793  next unless $code;## TODO: temp. Line 792  next unless $code;## TODO: temp.
792      }      }
793    }    }
794    
795    for (@{$self->{form_ref}}) {    for (@{$self->{idref}}) {
796      if ($self->{id}->{$_->[0]} and      if ($self->{id}->{$_->[1]} and
797          $self->{id_type}->{$_->[0]} eq 'form') {          $self->{id_type}->{$_->[1]} eq $_->[0]) {
798        #        #
799      } else {      } else {
800        $self->{onerror}->(node => $_->[1], type => 'no referenced form',        $self->{onerror}->(node => $_->[2],
801                           level => $self->{level}->{must});                           type => {
802      }                                    form => 'no referenced form',
803    }                                    labelable => 'no referenced control',
804                                      menu => 'no referenced menu',
805    for (@{$self->{contextmenu}}) {                                   }->{$_->[0]},
     if ($self->{id}->{$_->[0]} and  
         $self->{id_type}->{$_->[0]} eq 'menu') {  
       #  
     } else {  
       $self->{onerror}->(node => $_->[1], type => 'no referenced menu',  
806                           level => $self->{level}->{must});                           level => $self->{level}->{must});
807      }      }
808    }    }
# Line 819  next unless $code;## TODO: temp. Line 813  next unless $code;## TODO: temp.
813    delete $self->{id};    delete $self->{id};
814    delete $self->{id_type};    delete $self->{id_type};
815    delete $self->{form};    delete $self->{form};
816    delete $self->{form_ref};    delete $self->{idref};
817    delete $self->{usemap};    delete $self->{usemap};
818    delete $self->{ref};    delete $self->{ref};
819    delete $self->{template};    delete $self->{template};
Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24