View | Details | Raw Unified | Return to bug 21886
Collapse All | Expand All

(-)a/misc/cronjobs/advance_notices.pl (-5 / +11 lines)
Lines 131-139 select notices for one specific library. Use the value in the Link Here
131
branches.branchcode table. This option can be repeated in order
131
branches.branchcode table. This option can be repeated in order
132
to select notices for a group of libraries.
132
to select notices for a group of libraries.
133
133
134
=item B<--owning>
134
=item B<--frombranch>
135
135
136
Use the address information from the item homebranch library instead of the issuing library.
136
Set the from address for the notice to one of 'item-homebranch' or 'item-issuebranch'.
137
138
Defaults to 'item-issuebranch'
137
139
138
=back
140
=back
139
141
Lines 202-208 my $maxdays = 30; # -e: the En Link Here
202
my $verbose     = 0;                                                # -v: verbose
204
my $verbose     = 0;                                                # -v: verbose
203
my $digest_per_branch = 0;                                          # -digest-per-branch: Prepare and send digests per branch
205
my $digest_per_branch = 0;                                          # -digest-per-branch: Prepare and send digests per branch
204
my @branchcodes; # Branch(es) passed as parameter
206
my @branchcodes; # Branch(es) passed as parameter
205
my $owning_library = 0;
207
my $frombranch   = 'item-issuebranch';
206
my $itemscontent = join(',',qw( date_due title author barcode ));
208
my $itemscontent = join(',',qw( date_due title author barcode ));
207
209
208
my $help    = 0;
210
my $help    = 0;
Lines 212-218 GetOptions( Link Here
212
            'help|?'         => \$help,
214
            'help|?'         => \$help,
213
            'man'            => \$man,
215
            'man'            => \$man,
214
            'library=s'      => \@branchcodes,
216
            'library=s'      => \@branchcodes,
215
            'owning'         => \$owning_library,
217
            'frombranch'     => \$frombranch,
216
            'c'              => \$confirm,
218
            'c'              => \$confirm,
217
            'n'              => \$nomail,
219
            'n'              => \$nomail,
218
            'm:i'            => \$maxdays,
220
            'm:i'            => \$maxdays,
Lines 245-250 if (@branchcodes) { Link Here
245
    %branches = map { $_ => 1 } @branchcodes;
247
    %branches = map { $_ => 1 } @branchcodes;
246
}
248
}
247
249
250
die "--frombranch takes item-homebranch or item-issuebranch only"
251
  unless ( $frombranch eq 'item-issuebranch'
252
    || $frombranch eq 'item-homebranch' );
253
my $owning_library = ( $frombranch eq 'item-homebranch' ) ? 1 : 0;
254
248
# The fields that will be substituted into <<items.content>>
255
# The fields that will be substituted into <<items.content>>
249
my @item_content_fields = split(/,/,$itemscontent);
256
my @item_content_fields = split(/,/,$itemscontent);
250
257
251
- 

Return to bug 21886