|
Lines 127-146
foreach my $type (@types) {
Link Here
|
| 127 |
my $date = C4::Dates->new( $issues->{'date_due'}, 'iso' ); |
127 |
my $date = C4::Dates->new( $issues->{'date_due'}, 'iso' ); |
| 128 |
my $due_date = $date->output('metric'); |
128 |
my $due_date = $date->output('metric'); |
| 129 |
|
129 |
|
| 130 |
# gets the placeholder message, and enqueues the letter |
130 |
my $letter = C4::Letters::GetPreparedLetter( |
| 131 |
my $letter = getletter( $module, $code ); |
131 |
module => $module, |
| 132 |
die "No letter found for type $type!... dying\n" unless $letter; |
132 |
letter_code => $code, |
|
|
133 |
tables => { |
| 134 |
borrowers => $issues->{'borrowernumber'}, |
| 135 |
biblio => $issues->{'biblionumber'}, |
| 136 |
biblioitems => $issues->{'biblionumber'} |
| 137 |
}, |
| 138 |
); |
| 133 |
|
139 |
|
| 134 |
# covers basic variable parsing in letter |
140 |
die "No letter found for type $type!... dying\n" unless $letter; |
| 135 |
$letter = |
|
|
| 136 |
C4::Letters::parseletter( $letter, 'borrowers', |
| 137 |
$issues->{'borrowernumber'} ); |
| 138 |
$letter = |
| 139 |
C4::Letters::parseletter( $letter, 'biblio', |
| 140 |
$issues->{'biblionumber'} ); |
| 141 |
$letter = |
| 142 |
C4::Letters::parseletter( $letter, 'biblioitems', |
| 143 |
$issues->{'biblionumber'} ); |
| 144 |
|
141 |
|
| 145 |
my $message_id = 0; |
142 |
my $message_id = 0; |
| 146 |
if ($outfile) { |
143 |
if ($outfile) { |
|
Lines 153-163
foreach my $type (@types) {
Link Here
|
| 153 |
); |
150 |
); |
| 154 |
} |
151 |
} |
| 155 |
|
152 |
|
| 156 |
print $OUT |
153 |
print OUT |
| 157 |
"\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\","; |
154 |
"\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\","; |
| 158 |
print $OUT |
155 |
print OUT |
| 159 |
"\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\","; |
156 |
"\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\","; |
| 160 |
print $OUT |
157 |
print OUT |
| 161 |
"\"$issues->{site}\",\"$issues->{site_name}\",\"$issues->{barcode}\",\"$due_date\",\"$issues->{title}\",\"$message_id\"\n"; |
158 |
"\"$issues->{site}\",\"$issues->{site_name}\",\"$issues->{barcode}\",\"$due_date\",\"$issues->{title}\",\"$message_id\"\n"; |
| 162 |
} |
159 |
} |
| 163 |
} |
160 |
} |
| 164 |
- |
|
|