| 
      
            Lines 2-15
          use Modern::Perl;
      
      
        Link Here
      
     | 
  
        
          | 2 | 
           | 
          2 | 
           | 
        
        
          | 3 | 
          return { | 
          3 | 
          return { | 
        
        
          | 4 | 
              bug_number => '21330',  | 
          4 | 
              bug_number => '21330',  | 
        
          
            
              | 5 | 
                  description => 'Add syspref AuthorityXSLTOpacDetailsDisplay',  | 
              5 | 
                  description => 'Add XSLT for authority details view in OPAC',  | 
            
        
          | 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{ | 
          10 | 
                  $dbh->do(q{ | 
        
        
          | 11 | 
                      INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)  | 
          11 | 
                      INSERT IGNORE INTO systempreferences (`variable`, `value`, `options`, `explanation`, `type`)  | 
        
          
            
              | 12 | 
                          VALUES ('AuthorityXSLTOpacDetailsDisplay','','','Enable XSL stylesheet control over authority results page display on intranet','Free') | 
              12 | 
                          VALUES ('AuthorityXSLTOpacDetailsDisplay','','','Enable XSL stylesheet control over authority details page in the OPAC','Free') | 
            
        
          | 13 | 
                  });  | 
          13 | 
                  });  | 
        
            
               | 
               | 
              14 | 
               | 
            
            
              | 15 | 
                      say $out "Added new system preference 'AuthorityXSLTOpacDetailsDisplay'";  | 
            
        
          | 14 | 
              },  | 
          16 | 
              },  | 
        
        
          | 15 | 
          };  | 
          17 | 
          };  |