|
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 |
- |
|
|