| Lines 9763-9775
          $DBversion = "3.19.00.XXX";
      
      
        Link Here | 
        
          | 9763 | if ( CheckVersion($DBversion) ) { | 9763 | if ( CheckVersion($DBversion) ) { | 
        
          | 9764 |     $dbh->do(q| | 9764 |     $dbh->do(q| | 
        
          | 9765 |         INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES | 9765 |         INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES | 
          
            
              | 9766 |         (20, 'shelves', 'Virtual shelves', 0) | 9766 |         (20, 'lists', 'Lists', 0) | 
        
          | 9767 |     |); | 9767 |     |); | 
        
          | 9768 |     $dbh->do(q| | 9768 |     $dbh->do(q| | 
        
          | 9769 |         INSERT INTO permissions (module_bit, code, description) VALUES | 9769 |         INSERT INTO permissions (module_bit, code, description) VALUES | 
          
            
              | 9770 |         (20, 'delete_shelves', 'Delete shelves') | 9770 |         (20, 'delete_public_lists', 'Delete public lists') | 
        
          | 9771 |     |); | 9771 |     |); | 
          
            
              | 9772 |     print "Upgrade to $DBversion done (Bug 13417: Add permission to delete shelves)\n"; | 9772 |     print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n"; | 
        
          | 9773 |     SetVersion ($DBversion); | 9773 |     SetVersion ($DBversion); | 
        
          | 9774 | } | 9774 | } | 
        
          | 9775 |  | 9775 |  | 
            
              | 9776 | -  |  |  |