| 264 |
|
|
| 265 |
|
# now parse it for the <DocType> tag |
| 266 |
|
my $tempdoc=ActiveDoc::ActiveDoc->new($self->config()); |
| 267 |
< |
$tempdoc->url($url); |
| 267 |
> |
$tempdoc->{urlhandler}=$self->{urlhandler}; |
| 268 |
> |
my $fullurl=$tempdoc->url($url); |
| 269 |
> |
$url=$fullurl; |
| 270 |
|
$tempdoc->{doctypefound}=0; |
| 271 |
|
$tempdoc->newparse("doctype"); |
| 272 |
|
$tempdoc->addtag("doctype","Doc", \&Doc_Start, $tempdoc, |
| 365 |
|
# Keep track of base tags |
| 366 |
|
push @{$self->{basestack}}, $$hashref{"type"}; |
| 367 |
|
# Set the base |
| 366 |
– |
print "BASE SET for ".$$hashref{"type"}."\n"; |
| 368 |
|
$self->{urlhandler}->setbase($$hashref{"type"},$hashref); |
| 368 |
– |
print "BASE SET for ".$$hashref{"type"}."\n"; |
| 369 |
– |
|
| 369 |
|
} |
| 370 |
|
|
| 371 |
|
sub Base_end { |
