| Line 23... |
Line 23... |
| 23 |
my $DEBUG = 0;
|
23 |
my $DEBUG = 0;
|
| Line 24... |
Line 24... |
| 24 |
|
24 |
|
| 25 |
my $classid = param ("classid") // get_query_string_param ("classid");
|
25 |
my $classid = param ("classid") // get_query_string_param ("classid");
|
| Line 26... |
Line 26... |
| 26 |
error ("No ClassID.") unless $classid;
|
26 |
error ("No ClassID.") unless $classid;
|
| 27 |
|
27 |
|
| Line 28... |
Line 28... |
| 28 |
my ($registered) = $dbh->selectrow_array ("select id from v_class_signup where id = ? and RCid = ?", undef, $classid, $ORCUSER->{RCid});
|
28 |
my ($registered) = $dbh->selectrow_array ("select id from v_class_signup_new where id = ? and RCid = ?", undef, $classid, $ORCUSER->{RCid});
|
| 29 |
error ("You don't appear to be registered for this class.") unless $registered;
|
29 |
error ("You don't appear to be registered for this class.") unless $registered;
|
| Line 30... |
Line 30... |
| 30 |
|
30 |
|
| 31 |
my ($started) = $dbh->selectrow_array ("select id from v_class_signup where id = ? and RCid = ? and concat_ws(date, end_time) < date_sub(now(), interval 2 hour)", undef, $classid, $ORCUSER->{RCid});
|
31 |
my ($started) = $dbh->selectrow_array ("select id from v_class_signup_new where id = ? and RCid = ? and concat_ws(date, end_time) < date_sub(now(), interval 2 hour)", undef, $classid, $ORCUSER->{RCid});
|
| Line 144... |
Line 144... |
| 144 |
]),
|
144 |
]),
|
| 145 |
]);
|
145 |
]);
|
| Line 146... |
Line 146... |
| 146 |
|
146 |
|
| Line 147... |
Line 147... |
| 147 |
print $h->div ({ id=>"savedmsg", class=>"saved fadeOut"}, "Changes Saved!") unless !$saved;
|
147 |
print $h->div ({ id=>"savedmsg", class=>"saved fadeOut"}, "Changes Saved!") unless !$saved;
|
| 148 |
|
148 |
|
| 149 |
my ($CREF) = $dbh->selectrow_hashref ("select * from v_class where id = ?", undef, $classid);
|
149 |
my ($CREF) = $dbh->selectrow_hashref ("select * from v_class_new where id = ?", undef, $classid);
|
| 150 |
$CREF->{time} = convertTime $CREF->{time};
|
150 |
$CREF->{time} = convertTime $CREF->{time};
|
| 151 |
$CREF->{date} = $CREF->{date}." [".$CREF->{dayofweek}."]";
|
151 |
$CREF->{date} = $CREF->{date}." [".$CREF->{dayofweek}."]";
|
| 152 |
print $h->ul ( { style=>"max-width:610px" }, [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
|
152 |
print $h->ul ( { style=>"max-width:610px" }, [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
|