Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Text cleanup

  • Loading branch information...
commit 5fdfa2a18aa4c59e5059664b8b7dedd4e8c85fd9 1 parent 8dcac33
@pudge pudge authored
View
2  plugins/Submit/submit.pl
@@ -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
2  public_html/admin.pl
@@ -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
2  public_html/submit.pl
@@ -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
2  themes/slashcode/htdocs/admin.pl
@@ -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
2  themes/slashcode/htdocs/submit.pl
@@ -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);
Please sign in to comment.
Something went wrong with that request. Please try again.