package FormCSVConfig
@ISA = qw()

sub pConfig
return shift->{pConfig};

sub pFormItem
return shift->{pFormItem};

sub pParams
return shift->{pParams};

sub new
my ($module) = @_;
#	$this->SUPER::new(
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub ReadCSVFile
my ($this, $infile, $pHash) = @_;
return undef;
return (\%Config, \%FormItem, $pParams, \%Label, \@DBList);

sub BuildReplaceHash
my ($this, $pHash, $TargetCharCode, $SourceCharCode, $App) = @_;
return $pParams;

sub FillCheckboxParams
my ($this, $pParams, $FormItem, $value) = @_;

sub GetFormItemString
my ($this, $pParams, $FormItem, $Key) = @_;
return $pSel->[$i]{Label};
return $Key;

sub GetSubmitFormString
my ($this, $pParams, $FormItem, $CurVal) = @_;
return "<input type=\"submit\" value=\"$Label\" name=\"$FormName\">";

sub GetTextAreaFormString
my ($this, $pParams, $FormItem, $CurVal) = @_;
return "<TEXTAREA ROWS=\"$nRow\" COLS=\"$Length\" NAME=\"$FormName\">$CurVal</TEXTAREA>";

sub GetTextboxFormString
my ($this, $pParams, $FormItem, $CurVal) = @_;
return "<INPUT class='text' TYPE=\"text\" SIZE=\"$Length\" NAME=\"$FormName\" VALUE=\"$CurVal\">";

sub GetSelectionString
my ($this, $pParams, $FormItem, $CurVal) = @_;
return $label;
return 'Unkown';

sub GetSelectionFormString
my ($this, $pParams, $FormItem, $CurVal) = @_;
return $str;

sub GetCheckboxListString
my ($this, $pParams, $FormItem) = @_;
return $s;

sub GetCheckboxListFormString
my ($this, $pParams, $FormItem) = @_;
return $s;

sub MakeCSVFile
my ($this, $DB, $OutFilePath, $CSVFileCharCode, $DBTableName, $sql, %args) = @_;
return 0;
return $nHit;

sub MakeInputFormTemplateHTML
my ($this, $pParams, $OutFilePath, $OutputFileCharCode, $OutputFileCharSet, $target, %args) = @_;
return 0;
return 1;

sub MakeConfirmPageTemplateHTML
my ($this, $pParams, $OutFilePath, $OutputFileCharCode, $OutputFileCharSet, $target, %args) = @_;
return 0;
return 1;

sub MakeCompletePageTemplateHTML
my ($this, $pParams, $OutFilePath, $OutputFileCharCode, $OutputFileCharSet, $target, %args) = @_;
return 0;
return 1;

sub MakeCSVTemplate
my ($this, $pParams, $OutFilePath, $OutputFileCharCode, %args) = @_;
return 0;
return 1;