use C4::Templates qw/themelanguage/;
use C4::Koha;
use Koha::DateUtils;
+use Koha::Patrons;
+use Koha::Reports;
use C4::Output;
use C4::Debug;
use C4::Log;
+use Koha::Notice::Templates;
+use C4::Letters;
use Koha::AuthorisedValues;
use Koha::Patron::Categories;
+use Koha::SharedContent;
BEGIN {
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
get_report_types get_report_areas get_report_groups get_columns build_query get_criteria
- save_report get_saved_reports execute_query get_saved_report create_compound run_compound
+ save_report get_saved_reports execute_query
get_column_type get_distinct_values save_dictionary get_from_dictionary
delete_definition delete_report format_results get_sql
nb_rows update_sql
sub execute_query {
- my ( $sql, $offset, $limit, $sql_params ) = @_;
+ my ( $sql, $offset, $limit, $sql_params, $report_id ) = @_;
$sql_params = [] unless defined $sql_params;
}
$sql .= " LIMIT ?, ?";
- my $sth = C4::Context->dbh->prepare($sql);
+ my $dbh = C4::Context->dbh;
+
+ $dbh->do( 'UPDATE saved_sql SET last_run = NOW() WHERE id = ?', undef, $report_id ) if $report_id;
+
+ my $sth = $dbh->prepare($sql);
$sth->execute(@$sql_params, $offset, $limit);
+
return ( $sth, { queryerr => $sth->errstr } ) if ($sth->err);
return ( $sth );
}
my (@ids) = @_;
return unless @ids;
foreach my $id (@ids) {
- my $data = get_saved_report($id);
- logaction( "REPORTS", "DELETE", $id, "$data->{'report_name'} | $data->{'savedsql'} " ) if C4::Context->preference("ReportsLog");
+ my $data = Koha::Reports->find($id);
+ logaction( "REPORTS", "DELETE", $id, $data->report_name." | ".$data->savedsql ) if C4::Context->preference("ReportsLog");
}
my $dbh = C4::Context->dbh;
my $query = 'DELETE FROM saved_sql WHERE id IN (' . join( ',', ('?') x @ids ) . ')';
return $result;
}
-sub get_saved_report {
- my $dbh = C4::Context->dbh();
- my $query;
- my $report_arg;
- if ($#_ == 0 && ref $_[0] ne 'HASH') {
- ($report_arg) = @_;
- $query = " SELECT * FROM saved_sql WHERE id = ?";
- } elsif (ref $_[0] eq 'HASH') {
- my ($selector) = @_;
- if ($selector->{name}) {
- $query = " SELECT * FROM saved_sql WHERE report_name = ?";
- $report_arg = $selector->{name};
- } elsif ($selector->{id} || $selector->{id} eq '0') {
- $query = " SELECT * FROM saved_sql WHERE id = ?";
- $report_arg = $selector->{id};
- } else {
- return;
- }
- } else {
- return;
- }
- return $dbh->selectrow_hashref($query, undef, $report_arg);
-}
-
-=head2 create_compound($masterID,$subreportID)
-
-This will take 2 reports and create a compound report using both of them
-
-=cut
-
-sub create_compound {
- my ( $masterID, $subreportID ) = @_;
- my $dbh = C4::Context->dbh();
-
- # get the reports
- my $master = get_saved_report($masterID);
- my $mastersql = $master->{savedsql};
- my $mastertype = $master->{type};
- my $sub = get_saved_report($subreportID);
- my $subsql = $master->{savedsql};
- my $subtype = $master->{type};
-
- # now we have to do some checking to see how these two will fit together
- # or if they will
- my ( $mastertables, $subtables );
- if ( $mastersql =~ / from (.*) where /i ) {
- $mastertables = $1;
- }
- if ( $subsql =~ / from (.*) where /i ) {
- $subtables = $1;
- }
- return ( $mastertables, $subtables );
-}
-
=head2 get_column_type($column)
This takes a column name of the format table.column and will return what type it is
$sth->execute($id);
}
+=head2 get_sql($report_id)
+
+Given a report id, return the SQL statement for that report.
+Otherwise, it just returns.
+
+=cut
+
sub get_sql {
my ($id) = @_ or return;
my $dbh = C4::Context->dbh();
sub get_results {
my ( $report_id ) = @_;
my $dbh = C4::Context->dbh;
- warn $report_id;
return $dbh->selectall_arrayref(q|
SELECT id, report, date_run
FROM saved_reports
return \@problematic_parameters;
}
+=head2 EmailReport
+
+ my ( $emails, $arrayrefs ) = EmailReport($report_id, $letter_code, $module, $branch, $email)
+
+Take a report and use it to process a Template Toolkit formatted notice
+Returns arrayrefs containing prepared letters and errors respectively
+
+=cut
+
+sub EmailReport {
+
+ my $params = shift;
+ my $report_id = $params->{report_id};
+ my $from = $params->{from};
+ my $email = $params->{email};
+ my $module = $params->{module};
+ my $code = $params->{code};
+ my $branch = $params->{branch} || "";
+
+ my @errors = ();
+ my @emails = ();
+
+ return ( undef, [{ FATAL => "MISSING_PARAMS" }] ) unless ($report_id && $module && $code);
+
+ return ( undef, [{ FATAL => "NO_LETTER" }] ) unless
+ my $letter = Koha::Notice::Templates->find({
+ module => $module,
+ code => $code,
+ branchcode => $branch,
+ message_transport_type => 'email',
+ });
+ $letter = $letter->unblessed;
+
+ my $report = Koha::Reports->find( $report_id );
+ my $sql = $report->savedsql;
+ return ( { FATAL => "NO_REPORT" } ) unless $sql;
+
+ my ( $sth, $errors ) = execute_query( $sql ); #don't pass offset or limit, hardcoded limit of 999,999 will be used
+ return ( undef, [{ FATAL => "REPORT_FAIL" }] ) if $errors;
+
+ my $counter = 1;
+ my $template = $letter->{content};
+
+ while ( my $row = $sth->fetchrow_hashref() ) {
+ my $email;
+ my $err_count = scalar @errors;
+ push ( @errors, { NO_BOR_COL => $counter } ) unless defined $row->{borrowernumber};
+ push ( @errors, { NO_EMAIL_COL => $counter } ) unless ( (defined $email && defined $row->{$email}) || defined $row->{email} );
+ push ( @errors, { NO_FROM_COL => $counter } ) unless defined ( $from || $row->{from} );
+ push ( @errors, { NO_BOR => $row->{borrowernumber} } ) unless Koha::Patrons->find({borrowernumber=>$row->{borrowernumber}});
+
+ my $from_address = $from || $row->{from};
+ my $to_address = $email ? $row->{$email} : $row->{email};
+ push ( @errors, { NOT_PARSE => $counter } ) unless my $content = _process_row_TT( $row, $template );
+ $counter++;
+ next if scalar @errors > $err_count; #If any problems, try next
+
+ $letter->{content} = $content;
+ $email->{borrowernumber} = $row->{borrowernumber};
+ $email->{letter} = $letter;
+ $email->{from_address} = $from_address;
+ $email->{to_address} = $to_address;
+
+ push ( @emails, $email );
+ }
+
+ return ( \@emails, \@errors );
+
+}
+
+
+
+=head2 ProcessRowTT
+
+ my $content = ProcessRowTT($row_hashref, $template);
+
+Accepts a hashref containing values and processes them against Template Toolkit
+to produce content
+
+=cut
+
+sub _process_row_TT {
+
+ my ($row, $template) = @_;
+
+ return 0 unless ($row && $template);
+ my $content;
+ my $processor = Template->new();
+ $processor->process( \$template, $row, \$content);
+ return $content;
+
+}
+
sub _get_display_value {
my ( $original_value, $column ) = @_;
if ( $column eq 'periodicity' ) {
return $original_value;
}
+
+=head3 convert_sql
+
+my $updated_sql = C4::Reports::Guided::convert_sql( $sql );
+
+Convert a sql query using biblioitems.marcxml to use the new
+biblio_metadata.metadata field instead
+
+=cut
+
+sub convert_sql {
+ my ( $sql ) = @_;
+ my $updated_sql = $sql;
+ if ( $sql =~ m|biblioitems| and $sql =~ m|marcxml| ) {
+ $updated_sql =~ s|biblioitems|biblio_metadata|g;
+ $updated_sql =~ s|marcxml|metadata|g;
+ }
+ return $updated_sql;
+}
+
1;
__END__