has
'tablename'
=>
""
;
sub
create_index(
$self
) {
my
$sql
=
""
;
my
$json
=
$self
->json->{
index
};
my
$length
=
scalar
@{
$json
};
for
(
my
$i
= 0;
$i
<
$length
;
$i
++) {
my
$template
=
$self
->templates->get_data_section(
'index'
);
my
$table_name
=
$self
->tablename;
$template
=~ s/<<table>>/
$table_name
/ig;
$template
=~ s/<<type>>/@{
$json
}[
$i
]->{type}/ig;
$template
=~ s/<<fields>>/@{
$json
}[
$i
]->{fields}/ig;
@{
$json
}[
$i
]->{fields} =~ s/,/_/ig;
$template
=~ s/<<field_names>>/@{
$json
}[
$i
]->{fields}/ig;
$sql
.=
$template
.
""
;
}
$self
->set_sql(
$sql
);
return
;
}
1;