# ==================================================================
# DBman SQL - enhanced database management system
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#
# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

package Dbsql::Custom;
# ==================================================================
#
	use Dbsql qw/$DB $IN $CFG/;
	use strict;
    
#===================================================================

sub display() {
# Maps form_names to form_values and displays them
	my $col = shift;
	my $tags = GT::Template->tags;
	my $cols = $tags->{home}->{db}->cols;

	my $record  = $tags->{results}[$tags->{row_num} - 1];
	my $values   = $cols->{$col}->{'form_values'};
	my $names    = $cols->{$col}->{'form_names'};
	my @selected = split(/\n/, $record->{$col});
	my (%hash, $output);
	
	for (0 .. $#{$names}) {
	    $hash{$names->[$_]} = $values->[$_];
	}
	foreach ( @selected ) {
	  $output .= "$hash{$_}<br />" if ( $hash{$_} );
	}

	return "$output";
}


1;