| Lines 34-40
          sub usage {
      
      
        Link Here | 
        
          | 34 |  | 34 |  | 
        
          | 35 |  | 35 |  | 
        
          | 36 | sub force_borrower_messaging_defaults { | 36 | sub force_borrower_messaging_defaults { | 
          
            
              | 37 |     my ($doit, $since, $not_expired, $no_overwrite, $category, $branchcode ) = @_; | 37 |     my ($doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name ) = @_; | 
        
          | 38 |  | 38 |  | 
        
          | 39 |     print "Since: $since\n" if $since; | 39 |     print "Since: $since\n" if $since; | 
        
          | 40 |  | 40 |  | 
  
    | Lines 63-72
          WHERE 1|;
      
      
        Link Here | 
        
          | 63 |     while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { | 63 |     while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) { | 
        
          | 64 |         print "$borrowernumber: $categorycode\n"; | 64 |         print "$borrowernumber: $categorycode\n"; | 
        
          | 65 |         next unless $doit; | 65 |         next unless $doit; | 
          
            
              | 66 |         C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { | 66 |         my $options = { | 
        
          | 67 |             borrowernumber => $borrowernumber, | 67 |             borrowernumber => $borrowernumber, | 
        
          | 68 |             categorycode   => $categorycode, | 68 |             categorycode   => $categorycode, | 
          
            
              | 69 |         } ); | 69 |         }; | 
            
              |  |  | 70 |         $options->{message_name} = $message_name if defined $message_name; | 
            
              | 71 |         C4::Members::Messaging::SetMessagingPreferencesFromDefaults($options); | 
        
          | 70 |         $cnt++; | 72 |         $cnt++; | 
        
          | 71 |     } | 73 |     } | 
        
          | 72 |     $dbh->commit(); | 74 |     $dbh->commit(); | 
  
    | Lines 74-80
          WHERE 1|;
      
      
        Link Here | 
        
          | 74 | } | 76 | } | 
        
          | 75 |  | 77 |  | 
        
          | 76 |  | 78 |  | 
          
            
              | 77 | my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode ); | 79 | my ( $doit, $since, $help, $not_expired, $no_overwrite, $category, $branchcode, $message_name ); | 
        
          | 78 | my $result = GetOptions( | 80 | my $result = GetOptions( | 
        
          | 79 |     'doit'        => \$doit, | 81 |     'doit'        => \$doit, | 
        
          | 80 |     'since:s'     => \$since, | 82 |     'since:s'     => \$since, | 
  
    | Lines 82-93
          my $result = GetOptions(
      
      
        Link Here | 
        
          | 82 |     'no-overwrite'  => \$no_overwrite, | 84 |     'no-overwrite'  => \$no_overwrite, | 
        
          | 83 |     'category:s'  => \$category, | 85 |     'category:s'  => \$category, | 
        
          | 84 |     'library:s'   => \$branchcode, | 86 |     'library:s'   => \$branchcode, | 
            
              |  |  | 87 |     'message-name:s' => \$message_name, | 
        
          | 85 |     'help|h'      => \$help, | 88 |     'help|h'      => \$help, | 
        
          | 86 | ); | 89 | ); | 
        
          | 87 |  | 90 |  | 
        
          | 88 | usage() if $help; | 91 | usage() if $help; | 
        
          | 89 |  | 92 |  | 
          
            
              | 90 | force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode ); | 93 | force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category, $branchcode, $message_name ); | 
        
          | 91 |  | 94 |  | 
        
          | 92 | =head1 NAME | 95 | =head1 NAME | 
        
          | 93 |  | 96 |  | 
  
    | Lines 101-106
          borrowers-force-messaging-defaults.pl
      
      
        Link Here | 
        
          | 101 |   borrowers-force-messaging-defaults.pl --doit --not-expired | 104 |   borrowers-force-messaging-defaults.pl --doit --not-expired | 
        
          | 102 |   borrowers-force-messaging-defaults.pl --doit --category PT | 105 |   borrowers-force-messaging-defaults.pl --doit --category PT | 
        
          | 103 |   borrowers-force-messaging-defaults.pl --doit --library CPL | 106 |   borrowers-force-messaging-defaults.pl --doit --library CPL | 
            
              |  |  | 107 |   borrowers-force-messaging-defaults.pl --doit --message-name 'Item_Due' | 
        
          | 104 |  | 108 |  | 
        
          | 105 | =head1 DESCRIPTION | 109 | =head1 DESCRIPTION | 
        
          | 106 |  | 110 |  | 
  
    | Lines 141-146
          Will only update patrons in the category specified.
      
      
        Link Here | 
        
          | 141 |  | 145 |  | 
        
          | 142 | Will only update patrons whose home library matches the given library id | 146 | Will only update patrons whose home library matches the given library id | 
        
          | 143 |  | 147 |  | 
            
              |  |  | 148 | =item B<--message-name> | 
            
              | 149 |  | 
            
              | 150 | Will only update the specified message name. | 
            
              | 151 | List of values can be found in installer/data/mysql/mandatory/sample_notices_message_attributes.sql | 
            
              | 152 |  | 
        
          | 144 | =item B<--since> | 153 | =item B<--since> | 
        
          | 145 |  | 154 |  | 
        
          | 146 | Will only update borrowers enrolled since the specified date. | 155 | Will only update borrowers enrolled since the specified date. | 
            
              | 147 | -  |  |  |