fix encoding of some stuff

master
joey 2006-07-30 06:20:58 +00:00
parent 1d0f4b665c
commit b0885a7278
1 changed files with 4 additions and 2 deletions

View File

@ -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") {