Perl uses 'eq' not '=='.
2002-08-06 Glynn Foster <glynn.foster@sun.com> * cgi-bin/membership-form-handler.cgi: Perl uses 'eq' not '=='. 2002-08-06 Glynn Foster <glynn.foster@sun.com> * membership-form.html: Add some spacing.
This commit is contained in:
parent
5f55437dbd
commit
e65ff27a54
2 changed files with 7 additions and 2 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
2002-08-06 Glynn Foster <glynn.foster@sun.com>
|
||||||
|
|
||||||
|
* cgi-bin/membership-form-handler.cgi: Perl uses 'eq' not
|
||||||
|
'=='.
|
||||||
|
|
||||||
2002-08-06 Glynn Foster <glynn.foster@sun.com>
|
2002-08-06 Glynn Foster <glynn.foster@sun.com>
|
||||||
|
|
||||||
* membership-form.html: Add some spacing.
|
* membership-form.html: Add some spacing.
|
||||||
|
|
|
@ -24,7 +24,7 @@ From: gnome-membership\@gnome.org (GNOME Membership Script)
|
||||||
To: membership\@gnome.org (GNOME Membership Committee)
|
To: membership\@gnome.org (GNOME Membership Committee)
|
||||||
HEADER
|
HEADER
|
||||||
|
|
||||||
if ($FORM::previousmember == "on") {
|
if ($FORM::previousmember eq "on") {
|
||||||
print MAIL "Subject: [RENEWAL] Application received from $FORM::name ($FORM::email)\n";
|
print MAIL "Subject: [RENEWAL] Application received from $FORM::name ($FORM::email)\n";
|
||||||
} else {
|
} else {
|
||||||
print MAIL "Subject: Application received from $FORM::name ($FORM::email)\n";
|
print MAIL "Subject: Application received from $FORM::name ($FORM::email)\n";
|
||||||
|
@ -40,7 +40,7 @@ cvs.gnome.org username (if any): $FORM::cvsuser
|
||||||
|
|
||||||
CONTACT
|
CONTACT
|
||||||
|
|
||||||
if ($FORM::previousmember == "on") {
|
if ($FORM::previousmember eq "on") {
|
||||||
print MAIL "Previous GNOME Foundation member: yes\n";
|
print MAIL "Previous GNOME Foundation member: yes\n";
|
||||||
} else {
|
} else {
|
||||||
print MAIL "Previous GNOME Foundation member: no\n";
|
print MAIL "Previous GNOME Foundation member: no\n";
|
||||||
|
|
Loading…
Reference in a new issue