| Lines 1-16
          
      
      
        Link Here | 
        
          | 1 | use Modern::Perl; | 1 | use Modern::Perl; | 
        
          | 2 |  | 2 |  | 
        
          | 3 | return { | 3 | return { | 
          
            
              | 4 |     bug_number => "27378", | 4 |     bug_number  => "27378", | 
        
          | 5 |     description => "Adds the sysprefs for cookie consents", | 5 |     description => "Adds the sysprefs for cookie consents", | 
          
            
              | 6 |     up => sub { | 6 |     up          => sub { | 
        
          | 7 |         my ($args) = @_; | 7 |         my ($args) = @_; | 
          
            
              | 8 |         my ($dbh, $out) = @$args{qw(dbh out)}; | 8 |         my ( $dbh, $out ) = @$args{qw(dbh out)}; | 
        
          | 9 |  | 9 |  | 
          
            
              | 10 |         $dbh->do( q| INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) VALUES ('CookieConsentedJS', '', 'Add Javascript code that will run if cookie consent is provided (e.g. tracking code).', '', 'Free'); | ); | 10 |         $dbh->do( | 
            
              |  |  | 11 |             q| INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) VALUES ('CookieConsentedJS', '', 'Add Javascript code that will run if cookie consent is provided (e.g. tracking code).', '', 'Free'); | | 
            
              | 12 |         ); | 
        
          | 11 |         say $out "Added new system preference 'CookieConsentedJS'"; | 13 |         say $out "Added new system preference 'CookieConsentedJS'"; | 
        
          | 12 |  | 14 |  | 
          
            
              | 13 |         $dbh->do( q| INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) VALUES ('CookieConsent', '0', 'Require cookie consent to be displayed', '', 'YesNo'); | ); | 15 |         $dbh->do( | 
            
              |  |  | 16 |             q| INSERT IGNORE INTO systempreferences (variable, value, explanation, options, type) VALUES ('CookieConsent', '0', 'Require cookie consent to be displayed', '', 'YesNo'); | | 
            
              | 17 |         ); | 
        
          | 14 |         say $out "Added new system preference 'CookieConsent'"; | 18 |         say $out "Added new system preference 'CookieConsent'"; | 
        
          | 15 |     }, | 19 |     }, | 
        
          | 16 | }; | 20 | }; |