#PSEUDO PERL CODE TO BUILD THE FLAT TEXT FILE #OUR DATABASE CALLS RETURN $rv - the number of rows AND $sth - the handle to the rowdata ($rv, $sth) = &Library_kofc::get_webring_entries($FORM, order=>"ID"); $last_id=1; for ($i=0; $i < $rv; $i++) { #GET ROWHASH RETURNS A HASH WITH THE NEXT ROW OF DATA IN THE HANDLE FROM THE DATABSE CALL $rowhash = &Library_kofc::get_rowhash($sth); if ($rowhash->{'id'} > $last_id) { #PRINT ANY BLANK ROWS FOR UNUSED IDS for ($j = 0; $j < ($rowhash->{'id'} - $last_id); $j++) { print "\n"; } $last_id = $rowhash->{'id'} } #PRINT A SINGLE LINE WITH THE INFORMATION TO SEARCH. THE INFORMATION SHOULD BE PERTINENT AND NOT TOO COPIOUS print "$rowhash->{'number'} $rowhash->{'name'} $rowhash->{'address1'} $rowhash->{'address2'}\n"; $last_id++; } #THIS CLEARS ANY MEMORY USED BY THE HANDLE &Library_kofc::finish($sth);