[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.5 and 1.411.2.6

version 1.411.2.5, 2010/09/19 14:49:17 version 1.411.2.6, 2010/11/08 19:47:04
Line 3545  sub generate_edit_table { Line 3545  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();
       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[
Removed from v.1.411.2.5  
changed lines
  Added in v.1.411.2.6

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