Lines 281-294
GetOptions(
Link Here
|
281 |
pod2usage(1) if $help; |
281 |
pod2usage(1) if $help; |
282 |
pod2usage( -verbose => 2 ) if $man; |
282 |
pod2usage( -verbose => 2 ) if $man; |
283 |
|
283 |
|
284 |
my $columns_def_hashref = C4::Reports::Guided::_get_column_defs(); |
284 |
my $cgi = new CGI; # this CGI is useless, except to avoid an error |
|
|
285 |
my $columns_def_hashref = C4::Reports::Guided::_get_column_defs($cgi); |
285 |
|
286 |
|
286 |
foreach my $key ( keys %$columns_def_hashref ) { |
287 |
foreach my $key ( keys %$columns_def_hashref ) { |
287 |
my $initkey = $key; |
288 |
my $initkey = $key; |
288 |
$key =~ s/[^\.]*\.//; |
289 |
$key =~ s/[^\.]*\.//; |
289 |
$columns_def_hashref->{$key} = $columns_def_hashref->{$initkey}; |
290 |
$columns_def_hashref->{$key} = $columns_def_hashref->{$initkey}; |
290 |
} |
291 |
} |
291 |
print Dump($columns_def_hashref); |
292 |
|
292 |
if ( defined $csvfilename && $csvfilename =~ /^-/ ) { |
293 |
if ( defined $csvfilename && $csvfilename =~ /^-/ ) { |
293 |
warn qq(using "$csvfilename" as filename, that seems odd); |
294 |
warn qq(using "$csvfilename" as filename, that seems odd); |
294 |
} |
295 |
} |
Lines 698-704
sub parse_letter { # FIXME: this code should probably be moved to C4::Letters:pa
Link Here
|
698 |
PROCESS_ITEMS: |
699 |
PROCESS_ITEMS: |
699 |
while (scalar(@{$params->{'items'}}) > 0) { |
700 |
while (scalar(@{$params->{'items'}}) > 0) { |
700 |
my $item = shift @{$params->{'items'}}; |
701 |
my $item = shift @{$params->{'items'}}; |
701 |
my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'}); |
702 |
my $fine = GetFine($item->{'itemnumber'}, $params->{'borrowernumber'})||0; |
702 |
if (!$item_format) { |
703 |
if (!$item_format) { |
703 |
$params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/; |
704 |
$params->{'letter'}->{'content'} =~ m/(<item>.*<\/item>)/; |
704 |
$item_format = $1; |
705 |
$item_format = $1; |
705 |
- |
|
|