version 1.325.4.1, 2009/09/24 22:04:40
|
version 1.325.4.2, 2009/09/24 22:15:27
|
Line 44 use HTML::Entities;
|
Line 44 use HTML::Entities;
|
use GDBM_File; |
use GDBM_File; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Cwd; |
use Cwd; |
|
use Apache::londocsgci(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
my $iconpath; |
my $iconpath; |
Line 2523 sub handler {
|
Line 2524 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
my $type = &Apache::loncommon::course_type(); |
my $type = &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', |
'Adding_External_Resource','Navigate_Content', |
'Adding_External_Resource','Navigate_Content', |
Line 3214 ENDSUPFORM
|
Line 3224 ENDSUPFORM
|
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
|
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) = @_; |