### Intialize static lists for $this_rep = "swr011b.hts"; @selectionList = ( "CONDITION.condition_codeI/CONDITION CODE"); @headers = ( 47, "Code", 100, "Note", 550, "Condition"); require "webrep.pl"; ### Main web report logic module ### Report specific subroutines sub DataSelect { # get data for full report &doFromWhere(); $select = qq ! SELECT CONDITION.condition_code, CONDITION.condition_note, CONDITION.condition_text $fromWhere ORDER BY $SORT ! ; } sub doFromWhere { #setut FROM and WHERE clauses if ($as_subsystem_code) { $andSubsys = qq !AND ( CONDITION.subsystem_code = "$as_subsystem_code" )!; } $fromWhere = qq ! FROM CONDITION WHERE $selectionCriteria ( CONDITION.condition_code > 0 ) $andSubsys !; } sub doFromWhereCount { #setut FROM and WHERE clauses if ($as_subsystem_code) { $andSubsys = qq !AND ( CONDITION.subsystem_code = "$as_subsystem_code" )!; } $fromWhere = qq ! FROM CONDITION WHERE $selectionCriteria ( CONDITION.condition_code > 0 ) $andSubsys !; } sub setTitle { print qq ! $subsystem CONDITION/PROVISION TEXT LISTING
REPORT WR011!; } sub setStuff { print qq !
FCC Satellite Earth Stations !; print qq ! Provision/Condition List
!; } sub doRows { my ($total) = $ws_form{COUNT}; if ($total == 0) { $total = $returned; } # if not specified use all $j = $linesPerTable; for ($i = 1; $i < $returned && $total-- > 0; ) { if ($j-- == 0) { $j = $linesPerTable -1; print ""; &tabletop(); &doColHeaders; print ""; } print ""; print $rs[$i++] ne "" ? $rs[$i-1] : ' '; for ($k = 0; $k++ < 2; ) { print ""; print $rs[$i++] ne "" ? $rs[$i-1] : ' '; } print ""; } }