--- loncom/interface/loncourserespicker.pm	2013/11/13 01:40:07	1.8
+++ loncom/interface/loncourserespicker.pm	2016/10/16 21:49:51	1.14
@@ -1,6 +1,6 @@
 # The LearningOnline Network
 #
-# $Id: loncourserespicker.pm,v 1.8 2013/11/13 01:40:07 raeburn Exp $
+# $Id: loncourserespicker.pm,v 1.14 2016/10/16 21:49:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -75,7 +75,7 @@ select items.  Checking a folder causes
 within the folder. Unchecking a resource causing unchecking of folders
 containing the item back up to the top level.
 
-Inputs: 9.
+Inputs: 11.
    - $navmap  -- Reference to LON-CAPA navmap object 
                 (encapsulates information about resources in the course). 
 
@@ -106,6 +106,10 @@ Inputs: 9.
 
    - $uploadedfiles -- Reference to hash: keys are paths to files in
                        /home/httpd/lonUsers/$cdom/$1/$2/$3/$cnum/userfiles.
+   
+   - $readonly -- if true, no "check all" or "uncheck all" buttons will
+                  be displayed, and checkboxes will be disabled, if this 
+                  is for an exam block.
 
 
 Output: $output is the HTML mark-up for display/selection of content
@@ -151,7 +155,7 @@ Inputs: 2.
  
 Takes incoming title and replaces non-alphanumeric characters with underscore,
 so title can be used as suggested file name (with appended extension) for file
-copied from course to Authoring space.
+copied from course to Authoring Space.
 
 
 =item &enumerate_course_contents()
@@ -162,7 +166,7 @@ map url, or symb, for an iteration throu
 a Course Coordinator. Used to generate numerical IDs to facilitate
 (a) storage of lists of maps or resources to be blocked during an exam,
 (b) processing selected form element during dumping of selected course
-    content to Authoring space.
+    content to Authoring Space.
 
 Inputs: 7 
 
