@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_saved_report
get_column_type get_distinct_values save_dictionary get_from_dictionary
delete_definition delete_report format_results get_sql
nb_rows update_sql
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)
</form>
[% END %]
-[% IF ( compound ) %]
-<form action="/cgi-bin/koha/reports/guided_reports.pl" method="post">
-Master: <select name="master">
-[% FOREACH savedreport IN savedreports %]
-<option value="[% savedreport.id %]">[% savedreport.report_name %]</option>
-[% END %]
-</select>
-
-Sub report:<select name="subreport">
-[% FOREACH savedreport IN savedreports %]
-<option value="[% savedreport.id %]">[% savedreport.report_name %]</option>
-[% END %]
-</select>
-<br />
-<input type="hidden" name="phase" value="Save Compound" />
-<input type="submit" name="submit" value="Save compound" />
-</form>
-[% END %]
-
-[% IF ( save_compound ) %]
-[% master %] <br />
-[% subsql %]
-[% END %]
-
-
[% IF saved_results %]
<h1>Saved report results</h1>
<h2>[% name %]</h2>
);
}
-elsif ($phase eq 'Create Compound Report'){
- $template->param( 'savedreports' => get_saved_reports(),
- 'compound' => 1,
- );
-}
-
-elsif ($phase eq 'Save Compound'){
- my $master = $input->param('master');
- my $subreport = $input->param('subreport');
- my ($mastertables,$subtables) = create_compound($master,$subreport);
- $template->param( 'save_compound' => 1,
- master=>$mastertables,
- subsql=>$subtables
- );
-}
-
# pass $sth, get back an array of names for the column headers
sub header_cell_values {
my $sth = shift or return ();