[Seaside] Safeguard WAUrl

[Boris Popov]

Could we check that key isn't empty please just in case the webserver
somehow manages to throw that in there?

isSeasideField: aString
	^aString notEmpty and: [aString first = $_ or: [aString
allSatisfy: [:ea | ea isDigit]]]

Cheers,

-Boris

-- 
+1.604.689.0322
DeepCove Labs Ltd.
4th floor 595 Howe Street
Vancouver, Canada V6C 2T5
http://tinyurl.com/r7uw4

boris at deepcovelabs.com

CONFIDENTIALITY NOTICE

This email is intended only for the persons named in the message
header. Unless otherwise indicated, it contains information that is
private and confidential. If you have received it in error, please
notify the sender and delete the entire message including any
attachments.

Thank you.