loncom/interface/lonblockingmenu.pm - diff

Return to lonblockingmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14.2.4, 2024/12/30 00:30:49	version 1.23, 2016/10/23 16:17:52
Line 658 END	Line 658 END
&Apache::loncourserespicker::get_navmap_object($crstype,'examblock');	&Apache::loncourserespicker::get_navmap_object($crstype,'examblock');

# --------------------------------------------- Interface for adding a new block	# --------------------------------------------- Interface for adding a new block
unless ($readonly) {	if ($readonly) {
	if (!$blockcount) {
	$r->print($lt{'ncbc'}.'<br />');
	}
	} else {
&display_addblocker_table($r,$blockcount,\%ltext,\%intervals,	&display_addblocker_table($r,$blockcount,\%ltext,\%intervals,
$navmap,$errormsg);	$navmap,$errormsg);
if ($blockcount > 0) {	if ($blockcount > 0) {
$r->print('</div>');	$r->print('</div>');
}	}
}	}

# ------------------------------------------------ Interface for existing blocks	# ------------------------------------------------ Interface for existing blocks
if (!$blockcount) {	if ($blockcount > 0) {
if ($readonly) {
$r->print($lt{'ncbc'}.'<br />');
}
} else {
&display_blocker_status($r,\%records,\%ltext,\%intervals,	&display_blocker_status($r,\%records,\%ltext,\%intervals,
$navmap,$errormsg,$blockcount,$readonly);	$navmap,$errormsg,$blockcount,$readonly);
}	}
Line 963 sub update_releasereq {	Line 964 sub update_releasereq {
}	}
$modified_courses = [];	$modified_courses = [];
}	}
return OK;	undef($registered_cleanup);
	return;
}	}

sub get_dates_from_form {	sub get_dates_from_form {