Permalink
Browse files

Text cleanup

  • Loading branch information...
1 parent 8dcac33 commit 5fdfa2a18aa4c59e5059664b8b7dedd4e8c85fd9 @pudge pudge committed Jul 12, 2000
View
@@ -416,7 +416,7 @@ sub submissionEd {
# Adds proper section and title for form editor.
my $sec = $section ne $I{defaultsection} ? "&section=$section" : '';
- my $stitle = '&title=' . fixurl($subj, 1);
+ my $stitle = '&title=' . fixparam($subj);
$stitle =~ s/%/%%/g; # for sprintf
printf(($admin ? <<ADMIN : <<USER), @strs);
View
@@ -1125,7 +1125,7 @@ sub editstory {
my $newarticle = 1 if !$sid && !$I{F}{sid};
- print "$msg" if (defined($msg));
+ print $msg if defined $msg;
print <<EOT;
View
@@ -416,7 +416,7 @@ sub submissionEd {
# Adds proper section and title for form editor.
my $sec = $section ne $I{defaultsection} ? "&section=$section" : '';
- my $stitle = '&title=' . fixurl($subj, 1);
+ my $stitle = '&title=' . fixparam($subj);
$stitle =~ s/%/%%/g; # for sprintf
printf(($admin ? <<ADMIN : <<USER), @strs);
@@ -1125,7 +1125,7 @@ sub editstory {
my $newarticle = 1 if !$sid && !$I{F}{sid};
- print "$msg" if (defined($msg));
+ print $msg if defined $msg;
print <<EOT;
@@ -416,7 +416,7 @@ sub submissionEd {
# Adds proper section and title for form editor.
my $sec = $section ne $I{defaultsection} ? "&section=$section" : '';
- my $stitle = '&title=' . fixurl($subj, 1);
+ my $stitle = '&title=' . fixparam($subj);
$stitle =~ s/%/%%/g; # for sprintf
printf(($admin ? <<ADMIN : <<USER), @strs);

0 comments on commit 5fdfa2a

Please sign in to comment.