package SearchPaperDB
@ISA = qw()

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

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

sub Debug
return $Debug;

sub WebRoot
return $WebRoot;

sub CGIPath
return $CGIPath;

sub InFileDir
return $InFileDir;

sub DBMName
return $DBMName;

sub SQLServer
return $DBServer;

sub SQLUser
return $DBUser;

sub SQLPassword
return $DBPassword;

sub SQLDBName
return $DBName;

sub SQLPapersTableName
return $PapersTableName;

sub FileSystemCharCode
return $FileSystemCharCode;

sub SQLCharCode
return $MySQLCharCode;

sub WebCharCode
return $WebCharCode;

sub WebCharSet
return $WebCharSet;

sub sendmail
return $sendmail;

sub sed
return $sed;

sub GetContactMessage
return $ContactMessage;

sub BuildRegistrationCode
my $sn = shift;
my $email = shift;
return $date . $sn . int(rand(1000)) . $email;

sub BuildSearchKey
my ($year, $volume, $pages, $authors, 
		$journal, $title, $journaltype) = (@_);

sub SplitAuthorListToNames
my ($str) = (@_);
return @names;

sub SplitName
my ($name) = (@_);
return @names;

sub ConvertAuthors
		$firstnameinitial) = (
return $rAuthors;

sub ConvertTitle
	my($ConvTitle, $rule) = (
return $ConvTitle;
return $ConvTitle;

sub ConstructSQL
my ($key0,$target0) = (@_);
return $sql0;