110 |
$opt{id} ||= 'parse-errors'; |
$opt{id} ||= 'parse-errors'; |
111 |
$opt{title} ||= 'Parse Errors Section'; |
$opt{title} ||= 'Parse Errors Section'; |
112 |
$opt{short_title} ||= 'Parse Errors'; |
$opt{short_title} ||= 'Parse Errors'; |
113 |
|
$class .= ' errors'; |
114 |
delete $opt{role}; |
delete $opt{role}; |
115 |
} elsif ($opt{role} eq 'structure-errors') { |
} elsif ($opt{role} eq 'structure-errors') { |
116 |
$opt{id} ||= 'document-errors'; |
$opt{id} ||= 'document-errors'; |
117 |
$opt{title} ||= 'Structural Errors'; |
$opt{title} ||= 'Structural Errors'; |
118 |
$opt{short_title} ||= 'Struct. Errors'; |
$opt{short_title} ||= 'Struct. Errors'; |
119 |
|
$class .= ' errors'; |
120 |
delete $opt{role}; |
delete $opt{role}; |
121 |
} elsif ($opt{role} eq 'reformatted') { |
} elsif ($opt{role} eq 'reformatted') { |
122 |
$opt{id} ||= 'document-tree'; |
$opt{id} ||= 'document-tree'; |
123 |
$opt{title} ||= 'Reformatted Document Source'; |
$opt{title} ||= 'Reformatted Document Source'; |
124 |
$opt{short_title} ||= 'Reformatted'; |
$opt{short_title} ||= 'Reformatted'; |
125 |
|
$class .= ' dump'; |
126 |
delete $opt{role} |
delete $opt{role} |
127 |
} elsif ($opt{role} eq 'tree') { |
} elsif ($opt{role} eq 'tree') { |
128 |
$opt{id} ||= 'document-tree'; |
$opt{id} ||= 'document-tree'; |
129 |
$opt{title} ||= 'Document Tree'; |
$opt{title} ||= 'Document Tree'; |
130 |
$opt{short_title} ||= 'Tree'; |
$opt{short_title} ||= 'Tree'; |
131 |
|
$class .= ' dump'; |
132 |
delete $opt{role}; |
delete $opt{role}; |
133 |
} elsif ($opt{role} eq 'structure') { |
} elsif ($opt{role} eq 'structure') { |
134 |
$opt{id} ||= 'document-structure'; |
$opt{id} ||= 'document-structure'; |
135 |
$opt{title} ||= 'Document Structure'; |
$opt{title} ||= 'Document Structure'; |
136 |
$opt{short_title} ||= 'Structure'; |
$opt{short_title} ||= 'Structure'; |
137 |
|
$class .= ' dump'; |
138 |
delete $opt{role}; |
delete $opt{role}; |
139 |
} elsif ($opt{role} eq 'subdoc') { |
} elsif ($opt{role} eq 'subdoc') { |
140 |
$class .= ' subdoc'; |
$class .= ' subdoc'; |
141 |
delete $opt{role}; |
delete $opt{role}; |
142 |
|
} elsif ($opt{role} eq 'source') { |
143 |
|
$opt{id} ||= 'source-string'; |
144 |
|
$opt{title} ||= 'Document Source'; |
145 |
|
$opt{short_title} ||= 'Source'; |
146 |
|
$class .= ' source'; |
147 |
|
delete $opt{role}; |
148 |
} |
} |
149 |
} |
} |
150 |
|
|