version 1.411.2.6, 2010/11/08 19:47:04
|
version 1.411.2.7, 2010/12/05 16:40:11
|
Line 2620 sub handler {
|
Line 2620 sub handler {
|
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
|
|
my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
if ($coursedom eq 'gcitest') { |
if ($coursedom =~ /^\w+citest$/) { |
my $coursenum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $coursenum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
if ($allowed) { |
if ($allowed) { |
Line 3544 sub generate_edit_table {
|
Line 3544 sub generate_edit_table {
|
|
|
sub concept_test_builder { |
sub concept_test_builder { |
my ($r,$cdom,$cnum) = @_; |
my ($r,$cdom,$cnum) = @_; |
&Apache::londocsgci::setdefaults(); |
&Apache::londocsgci::setdefaults($cdom); |
if ($env{'form.context'} eq 'requestcrs') { |
if ($env{'form.context'} eq 'requestcrs') { |
if ($env{'form.phase'} eq 'storemap') { |
if ($env{'form.phase'} eq 'storemap') { |
&Apache::londocsgci::evaluate(); |
&Apache::londocsgci::evaluate(); |
Line 3573 sub concept_test_builder {
|
Line 3573 sub concept_test_builder {
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
'. |
'. |
&Apache::londocsgci::builder_javascript(). |
&Apache::londocsgci::builder_javascript($cdom). |
' |
' |
// ]]> |
// ]]> |
</script> |
</script> |
Line 3604 sub concept_test_builder {
|
Line 3604 sub concept_test_builder {
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
('Build Concept Test','Concept_Test_Assembly')); |
('Build Concept Test','Concept_Test_Assembly')); |
} |
} |
&Apache::londocsgci::load(); |
&Apache::londocsgci::load($cdom); |
&Apache::londocsgci::listresources($r,'edit',$cdom,$cnum); |
&Apache::londocsgci::listresources($r,'edit',$cdom,$cnum); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |