#!/usr/bin/perl use strict; use warnings; use CGI; use SAL::DBI; use SAL::WebDDR; print "Content-type: text/html\n\n"; my $report_title = 'Report Test Page'; my $q = new CGI; my $self_url = $q->script_name(); my $dbo_factory = new SAL::DBI; my $dbo_data = $dbo_factory->spawn_sqlite(':memory:'); my $gui = new SAL::WebDDR; ####################################################################################################################### # Build a sample report... my $report_query = qq[create table ReportData (dfm varchar(255), name varchar(255), purchases int(11), sort int(11))]; $dbo_data->do($report_query); my $header_dfm = qq|[strong bg=#dddddd solid_over solid_under]|; my $totals_dfm = qq|[strong dashed_over solid_under]|; $report_query = qq[insert into ReportData values('$header_dfm Data Formatting Tags','Customer','Purchases','0')]; $dbo_data->do($report_query); $report_query = qq[insert into ReportData values(' ','Morris','30','1')]; $dbo_data->do($report_query); $report_query = qq[insert into ReportData values(' ','Albert','22','1')]; $dbo_data->do($report_query); $report_query = qq[insert into ReportData values(' ','Tina','14','1')]; $dbo_data->do($report_query); $report_query = qq[insert into ReportData values(' ','John','2','1')]; $dbo_data->do($report_query); $report_query = qq[insert into ReportData values(' ','Jane','19','1')]; $dbo_data->do($report_query); $report_query = qq[insert into ReportData values('$totals_dfm','Totals','0','999')]; # we'll replace this 0 later... $dbo_data->do($report_query); ####################################################################################################################### # Query Section $report_query = 'SELECT * FROM ReportData ORDER BY sort, name'; my ($w, $h) = $dbo_data->execute($report_query); ####################################################################################################################### # Preprocessing Section # Setup some constants for ease of reading my $DFMCol = 0; my $NameCol = 1; my $PurchasesCol = 2; my $SortCol = 3; my $total_purchases = 0; for (my $y=0; $y <= $h; $y++) { my $dtmp = $dbo_data->{data}->[$y][$PurchasesCol]; if ($dtmp > 0) { $total_purchases += $dtmp; } elsif ( $dbo_data->{data}->[$y][$SortCol] == '999' ) { $dbo_data->{data}->[$y][$PurchasesCol] = $total_purchases; } } ####################################################################################################################### # Display Section $gui->{datasource} = $dbo_data; $gui->{dfm_column} = '0'; $gui->{skip_fields} = 's 0 3 s'; $gui->{default_font_style} = 'font-size: 12px;'; my $report = $gui->build_report(); my $interface = build_interface(); my $toolbar = build_toolbar(); print qq[ $report_title $toolbar $report $interface ]; sub build_interface { my $content; $content .= qq[ Report Options
Back to top Change report type Print report
Add interface form for adding report criteria here.
]; return $content; } sub build_toolbar { my $interface_icon = "\"Report "; my $help_icon = qq[Help ]; return qq[
$report_title $interface_icon $help_icon

]; }