# ================================================================== # 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{$_}
" if ( $hash{$_} ); } return "$output"; } 1;