--- loncom/interface/loncommon.pm	2012/02/28 02:02:16	1.1056
+++ loncom/interface/loncommon.pm	2012/03/20 14:28:26	1.1060
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1056 2012/02/28 02:02:16 raeburn Exp $
+# $Id: loncommon.pm,v 1.1060 2012/03/20 14:28:26 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1748,6 +1748,7 @@ Inputs: $workbook
 
 Returns: $format, a hash reference.
 
+
 =cut
 
 ###############################################################
@@ -2856,6 +2857,7 @@ database which holds them.
 
 Uses global $thesaurus_db_file.
 
+
 =cut
 
 ###############################################################
@@ -4015,18 +4017,25 @@ sub findallcourses {
             if ($tstart) {
                 next if ($tstart > $now);
             }
-            my ($cdom,$cnum,$sec,$cnumpart,$secpart,$role,$realsec);
+            my ($cdom,$cnum,$sec,$cnumpart,$secpart,$role);
             (undef,$cdom,$cnumpart,$secpart) = split(/\//,$entry);
+            my $value = $trole.'/'.$cdom.'/';
             if ($secpart eq '') {
                 ($cnum,$role) = split(/_/,$cnumpart); 
                 $sec = 'none';
-                $realsec = '';
+                $value .= $cnum.'/';
             } else {
                 $cnum = $cnumpart;
                 ($sec,$role) = split(/_/,$secpart);
-                $realsec = $sec;
+                $value .= $cnum.'/'.$sec;
+            }
+            if (ref($courses{$cdom.'_'.$cnum}{$sec}) eq 'ARRAY') {
+                unless (grep(/^\Q$value\E$/,@{$courses{$cdom.'_'.$cnum}{$sec}})) {
+                    push(@{$courses{$cdom.'_'.$cnum}{$sec}},$value);
+                }
+            } else {
+                @{$courses{$cdom.'_'.$cnum}{$sec}} = ($value);
             }
-            $courses{$cdom.'_'.$cnum}{$sec} = $trole.'/'.$cdom.'/'.$cnum.'/'.$realsec;
         }
     } else {
         foreach my $key (keys(%env)) {
@@ -4044,11 +4053,19 @@ sub findallcourses {
                     if ($now>$endtime) { $active=0; }
                 }
                 if ($active) {
+                    my $value = $role.'/'.$cdom.'/'.$cnum.'/';
                     if ($sec eq '') {
                         $sec = 'none';
+                    } else {
+                        $value .= $sec;
+                    }
+                    if (ref($courses{$cdom.'_'.$cnum}{$sec}) eq 'ARRAY') {
+                        unless (grep(/^\Q$value\E$/,@{$courses{$cdom.'_'.$cnum}{$sec}})) {
+                            push(@{$courses{$cdom.'_'.$cnum}{$sec}},$value);
+                        }
+                    } else {
+                        @{$courses{$cdom.'_'.$cnum}{$sec}} = ($value);
                     }
-                    $courses{$cdom.'_'.$cnum}{$sec} = 
-                                     $role.'/'.$cdom.'/'.$cnum.'/'.$sec;
                 }
             }
         }
