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

Diff for /loncom/interface/londocs.pm between versions 1.411.2.3 and 1.411.2.7

version 1.411.2.3, 2009/12/20 02:09:00 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($cdom);
       if ($env{'form.context'} eq 'requestcrs') {
           if ($env{'form.phase'} eq 'storemap') {
               &Apache::londocsgci::evaluate();
               my $error = &Apache::londocsgci::store('requestcrs',$cdom,$cnum);
               my $output = '<p>';
               if ($error) {
                   $output .= '<span class="LC_error">'.
                              &mt('An error occurred saving your concept test: [_1].',$error).
                              '</span>';
               } else {
                   &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
                   $output .= &mt('Your concept test has been saved.');
               }
               $output .= '</p>';
               if (&Apache::lonrequestcourse::generate_page($r,'new','chooseitems')) {
                   my $formname = 'requestcrs';
                   $r->print('<br /><form name="'.$formname.'" method="post" action="/adm/requestcourse">');
                   my $title = &mt('Concept Test Created'); 
                   &Apache::lonrequestcourse::roster_upload_form($r,$output,$formname,$title);
               }
               $r->print(&Apache::loncommon::end_page());
               return;
           }
       }
     my $js = '      my $js = '
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 '.  '.
 &Apache::londocsgci::builder_javascript().  &Apache::londocsgci::builder_javascript($cdom).
 '  '
 // ]]>  // ]]>
 </script>  </script>
 ';  ';
     my $starthash = {      $r->print(&Apache::loncommon::start_page('Assemble Test',$js));
            add_entries => {'onload' => "javascript:setInitialVisibility();"},  
                      };  
   
     $r->print(&Apache::loncommon::start_page('Assemble Test',$js,$starthash));  
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/coursedocs',              ({href=>'/adm/coursedocs',
               text=>"Assemble Test"});                text=>"Assemble Test"});
     &Apache::londocsgci::setdefaults();  
     if ($env{'form.phase'} eq 'storemap') {      if ($env{'form.phase'} eq 'storemap') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/coursedocs?phase=storemap',              ({href=>'/adm/coursedocs?phase=storemap',
Line 3584  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;
Removed from v.1.411.2.3  
changed lines
  Added in v.1.411.2.7

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