| 
      
            Lines 16-22
          use CGI::Cookie; # need to check cookies before
      
      
        Link Here
      
     | 
  
        
          | 16 | 
                           # having CGI parse the POST request  | 
          16 | 
                           # having CGI parse the POST request  | 
        
        
          | 17 | 
           | 
          17 | 
           | 
        
        
          | 18 | 
          my %cookies = fetch CGI::Cookie;  | 
          18 | 
          my %cookies = fetch CGI::Cookie;  | 
        
          
            
              | 19 | 
              my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => '1' }); | 
              19 | 
              my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' }); | 
            
        
          | 20 | 
          if ($auth_status ne "ok") { | 
          20 | 
          if ($auth_status ne "ok") { | 
        
        
          | 21 | 
              my $reply = CGI->new(""); | 
          21 | 
              my $reply = CGI->new(""); | 
        
        
          | 22 | 
              print $reply->header(-type => 'text/html');  | 
          22 | 
              print $reply->header(-type => 'text/html');  | 
        
            
              | 23 | 
              -   | 
               | 
               |