close($o);
my $sql;
+my @sql_location;
my $view2number;
open(my $n, '<', 'subvision-numbers.txt');
};
}
+ push @sql_location, qq{
+select
+ to_char(time, 'YYYY-MM-DD HH24:MI:SS') as time, x_axis_angle + $offset_x as x_axis_angle, y_axis_angle + $offset_y as y_axis_angle, sensor_temperature, power_source_voltage, zc.pn
+from zc
+where pn = $pn $time
+};
+
}
close($n);
</body>
};
+print $sql_fh qq{
+drop view sub_$filter ;
+create or replace view sub_$filter as
+}, join(' union ', @sql_location) . qq{
+ order by 1 asc
+};