version 1.411, 2009/12/02 18:33:27
|
version 1.411.2.1, 2009/12/07 02:22:24
|
Line 2618 sub handler {
|
Line 2618 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
|
|
|
my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
if ($coursedom eq 'gcitest') { |
|
my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
|
if ($allowed) { |
|
&concept_test_builder($r); |
|
return OK; |
|
} |
|
} |
|
|
# --------------------------------------------- Initialize help topics for this |
# --------------------------------------------- Initialize help topics for this |
foreach my $topic ('Adding_Course_Doc','Main_Course_Documents', |
foreach my $topic ('Adding_Course_Doc','Main_Course_Documents', |
Line 3532 sub generate_edit_table {
|
Line 3540 sub generate_edit_table {
|
return $form; |
return $form; |
} |
} |
|
|
|
sub concept_test_builder { |
|
my ($r) = @_; |
|
$r->print(&Apache::loncommon::start_page('Assemble Test')); |
|
&Apache::londocsgci::setdefaults(); |
|
if ($env{'form.phase'} eq 'storemap') { |
|
&Apache::londocsgci::evaluate(); |
|
&Apache::londocsgci::store($r); |
|
} |
|
&Apache::londocsgci::load(); |
|
&Apache::londocsgci::listresources($r); |
|
$r->print(&Apache::loncommon::end_page()); |
|
return; |
|
} |
|
|
sub editing_js { |
sub editing_js { |
my ($udom,$uname) = @_; |
my ($udom,$uname) = @_; |
my $now = time(); |
my $now = time(); |