--- loncom/interface/londocs.pm	2009/12/20 02:09:00	1.411.2.3
+++ loncom/interface/londocs.pm	2010/11/08 19:47:04	1.411.2.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.411.2.3 2009/12/20 02:09:00 raeburn Exp $
+# $Id: londocs.pm,v 1.411.2.6 2010/11/08 19:47:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3544,6 +3544,31 @@ sub generate_edit_table {
 
 sub concept_test_builder {
     my ($r,$cdom,$cnum) = @_;
+    &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 = '
 <script type="text/javascript">
 // <![CDATA[
@@ -3553,16 +3578,11 @@ sub concept_test_builder {
 // ]]>
 </script>
 ';
-    my $starthash = {
-           add_entries => {'onload' => "javascript:setInitialVisibility();"},
-                     };
-
-    $r->print(&Apache::loncommon::start_page('Assemble Test',$js,$starthash));
+    $r->print(&Apache::loncommon::start_page('Assemble Test',$js));
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/coursedocs',
               text=>"Assemble Test"});
-    &Apache::londocsgci::setdefaults();
     if ($env{'form.phase'} eq 'storemap') {
         &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/coursedocs?phase=storemap',