loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpopulate.pm between versions 1.57 and 1.61

version 1.57, 2008/12/11 14:55:15	version 1.61, 2009/04/22 17:13:38
Line 49 sub choose_header {	Line 49 sub choose_header {
my ($action) = @_;	my ($action) = @_;
my $notify_check = '/^note_[0-9]+$/';	my $notify_check = '/^note_[0-9]+$/';
my $scripttag = qq\|	my $scripttag = qq\|
<script language='javascript' type='text/javascript'>	<script type=\"text/javascript\" language=\"JavaScript\">
<!--	<!--
function process(calling,numauto,nummanual,numlock,numunlock) {	function process(calling,numauto,nummanual,numlock,numunlock) {
var checker = 1	var checker = 1
Line 370 ENDONE	Line 370 ENDONE
ENDTWO	ENDTWO
if ($enrollvar{autoadds}) {	if ($enrollvar{autoadds}) {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"autoadds\" value=\"1\" checked=\"true\" /> Enable   </label>	<label><input type=\"radio\" name=\"autoadds\" value=\"1\" checked=\"checked\" /> Enable   </label>
<label><input type=\"radio\" name=\"autoadds\" value=\"0\" /> Disable</label>	<label><input type=\"radio\" name=\"autoadds\" value=\"0\" /> Disable</label>
");	");
} else {	} else {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"autoadds\" value=\"1\" /> Enable   </label>	<label><input type=\"radio\" name=\"autoadds\" value=\"1\" /> Enable   </label>
<label><input type=\"radio\" name=\"autoadds\" value=\"0\" checked=\"true\" /> Disable</label>	<label><input type=\"radio\" name=\"autoadds\" value=\"0\" checked=\"checked\" /> Disable</label>
");	");
}	}
$r->print("	$r->print("
Line 387 ENDTWO	Line 387 ENDTWO
Removals based on classlist changes:  ");	Removals based on classlist changes:  ");
if ($enrollvar{autodrops}) {	if ($enrollvar{autodrops}) {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"autodrops\" value=\"1\" checked=\"true\" /> Enable   </label>	<label><input type=\"radio\" name=\"autodrops\" value=\"1\" checked=\"checked\" /> Enable   </label>
<label><input type=\"radio\" name=\"autodrops\" value=\"0\" /> Disable</label>");	<label><input type=\"radio\" name=\"autodrops\" value=\"0\" /> Disable</label>");
} else {	} else {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"autodrops\" value=\"1\" /> Enable   </label>	<label><input type=\"radio\" name=\"autodrops\" value=\"1\" /> Enable   </label>
<label><input type=\"radio\" name=\"autodrops\" value=\"0\" checked=\"true\" /> Disable</label>");	<label><input type=\"radio\" name=\"autodrops\" value=\"0\" checked=\"checked\" /> Disable</label>");
}	}
$r->print("	$r->print("
</td>	</td>
Line 547 ENDTWO	Line 547 ENDTWO
");	");
if ($notifycount) {	if ($notifycount) {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"notify\" value=\"1\" checked=\"true\" /> Yes   </label>	<label><input type=\"radio\" name=\"notify\" value=\"1\" checked=\"checked\" /> Yes   </label>
<label><input type=\"radio\" name=\"notify\" value=\"0\" /> No</label>	<label><input type=\"radio\" name=\"notify\" value=\"0\" /> No</label>
");	");
} else {	} else {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"notify\" value=\"1\" /> Yes   </label>	<label><input type=\"radio\" name=\"notify\" value=\"1\" /> Yes   </label>
<label><input type=\"radio\" name=\"notify\" value=\"0\" checked=\"true\" /> No</label>	<label><input type=\"radio\" name=\"notify\" value=\"0\" checked=\"checked\" /> No</label>
");	");
}	}
$r->print("	$r->print("
Line 734 ENDTWO	Line 734 ENDTWO
my $colflag = $i%2;	my $colflag = $i%2;
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print("	$r->print("
<td><input type=\"checkbox\" name=\"cross_$i\" checked=\"true\" /></td>	<td><input type=\"checkbox\" name=\"cross_$i\" checked=\"checked\" /></td>
<td>$xl</td>	<td>$xl</td>
<td><input type =\"text\" size=\"10\" name=\"lcsec_$i\" value=\"$lc_sec\" /></td>	<td><input type =\"text\" size=\"10\" name=\"lcsec_$i\" value=\"$lc_sec\" /></td>
");	");
Line 825 ENDTWO	Line 825 ENDTWO
$r->print("Enrollment inactive");	$r->print("Enrollment inactive");
}	}
if ($shrflag) {	if ($shrflag) {
$r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"$sec_id{$sections[$i]}\"></td><td><input type=\"checkbox\" name=\"sec_$i\" checked=\"true\" /></td>");	$r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"$sec_id{$sections[$i]}\" /></td><td><input type=\"checkbox\" name=\"sec_$i\" checked=\"checked\" /></td>");
} else {	} else {
$r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"\" /></td><td><input type=\"checkbox\" name=\"sec_$i\" /></td>");	$r->print("</td><td><input type=\"text\" size=\"10\" name=\"loncapasec_$i\" value=\"\" /></td><td><input type=\"checkbox\" name=\"sec_$i\" /></td>");
}	}
Line 874 ENDTWO	Line 874 ENDTWO
my $colflag = $j%2;	my $colflag = $j%2;
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
$r->print("	$r->print("
<td><input type=\"checkbox\" name=\"sec_$j\" checked=\"true\" /></td>	<td><input type=\"checkbox\" name=\"sec_$j\" checked=\"checked\" /></td>
<td>$currsections[$j]</td>	<td>$currsections[$j]</td>
<td><input type=\"text\" name=\"lcsec_$j\" size=\"10\" value=\"$sec_id{$currsections[$j]}\" /></td>	<td><input type=\"text\" name=\"lcsec_$j\" size=\"10\" value=\"$sec_id{$currsections[$j]}\" /></td>
");	");
Line 931 ENDTWO	Line 931 ENDTWO
");	");
if ($enrollvar{showphoto}) {	if ($enrollvar{showphoto}) {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"true\" /> Yes   </label>	<label><input type=\"radio\" name=\"showphotos\" value=\"1\" checked=\"checked\" /> Yes   </label>
<label><input type=\"radio\" name=\"showphotos\" value=\"0\" /> No</label>	<label><input type=\"radio\" name=\"showphotos\" value=\"0\" /> No</label>
");	");
} else {	} else {
$r->print("	$r->print("
<label><input type=\"radio\" name=\"showphotos\" value=\"1\" /> Yes   </label>	<label><input type=\"radio\" name=\"showphotos\" value=\"1\" /> Yes   </label>
<label><input type=\"radio\" name=\"showphotos\" value=\"0\" checked=\"true\" /> No</label>	<label><input type=\"radio\" name=\"showphotos\" value=\"0\" checked=\"checked\" /> No</label>
");	");
}	}
$r->print('	$r->print('
Line 1095 onclick="javascript:document.photoupdate	Line 1095 onclick="javascript:document.photoupdate
</form>');	</form>');
} else {	} else {
$r->print(&mt('Update of photos via the Automated Enrollment Manager is unavailable in this domain.')	$r->print(&mt('Update of photos via the Automated Enrollment Manager is unavailable in this domain.')
.'<br /><br /><input type="button" name=mainmenu" value="'.&mt('Go back').'" onclick="javascript:history.go(-1);" />');	.'<br /><br /><input type="button" name="mainmenu" value="'.&mt('Go back').'" onclick="javascript:history.go(-1);" />');
}	}
} else {	} else {
$r->print('Update of photos is unavailable, as import of student photos is currently disabled.<br />Enable this first via: <a href="/adm/populate?action=photos">'.$$tasktitleref{'photos'}.'</a>');	$r->print('Update of photos is unavailable, as import of student photos is currently disabled.<br />Enable this first via: <a href="/adm/populate?action=photos">'.$$tasktitleref{'photos'}.'</a>');
Line 2380 sub print_photo_agreement {	Line 2380 sub print_photo_agreement {
my $institution = &Apache::lonnet::domain($dom,'description');	my $institution = &Apache::lonnet::domain($dom,'description');
if (&user_is_courseowner($courseowner)) {	if (&user_is_courseowner($courseowner)) {
$response = '	$response = '
<script type="text/javascript">	<script type="text/javascript" language="JavaScript">
function agreement_result(caller) {	function agreement_result(caller) {
document.permission.photopermission.value = caller;	document.permission.photopermission.value = caller;
if (caller == 0) {	if (caller == 0) {
Line 2526 sub print_photoupdate_response {	Line 2526 sub print_photoupdate_response {
}	}
if ($outcome eq 'ok') {	if ($outcome eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
$response = &mt('Update of photos for registered students resulted in the following ').': <br /><script type="text/javascript">	$response = &mt('Update of photos for registered students resulted in the following ').': <br />'
	.'<script type="text/javascript" language="JavaScript">
function photowindow(photolink) {	function photowindow(photolink) {
var title = "Photo_Viewer";	var title = "Photo_Viewer";
var options = "scrollbars=1,resizable=1,menubar=0";	var options = "scrollbars=1,resizable=1,menubar=0";

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.57
changed lines
	Added in v.1.61