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

(-)a/misc/cronjobs/overdue_notices.pl (-4 / +4 lines)
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
- 

Return to bug 5878