| Line 19... |
Line 19... |
| 19 |
my $class_name;
|
19 |
my $class_name;
|
| 20 |
my $cnhan = $dbh->prepare ("select id, name from class where year(date) = year(now())");
|
20 |
my $cnhan = $dbh->prepare ("select id, name from class where year(date) = year(now())");
|
| 21 |
$cnhan->execute ();
|
21 |
$cnhan->execute ();
|
| 22 |
while (my ($id, $name) = $cnhan->fetchrow_array ()) { $class_name->{$id} = $name; }
|
22 |
while (my ($id, $name) = $cnhan->fetchrow_array ()) { $class_name->{$id} = $name; }
|
| Line 23... |
Line 23... |
| 23 |
|
23 |
|
| 24 |
my $sth1 = $dbh->prepare("select distinct RCid from v_class_signup where year(date) = year(now()) order by RCid");
|
24 |
my $sth1 = $dbh->prepare("select distinct RCid from v_class_signup_new where year(date) = year(now()) order by RCid");
|
| Line 25... |
Line 25... |
| 25 |
my $sth2 = $dbh->prepare("select distinct id from v_class_signup where year(date) = year(now()) and RCid = ? order by id");
|
25 |
my $sth2 = $dbh->prepare("select distinct id from v_class_signup_new where year(date) = year(now()) and RCid = ? order by id");
|
| 26 |
|
26 |
|
| 27 |
$sth1->execute();
|
27 |
$sth1->execute();
|
| 28 |
while (my ($RCid) = $sth1->fetchrow_array()) {
|
28 |
while (my ($RCid) = $sth1->fetchrow_array()) {
|