Attachment #103181 for bug #15969

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




        $params->{'reply_address'},               # reply_address
        $params->{'letter'}->{'content-type'},    # content_type
    );

    my $id = $dbh->last_insert_id(undef,undef,'message_queue', undef);

    $content = $params->{letter}->{content};
    if ( $content =~ /__MESSAGE_ID__/ ) {
        $content =~ s/__MESSAGE_ID__/$id/g;
        $dbh->do( "UPDATE message_queue SET content = ? WHERE message_id = ?", undef, ($content, $id) );
    }

    return $id;
}

=head2 SendQueuedMessages ([$hashref]) 




my $outfile;
my $skip_patrons_with_email;
my $patron_branchcode;
my $use_tt;

# maps to convert I-tiva terms to Koha terms
my $type_module_map = {

};

GetOptions(
    'o|output:s'                => \$outfile,
    'v'                         => \$verbose,
    'lang:s'                    => \$language,
    'type:s'                    => \@types,
    'w|waiting-hold-day:s'      => \@holds_waiting_days_to_call,
    'c|code|library-code:s'     => \$library_code,
    's|skip-patrons-with-email' => \$skip_patrons_with_email,
    'pb|patron-branchcode:s'    => \$patron_branchcode,
    'tt|template-toolkit'       => \$use_tt,
    'h|help'                    => \$help,
);

$language = uc($language);

            letter_code => $code,
            lang        => 'default', # It does not sound useful to send a lang here
            tables      => {
                borrowers   => $issues->{borrowernumber},
                biblio      => $issues->{biblionumber},
                biblioitems => $issues->{biblionumber},
                items       => $issues->{itemnumber},
                issues      => $issues->{itemnumber},
                branches    => $issues->{site},
            },
            substitute => {
                format       => $format,
                language     => $language,
                type         => $type,
                level        => $issues->{level},
                library_code => $library_code,
                due_date     => $due_date,
            },
            message_transport_type => 'phone',
        );

            );
        }

        if ( $use_tt ) {
            $letter->{content} =~ s/__MESSAGE_ID__/$message_id/g;
            print $OUT $letter->{content};
        } else {
            print $OUT "\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\",";
            print $OUT "\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\",";
            print $OUT "\"$issues->{site}\",\"$issues->{site_name}\",\"$issues->{barcode}\",\"$due_date\",\"$issues->{title}\",\"$message_id\"\n";
        }
    }
}


Limits the the patrons to generate notices for based on the patron's home library.
Items and holds from other libraries will still be included for the given patron.

=item B<--template-toolkit>

OPTIONAL. If set, processes the notice content as Template Toolkit syntax and sends the content as the CSV line instead
of generated a fixed CSV line. This allows the contents of the CSV file to be created dynamically instead of using the
fixed format that is outputted without this flag.

=back

=cut

    my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,
                borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, issues.date_due,
                max(overduerules.branchcode) as rulebranch, TO_DAYS(NOW())-TO_DAYS(date_due) as daysoverdue, delay1, delay2, delay3,
                issues.branchcode as site, branches.branchname as site_name, items.itemnumber
                FROM borrowers JOIN issues USING (borrowernumber)
                JOIN items USING (itemnumber)
                JOIN biblio USING (biblionumber)


    my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,
                borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, issues.date_due,
                issues.branchcode as site, branches.branchname as site_name, items.itemnumber
                FROM borrowers JOIN issues USING (borrowernumber)
                JOIN items USING (itemnumber)
                JOIN biblio USING (biblionumber)


    my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,
                borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, reserves.waitingdate,
                reserves.branchcode AS site, branches.branchname AS site_name, items.itemnumber,
                TO_DAYS(NOW())-TO_DAYS(reserves.waitingdate) AS days_since_waiting
                FROM borrowers JOIN reserves USING (borrowernumber)
                JOIN items USING (itemnumber)
- 

Return to bug 15969

Lines 932-938 ENDSQL Link Here

