loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.411, 2009/12/02 18:33:27
+version 1.411.2.1, 2009/12/07 02:22:24
  Line 2618  sub handler {
      return OK if $r->header_only;
      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
      foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',
- Line 3532  sub generate_edit_table {
+ Line 3540  sub generate_edit_table {
      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 {
      my ($udom,$uname) = @_;
      my $now = time();