I'm trying to access a fixed list of Child Care Names (CCN), based on the password (PW) appended to my links. I'm getting an error which I don't understand. Here's (the beginning of) my code:
Begin Unverified Perl
if (GETVALUE("PW" ) == FG4KMLY)
{
ADD LISTLABEL("CCN", 1);
}
if (GETVALUE("PW") == LFMM4FW)
{
ADD LISTLABEL("CCN", 2);
}
End unverified Error
There is an error in list building: Script:if(GETVALUE("PW" ) == FG4KMLY) { ADD LISTLABEL("CCN", 1); } if(GETVALUE("PW") == LFMM4FW) { ADD LISTLABEL("CCN", 2); } if(GETVALUE("PW") == QAMSGV7) { ADD LISTLABEL("CCN", 3); } if(GETVALUE("PW") == A25PCXT) { ADD LISTLABEL("CCN", 4); } if(GETVALUE("PW")== AVYG3JM) { ADD LISTLABEL("CCN", 5); } if(GETVALUE("PW") == 32THPDC) { ADD LISTLABEL("CCN", 6); } if(GETVALUE("PW") == 6T6T8YF) { ADD LISTLABEL("CCN", 7); } if(GETVALUE("PW") == 5MRM5GE) { ADD LISTLABEL("CCN", 8); } [ID: 132]
System Error:
syntax error at (eval 17) line 21, near "32THPDC" Bareword "FG4KMLY" not allowed while "strict subs" in use at (eval 17) line 1, line 16. Bareword "LFMM4FW" not allowed while "strict subs" in use at (eval 17) line 5, line 16. Bareword "QAMSGV7" not allowed while "strict subs" in use at (eval 17) line 9, line 16. Bareword "A25PCXT" not allowed while "strict subs" in use at (eval 17) line 13, line 16. Bareword "AVYG3JM" not allowed while "strict subs" in use at (eval 17) line 17, line 16.
Can anyone point out what I'm doing wrong? ... how it should be written?
Thanks,
Michael