}
}
-if (!defined $tags) {$tags = 'Circs.Holds.Actors.Bibs.Assets.Money'};
+if (!defined $tags) {$tags = 'circs.holds.actors.bibs.assets.money'};
if (!defined $analyst) { abort('--analyst must be supplied'); }
if (!defined $report_title) { abort('--report_title must be supplied'); }
my $mig_path = abs_path($0);
$mig_path =~ s|[^/]+$||;
-if (!defined $reports_xml) { $reports_xml = $mig_path . '../mig-xml/evergreen_staged_report.xml'; }
+if (!defined $reports_xml) { $reports_xml = $mig_path . '../mig-xml/evergreen_staged_report.xml'; }
+ else { $reports_xml = $mig_path . '/../mig-xml/' . $reports_xml; }
print "$reports_xml \n";
my $dom = $parser->parse_file($reports_xml);
if (defined $added_page_file or defined $added_page_title) {
abort('must specify --added_page_file and --added_page_title') unless defined $added_page_file and defined $added_page_title;
}
-if ($MIGSCHEMA eq 'full') { $MIGSCHEMA = ''; }
+if (defined $added_page_file) { $added_page_file = $MIGGITDIR . $added_page_file; }
my $dbh = Mig::db_connect();
my $report_file = create_report_name($report_title);
$report_file = $MIGGITDIR . $report_file;
-my $mig_func_schema = $MIGSCHEMA;
open(my $fh, '>', $report_file) or die "Could not open output file!";
my $fdrop = $func->findvalue('./drop');
my $fcreate = $func->findvalue('./create');
my $fname = $func->findvalue('./name');
- $fdrop =~ s/mig_func_schema/$mig_func_schema/g;
- $fcreate =~ s/mig_func_schema/$mig_func_schema/g;
my $sdrop = $dbh->prepare($fdrop);
my $screate = $dbh->prepare($fcreate);
print "dropping function $fname ... ";
$screate->execute();
}
-
-
+$tags = lc($tags);
my @report_tags = split(/\./,$tags);
foreach my $t (@report_tags) {
print "\n\n=========== Starting to process tag $t\n";
print Dumper(@report_names);
#only has one level of failover now but could change to array of hashes and loops
+ #but this keeps it simple and in practice I haven't needed more than two
foreach my $rname (@report_names) {
my %report0;
my %report1;
}
}
}
-# end of main logic
print "\n";
close $fh;
+############ end of main logic
+
sub find_report {
my $dom = shift;
my $tag = shift;
my $i = 0;
my $return_flag = 1;
my @qe = split(/ /,$query);
- my @tables = grep /mig_schema/, @qe;
+ my @tables = grep /MIGSCHEMA/, @qe;
print "checking tables ... ";
foreach my $table (@tables) {
- $table =~ s/mig_schema.//g;
+ $table =~ s/MIGSCHEMA.//g;
$table =~ s/\)//g;
$table =~ s/\<//g;
my $sql = 'SELECT EXISTS (SELECT 1 FROM information_schema.tables WHERE table_schema = \'' . $MIGSCHEMA . '\' AND table_name = \'' . $table . '\');';
my $fh = shift;
my %report = @_;
my $query = $report{query};
- $query =~ s/mig_schema/$MIGSCHEMA/g;
- $query =~ s/mig_func_schema/$mig_func_schema/g;
+ print "$query\n";
my $sth = $dbh->prepare($query);
$sth->execute();