■共闘組織 |
EOT
if ($pcid eq $leader){
$joint2 .=<<"EOT";
|
EOT
}
$x = 0;
$g = 0;
@j_seq_ary = ();
@j_lillust_ary = ();
@j_attribute_ary = ();
@j_name_ary = ();
@j_leader_ary = ();
@j_policy_ary = ();
@j_say_num_ary = ();
$sql = "select a.apply_base_seq,b.lillust,b.attribute,b.name,c.name1,b.policy,b.say_num from base_joint a,base b,character c where a.base_seq = $in{'seq'} and a.state = 1 and a.apply_base_seq = b.seq and b.state = 0 and b.leader = c.pcid order by b.seq;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
foreach(@$ref) {
($j_seq,$j_lillust,$j_attribute,$j_name,$j_leader,$j_policy,$j_say_num)=@{$_};
push j_seq_ary,$j_seq;
push j_lillust_ary,$j_lillust;
push j_attribute_ary,$j_attribute;
push j_name_ary,$j_name;
push j_leader_ary,$j_leader;
push j_policy_ary,$j_policy;
push j_say_num_ary,$j_say_num;
}
$sql = "select a.base_seq,b.lillust,b.attribute,b.name,c.name1,b.policy,b.say_num from base_joint a,base b,character c where a.apply_base_seq = $in{'seq'} and a.state = 1 and a.base_seq = b.seq and b.state = 0 and b.leader = c.pcid order by b.seq;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
foreach(@$ref) {
($j_seq,$j_lillust,$j_attribute,$j_name,$j_leader,$j_policy,$j_say_num)=@{$_};
push j_seq_ary,$j_seq;
push j_lillust_ary,$j_lillust;
push j_attribute_ary,$j_attribute;
push j_name_ary,$j_name;
push j_leader_ary,$j_leader;
push j_policy_ary,$j_policy;
push j_say_num_ary,$j_say_num;
}
$k = 0;
foreach (@j_seq_ary){
$j_seq = @j_seq_ary[$k];
$j_lillust = @j_lillust_ary[$k];
$j_attribute = @j_attribute_ary[$k];
$j_name = @j_name_ary[$k];
$j_leader = @j_leader_ary[$k];
$j_policy = @j_policy_ary[$k];
$j_say_num = @j_say_num_ary[$k];
$k++;
&atb_str($j_attribute);
if ($j_lillust eq ''){$j_lillust = $base_kanban_s;}
$sql2 = "select count(*) from base_member where base_seq = $j_seq and state = 0;";
$ref2 = $dbh->selectall_arrayref($sql2) or &err("エラーが発生しました。");
($j_member_cnt)=@{$ref2->[0]};
if ($j_member_cnt eq ''){$j_member_cnt = 0;}
$sql2 = "select base_seq,count(*) from base_member where state = 0 group by base_seq order by count(*) desc;";
$ref2 = $dbh->selectall_arrayref($sql2) or &err("エラーが発生しました。");
$number = 0;
foreach(@$ref2) {
($tmp)=@{$_};
$number++;
if ($tmp eq $j_seq){last;}
}
$joint1 .=<<"EOT";
$j_name($number位)
EOT
if ($x eq 0){
$x++;
$joint2 .=<<"EOT";
| $out{'head_title'}:$j_name | $out{'head_boss'}:$j_leader |
$out{'head_policy'}:$j_policy | 活動:$j_member_cnt/$j_say_num |
EOT
}
else{
$x = 0;
$joint2 .=<<"EOT";
| $out{'head_title'}:$j_name | $out{'head_boss'}:$j_leader |
$out{'head_policy'}:$j_policy | 活動:$j_member_cnt/$j_say_num |
EOT
}
$g++;
}
$joint2 .=<<"EOT";