(-)a/C4/Letters.pm (-1 / +10 lines)
932	$params->{'reply_address'}, # reply_address	932	$params->{'reply_address'}, # reply_address
933	$params->{'letter'}->{'content-type'}, # content_type	933	$params->{'letter'}->{'content-type'}, # content_type
934	);	934	);
935	return $dbh->last_insert_id(undef,undef,'message_queue', undef);	935
		936	my $id = $dbh->last_insert_id(undef,undef,'message_queue', undef);
		937
		938	$content = $params->{letter}->{content};
		939	if ( $content =~ /__MESSAGE_ID__/ ) {
		940	$content =~ s/__MESSAGE_ID__/$id/g;
		941	$dbh->do( "UPDATE message_queue SET content = ? WHERE message_id = ?", undef, ($content, $id) );
		942	}
		943
		944	return $id;
936	}	945	}
937		946
938	=head2 SendQueuedMessages ([$hashref])	947	=head2 SendQueuedMessages ([$hashref])

Lines 62-67 my $help; Link Here

(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl (-18 / +41 lines)
62	my $outfile;	62	my $outfile;
63	my $skip_patrons_with_email;	63	my $skip_patrons_with_email;
64	my $patron_branchcode;	64	my $patron_branchcode;
		65	my $use_tt;
65		66
66	# maps to convert I-tiva terms to Koha terms	67	# maps to convert I-tiva terms to Koha terms
67	my $type_module_map = {	68	my $type_module_map = {
Lines 77-91 my $type_notice_map = { Link Here
77	};	78	};
78		79
79	GetOptions(	80	GetOptions(
80	'o\|output:s' => \$outfile,	81	'o\|output:s' => \$outfile,
81	'v' => \$verbose,	82	'v' => \$verbose,
82	'lang:s' => \$language,	83	'lang:s' => \$language,
83	'type:s' => \@types,	84	'type:s' => \@types,
84	'w\|waiting-hold-day:s' => \@holds_waiting_days_to_call,	85	'w\|waiting-hold-day:s' => \@holds_waiting_days_to_call,
85	'c\|code\|library-code:s' => \$library_code,	86	'c\|code\|library-code:s' => \$library_code,
86	's\|skip-patrons-with-email' => \$skip_patrons_with_email,	87	's\|skip-patrons-with-email' => \$skip_patrons_with_email,
87	'pb\|patron-branchcode:s' => \$patron_branchcode,	88	'pb\|patron-branchcode:s' => \$patron_branchcode,
88	'h\|help' => \$help,	89	'tt\|template-toolkit' => \$use_tt,
		90	'h\|help' => \$help,
89	);	91	);
90		92
91	$language = uc($language);	93	$language = uc($language);
Lines 141-149 foreach my $type (@types) { Link Here
141	letter_code => $code,	143	letter_code => $code,
142	lang => 'default', # It does not sound useful to send a lang here	144	lang => 'default', # It does not sound useful to send a lang here
143	tables => {	145	tables => {
144	borrowers => $issues->{'borrowernumber'},	146	borrowers => $issues->{borrowernumber},
145	biblio => $issues->{'biblionumber'},	147	biblio => $issues->{biblionumber},
146	biblioitems => $issues->{'biblionumber'},	148	biblioitems => $issues->{biblionumber},
		149	items => $issues->{itemnumber},
		150	issues => $issues->{itemnumber},
		151	branches => $issues->{site},
		152	},
		153	substitute => {
		154	format => $format,
		155	language => $language,
		156	type => $type,
		157	level => $issues->{level},
		158	library_code => $library_code,
		159	due_date => $due_date,
147	},	160	},
148	message_transport_type => 'phone',	161	message_transport_type => 'phone',
149	);	162	);
Lines 160-168 foreach my $type (@types) { Link Here
160	);	173	);
161	}	174	}
162		175
163	print $OUT "\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\",";	176	if ( $use_tt ) {
164	print $OUT "\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\",";	177	$letter->{content} =~ s/__MESSAGE_ID__/$message_id/g;
165	print $OUT "\"$issues->{site}\",\"$issues->{site_name}\",\"$issues->{barcode}\",\"$due_date\",\"$issues->{title}\",\"$message_id\"\n";	178	print $OUT $letter->{content};
		179	} else {
		180	print $OUT "\"$format\",\"$language\",\"$type\",\"$issues->{level}\",\"$issues->{cardnumber}\",\"$issues->{patron_title}\",\"$issues->{firstname}\",";
		181	print $OUT "\"$issues->{surname}\",\"$issues->{phone}\",\"$issues->{email}\",\"$library_code\",";
		182	print $OUT "\"$issues->{site}\",\"$issues->{site_name}\",\"$issues->{barcode}\",\"$due_date\",\"$issues->{title}\",\"$message_id\"\n";
		183	}
