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) && |