| Line 236... |
Line 236... |
| 236 |
<% $hashChecks{'fm'}{'id'} %> }else{
|
236 |
<% $hashChecks{'fm'}{'id'} %> }else{
|
| 237 |
<% $hashChecks{'fm'}{'id'} %> $remoteIp= %ENV->{'REMOTE_ADDR'};
|
237 |
<% $hashChecks{'fm'}{'id'} %> $remoteIp= %ENV->{'REMOTE_ADDR'};
|
| 238 |
<% $hashChecks{'fm'}{'id'} %> }
|
238 |
<% $hashChecks{'fm'}{'id'} %> }
|
| 239 |
<% $hashChecks{'fm'}{'id'} %> $cmd_action = 'enableclass';
|
239 |
<% $hashChecks{'fm'}{'id'} %> $cmd_action = 'enableclass';
|
| 240 |
|
240 |
|
| - |
|
241 |
<% $hashChecks{'fm'}{'id'} %> my $curaula = _getField($dbh, 'classlayout', 'id', 'where pcip=?', $remoteIp); ###030128
|
| - |
|
242 |
<% $hashChecks{'fm'}{'id'} %> my $classpersis = _getField($dbh, 'class', 'classroompersistent', 'where id=?', $classid); ###030128
|
| - |
|
243 |
<% $hashChecks{'fm'}{'id'} %> $rooms = "-room $curaula";
|
| - |
|
244 |
<% $hashChecks{'fm'}{'id'} %> $rooms .= ($classpersis) ? ' -room ' . $classpersis : '';
|
| - |
|
245 |
|
| 241 |
<% $hashChecks{'fm'}{'id'} %> if($classpermision =~ m/[[class_permision_YI]]/ ){
|
246 |
<% $hashChecks{'fm'}{'id'} %> if($classpermision =~ m/[[class_permision_YI]]/ ){
|
| 242 |
<% $hashChecks{'fm'}{'id'} %> my $listusr4web = '';
|
247 |
<% $hashChecks{'fm'}{'id'} %> my $listusr4web = '';
|
| 243 |
<% $hashChecks{'fm'}{'id'} %> if($classpermision =~ m/[[usr_permision_WW]]/){
|
248 |
<% $hashChecks{'fm'}{'id'} %> if($classpermision =~ m/[[usr_permision_WW]]/){
|
| 244 |
<% $hashChecks{'fm'}{'id'} %> $listusr4web = _getStudentOfClass($dbh, $classid, '4web');
|
249 |
<% $hashChecks{'fm'}{'id'} %> $listusr4web = _getStudentOfClass($dbh, $classid, '4web');
|
| 245 |
<% $hashChecks{'fm'}{'id'} %> }
|
250 |
<% $hashChecks{'fm'}{'id'} %> }
|
| 246 |
<% $hashChecks{'fm'}{'id'} %> my $teacherid = _getUsrConnectInfo($dbh, 'usrid');
|
251 |
<% $hashChecks{'fm'}{'id'} %> my $teacherid = _getUsrConnectInfo($dbh, 'usrid');
|
| 247 |
<% $hashChecks{'fm'}{'id'} %> my $curaula = _getField($dbh, 'classlayout', 'id', 'where pcip=?', $remoteIp); ###030128
|
- |
|
| 248 |
<% $hashChecks{'fm'}{'id'} %> my $classpersis = _getField($dbh, 'class', 'classroompersistent', 'where id=?', $classid); ###030128
|
- |
|
| 249 |
<% $hashChecks{'fm'}{'id'} %> $rooms = "-room $curaula";
|
- |
|
| 250 |
<% $hashChecks{'fm'}{'id'} %> $rooms .= ($classpersis) ? ' -room ' . $classpersis : '';
|
- |
|
| 251 |
<% $hashChecks{'fm'}{'id'} %> my $sitefm = _getField($dbh, 'class', 'sitefm', 'where id=?', $classid);
|
252 |
<% $hashChecks{'fm'}{'id'} %> my $sitefm = _getField($dbh, 'class', 'sitefm', 'where id=?', $classid);
|
| 252 |
<% $hashChecks{'fm'}{'id'} %> my $siteok = _getField($dbh, 'class', 'siteok', 'where id=?', $classid);
|
253 |
<% $hashChecks{'fm'}{'id'} %> my $siteok = _getField($dbh, 'class', 'siteok', 'where id=?', $classid);
|
| 253 |
<% $hashChecks{'fm'}{'id'} %> my $sitebad = _getField($dbh, 'class', 'sitebad', 'where id=?', $classid);
|
254 |
<% $hashChecks{'fm'}{'id'} %> my $sitebad = _getField($dbh, 'class', 'sitebad', 'where id=?', $classid);
|
| 254 |
<% $hashChecks{'fm'}{'id'} %> $keyvalue = '[[class_status_active]]';
|
255 |
<% $hashChecks{'fm'}{'id'} %> $keyvalue = '[[class_status_active]]';
|
| 255 |
|
256 |
|