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[ |