| Lines 9660-9672
          $DBversion = "3.19.00.XXX";
      
      
        Link Here | 
        
          | 9660 | if ( CheckVersion($DBversion) ) { | 9660 | if ( CheckVersion($DBversion) ) { | 
        
          | 9661 |     $dbh->do(q| | 9661 |     $dbh->do(q| | 
        
          | 9662 |         INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES | 9662 |         INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES | 
          
            
              | 9663 |         (20, 'shelves', 'Virtual shelves', 0) | 9663 |         (20, 'lists', 'Lists', 0) | 
        
          | 9664 |     |); | 9664 |     |); | 
        
          | 9665 |     $dbh->do(q| | 9665 |     $dbh->do(q| | 
        
          | 9666 |         INSERT INTO permissions (module_bit, code, description) VALUES | 9666 |         INSERT INTO permissions (module_bit, code, description) VALUES | 
          
            
              | 9667 |         (20, 'delete_shelves', 'Delete shelves') | 9667 |         (20, 'delete_public_lists', 'Delete public lists') | 
        
          | 9668 |     |); | 9668 |     |); | 
          
            
              | 9669 |     print "Upgrade to $DBversion done (Bug 13417: Add permission to delete shelves)\n"; | 9669 |     print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n"; | 
        
          | 9670 |     SetVersion ($DBversion); | 9670 |     SetVersion ($DBversion); | 
        
          | 9671 | } | 9671 | } | 
        
          | 9672 |  | 9672 |  | 
            
              | 9673 | -  |  |  |