loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2014/03/03 17:11:41	version 1.45, 2014/04/16 13:32:43
Line 90 use Apache::loncommon;	Line 90 use Apache::loncommon;
use Apache::lonmsg;	use Apache::lonmsg;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonuserutils;	use Apache::lonuserutils;
	use LONCAPA::batchcreatecourse;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);

sub send_selfserve_notification {	sub send_selfserve_notification {
Line 2129 sub process_official_reqs {	Line 2130 sub process_official_reqs {
return $output;	return $output;
}	}

	sub requestcourses_validation_types {
	my @items = ('url','fields','button','markup');
	my %names = &Apache::lonlocal::texthash (
	url => 'Web address of validation server/script',
	fields => 'Form fields to send to validator',
	button => 'Text for validation button',
	markup => 'Validation description (HTML)',
	);
	my @fields = ('owner','course','coursetype','description');
	return (\@items,\%names,\@fields);
	}

sub is_active_author {	sub is_active_author {
if ($env{'user.role.au./'.$env{'user.domain'}.'/'} =~ /^(\d)\.(\d)$/) {	if ($env{'user.role.au./'.$env{'user.domain'}.'/'} =~ /^(\d)\.(\d)$/) {
if ((!$1 \|\| $1 < time) &&	if ((!$1 \|\| $1 < time) &&