[Zope] FSSession atomicity?

[Andrew Kenneth Milton]

+----[ Curtis Maloney ]---------------------------------------------
|
| <dtml-var standard_html_header>
| <dtml-in "sqlPasswordCheck(user=username, company=company)">
|   <dtml-if "passwd == Password">
|     <dtml-call "FSSession.set('UserName',username)">
|     <dtml-call "FSSession.set('ID',company)">
|     <dtml-call "FSSession.set('Permissions', Permissions)">
|     <dtml-var "RESPONSE.redirect(HTTP_REFERER)">
|   </dtml-if>
| </dtml-in>
| <h2>Incorrect Login Attempt</h2>
| <p>
| <a href="<dtml-var HTTP_REFERER>">Try Again.</a>
| </p>
| <dtml-var standard_html_footer>

try this 

<dtml-if "sqlPasswordCheck(user=username, company=company)">
    <dtml-in "sqlPasswordCheck(user=username, company=company)">
      <dtml-if "passwd == Password">
        <dtml-call "FSSession.set('UserName',username)">
        <dtml-call "FSSession.set('ID',company)">
        <dtml-call "FSSession.set('Permissions', Permissions)">
        <dtml-var "RESPONSE.redirect(HTTP_REFERER)">
      </dtml-if>
    </dtml-in>
<dtml-else>
    <dtml-var standard_html_header>
    <h2>Incorrect Login Attempt</h2>
    <p>
    <a href="<dtml-var HTTP_REFERER>">Try Again.</a>
    </p>
    <dtml-var standard_html_footer>
</dtml-if>

-- 
Totally Holistic Enterprises Internet|  P:+61 7 3870 0066   | Andrew Milton
The Internet (Aust) Pty Ltd          |  F:+61 7 3870 4477   | 
ACN: 082 081 472                     |  M:+61 416 022 411   | Carpe Daemon
PO Box 837 Indooroopilly QLD 4068    |akm@theinternet.com.au|