5 |
@Description: |
@Description: |
6 |
@@@: Stylesheet support |
@@@: Stylesheet support |
7 |
@@lang:en |
@@lang:en |
8 |
@License: %%GPL%% |
@License: %%Perl%% |
9 |
@Author: |
@Author: |
10 |
@@Name: |
@@Name: |
11 |
@@@@: Wakaba |
@@@@: Wakaba |
12 |
@@@lang:ja |
@@@lang:ja |
13 |
@@@script:Latn |
@@@script:Latn |
14 |
@@Mail[list]: w@suika.fam.cx |
@@Mail[list]: w@suika.fam.cx |
15 |
@Date.RCS: $Date$ |
@Date.RCS: |
16 |
@RequiredModule[list]: |
$Date$ |
17 |
@RequiredPlugin[list]: |
@RequiredPlugin[list]: |
18 |
Error |
Error |
19 |
HTML |
HTML |
352 |
} |
} |
353 |
|
|
354 |
__ATTRTEXT:%expires__; |
__ATTRTEXT:%expires__; |
355 |
my $cookie_path = '/'; ## ISSUE: Need some mechanism |
my $cookie_path = $o->{wiki}->uri_reference->path; |
356 |
for ($div->append_new_node (type => '#element', |
for ($div->append_new_node (type => '#element', |
357 |
namespace_uri => $NS_XHTML1, |
namespace_uri => $NS_XHTML1, |
358 |
local_name => 'script')) { |
local_name => 'script')) { |
468 |
try { |
try { |
469 |
$content = $opt{wiki}->{db}->get (content => $opt{page}); |
$content = $opt{wiki}->{db}->get (content => $opt{page}); |
470 |
} catch SuikaWiki::DB::Util::Error with { |
} catch SuikaWiki::DB::Util::Error with { |
471 |
|
my $err = shift; |
472 |
|
$err->throw if $err->{-type} eq 'ERROR_REPORTED'; |
473 |
$content = undef; |
$content = undef; |
474 |
}; |
}; |
475 |
} |
} |
609 |
} |
} |
610 |
|
|
611 |
__ATTRTEXT:%expires__; |
__ATTRTEXT:%expires__; |
612 |
my $cookie_path = '/'; ## ISSUE: Need some mechanism |
my $cookie_path = $o->{wiki}->uri_reference->path; |
613 |
for ($div->append_new_node (type => '#element', |
for ($div->append_new_node (type => '#element', |
614 |
namespace_uri => $NS_XHTML1, |
namespace_uri => $NS_XHTML1, |
615 |
local_name => 'script')) { |
local_name => 'script')) { |