comment on

I am trying to check usrLevel which would be the access level a user has to the site, in order to provide additional functionality to users with a certain access level. my app is supposed to switch which xml file is used for the user depending on this code which is stored in a session variable. the usersystem would be a prefix for the xml file to be used. This is not working as expected and I am not sure why. is the ! a modifier?

f ($Session->{'usrSystem'} eq "MFR" && $Session->{'usrLevel'}=="!M")
      {
      $str .= "<leftIndex>";
      $str .= xmlFileData("Content/SSResources", $Session->{'usrSystem
+'}.ad.".xml", "mLeftIndex()");      
      $str .= xmlFileData("Content/SSResources", $Session->{'usrSystem
+'}.$Session->{'usrAccount'}.".xml", "mLeftIndex()");
      $str .= $logoutLink;
      $str .= "</leftIndex>";
      return $str;
      }
###Shows regular for everyone except this access level... ? 


    if ($Session->{'usrSystem'} eq "MFR" && !$Session->{'usrLevel'}=="
+!A")
   {
      $str .= "<leftIndex>";
      $str .= xmlFileData("Content/SSResources", $Session->{'usrSystem
+'}.".xml", "mLeftIndex()");      
      $str .= xmlFileData("Content/SSResources", $Session->{'usrSystem
+'}.$Session->{'usrAccount'}.".xml", "mLeftIndex()");
      $str .= $logoutLink;
      $str .= "</leftIndex>";
    }
    return $str;

  }
[download]

In reply to regex question by grashoper

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Syntactic Confectionery Delight
	PerlMonks