| 
      
            Lines 29-35
          use C4::Context;
      
      
        Link Here
      
     | 
  
        
          | 29 | 
          my %scrubbertypes = (  | 
          29 | 
          my %scrubbertypes = (  | 
        
        
          | 30 | 
              default => {}, # place holder, default settings are below as fallbacks in call to constructor | 
          30 | 
              default => {}, # place holder, default settings are below as fallbacks in call to constructor | 
        
        
          | 31 | 
              tag     => {},                                               # uses defaults | 
          31 | 
              tag     => {},                                               # uses defaults | 
        
          
            
              | 32 | 
                  comment => { allow => [qw[ p b i u hr br em big small strong span div ]] }, | 
              32 | 
                  comment => { allow => [qw( br b i em big small strong )], }, | 
            
            
               | 
               | 
              33 | 
                  note    => { allow => [qw[ p b i u hr br em big small strong span div ]] }, | 
            
        
          | 33 | 
              staff   => { | 
          34 | 
              staff   => { | 
        
        
          | 34 | 
                  default => [ 1 => { '*' => 1 } ], | 
          35 | 
                  default => [ 1 => { '*' => 1 } ], | 
        
        
          | 35 | 
                  comment => 1,  | 
          36 | 
                  comment => 1,  | 
        
  
    | 
      
            Lines 49-54
          sub new {
      
      
        Link Here
      
     | 
  
        
          | 49 | 
                  rules   => exists $settings->{rules} ? $settings->{rules} : [], | 
          50 | 
                  rules   => exists $settings->{rules} ? $settings->{rules} : [], | 
        
        
          | 50 | 
                  default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ], | 
          51 | 
                  default => exists $settings->{default} ? $settings->{default} : [ 0 => { '*' => 0 } ], | 
        
        
          | 51 | 
                  comment => exists $settings->{comment} ? $settings->{comment} : 0, | 
          52 | 
                  comment => exists $settings->{comment} ? $settings->{comment} : 0, | 
        
            
               | 
               | 
              53 | 
                      note    => exists $settings->{note} ? $settings->{note} : 0, | 
            
        
          | 52 | 
                  process => 0,  | 
          54 | 
                  process => 0,  | 
        
        
          | 53 | 
              );  | 
          55 | 
              );  | 
        
        
          | 54 | 
              return $scrubber;  | 
          56 | 
              return $scrubber;  |