--- suikawiki/script/wiki.cgi 2002/08/18 04:14:35 1.23
+++ suikawiki/script/wiki.cgi 2002/08/30 04:31:11 1.24
@@ -274,7 +274,7 @@
print qq(
);
foreach my $page (sort keys %database) {
if (&is_editable($page)) {
- print qq(- $page@{[&escape(&get_subjectline($page))]}
);
+ print qq(- @{[&escape($page)]}@{[&escape(&get_subjectline($page))]}
);
# print qq(- @{[&get_info($page, $info_IsFrozen)]}
);
# print qq(- @{[0 + &is_frozen($page)]}
);
}
@@ -343,8 +343,7 @@
my $word = $form{mymsg};
&print_header($SearchPage);
&print_searchform(&escape($word));
- print get_search_result ($word, -output_not_found => 1);
- print "foo";
+ print scalar get_search_result ($word, -output_not_found => 1);
&print_footer($SearchPage);
}
@@ -359,7 +358,7 @@
|| index ($page, $word) > 0
|| index ($word, $page) > 0
) {
- $r .= qq(- @{[&escape($page)]}@{[&escape(&get_subjectline($page))]}
);
+ $r .= qq(- @{[&escape($page)]}@{[&escape(&get_subjectline($page))]}
);
$counter++;
}
}
@@ -410,6 +409,7 @@
print qq{Refresh: 0; url="$option{-goto}"\n};
}
my $cookedpage = &encode($page);
+ my $escapedpage = &escape($page);
print <<"EOD";
Content-type: text/html; charset=$charset
Content-Language: $lang
@@ -420,10 +420,10 @@
"http://www.w3.org/TR/html4/loose.dtd">
- @{[&escape($page.' '.&get_subjectline($page))]}
+ $escapedpage @{[&escape(&get_subjectline($page))]}
-
-
+
+
EOD
@@ -477,7 +477,7 @@
my ($page) = @_;
$walrus_log = ($walrus_debugging) ? &text_to_html("----\n$walrus_log") : ''; # Walrus add (debug)
# Walrus mod (1) start
- my $cvslog = '$Revision: 1.23 $ $Date: 2002/08/18 04:14:35 $';
+ my $cvslog = '$Revision: 1.24 $ $Date: 2002/08/30 04:31:11 $';
print_navigate_links ($page);
print <<"EOD";