fix encoding of some stuff
parent
1d0f4b665c
commit
b0885a7278
|
@ -116,7 +116,8 @@ sub loadstate () { #{{{
|
||||||
my $data={};
|
my $data={};
|
||||||
foreach my $i (split(/ /, $_)) {
|
foreach my $i (split(/ /, $_)) {
|
||||||
my ($field, $val)=split(/=/, $i, 2);
|
my ($field, $val)=split(/=/, $i, 2);
|
||||||
if ($field eq "name" || $field eq "message") {
|
if ($field eq "name" || $field eq "feed" ||
|
||||||
|
$field eq "guid" || $field eq "message") {
|
||||||
$data->{$field}=IkiWiki::pagetitle($val);
|
$data->{$field}=IkiWiki::pagetitle($val);
|
||||||
}
|
}
|
||||||
elsif ($field eq "tag") {
|
elsif ($field eq "tag") {
|
||||||
|
@ -159,7 +160,8 @@ sub savestate () { #{{{
|
||||||
|
|
||||||
my @line;
|
my @line;
|
||||||
foreach my $field (keys %$data) {
|
foreach my $field (keys %$data) {
|
||||||
if ($field eq "name" || $field eq "message") {
|
if ($field eq "name" || $field eq "feed" ||
|
||||||
|
$field eq "guid" || $field eq "message") {
|
||||||
push @line, "$field=".IkiWiki::titlepage($data->{$field});
|
push @line, "$field=".IkiWiki::titlepage($data->{$field});
|
||||||
}
|
}
|
||||||
elsif ($field eq "tags") {
|
elsif ($field eq "tags") {
|
||||||
|
|
Loading…
Reference in New Issue