perl typo
Submitted by: Chris Costello <chris@calldei.com>
This commit is contained in:
parent
f39b1e916c
commit
d52b336596
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8442
1 changed files with 2 additions and 2 deletions
|
@ -1,5 +1,5 @@
|
|||
#!/usr/bin/perl
|
||||
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.27 2000/10/22 14:25:07 phantom Exp $
|
||||
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.28 2000/10/29 22:16:41 steve Exp $
|
||||
|
||||
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
|
||||
$self_ref = $ENV{'SCRIPT_NAME'};
|
||||
|
@ -223,7 +223,7 @@ foreach ("category", "originator", "priority", "class", "responsible",
|
|||
$d = $input{$_};
|
||||
$d =~ s/^"(.*)"$/$&/;
|
||||
$d =~ s/'/\\'/;
|
||||
$query_args .= " --${_}='$input{$_}'";
|
||||
$query_args .= " --${_}='$d'";
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue