loncom/interface/lonmodifycourse.pm - diff

Return to lonmodifycourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2003/12/30 15:46:18	version 1.6, 2003/12/31 18:32:23
Line 222 all settings except course code, course	Line 222 all settings except course code, course
}	}
}	}
unless ( (grep/^$enrollvar{'courseowner'}$/,@local_ccs) \|\| ($enrollvar{'courseowner'} eq '') ) {	unless ( (grep/^$enrollvar{'courseowner'}$/,@local_ccs) \|\| ($enrollvar{'courseowner'} eq '') ) {
push @local_ccs, $enrollvar{'coursecode'};	push @local_ccs, $enrollvar{'courseowner'};
$pname{$enrollvar{'courseowner'}} = &Apache::loncommon::plainname($enrollvar{'courseowner'},$dom);	$pname{$enrollvar{'courseowner'}} = &Apache::loncommon::plainname($enrollvar{'courseowner'},$dom);
$active_cc = &LONCAPA::Enrollment::check_user_status($dom,$enrollvar{'coursecode'},$dom,$course,'cc');	$active_cc = &LONCAPA::Enrollment::check_user_status($dom,$enrollvar{'coursecode'},$dom,$course,'cc');
if ($active_cc eq 'ok') {	if ($active_cc eq 'ok') {
Line 279 all settings except course code, course	Line 279 all settings except course code, course
<td>$$typeref{$key}</td>	<td>$$typeref{$key}</td>
<td>$enrollvar{$key}</td>	<td>$enrollvar{$key}</td>
</tr>";	</tr>";
$iter ++;	$iter ++;
}	}
$disp_table .= "</table>	$disp_table .= "</table>
</td>	</td>