@@ -4141,34 +4158,38 @@ sub blockcheck {
             if ($otheruser) {
                 # Resource belongs to user other than current user.
                 # Assemble privs for that user, and check for 'evb' priv.
-                my ($trole,$tdom,$tnum,$tsec);
-                my $entry = $live_courses{$course}{$sec};
-                if ($entry =~ /^cr/) {
-                    ($trole,$tdom,$tnum,$tsec) = 
-                      ($entry =~ m|^(cr/$match_domain/$match_username/\w+)\./($match_domain)/($match_username)/?(\w*)$|);
-                } else {
-                    ($trole,$tdom,$tnum,$tsec) = split(/\//,$entry);
-                }
-                my ($spec,$area,$trest,%allroles,%userroles);
-                $area = '/'.$tdom.'/'.$tnum;
-                $trest = $tnum;
-                if ($tsec ne '') {
-                    $area .= '/'.$tsec;
-                    $trest .= '/'.$tsec;
-                }
-                $spec = $trole.'.'.$area;
-                if ($trole =~ /^cr/) {
-                    &Apache::lonnet::custom_roleprivs(\%allroles,$trole,
-                                                      $tdom,$spec,$trest,$area);
-                } else {
-                    &Apache::lonnet::standard_roleprivs(\%allroles,$trole,
-                                                       $tdom,$spec,$trest,$area);
-                }
-                my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);
-                if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) {
-                    if ($1) {
-                        $no_userblock = 1;
-                        last;
+                my (%allroles,%userroles);
+                if (ref($live_courses{$course}{$sec}) eq 'ARRAY') {
+                    foreach my $entry (@{$live_courses{$course}{$sec}}) { 
+                        my ($trole,$tdom,$tnum,$tsec);
+                        if ($entry =~ /^cr/) {
+                            ($trole,$tdom,$tnum,$tsec) = 
+                                ($entry =~ m|^(cr/$match_domain/$match_username/\w+)\./($match_domain)/($match_username)/?(\w*)$|);
+                        } else {
+                           ($trole,$tdom,$tnum,$tsec) = split(/\//,$entry);
+                        }
+                        my ($spec,$area,$trest);
+                        $area = '/'.$tdom.'/'.$tnum;
+                        $trest = $tnum;
+                        if ($tsec ne '') {
+                            $area .= '/'.$tsec;
+                            $trest .= '/'.$tsec;
+                        }
+                        $spec = $trole.'.'.$area;
+                        if ($trole =~ /^cr/) {
+                            &Apache::lonnet::custom_roleprivs(\%allroles,$trole,
+                                                              $tdom,$spec,$trest,$area);
+                        } else {
+                            &Apache::lonnet::standard_roleprivs(\%allroles,$trole,
+                                                                $tdom,$spec,$trest,$area);
+                        }
+                    }
+                    my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles);
+                    if ($userroles{'user.priv.'.$checkrole} =~ /evb\&([^\:]*)/) {
+                        if ($1) {
+                            $no_userblock = 1;
+                            last;
+                        }
                     }
                 }
             } else {
@@ -4993,7 +5014,7 @@ sub standard_css {
     my $mono                 = 'monospace';
     my $data_table_head      = $sidebg;
     my $data_table_light     = '#FAFAFA';
-    my $data_table_dark      = '#F0F0F0';
+    my $data_table_dark      = '#E0E0E0';
     my $data_table_darker    = '#CCCCCC';
     my $data_table_highlight = '#FFFF00';
     my $mail_new             = '#FFBB77';
@@ -6080,6 +6101,7 @@ div.LC_edit_problem_footer {
   font-weight: normal;
   font-size:  medium;
   margin: 2px;
+  background-color: $sidebg;
 }
 
 div.LC_edit_problem_header,
@@ -6096,6 +6118,7 @@ div.LC_edit_problem_header_title {
   font-size: larger;
   background: $tabbg;
   padding: 3px;
+  margin: 0 0 5px 0;
 }
 
 table.LC_edit_problem_header_title {
@@ -8817,6 +8840,8 @@ sub get_future_slots {
 
 =pod
 
+=back
+
 =head1 HTTP Helpers
 
 =over 4
@@ -9982,12 +10007,12 @@ sub archive_row {
     my ($is_dir,$item,$currdir,$depth,$count) = @_;
     my ($name) = ($item =~ m{([^/]+)$});
     my %choices = &Apache::lonlocal::texthash (
-                                       'display'    => 'Add as File',
+                                       'display'    => 'Add as file',
                                        'dependency' => 'Include as dependency',
                                        'discard'    => 'Discard',
                                       );
     if ($is_dir) {
-        $choices{'display'} = &mt('Add as Folder'); 
+        $choices{'display'} = &mt('Add as folder'); 
     }
     my $output = &start_data_table_row().'<td align="right">'.$count.'</td>'."\n";
     my $offset = 0;
@@ -10000,7 +10025,7 @@ sub archive_row {
         if ($is_dir) {
             $output .= ' onclick="javascript:propagateCheck(this.form,'."'$count'".');"';
             if ($action eq 'display') {
-                $text = &mt('Add as Folder');
+                $text = &mt('Add as folder');
             }
         } else {
             $output .= ' onclick="javascript:dependencyCheck(this.form,'."$count,$offset".');"';
@@ -10014,6 +10039,10 @@ sub archive_row {
                        '<option value=""></option>'."\n".
                        '</select>'."\n".
                        '</div>';
+        } elsif ($action eq 'display') {
+            $output .= '<div id="arc_title_'.$count.'" style="display:none;">'."\n".
+                       &mt('Title:').'&nbsp;<input type="text" name="archive_title_'.$count.'" id="archive_title_'.$count.'" />'."\n".
+                       '</div>';
         }
         $output .= '</td>';
     }
@@ -10042,9 +10071,9 @@ sub archive_options_form {
                     '</p>'.
                     '<div class="LC_columnSection"><fieldset>'.
                     '<legend>'.&mt('Content actions for all').'</legend>'.
-                    '<input type="button" value="'.&mt('Display in Contents').'" '.
+                    '<input type="button" value="'.&mt('Add as folder/file').'" '.
                     'onclick="javascript:checkAll(document.'.$form.",'display'".')" />'.
-                    '&nbsp;&nbsp;<input type="button" value="'.&mt('Include as dependency for a displayed item').'"'.
+                    '&nbsp;&nbsp;<input type="button" value="'.&mt('Include as dependency for a displayed file').'"'.
                     ' onclick="javascript:checkAll(document.'.$form.",'dependency'".')" />'.
                     '&nbsp;&nbsp;<input type="button" value="'.&mt('Discard').'"'.
                     ' onclick="javascript:checkAll(document.'.$form.",'discard'".')" />'.
@@ -10061,6 +10090,7 @@ sub archive_options_form {
 sub archive_javascript {
     my ($startcount,$numitems,$titles,$children) = @_;
     return unless ((ref($titles) eq 'HASH') && (ref($children) eq 'HASH'));
+    my $maintitle = $env{'form.comment'};
     my $scripttag = <<START;
 <script type="text/javascript">
 // <![CDATA[
@@ -10074,8 +10104,8 @@ function checkAll(form,prefix) {
                 if (form.elements[i].type == 'radio') {
                     form.elements[i].checked = true;
                     var nostart = i-$startcount;
-                    var offset = nostart%6;
-                    var count = (nostart-offset)/6;    
+                    var offset = nostart%7;
+                    var count = (nostart-offset)/7;    
                     dependencyCheck(form,count,offset);
                 }
             }
@@ -10085,9 +10115,9 @@ function checkAll(form,prefix) {
 
 function propagateCheck(form,count) {
     if (count > 0) {
-        var startelement = $startcount + ((count-1) * 6);
-        for (var j=1; j<5; j++) {
-            if (j != 3) {
+        var startelement = $startcount + ((count-1) * 7);
+        for (var j=1; j<6; j++) {
+            if ((j != 2) && (j != 4)) {
                 var item = startelement + j; 
                 if (form.elements[item].type == 'radio') {
                     if (form.elements[item].checked) {
@@ -10106,6 +10136,7 @@ var parents = new Array(numitems);
 for (var i=0; i<numitems; i++) {
     parents[i] = new Array;
 }
+var maintitle = '$maintitle';
 
 START
 
@@ -10125,7 +10156,7 @@ START
 function containerCheck(form,count,offset) {
     if (count > 0) {
         dependencyCheck(form,count,offset);
-        var item = (offset+$startcount)+6*(count-1);
+        var item = (offset+$startcount)+7*(count-1);
         form.elements[item].checked = true;
         if(Object.prototype.toString.call(parents[count]) === '[object Array]') {
             if (parents[count].length > 0) {
@@ -10139,17 +10170,17 @@ function containerCheck(form,count,offse
 
 function dependencyCheck(form,count,offset) {
     if (count > 0) {
-        var chosen = (offset+$startcount)+6*(count-1);
-        var depitem = $startcount + ((count-1) * 6) + 3;
+        var chosen = (offset+$startcount)+7*(count-1);
+        var depitem = $startcount + ((count-1) * 7) + 4;
         var currtype = form.elements[depitem].type;
         if (form.elements[chosen].value == 'dependency') {
             document.getElementById('arc_depon_'+count).style.display='block'; 
             form.elements[depitem].options.length = 0;
             form.elements[depitem].options[0] = new Option('Select','',true,true);
             for (var i=1; i<count; i++) {
-                var startelement = $startcount + (i-1) * 6;
-                for (var j=1; j<5; j++) {
-                    if (j != 3) {
+                var startelement = $startcount + (i-1) * 7;
+                for (var j=1; j<6; j++) {
+                    if ((j != 2) && (j!= 4)) {
                         var item = startelement + j;
                         if (form.elements[item].type == 'radio') {
                             if (form.elements[item].checked) {
@@ -10167,12 +10198,13 @@ function dependencyCheck(form,count,offs
             form.elements[depitem].options.length = 0;
             form.elements[depitem].options[0] = new Option('Select','',true,true);
         }
+        titleCheck(form,count,offset);
     }
 }
 
 function propagateSelect(form,count,offset) {
     if (count > 0) {
-        var item = (1+offset+$startcount)+6*(count-1);
+        var item = (2+offset+$startcount)+7*(count-1);
         var picked = form.elements[item].options[form.elements[item].selectedIndex].value; 
         if (Object.prototype.toString.call(parents[count]) === '[object Array]') {
             if (parents[count].length > 0) {
@@ -10186,7 +10218,7 @@ function propagateSelect(form,count,offs
 
 function containerSelect(form,count,offset,picked) {
     if (count > 0) {
-        var item = (offset+$startcount)+6*(count-1);
+        var item = (1+offset+$startcount)+7*(count-1);
         if (form.elements[item].type == 'radio') {
             if (form.elements[item].value == 'dependency') {
                 if (form.elements[item+1].type == 'select-one') {
@@ -10209,6 +10241,26 @@ function containerSelect(form,count,offs
     }
 }
 
+function titleCheck(form,count,offset) {
+    if (count > 0) {
+        var chosen = (offset+$startcount)+7*(count-1);
+        var depitem = $startcount + ((count-1) * 7) + 2;
+        var currtype = form.elements[depitem].type;
+        if (form.elements[chosen].value == 'display') {
+            document.getElementById('arc_title_'+count).style.display='block';
+            if ((count==1) && ((parents[count].length > 0) || (numitems == 1))) {
+                document.getElementById('archive_title_'+count).value=maintitle;
+            }
+        } else {
+            document.getElementById('arc_title_'+count).style.display='none';
+            if (currtype == 'text') { 
+                document.getElementById('archive_title_'+count).value='';
+            }
+        }
+    }
+    return;
+}
+
 // ]]>
 </script>
 END
@@ -10275,8 +10327,12 @@ sub process_extracted_files {
                         }
                     }
                 } elsif ($env{'form.archive_'.$i} eq 'display') {
-                    my ($title,$url,$outer);
+                    my ($docstitle,$title,$url,$outer);
                     ($title) = ($path =~ m{/([^/]+)$});
+                    $docstitle = $env{'form.archive_title_'.$i};
+                    if ($docstitle eq '') {
+                        $docstitle = $title;
+                    }
                     $outer = 0;
                     if (ref($dirorder{$i}) eq 'ARRAY') {
                         if (@{$dirorder{$i}} > 0) {
@@ -10302,7 +10358,7 @@ sub process_extracted_files {
                                       $folders{$i}.'.'.$containers{$i};
                             my $newidx = &LONCAPA::map::getresidx();
                             $LONCAPA::map::resources[$newidx]=
-                                $title.':'.$url.':false:normal:res';
+                                $docstitle.':'.$url.':false:normal:res';
                             push(@LONCAPA::map::order,$newidx);
                             my ($outtext,$errtext) =
                                 &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.
@@ -10327,7 +10383,7 @@ sub process_extracted_files {
                                 $newdest{$i} = "$prefix$dir/$docstype/$mapinner{$outer}/$newidx";
                             }
                             $LONCAPA::map::resources[$newidx]=
-                                $title.':'.$url.':false:normal:res';
+                                $docstitle.':'.$url.':false:normal:res';
                             push(@LONCAPA::map::order, $newidx);
                             my ($outtext,$errtext)=
                                 &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.