@@ -206,7 +210,8 @@ use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);
 
 sub create_picker {
-    my ($navmap,$context,$formname,$crstype,$blockedmaps,$blockedresources,$block,$preamble,$numhome,$uploadedfiles) = @_;
+    my ($navmap,$context,$formname,$crstype,$blockedmaps,$blockedresources,$block,$preamble,
+        $numhome,$uploadedfiles,$readonly) = @_;
     return unless (ref($navmap));
     my ($it,$output,$numdisc,%maps,%resources,%discussiontime,%currmaps,%currresources,%files);
     $it = $navmap->getIterator(undef,undef,undef,1,undef,undef);
@@ -236,16 +241,19 @@ sub create_picker {
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $crsprefix = &propath($cdom,$cnum).'/userfiles/';
 
-    my ($info,$display,$onsubmit,$togglebuttons);
+    my ($info,$display,$onsubmit,$togglebuttons,$disabled);
     if ($context eq 'examblock') {
         my $maps_elem = 'docs_maps_'.$block;
         my $res_elem = 'docs_resources_'.$block;
         $onsubmit = ' onsubmit="return writeToOpener('."'$maps_elem','$res_elem'".');"';
         $info = &mt('Items in '.lc($crstype).' for which access will be blocked.');
+        if ($readonly) {
+            $disabled = ' disabled="disabled"';
+        }
     }
     if ($context eq 'dumpdocs') {
         $info = '<span class="LC_fontsize_medium">'.
-                &mt('Choose the uploaded course items and templated pages/problems to be copied to Authoring space.').
+                &mt('Choose the uploaded course items and templated pages/problems to be copied to Authoring Space.').
                 '</span><br /><br />';
         $startcount = 3 + $numhome;
         $onsubmit = ' onsubmit="return checkUnique(document.'.$formname.',document.'.$formname.'.archive);"';
@@ -253,10 +261,14 @@ sub create_picker {
         $info = &mt('Choose which items you wish to export from your '.$crstype.'.');
         $startcount = 5;
     }
-    $togglebuttons = '<input type="button" value="'.&mt('check all').'" '.
-                     'onclick="javascript:checkAll(document.'.$formname.'.archive)" />'.
-                     '&nbsp;&nbsp;<input type="button" value="'.&mt('uncheck all').'"'.
-                     ' onclick="javascript:uncheckAll(document.'.$formname.'.archive)" />';
+    if ($disabled) {
+        $togglebuttons = '<br />';
+    } else {
+        $togglebuttons = '<input type="button" value="'.&mt('check all').'" '.
+                         'onclick="javascript:checkAll(document.'.$formname.'.archive)" />'.
+                         '&nbsp;&nbsp;<input type="button" value="'.&mt('uncheck all').'"'.
+                         ' onclick="javascript:uncheckAll(document.'.$formname.'.archive)" />';
+    }
     $display = '<form name="'.$formname.'" action="" method="post"'.$onsubmit.'>'."\n";
     if ($context eq 'imsexport') {
         $display .= $info.
@@ -353,7 +365,7 @@ sub create_picker {
                     $display .= 'checked="checked"';
                 }
             }
-            $display .= ' />'."\n";
+            $display .= $disabled.' />'."\n";
             if ($context eq 'dumpdocs') {
                 $display .= '</td><td valign="top">';
             }
@@ -450,10 +462,12 @@ sub create_picker {
            &mt('Export').'" /></p>';
         $numcount = $count + $boards + $startcount;
     } elsif ($context eq 'examblock') {
-        $display .=
-            '<p>'.
-            '<input type="submit" name="resourceblocks" value="'.
-            &mt('Copy Choices to Main Window').'" /></p>';
+        unless ($readonly) {
+            $display .=
+                '<p>'.
+                '<input type="submit" name="resourceblocks" value="'.
+                &mt('Copy Choices to Main Window').'" /></p>';
+        }
         $numcount = $count + $startcount;
     } elsif ($context eq 'dumpdocs') {
         $display .= '</fieldset>'.
@@ -466,7 +480,7 @@ sub create_picker {
     $display .= '</form>';
     my $scripttag = 
         &respicker_javascript($startcount,$numcount,$context,$formname,\%children,
-                              \%hierarchy,\@checked_maps);
+                              \%hierarchy,\@checked_maps,$numhome);
     if ($context eq 'dumpdocs') {
         return $scripttag.$display; 
     }
@@ -498,7 +512,7 @@ sub create_picker {
 
 sub respicker_javascript {
     my ($startcount,$numitems,$context,$formname,$children,$hierarchy,
-        $checked_maps) = @_;
+        $checked_maps,$numhome) = @_;
     return unless ((ref($children) eq 'HASH') && (ref($hierarchy) eq 'HASH')
                    && (ref($checked_maps) eq 'ARRAY'));
     my ($elem,$nested,$nameforelem);
@@ -591,11 +605,16 @@ EXTRA
     } elsif ($context eq 'dumpdocs') {
         my $blankmsg = &mt('An item selected has no filename set in the "Save as ..." column.');
         my $dupmsg = &mt('Items selected for copying need unique filenames in the "Save as ..." column.');
+        my $homemsg = &mt('An Authoring Space needs to be selected.');
+        &js_escape(\$blankmsg);
+        &js_escape(\$dupmsg);
+        &js_escape(\$homemsg);
         $scripttag .= <<"EXTRA";
 
 function checkUnique(form,field) {
     var duplicate = 0;
     var blank = 0;
+    var numhome = '$numhome';
     if (field.length > 0) {
         for (i=0; i<field.length; i++) {
             if (field[i].checked) {
@@ -635,6 +654,12 @@ function checkUnique(form,field) {
         alert('$dupmsg');
         return false;
     }
+    if (numhome > 1) {
+        if (!form.authorspace.options[form.authorspace.selectedIndex].value) {
+            alert('$homemsg');
+            return false;
+        }
+    }
     return true;
 }
 
@@ -685,10 +710,12 @@ function writeToOpener(maps,resources) {
                 }
             }
             if (isResource == 1) {
-                if (nesting[elemnum].length > 0) {
-                    var lastelem = nesting[elemnum].length-1;
-                    if (document.$formname.elements[nesting[elemnum][lastelem]].checked) {
-                        include = 0;
+                if (nesting[elemnum] != null) {
+                    if (nesting[elemnum].length > 0) {
+                        var lastelem = nesting[elemnum].length-1;
+                        if (document.$formname.elements[nesting[elemnum][lastelem]].checked) {
+                            include = 0;
+                        }
                     }
                 }
             }
@@ -730,7 +757,7 @@ sub get_navmap_object {
                                                        undef,{'only_body' => 1,}).
                       '<h2>'.&mt('Resource Display Failed').'</h2>';  
         } elsif ($context eq 'dumpdocs') {
-            $outcome = '<h2>'.&mt('Copying to Authoring Space unavilable');
+            $outcome = '<h2>'.&mt('Copying to Authoring Space unavailable');
         }
         $outcome .= '<div class="LC_error">';
         if ($crstype eq 'Community') {