|
_HTML_
# タイトル
print <<"_HTML_";
$pref{'title_str'} |
|
_HTML_
# フォーム
if ($query{'mode'} eq 'admin') {
my $tag_str = '使用可能タグ: ';
if (scalar(@{$pref{'tags'}})) {
my @tags = ();
foreach (@{$pref{'tags'}}) {
push(@tags, qq(<$_>));
}
$tag_str .= join(', ', @tags);
} else {
$tag_str .= '無し'
}
my %query_action_new = %query;
delete $query_action_new{'page'};
my $action_new = &set_query("./$pref{'this_file'}", \%query_action_new);
print <<"_HTML_";
_HTML_
}
# メインブロック終了
print <<"_HTML_";
|
|
_HTML_
# 表示順メニュー
if ($pref{'res'}) {
my $sort_menu = '';
if ($query{'sort'} eq 'update') {
my %query_by_no = %query;
delete $query_by_no{'sort'};
delete $query_by_no{'page'};
my $by_no = &set_query("./$pref{'this_file'}", \%query_by_no);
$sort_menu = qq(|