summaryrefslogtreecommitdiffstats
path: root/editproducts.cgi
diff options
context:
space:
mode:
authorbugreport%peshkin.net <>2005-08-09 20:23:38 +0200
committerbugreport%peshkin.net <>2005-08-09 20:23:38 +0200
commit6a41ecbaec4ec4e4ed9e3b2005a7f447383b85a0 (patch)
treee8d106b301f6ffe06cbec9e521e040e721e2da83 /editproducts.cgi
parent42a0e99d5c916b4123719d7a362e12e65e15fc2f (diff)
downloadbugzilla-6a41ecbaec4ec4e4ed9e3b2005a7f447383b85a0.tar.gz
bugzilla-6a41ecbaec4ec4e4ed9e3b2005a7f447383b85a0.tar.xz
Backout of bug 303669 which broke AppendComment and possibly a number
of other items.
Diffstat (limited to 'editproducts.cgi')
-rwxr-xr-xeditproducts.cgi18
1 files changed, 9 insertions, 9 deletions
diff --git a/editproducts.cgi b/editproducts.cgi
index de0459f13..18e845efc 100755
--- a/editproducts.cgi
+++ b/editproducts.cgi
@@ -54,7 +54,7 @@ my %ctl = (
# TestProduct: just returns if the specified product does exists
# CheckProduct: same check, optionally emit an error text
-sub TestProduct
+sub TestProduct ($)
{
my $prod = shift;
@@ -65,7 +65,7 @@ sub TestProduct
return FetchOneColumn();
}
-sub CheckProduct
+sub CheckProduct ($)
{
my $prod = shift;
@@ -86,7 +86,7 @@ sub CheckProduct
# TestClassification: just returns if the specified classification does exists
# CheckClassification: same check, optionally emit an error text
-sub TestClassification
+sub TestClassification ($)
{
my $cl = shift;
@@ -97,7 +97,7 @@ sub TestClassification
return FetchOneColumn();
}
-sub CheckClassification
+sub CheckClassification ($)
{
my $cl = shift;
@@ -119,7 +119,7 @@ sub CheckClassification
# we need this routine, which does things properly, and will
# eventually be the only version. (The older versions assume a
# $template->put_header() call has been made)
-sub CheckClassificationNew
+sub CheckClassificationNew ($)
{
my $cl = shift;
@@ -135,7 +135,7 @@ sub CheckClassificationNew
}
-sub CheckClassificationProduct
+sub CheckClassificationProduct ($$)
{
my $cl = shift;
my $prod = shift;
@@ -162,7 +162,7 @@ sub CheckClassificationProduct
}
}
-sub CheckClassificationProductNew
+sub CheckClassificationProductNew ($$)
{
my ($cl, $prod) = @_;
my $dbh = Bugzilla->dbh;
@@ -190,7 +190,7 @@ sub CheckClassificationProductNew
# Displays the form to edit a products parameters
#
-sub EmitFormElements
+sub EmitFormElements ($$$$$$$$$)
{
my ($classification, $product, $description, $milestoneurl, $disallownew,
$votesperuser, $maxvotesperbug, $votestoconfirm, $defaultmilestone)
@@ -251,7 +251,7 @@ sub EmitFormElements
# Displays a text like "a.", "a or b.", "a, b or c.", "a, b, c or d."
#
-sub PutTrailer
+sub PutTrailer (@)
{
my (@links) = ("Back to the <A HREF=\"query.cgi\">query page</A>", @_);