."month tinyint not null,"
."month_last tinyint not null,"
."sequential smallint not null,"
- ."contents text not null"
+ ."contents text null"
.")");
&db_do("alter table $tb_obsah add unique (year,month)");
$_=$contents;
return if !defined $_;
if (!$_) {
- print("Empty contents".&where()."!\n");
+ # Permitted to show just the title image
+ #print("Empty contents".&where()."!\n");
}
else {
tr/ \t\n/ \n/s;
tr/\002//d;
$_=substr($_,1);
}
- $insert_tb_obsah->execute($year,$month,$month_last,$sequential,$_) or die "SQL insert failure: $!";
+ $insert_tb_obsah->execute($year,$month,$month_last,$sequential,($_ || undef())) or die "SQL insert failure: $!";
undef $year,$month;
undef $contents;
undef $first;