[BACK]Return to londocs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.325.4.1 and 1.325.4.2

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) = @_;
Removed from v.1.325.4.1  
changed lines
  Added in v.1.325.4.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>