166	}	184	}
167	}	185	}
168		186
Lines 230-235 OPTIONAL Link Here
230	Limits the the patrons to generate notices for based on the patron's home library.	248	Limits the the patrons to generate notices for based on the patron's home library.
231	Items and holds from other libraries will still be included for the given patron.	249	Items and holds from other libraries will still be included for the given patron.
232		250
		251	=item B<--template-toolkit>
		252
		253	OPTIONAL. If set, processes the notice content as Template Toolkit syntax and sends the content as the CSV line instead
		254	of generated a fixed CSV line. This allows the contents of the CSV file to be created dynamically instead of using the
		255	fixed format that is outputted without this flag.
		256
233	=back	257	=back
234		258
235	=cut	259	=cut
Lines 242-248 sub GetOverdueIssues { Link Here
242	my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,	266	my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,
243	borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, issues.date_due,	267	borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, issues.date_due,
244	max(overduerules.branchcode) as rulebranch, TO_DAYS(NOW())-TO_DAYS(date_due) as daysoverdue, delay1, delay2, delay3,	268	max(overduerules.branchcode) as rulebranch, TO_DAYS(NOW())-TO_DAYS(date_due) as daysoverdue, delay1, delay2, delay3,
245	issues.branchcode as site, branches.branchname as site_name	269	issues.branchcode as site, branches.branchname as site_name, items.itemnumber
246	FROM borrowers JOIN issues USING (borrowernumber)	270	FROM borrowers JOIN issues USING (borrowernumber)
247	JOIN items USING (itemnumber)	271	JOIN items USING (itemnumber)
248	JOIN biblio USING (biblionumber)	272	JOIN biblio USING (biblionumber)
Lines 283-289 sub GetPredueIssues { Link Here
283		307
284	my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,	308	my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,
285	borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, issues.date_due,	309	borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, issues.date_due,
286	issues.branchcode as site, branches.branchname as site_name	310	issues.branchcode as site, branches.branchname as site_name, items.itemnumber
287	FROM borrowers JOIN issues USING (borrowernumber)	311	FROM borrowers JOIN issues USING (borrowernumber)
288	JOIN items USING (itemnumber)	312	JOIN items USING (itemnumber)
289	JOIN biblio USING (biblionumber)	313	JOIN biblio USING (biblionumber)
Lines 313-319 sub GetWaitingHolds { Link Here
313		337
314	my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,	338	my $query = "SELECT borrowers.borrowernumber, borrowers.cardnumber, borrowers.title as patron_title, borrowers.firstname, borrowers.surname,
315	borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, reserves.waitingdate,	339	borrowers.phone, borrowers.email, borrowers.branchcode, biblio.biblionumber, biblio.title, items.barcode, reserves.waitingdate,
316	reserves.branchcode AS site, branches.branchname AS site_name,	340	reserves.branchcode AS site, branches.branchname AS site_name, items.itemnumber,
317	TO_DAYS(NOW())-TO_DAYS(reserves.waitingdate) AS days_since_waiting	341	TO_DAYS(NOW())-TO_DAYS(reserves.waitingdate) AS days_since_waiting
318	FROM borrowers JOIN reserves USING (borrowernumber)	342	FROM borrowers JOIN reserves USING (borrowernumber)
319	JOIN items USING (itemnumber)	343	JOIN items USING (itemnumber)
320	-