[BACK]Return to courseprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/courseprefs.pm between versions 1.8.2.11 and 1.41

version 1.8.2.11, 2010/05/22 01:31:31 version 1.41, 2011/01/14 00:18:47
Line 122  Creates table used to display and set co Line 122  Creates table used to display and set co
   
 Inputs: $cdom,$items,$ordered,$settings,$rowtotal,$crstype  Inputs: $cdom,$items,$ordered,$settings,$rowtotal,$crstype
 where $cdom is course's domain, $items is HASH ref for current config  where $cdom is course's domain, $items is HASH ref for current config
 item, $ordered is ARRAY ref of items to include in row in  item, $ordered is ARRAY ref of items to include in row in 
 display order, $settings is HASH ref of current values forrow,  display order, $settings is HASH ref of current values forrow,
 $rowtotal is SCALAR ref used to accumulate row count, $crstype is  $rowtotal is SCALAR ref used to accumulate row count, $crstype is    
 course type.  course type.
   
 Returns: $datatable  Returns: $datatable
 HTML mark-up of data table which accumulates individual rows.  HTML mark-up of data table which accumulates individual rows.  
   
 =item nothidepriv_row()  =item nothidepriv_row()
   
 Creates row containing form elements used to display and set  Creates row containing form elements used to display and set
 whether Domain coordinators who are currently included in  whether Domain coordinators who are currently included in  
 advanced course user .db file for a course are to be hidden (e.g.,  advanced course user .db file for a course are to be hidden (e.g.,
 in syllabus, or from course user lists).  in syllabus, or from course user lists).
   
 Inputs: $cdom,$item,$settings,$crstype  Inputs: $cdom,$item,$settings,$crstype
 where $cdom is course domain, item is nothideprivileged, $settings is  where $cdom is course domain, item is nothideprivileged, $settings is
 HASH ref of the current values for nothideprivileged, $crstype is  HASH ref of the current values for nothideprivileged, $crstype is 
 course type (Course or Community).  course type (Course or Community). 
   
 Returns: $datatable  Return: $datatable
 HTML mark-up for Privileged users (Domain Coordinators) in staff listing.  HTML mark-up for Privileged users (Domain Coordinators) in staff listing.
   
 =item print_hdrfmt_row()  =item print_hdrfmt_row()
Line 163  for the "Print header format" row. Line 163  for the "Print header format" row.
 =item position_selector()  =item position_selector()
   
 Creates a select box which can be used to reorder substitutions  Creates a select box which can be used to reorder substitutions
 and text included in a printout header.  and text included in a printout header. 
   
 Inputs: $pos,$num,$maxnum  Inputs: $pos,$num,$maxnum
 where $pos is current position, $num is the unique identifier,  where $pos is current position, $num is the unique identifier,
Line 171  and $maxnum is the total number of items Line 171  and $maxnum is the total number of items
 and text in the printout header.  and text in the printout header.
   
 Returns: $output  Returns: $output
 HTML mark-up for the selectbox and a hidden form element containing  HTML mark-up for the selectbox and a hidden form element containing 
 the current position.  the current position.   
   
 =item substitution_selector()  =item substitution_selector()
   
 Creates a combination of select box for choosing an item  Creates a combination of select box for choosing an item 
 (student name, course ID or assignment note) to substitute,  (student name, course ID or assignment note) to substitute, 
 and a corresponding size limit in the header used for printouts.  and a corresponding size limit in the header used for printouts.
   
 Inputs: $num,$subst,$limit,$crstype  Inputs: $num,$subst,$limit,$crstype
 where $num is the unique identifier, $subst is the current  where $num is the unique identifier, $subst is the current 
 substitution (n,c or a, for name, course or note respectively,  substitution (n,c or a, for name, course or note respectively,
 $limit is the current size limit (integer), and $crstype is  $limit is the current size limit (integer), and $crstype is
 course type - course or community.  course type - course or community.
   
 Returns: $output  Returns: $output
 HTML mark-up for selectbox and textbox (separate table cells).  HTML mark-up for selectbox and textbox (separate table cells).  
   
 =item change_clone()  =item change_clone()
   
Line 215  use Apache::lonnet; Line 215  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonconfigsettings;  use Apache::lonconfigsettings;
   use Apache::lonparmset;
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
Line 267  sub handler { Line 268  sub handler {
     my %lt;      my %lt;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         %lt = (          %lt = (
                 conf => 'Community Configuration',                  conf => 'Community Settings',
                 edit => 'Edit Community Configuration',                  edit => 'Edit Community Settings',
                 gens => 'General community settings',                  gens => 'General community settings',
                 idnu => 'Community ID or number',                  idnu => 'Community ID or number',
                 desc => 'Community Description',                  desc => 'Community Description',
Line 294  sub handler { Line 295  sub handler {
               );                );
     } else {      } else {
         %lt = (          %lt = (
                 conf => 'Course Configuration',                  conf => 'Course Settings',
                 edit => 'Edit Course Configuration',                  edit => 'Edit Course Settings',
                 gens => 'General course settings',                  gens => 'General course settings',
                 idnu => 'Course ID or number',                  idnu => 'Course ID or number',
                 desc => 'Course Description',                  desc => 'Course Description',
Line 320  sub handler { Line 321  sub handler {
                 seme => 'Send message to student when clicking Done on Tasks',                  seme => 'Send message to student when clicking Done on Tasks',
               );                );
     }      }
       $lt{'lcrv'} = 'Required LON-CAPA version';
     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/courseprefs',      &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/courseprefs',
         text=>$lt{'conf'}});          text=>$lt{'conf'}});
     my $breadcrumbs =      my $breadcrumbs =
Line 335  sub handler { Line 337  sub handler {
         return OK;          return OK;
     }      }
   
       if ($phase eq 'releaseinfo') {
           my $loncaparev = $env{'course.'.$cid.'.internal.releaserequired'};
           if ($loncaparev) { 
               &display_loncaparev_constraints($r,$navmap,$loncaparev,$crstype);
               return OK;
           }
       }
   
     my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);
     my @prefs_order = ('courseinfo','localization','feedback','discussion',      my @prefs_order = ('courseinfo','localization','feedback','discussion',
                        'classlists','appearance','grading','printouts',                         'classlists','appearance','grading','printouts',
Line 344  sub handler { Line 354  sub handler {
         'courseinfo' =>          'courseinfo' =>
                    { text => $lt{'gens'},                     { text => $lt{'gens'},
                      help => 'Course_Environment',                       help => 'Course_Environment',
                      header => [{col1 => 'Setting',                       ordered => ['owner','co-owners','loncaparev','description',
                                  col2 => 'Value'}],                                   'courseid','categories','hidefromcat',
                      ordered => ['owner','co-owners','description','courseid',                                   'externalsyllabus','cloners','url','rolenames'],
                                  'categories','hidefromcat','externalsyllabus',  
                                  'cloners','url','rolenames'],  
                      itemtext => {                       itemtext => {
                                    'owner'            => $lt{'ownr'},                                     'owner'            => $lt{'ownr'},
                                    'co-owners'        => $lt{'cown'},                                     'co-owners'        => $lt{'cown'},
Line 360  sub handler { Line 368  sub handler {
                                    'externalsyllabus' => 'URL of Syllabus',                                     'externalsyllabus' => 'URL of Syllabus',
                                    'url'              => 'Top Level Map',                                     'url'              => 'Top Level Map',
                                    'rolenames'        => $lt{'rept'},                                     'rolenames'        => $lt{'rept'},
                                      'loncaparev'       => $lt{'lcrv'},
                                  },                                   },
                     },                      },
         'localization' =>          'localization' =>
                     { text => 'Language/TimeZone/Locale',                      { text => 'Language and Time Localization',
                       help => 'Course_Environment',                        help => 'Course_Environment',
                       header => [{col1 => 'Setting',  
                                   col2 => 'Value',}],  
                       ordered => ['languages','timezone','datelocale'],                        ordered => ['languages','timezone','datelocale'],
                       itemtext => {                        itemtext => {
                                     languages  => 'Languages used',                                      languages  => 'Languages used',
Line 378  sub handler { Line 385  sub handler {
                     { text => 'Feedback messages',                      { text => 'Feedback messages',
                       help => 'Course_Environment',                        help => 'Course_Environment',
                       header => [{col1 => 'Questions about:',                        header => [{col1 => 'Questions about:',
                                   col2 => 'Recipients'},                                    col2 => 'Recipients'}],
                                  {col1 => 'Questions about:',  
                                   col2 => 'Custom Text'}],  
                       ordered => ['question.email','comment.email','policy.email'],                        ordered => ['question.email','comment.email','policy.email'],
                       itemtext => {                        itemtext => {
                                      'question.email' => 'Resource Content',                                       'question.email' => 'Resource Content',
Line 391  sub handler { Line 396  sub handler {
         'discussion' =>          'discussion' =>
                     { text => 'Discussion and Chat',                      { text => 'Discussion and Chat',
                       help => 'Course_Environment',                        help => 'Course_Environment',
                       header => [{col1 => 'Setting',                        ordered => ['pch.roles.denied','pch.users.denied',
                                   col2 => 'Value',}],                                    'plc.roles.denied','plc.users.denied',
                       ordered => ['plc.roles.denied','plc.users.denied',  
                                   'pch.roles.denied','pch.users.denied',  
                                   'allow_limited_html_in_feedback',                                    'allow_limited_html_in_feedback',
                                   'allow_discussion_post_editing'],                                    'allow_discussion_post_editing'],
                       itemtext => {                        itemtext => {
                          'plc.roles.denied'             => 'No Resource Discussion',                           'pch.roles.denied'             => 'No Resource Discussion',
                          'plc.users.denied'             => 'No Resource Discussion',                           'pch.users.denied'             => 'No Resource Discussion',
                          'pch.roles.denied'             => 'No Chat room use',                           'plc.roles.denied'             => 'No Chat room use',
                          'pch.users.denied'             => 'No Chat room use',                           'plc.users.denied'             => 'No Chat room use',
                          allow_limited_html_in_feedback => 'Allow limited HTML in discussion posts',                           allow_limited_html_in_feedback => 'Allow limited HTML in discussion',
                          allow_discussion_post_editing  => 'Users can edit/delete own discussion posts',                           allow_discussion_post_editing  => 'Users can edit/delete own discussion posts',
                                   },                                    },
                     },                      },
Line 431  sub handler { Line 434  sub handler {
         'appearance' =>          'appearance' =>
                    { text => 'Display of resources ',                     { text => 'Display of resources ',
                      help => 'Course_Environment',                       help => 'Course_Environment',
                      header => [{col1 => 'Setting',  
                                  col2 => 'Value'}],  
                      ordered => ['default_xml_style','pageseparators',                       ordered => ['default_xml_style','pageseparators',
                                  'disable_receipt_display','texengine',                                   'disable_receipt_display','texengine',
                                  'tthoptions'],                                   'tthoptions'],
                       itemtext => {                        itemtext => {
                           default_xml_style       => 'Default XML Style File',                            default_xml_style       => 'Default XML style file',
                           pageseparators          => 'Visibly Separate Items on Pages',                            pageseparators          => 'Visibly Separate Items on Pages',
                           disable_receipt_display => 'Disable display of problem receipts',                            disable_receipt_display => 'Disable display of problem receipts',
                           texengine               => 'Force use of a specific math rendering engine',                            texengine               => 'Force use of a specific math rendering engine',
Line 447  sub handler { Line 448  sub handler {
         'grading' =>          'grading' =>
                   { text => 'Grading',                    { text => 'Grading',
                     help => 'Course_Environment',                      help => 'Course_Environment',
                     header => [{col1 => 'Setting',  
                                 col2 => 'Value',}],  
                     ordered => ['grading','rndseed',                      ordered => ['grading','rndseed',
                                 'receiptalg','disablesigfigs'],                                  'receiptalg','disablesigfigs'],
                     itemtext => {                      itemtext => {
Line 462  sub handler { Line 461  sub handler {
         'printouts' =>          'printouts' =>
                   { text => 'Printout generation',                    { text => 'Printout generation',
                     help => 'Course_Environment',                      help => 'Course_Environment',
                     header => [{col1 => 'Setting',  
                                 col2 => 'Value',}],  
                     ordered => ['problem_stream_switch','suppress_tries',                      ordered => ['problem_stream_switch','suppress_tries',
                                 'default_paper_size','print_header_format',                                  'default_paper_size','print_header_format',
                                 'disableexampointprint'],                                  'disableexampointprint','canuse_pdfforms'],
                     itemtext => {                      itemtext => {
                         problem_stream_switch => 'Allow problems to be split over pages',                          problem_stream_switch => 'Allow problems to be split over pages',
                         suppress_tries        => 'Suppress number of tries in printing',                          suppress_tries        => 'Suppress number of tries in printing',
                         default_paper_size    => 'Default paper type',                          default_paper_size    => 'Default paper type',
                         print_header_format   => 'Print header format',                          print_header_format   => 'Print header format',
                         disableexampointprint => 'Disable automatically printing point values on exams',                          disableexampointprint => 'Disable automatically printing point values on exams',
                           canuse_pdfforms    => 'Users can print problems as PDF forms and upload later for grading',
                                 },                                  },
                   },                    },
         'spreadsheet' =>          'spreadsheet' =>
                   { text => 'Spreadsheets',                    { text => 'Spreadsheets',
                     help => 'Course_Environment',                      help => 'Course_Environment',
                     header => [{col1 => 'Setting',  
                                 col2 => 'Value'}],  
                     ordered => ['spreadsheet_default_classcalc',                      ordered => ['spreadsheet_default_classcalc',
                                 'spreadsheet_default_studentcalc',                                  'spreadsheet_default_studentcalc',
                                 'spreadsheet_default_assesscalc','hideemptyrows'],                                  'spreadsheet_default_assesscalc','hideemptyrows'],
Line 493  sub handler { Line 489  sub handler {
         'bridgetasks' =>          'bridgetasks' =>
                   { text => 'Bridge tasks',                    { text => 'Bridge tasks',
                     help => 'Course_Environment',                      help => 'Course_Environment',
                     header => [{col1 => 'Setting',  
                                 col2 => 'Value'}],  
                     ordered => ['task_messages','task_grading',                      ordered => ['task_messages','task_grading',
                                 'suppress_embed_prompt'],                                  'suppress_embed_prompt'],
                     itemtext => {                      itemtext => {
Line 517  sub handler { Line 511  sub handler {
                                                  \@prefs_order,\%prefs,\%values,                                                   \@prefs_order,\%prefs,\%values,
                                                   $cnum,undef,\@allitems);                                                    $cnum,undef,\@allitems);
     } elsif ($phase eq 'display') {      } elsif ($phase eq 'display') {
         my $jscript = &get_jscript($cdom,$phase,$crstype);          my $jscript = &get_jscript($cid,$cdom,$phase,$crstype);
         my @allitems = &get_allitems(%prefs);          my @allitems = &get_allitems(%prefs);
         &Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context,          &Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context,
             \@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype);              \@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype);
Line 550  sub print_config_box { Line 544  sub print_config_box {
     my $itemtext = $item->{'itemtext'};      my $itemtext = $item->{'itemtext'};
     my $rowtotal = 0;      my $rowtotal = 0;
     my $output =      my $output =
          '<table class="LC_nested_outer">          '<h3><a href="#">'.&mt($item->{text}).'</a></h3>
           <tr>          <div>&nbsp;<span style="float:right">'.
            <th align="left" valign="middle"><span class="LC_font_larger">'.           &Apache::loncommon::help_open_topic($item->{'help'}).'</span>';
            &mt($item->{text}).'&nbsp;'.  
            &Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".  
           '</tr>';  
     if (($action eq 'feedback') || ($action eq 'classlists')) {      if (($action eq 'feedback') || ($action eq 'classlists')) {
         $output .= '          $output .= '
           <tr>              <table class="LC_nested">';   
            <td>          if (exists $item->{'header'}->[0]->{'col1'} || 
             <table class="LC_nested">              exists $item->{'header'}->[0]->{'col2'}) {
              <tr class="LC_info_row">   $output .= '          
             <tr class="LC_info_row">
               <td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>                <td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>
               <td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>                <td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
              </tr>';              </tr>';
           }
         $rowtotal ++;          $rowtotal ++;
         if ($action eq 'feedback') {          if ($action eq 'feedback') {
             $output .= &print_feedback('top',$cdom,$settings,$ordered,$itemtext,\$rowtotal);              $output .= &print_feedback('top',$cdom,$settings,$ordered,$itemtext,\$rowtotal);
Line 573  sub print_config_box { Line 566  sub print_config_box {
         }          }
         $output .= '          $output .= '
            </table>             </table>
           </td>  
          </tr>  
          <tr>  
            <td>  
             <table class="LC_nested">              <table class="LC_nested">
              <tr class="LC_info_row">               <tr class="LC_info_row">
               <td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>';                <td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>';
Line 587  sub print_config_box { Line 576  sub print_config_box {
             $output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype).              $output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype).
                        '                         '
             </table>              </table>
            </td>              <table class="LC_nested">';
           </tr>              if (exists $item->{'header'}->[0]->{'col1'} || 
           <tr>              exists $item->{'header'}->[0]->{'col2'}) {
            <td>   $output .= '          
             <table class="LC_nested">   <tr class="LC_info_row">
              <tr class="LC_info_row">    <td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>
               <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td>    <td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
               <td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>   </tr>';
              </tr>';          }
         }          }
     } else {      } else {
         $output .= '          $output .= '
           <tr>              <table class="LC_nested">';
            <td>          if (exists $item->{'header'}->[0]->{'col1'} || 
             <table class="LC_nested">              exists $item->{'header'}->[0]->{'col2'}) {
              <tr class="LC_info_row">   $output .= '          
             <tr class="LC_info_row">
               <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>                <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>
               <td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>                <td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
              </tr>';              </tr>';
           }
     }      }
     $rowtotal ++;      $rowtotal ++;
     if ($action eq 'courseinfo') {      if ($action eq 'courseinfo') {
Line 633  sub print_config_box { Line 624  sub print_config_box {
     }      }
     $output .= '      $output .= '
    </table>     </table>
   </td>  </div>';
  </tr>  
 </table><br />';  
     return ($output,$rowtotal);      return ($output,$rowtotal);
 }  }
   
Line 701  sub process_changes { Line 690  sub process_changes {
                     }                      }
                 } else {                  } else {
                     foreach my $entry (@ordered) {                      foreach my $entry (@ordered) {
                           next if (($entry eq 'loncaparev') || ($entry eq 'owner'));
                         if ($entry eq 'cloners') {                          if ($entry eq 'cloners') {
                             if ($env{'form.cloners_all'}) {                              if ($env{'form.cloners_all'}) {
                                 $newvalues{$entry} = '*';                                  $newvalues{$entry} = '*';
Line 709  sub process_changes { Line 699  sub process_changes {
                                 if (exists($env{'form.cloners_activate'})) {                                  if (exists($env{'form.cloners_activate'})) {
                                     my $actnum = $env{'form.cloners_activate'};                                      my $actnum = $env{'form.cloners_activate'};
                                     if ($actnum ne '') {                                      if ($actnum ne '') {
                                         if ($env{'form.clonersdom_'.$actnum} ne '') {                                          if ($env{'form.cloners_dom_'.$actnum} ne '') {
                                             my $clonedom = $env{'form.clonersdom_'.$actnum};                                              my $clonedom = $env{'form.cloners_dom_'.$actnum};
                                             if (&check_clone($clonedom,$disallowed) eq 'ok') {                                              if (&check_clone($clonedom,$disallowed) eq 'ok') {
                                                 $newvalues{$entry} = '*:'.$clonedom;                                                  $newvalues{$entry} = '*:'.$clonedom;
                                                 push(@clonedoms,$newvalues{$entry});                                                  push(@clonedoms,$newvalues{$entry});
Line 789  sub process_changes { Line 779  sub process_changes {
                             }                              }
                             if (&Apache::lonnet::is_course_owner($cdom,$cnum)) {                              if (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                 my $autocoowner;                                  my $autocoowner;
                                 if (($crstype eq 'Course') &&                                  if (($crstype eq 'Course') && 
                                     ($values->{'internal.coursecode'})) {                                      ($values->{'internal.coursecode'})) {
                                     my %domconf =                                      my %domconf =
                                         &Apache::lonnet::get_dom('configuration',['autoenroll'],$cdom);                                          &Apache::lonnet::get_dom('configuration',['autoenroll'],$cdom);
Line 1022  sub process_changes { Line 1012  sub process_changes {
                                                 $hdr .= $env{'form.printfmthdr_limit_'.$i};                                                  $hdr .= $env{'form.printfmthdr_limit_'.$i};
                                             }                                              }
                                             $hdr .= $env{'form.printfmthdr_sub_'.$i};                                              $hdr .= $env{'form.printfmthdr_sub_'.$i};
                                         } elsif ($env{'form.printfmthdr_sub_'.$i} ne '') {                                          } elsif ($env{'form.printfmthdr_text_'.$i} ne '') {
                                             $hdr = $env{'form.printfmthdr_sub_'.$i};                                              $hdr = $env{'form.printfmthdr_text_'.$i};
                                         }                                          }
                                         $newhdr[$env{'form.printfmthdr_pos_'.$i}] = $hdr;                                          $newhdr[$env{'form.printfmthdr_pos_'.$i}] = $hdr;
                                     }                                      }
Line 1149  sub store_changes { Line 1139  sub store_changes {
             $output .= '<h3>'.&mt($prefs->{$item}{'text'}).'</h3>';              $output .= '<h3>'.&mt($prefs->{$item}{'text'}).'</h3>';
             if (ref($changes->{$item}) eq 'HASH') {              if (ref($changes->{$item}) eq 'HASH') {
                 if (keys(%{$changes->{$item}}) > 0) {                  if (keys(%{$changes->{$item}}) > 0) {
                     $output .= &mt('Changes made:').'<ul>';                      $output .= &mt('Changes made:').'<ul style="list-style:none;">';
                     if ($item eq 'other') {                      if ($item eq 'other') {
                         foreach my $key (sort(keys(%{$changes->{$item}}))) {                          foreach my $key (sort(keys(%{$changes->{$item}}))) {
                             $storehash{$key} = $changes->{$item}{$key};                              $storehash{$key} = $changes->{$item}{$key};
                             if ($changes->{$item}{$key} eq '') {                              if ($changes->{$item}{$key} eq '') {
                                 push(@delkeys,$key);                                  push(@delkeys,$key);
                                 $output .= '<li>'.&mt('Deleted setting for [_1]','<i>'.$key.'</i>').'</li>';                                  $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]','<i>'.$key.'</i>')).'</li>';
                             } else {                              } else {
                                 $output .= '<li>'.&mt('[_1] set to [_2]','<i>'.$key.'</i>',                                  $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.$key.'</i>',
                                            "'$storehash{$key}'").'</li>';                                             "'$storehash{$key}'")).'</li>';
                             }                              }
                         }                          }
                     } else {                      } else {
Line 1190  sub store_changes { Line 1180  sub store_changes {
                                                 "'<b>".$newname."</b>'").'</li>';                                                  "'<b>".$newname."</b>'").'</li>';
                                     }                                      }
                                     if ($msg ne '') {                                      if ($msg ne '') {
                                         $output .= '<li>'.&mt($displayname).'<ul>'.$msg.'</ul></li>';                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt($displayname)).'<ul class="LC_success">'.$msg.'</ul></li>';
                                     }                                      }
                                 } else {                                  } else {
                                     next if (!exists($changes->{$item}{$key}));                                      next if (!exists($changes->{$item}{$key}));
Line 1253  sub store_changes { Line 1243  sub store_changes {
                                     if (defined($yesno{$key})) {                                      if (defined($yesno{$key})) {
                                         $displayval = &mt('No');                                          $displayval = &mt('No');
                                         if ($changes->{$item}{$key} eq 'yes') {                                          if ($changes->{$item}{$key} eq 'yes') {
                                             $displayval = &mt('Yes');                                                       $displayval = &mt('Yes');                          
                                         }                                          }
                                     } elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) {                                      } elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) {
                                         $displayval = &Apache::lonlocal::locallocaltime($displayval);                                          $displayval = &Apache::lonlocal::locallocaltime($displayval);
                                     } elsif ($key eq 'categories') {                                      } elsif ($key eq 'categories') {
                                         $displayval = $env{'form.categories_display'};                                          $displayval = $env{'form.categories_display'};
                                       } elsif ($key eq 'canuse_pdfforms') {
                                           if ($changes->{$item}{$key} eq '1') {
                                               $displayval = &mt('Yes');
                                           } elsif ($changes->{$item}{$key} eq '0') {
                                               $displayval = &mt('No');
                                           }
                                     }                                      }
                                     if ($key eq 'co-owners') {                                      if ($key eq 'co-owners') {
                                         if (ref($changes->{$item}{$key}) eq 'HASH') {                                          if (ref($changes->{$item}{$key}) eq 'HASH') {
Line 1312  sub store_changes { Line 1308  sub store_changes {
                                         if ($key eq 'url') {                                          if ($key eq 'url') {
                                             my $bkuptime=time;                                              my $bkuptime=time;
                                             $output .= ('&nbsp;'x2).&mt('(Previous URL backed up)').': '.                                              $output .= ('&nbsp;'x2).&mt('(Previous URL backed up)').': '.
                                             $storehash{'top level map backup '.$bkuptime} => $values->{$key};                                              $storehash{'top level map backup '.$bkuptime} = $values->{$key};
                                         }                                          }
                                         $output .= '</li>';                                          $output .= '</li>';
                                     }                                      }
Line 1331  sub store_changes { Line 1327  sub store_changes {
                                 }                                  }
                                 if ($key eq 'cloners') {                                  if ($key eq 'cloners') {
                                     # Get existing cloners                                      # Get existing cloners
                                     my %clonenames =                                      my %clonenames = 
                                         &Apache::lonnet::dump('environment',$cdom,$cnum,'cloners');                                          &Apache::lonnet::dump('environment',$cdom,$cnum,'cloners');
                                     if ($clonenames{'cloners'} =~ /,/) {                                      if ($clonenames{'cloners'} =~ /,/) {
                                         @oldcloner = split(/\s*\,\s*/,$clonenames{'cloners'});                                          @oldcloner = split(/\s*\,\s*/,$clonenames{'cloners'});
Line 1376  sub store_changes { Line 1372  sub store_changes {
                     $output .= &mt('An error occurred when removing course settings which are no longer in use.');                      $output .= &mt('An error occurred when removing course settings which are no longer in use.');
                 }                  }
                 $output .= '</span>';                  $output .= '</span>';
             }              } else {
         } else {                  foreach my $key (@delkeys) {
             foreach my $key (@delkeys) {                      &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key);
                 &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key);                  }
             }              }
         }          }
         if (@need_env_update) {          if (@need_env_update) {
Line 1527  sub get_course { Line 1523  sub get_course {
 }  }
   
 sub get_jscript {  sub get_jscript {
     my ($cdom,$phase,$crstype) = @_;      my ($cid,$cdom,$phase,$crstype) = @_;
     my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);      my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);
     my ($jscript,$categorize_js);      my ($jscript,$categorize_js,$loncaparev_js);
     my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript();      my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript();
     my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');      my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');
     my $cloners_js = &cloners_javascript($phase);      my $cloners_js = &cloners_javascript($phase);
Line 1546  function catsbrowser() { Line 1542  function catsbrowser() {
 }  }
 ENDSCRIPT  ENDSCRIPT
     }      }
       my $loncaparev = $env{'course.'.$cid.'.internal.releaserequired'};
       if ($loncaparev) {
           $loncaparev_js = <<ENDSCRIPT;
   function loncaparevinfo() {
       var lcrevwin = null;
       var url = '/adm/courseprefs?phase=releaseinfo';
       if (!lcrevwin || lcrevwin.closed) {
           lcrevwin=window.open(url,'releasewin','height=480,width=600,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
       } else {
           lcrevwin.focus();
       }
   }
   ENDSCRIPT
       }
     $jscript = '<script type="text/javascript" language="Javascript">'."\n".      $jscript = '<script type="text/javascript" language="Javascript">'."\n".
                $browse_js."\n".$categorize_js."\n".$cloners_js."\n".'</script>'.                 $browse_js."\n".$categorize_js."\n".$loncaparev_js."\n".
                "\n".$stubrowse_js."\n";                 $cloners_js."\n".'</script>'."\n".$stubrowse_js."\n";
     return $jscript;      return $jscript;
 }  }
   
Line 1675  sub print_courseinfo { Line 1685  sub print_courseinfo {
                            '</span>',                             '</span>',
                    input => 'textbox',                     input => 'textbox',
                    size  => '40',                     size  => '40',
                      advanced => 1
                  },                   },
         'description'  => {           'description'  => { 
                    text => '<b>'.&mt($itemtext->{'description'}).'</b>',                     text => '<b>'.&mt($itemtext->{'description'}).'</b>',
Line 1697  sub print_courseinfo { Line 1708  sub print_courseinfo {
                    text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.
                            &mt('Owner and Coordinators included automatically'),                             &mt('Owner and Coordinators included automatically'),
                    input => 'textbox',                     input => 'textbox',
                    size  => '40',                     size  => '40'
                          },                           },
         'rolenames'  => {           'rolenames'  => { 
                    text  => '<b>'.&mt($itemtext->{'rolenames'}).'</b><br />'.                     text  => '<b>'.&mt($itemtext->{'rolenames'}).'</b><br />'.
                             '('.$replace.')',                              '('.$replace.')',
                    input => 'textbox',                     input => 'textbox',
                    size  => '20',                     size  => '20',
                      advanced => 1
                         },                          },
         'externalsyllabus' => {          'externalsyllabus' => {
                    text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />('.                     text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />('.
Line 1722  sub print_courseinfo { Line 1734  sub print_courseinfo {
                    input => 'textbox',                     input => 'textbox',
                    size  => '25',                     size  => '25',
                         },                          },
           'loncaparev' => {
                      text => '<b>'.&mt($itemtext->{'loncaparev'}).'</b>',
                           },
     );      );
     my $datatable;      my $datatable;
     my $count = 0;      my $count = 0;
Line 1732  sub print_courseinfo { Line 1747  sub print_courseinfo {
             next if (!$can_categorize);              next if (!$can_categorize);
         }          }
         $count ++;          $count ++;
         $datatable .= &item_table_row_start($items{$item}{text},$count);          if (exists $items{$item}{advanced} && $items{$item}{advanced} == 1) {
           $datatable .= &item_table_row_start($items{$item}{text},$count,"advanced");
           } else {
           $datatable .= &item_table_row_start($items{$item}{text},$count);
           }
         if ($items{$item}{input} eq 'radio') {          if ($items{$item}{input} eq 'radio') {
             $datatable .= &yesno_radio($item,$settings);              $datatable .= &yesno_radio($item,$settings);
         } elsif ($item eq 'cloners') {          } elsif ($item eq 'cloners') {
Line 1848  sub print_courseinfo { Line 1867  sub print_courseinfo {
         } elsif ($item eq 'owner') {          } elsif ($item eq 'owner') {
             my $owner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'};              my $owner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'};
             if ($owner =~ /:/) {              if ($owner =~ /:/) {
                 my ($ownername,$ownerdom) = split(':',$owner);                  my ($ownername,$ownerdom) = split(':',$owner); 
                 $owner = &Apache::loncommon::plainname($ownername,$ownerdom);                  $owner = &Apache::loncommon::plainname($ownername,$ownerdom);
             } elsif ($owner ne '') {              } elsif ($owner ne '') {
                 $owner = &Apache::loncommon::plainname($owner,$cdom);                  $owner = &Apache::loncommon::plainname($owner,$cdom);
             } else {              } else {
                 $owner = &mt('None specified');                  $owner = &mt('None specified');
             }              }
             my $domdesc = &Apache::lonnet::domain($cdom,'description');  
             $datatable .= $owner;              $datatable .= $owner;
         } elsif ($item eq 'co-owners') {          } elsif ($item eq 'co-owners') {
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};              my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 1877  sub print_courseinfo { Line 1895  sub print_courseinfo {
                     $datatable .= &manage_coownership($cnum,$cdom,@currcoown);                      $datatable .= &manage_coownership($cnum,$cdom,@currcoown);
                 }                  }
             }              }
           } elsif ($item eq 'loncaparev') {
               my $loncaparev = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
               my $showreqd;
               if ($loncaparev) {
                   $showreqd = &mt('[_1] or newer',$loncaparev).' <a href="javascript:loncaparevinfo()">'.
                               &mt('Details').'</a>';
               } else {
                   $showreqd = &mt('No specific version required');
               }
               $datatable .= $showreqd;
         } else {          } else {
             $datatable .= &Apache::lonhtmlcommon::textbox($item,$settings->{$item},$items{$item}{size});              $datatable .= &Apache::lonhtmlcommon::textbox($item,$settings->{$item},$items{$item}{size});
         }          }
Line 2034  ENDSCRIPT Line 2062  ENDSCRIPT
     return;      return;
 }  }
   
   sub display_loncaparev_constraints {
       my ($r,$navmap,$loncaparev,$crstype) = @_;
       my $cid = $env{'request.course.id'};
       my $cdom = $env{'course.'.$cid.'.domain'};
       my $cnum = $env{'course.'.$cid.'.num'};
       my $output;
       my %lt = &Apache::lonlocal::texthash (
                                              'all'           => 'all',
                                              'section/group' =>  'section/group',
                                              'user'          => 'user',
                                            );
       my (%checkparms,%checkresponsetypes,%checkcrstypes,%anonsurvey,%randomizetry);
       &Apache::loncommon::build_release_hashes(\%checkparms,\%checkresponsetypes,
                                                 \%checkcrstypes,\%anonsurvey,\%randomizetry);
       if (defined($checkcrstypes{$crstype})) {
           $output .= '<h4>'.&mt('Course type: [_1] requires [_2] or newer',$crstype,
                                 $checkcrstypes{$crstype}).'</h4>';
       }
       my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps,
           %byresponsetype,%bysubmission);
       @scopeorder = ('all','section/group','user');
       my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom);
       if (ref($resourcedata) eq 'HASH') {
           foreach my $key (keys(%{$resourcedata})) {
               foreach my $item (keys(%checkparms)) {
                   if ($key =~ /(\Q$item\E)$/) {
                        if (ref($checkparms{$item}) eq 'ARRAY') {
                            my $value = $resourcedata->{$key};
                            my ($middle,$scope,$which,$level,$map,$resource);
                            if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) {
                                my $stdtype = &Apache::lonparmset::standard_parameter_types($item);
                                my $stdname = &Apache::lonparmset::standard_parameter_names($item);
                                my $valname = &get_param_description($stdtype,$value);
                                my $rev = $Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value};
                                my $start = $cid.'.';
                                if ($key =~ /^\Q$start\E(\[useropt\:($match_username\:$match_domain)\]\.)/) {
                                    $middle = $1;
                                    $which = $2;
                                    $scope = 'user'; 
                                } elsif ($key =~ /^\Q$start\E(\[(\w+)\]\.)/) {
                                    $middle = $1;
                                    $which = $2;
                                    $scope = 'section/group';
                                } else {
                                    $scope = 'all';
                                }
                                my $what="$stdname=$valname";
                                if ($key =~ /^\Q$start$middle\E\w+\.\Q$item\E$/) {
                                    $level = 'general';
                                    if ($scope eq 'all') {
                                        if (ref($fromparam{$rev}{$scope}) eq 'ARRAY') {
                                            unless(grep(/^\Q$what\E$/,@{$fromparam{$rev}{$scope}})) {
                                                push(@{$fromparam{$rev}{$scope}},$what);
                                            }
                                        } else {
                                            push(@{$fromparam{$rev}{$scope}},$what);
                                        }
                                    } else {
                                        if (ref($fromparam{$rev}{$scope}{$which}) eq 'ARRAY') {
                                            unless (grep(/^\Q$what\E$/,@{$fromparam{$rev}{$scope}{$which}})) {
                                                push(@{$fromparam{$rev}{$scope}{$which}},$what);
                                            }
                                        } else {
                                            push(@{$fromparam{$rev}{$scope}{$which}},$what);
                                        }
                                    }
                                    $rowspan{$rev} ++;
                                } elsif ($key =~ /^\Q$start$middle\E(.+)___\(all\).\w+\.\Q$item\E$/) {
                                    $level = 'folder';
                                    $map = $1;
                                    if ($scope eq 'all') {
                                        if (ref($bymap{$map}{$rev}{$scope}) eq 'ARRAY') {
                                            unless(grep(/^\Q$what\E$/,@{$bymap{$map}{$rev}{$scope}})) {
                                                push(@{$bymap{$map}{$rev}{$scope}},$what);
                                            }
                                        } else {
                                            push(@{$bymap{$map}{$rev}{$scope}},$what);
                                        }
                                    } else {
                                        if (ref($bymap{$map}{$rev}{$scope}{$which}) eq 'ARRAY') {
                                            unless(grep(/^\Q$what\E$/,@{$bymap{$map}{$rev}{$scope}{$which}})) {
                                                push(@{$bymap{$map}{$rev}{$scope}{$which}},$what);
                                            }
                                        } else {
                                            push(@{$bymap{$map}{$rev}{$scope}{$which}},$what);
                                        }
                                    }
                                } elsif ($key =~ /^\Q$start$middle\E(.+)\.\w+\.\Q$item\E$/) {
                                    $level = 'resource';
                                    $resource = $1;
                                    if ($scope eq 'all') {
                                        if (ref($byresource{$resource}{$rev}{$scope}) eq 'ARRAY') {
                                            unless(grep(/^\Q$what\E$/,@{$byresource{$resource}{$rev}{$scope}})) {
                                                push(@{$byresource{$resource}{$rev}{$scope}},$what);
                                            }
                                        } else {
                                            push(@{$byresource{$resource}{$rev}{$scope}},$what);
                                        }
                                    } else {
                                        if (ref($byresource{$resource}{$rev}{$scope}{$which}) eq 'ARRAY') {
                                            unless (grep(/^\Q$what\E$/,@{$byresource{$resource}{$rev}{$scope}{$which}})) {
                                                push(@{$byresource{$resource}{$rev}{$scope}{$which}},$what);
                                            }
                                        } else {
                                            push(@{$byresource{$resource}{$rev}{$scope}{$which}},$what);
                                        }
                                    }
                                }
                           }
                       }
                   }
               }
           }
           if (keys(%fromparam)) {
               $output .= '<h4>'.&mt('Requirements from general settings').'</h4>'.
                          &Apache::loncommon::start_data_table().
                          &Apache::loncommon::start_data_table_header_row().
                          '<th>'.&mt('Release').'</th><th>'.&mt('Scope').'</th>'.
                          '<th>'.&mt('Extent').'</th><th>'.&mt('Setting').'</th>'.
                          &Apache::loncommon::end_data_table_header_row();
               foreach my $rev (keys(%fromparam)) {
                   $output .=  &Apache::loncommon::start_data_table_row().
                               '<td rowspan="'.$rowspan{$rev}.'">'.$rev.'</td>';
                   my $newrow;
                   foreach my $scope (@scopeorder) {
                       if (ref($fromparam{$rev}{$scope}) eq 'HASH') {
                            if ($newrow) {
                                $output .= &Apache::loncommon::continue_data_table_row();
                            }
                            $output .= '<td>'.$lt{$scope}.'</td>';
                            foreach my $which (sort(keys(%{$fromparam{$rev}{$scope}}))) {
                                $output .= '<td>'.$which.'</td><td>'.
                                           join('<br />',@{$fromparam{$rev}{$scope}{$which}}).'</td>';
                            }
                            $output .= &Apache::loncommon::end_data_table_row();
                            $newrow = 1;
                       } elsif (ref($fromparam{$rev}{$scope}) eq 'ARRAY') {
                            if ($newrow) {
                                $output .= &Apache::loncommon::continue_data_table_row();
                            }
                            $output .= '<td>'.$lt{$scope}.'</td><td>&nbsp;</td><td>'.
                                       join('<br />',@{$fromparam{$rev}{$scope}}).'</td>'.
                                       &Apache::loncommon::end_data_table_row();
                            $newrow = 1;
                       }
                   }
               }
               $output .= &Apache::loncommon::end_data_table().'<br />';
           }
       }
   
       if (defined($navmap)) {
           my %anonsubms=&Apache::lonnet::dump('nohist_anonsurveys',$cdom,$cnum);
           my $rev_anonsurv=$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'};
           my %randtrysubms=&Apache::lonnet::dump('nohist_randomizetry',$cdom,$cnum);
           my $rev_randtry=$Apache::lonnet::needsrelease{'parameter:type:randomizetry'};
           my $stdtype=&Apache::lonparmset::standard_parameter_types('type');
           my $stdname=&Apache::lonparmset::standard_parameter_names('type');
           my $valanon=&get_param_description($stdtype,'anonsurvey');
           my $valrandtry=&get_param_description($stdtype,'randomizetry');
   
           foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_problem() },1,0)) {
               my @parts = @{$res->parts()};
               my $symb = $res->symb();
               my $enclosing_map = &Apache::lonnet::declutter($res->enclosing_map_src());
               foreach my $part (@parts) {
                   if (exists($anonsubms{$symb."\0".$part})) {
                       my $rev = $rev_anonsurv;
                       my $what="$stdname=$valanon";
                       if (ref($bysubmission{$symb}{$rev}) eq 'ARRAY') {
                           unless (grep(/^\Q$what\E/,@{$bysubmission{$symb}{$rev}})) {
                               push(@{$bysubmission{$symb}{$rev}},$what);
                           }
                       } else {
                           push(@{$bysubmission{$symb}{$rev}},$what);
                       }
                       $allmaps{$enclosing_map} = 1;
                   }
                   if (exists($randtrysubms{$symb."\0".$part})) {
                       my $rev = $rev_randtry;
                       my $what="$stdname=$valrandtry";
                       if (ref($bysubmission{$symb}{$rev}) eq 'ARRAY') {
                           unless (grep(/^\Q$what\E/,@{$bysubmission{$symb}{$rev}})) {
                               push(@{$bysubmission{$symb}{$rev}},$what);
                           }
                       } else {
                           push(@{$bysubmission{$symb}{$rev}},$what);
                       }
                       $allmaps{$enclosing_map} = 1;
                   }
               }
               my %responses = $res->responseTypes();
               foreach my $key (keys(%responses)) {
                   if (exists($checkresponsetypes{$key})) {
                       push(@{$byresponsetype{$symb}{$checkresponsetypes{$key}}},$key);
                       $allmaps{$enclosing_map} = 1;
                   }
               }
           }
           if (keys(%byresource) > 0) {
               foreach my $symb (keys(%byresource)) {
                   my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb);
                   $allmaps{$map} = 1;
               }
           }
           if (keys(%bymap) > 0) {
               foreach my $map (keys(%bymap)) {
                   $allmaps{$map} = 1;
               }
           }
           foreach my $map (keys(%allmaps)) {
               my $mapres = $navmap->getResourceByUrl($map);
               my $mapsymb = $mapres->symb();
               $toshow{$mapsymb} = 1;
               if (ref($mapres)) {
                   my $pcslist = $mapres->map_hierarchy();
                   if ($pcslist ne '') {
                       foreach my $pc (split(/,/,$pcslist)) {
                           my $res = $navmap->getByMapPc($pc);
                           if (ref($res)) {
                               my $symb = $res->symb();
                               unless ($symb eq '______') {
                                   $toshow{$symb} = 1;
                               }
                           }
                       }
                   }
               }
           }
       }
       my $mapres_header = '<h4>'.
                           &mt('Requirements for specific folders or resources').
                           '</h4>';
       if ((keys(%toshow) > 0) || (keys(%byresource) > 0) || 
           (keys(%bysubmission) > 0) || (keys(%byresponsetype))) {
           $output .= $mapres_header;
       }
       my $top_header = '<h3>'.&mt('LON-CAPA version dependencies').'</h3>';
       my $title = 'Version Constraints';
       my $start_page =
           &Apache::loncommon::start_page($title,undef,{'only_body' => 1,});
       $r->print($start_page.$top_header);
       if ($output) {
           $r->print($output);
           if (defined($navmap)) {
               &show_contents_view($r,$navmap,$cid,\%toshow,\%bymap,\%byresource,\%bysubmission,
                                   \%byresponsetype,\@scopeorder,\%lt);
           }
           $r->print('<br /><br />'); 
       } else {
           $r->print('<p class="LC_info">'.
                     &mt('No version requirements from resource content or settings.').
                     '</p>'); 
       }
       $r->print(&Apache::loncommon::end_page());
       return;
   }
   
   sub show_contents_view {
       my ($r,$navmap,$cid,$toshow,$bymap,$byresource,$bysubmission,$byresponsetype,
           $scopeorder,$lt) = @_;
       if ((keys(%{$toshow}) > 0) || (keys(%{$byresource}) > 0) || 
           (keys(%{$bysubmission}) > 0) || (keys(%{$byresponsetype}) > 0)) {
           my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons");
           my $whitespace = '<img src="'.$location.'/whitespace_21.gif" alt="" />';
           my $icon =  '<img src="'.$location.'/navmap.folder.open.gif" alt="" />';
           my $topmap = $env{'course.'.$cid.'.url'};
           $r->print(&Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_header_row().
                     '<th>'.&mt('Location').'</th><th>'.&mt('Release').'</th>'.
                     '<th>'.&mt('Attribute/Setting').'</th>'.
                     &Apache::loncommon::end_data_table_header_row().
                     &Apache::loncommon::start_data_table_row().
                     '<td>&nbsp;'.$icon.'&nbsp;'.&mt('Main Course Documents').'</td>');
                     &releases_by_map($r,$bymap,$topmap,$scopeorder,$lt);
                     $r->print(&Apache::loncommon::end_data_table_row());
           my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
           my $curRes;
           my $depth = 0;
           my %parent = ();
           my $startcount = 5;
           my $lastcontainer = $startcount;
           while ($curRes = $it->next()) {
               if ($curRes == $it->BEGIN_MAP()) {
                   $depth++;
                   $parent{$depth}= $lastcontainer;
               }
               if ($curRes == $it->END_MAP()) {
                   $depth--;
                   $lastcontainer = $parent{$depth};
               }
               my $indent;
               for (my $i=0; $i<$depth; $i++) {
                   $indent.= $whitespace;
               }
               if (ref($curRes)) {
                   my $symb = $curRes->symb();
                   my $ressymb = $symb;
                   my $srcf = $curRes->src();
                   my $title = &Apache::lonnet::gettitle($srcf);
                   if (($curRes->is_sequence()) || ($curRes->is_page())) {
                       next unless($toshow->{$symb});
                       my ($parent,$ind,$url) = &Apache::lonnet::decode_symb($symb);
                       $icon =  '<img src="'.$location.'/navmap.folder.open.gif" alt="" />';
                       if ($curRes->is_page()) {
                           $icon = '<img src="'.$location.'/navmap.page.open.gif" alt="" />';
                       }
                       my $rowspan = 1;
                       if (ref($bymap->{$url}) eq 'HASH') {
                           $rowspan = scalar(keys(%{$bymap->{$url}}));
                       }
                       $r->print(&Apache::loncommon::start_data_table_row().
                                 '<td rowspan="'.$rowspan.'">'.$indent.$icon.'&nbsp;'.$title.'</td>');
                       &releases_by_map($r,$bymap,$url,$scopeorder);
                       $r->print(&Apache::loncommon::end_data_table_row());
                   } else {
                       my $rowspan;
                       if (ref($byresource->{$symb}) eq 'HASH') {
                           $rowspan += scalar(keys(%{$byresource->{$symb}}));
                       }
                       if (ref($bysubmission->{$symb}) eq 'HASH') {
                           $rowspan += scalar(keys(%{$bysubmission->{$symb}}));
                       }
                       if (ref($byresponsetype->{$symb}) eq 'HASH') {
                           $rowspan += scalar(keys(%{$byresponsetype->{$symb}}));
                       }
                       next if (!$rowspan);
                       $icon = '<img class="LC_contentImage" src="'.$location.'/problem.gif" alt="'.
                               &mt('Problem').'" />';
                       $r->print(&Apache::loncommon::start_data_table_row().
                                 '<td rowspan="'.$rowspan.'">'.$indent.$icon.'&nbsp;'.$title.'</td>');
                       my $newrow;
                       if (ref($byresource->{$symb}) eq 'HASH') {
                           foreach my $rev (sort(keys(%{$byresource->{$symb}}))) {
                               if ($newrow) {
                                   $r->print(&Apache::loncommon::continue_data_table_row());
                               }
                               $r->print('<td valign="middle">'.$rev.'</td><td>');
                               if (ref($byresource->{$symb}{$rev}) eq 'HASH') {
                                   $r->print('<table border="0">');
                                   foreach my $scope (@{$scopeorder}) {
                                       if (ref($byresource->{$symb}{$rev}{$scope}) eq 'HASH') {
                                           $r->print('<tr><td>'.&mt('Setting - scope: [_1]',$lt->{$scope}).'</td>');
                                           foreach my $which (sort(keys(%{$byresource->{$symb}{$rev}{$scope}}))) {
                                               $r->print('<td>'.$which.'</td><td>'.
                                                   join('<br />',@{$byresource->{$symb}{$rev}{$scope}{$which}}).
                                                         '</td>');
                                           }
                                           $r->print('</tr>');
                                       } elsif (ref($byresource->{$symb}{$rev}{$scope}) eq 'ARRAY') {
                                           $r->print('<tr><td>'.&mt('Setting - scope: [_1]',$lt->{$scope}).'</td>'.
                                                     '<td>&nbsp;</td><td>'.
                                                     join('<br />',@{$byresource->{$symb}{$rev}{$scope}}).'</td></tr>');
                                       }
                                   }
                                   $r->print('</table>');
                               }
                               $r->print('</td>');
                               $r->print(&Apache::loncommon::end_data_table_row());
                               $newrow = 1;
                           }
                       }
                       if (ref($bysubmission->{$symb}) eq 'HASH') {
                           foreach my $rev (sort(keys(%{$bysubmission->{$symb}}))) {
                               if ($newrow) {
                                   $r->print(&Apache::loncommon::continue_data_table_row());
                               }
                               $r->print('<td>'.$rev.'</td><td>');
                               if (ref($bysubmission->{$symb}{$rev}) eq 'ARRAY') {
                                   $r->print(&mt('Submissions to: ').' '.
                                            join(', ',@{$bysubmission->{$symb}{$rev}}));
                               }
                               $r->print('</td>');
                               $r->print(&Apache::loncommon::end_data_table_row());
                               $newrow = 1;
                           }
                       }
                       if (ref($byresponsetype->{$symb}) eq 'HASH') {
                           foreach my $rev (sort(keys(%{$byresponsetype->{$symb}}))) {
                               if ($newrow) {
                                   $r->print(&Apache::loncommon::continue_data_table_row());
                               }
                               $r->print('<td>'.$rev.'</td><td>');
                               if (ref($byresponsetype->{$symb}{$rev}) eq 'ARRAY') {
                                   $r->print(&mt('Response Type(s): ').' '.
                                            join('<br />',@{$byresponsetype->{$symb}{$rev}}));
                               }
                               $r->print('</td>');
                           }
                           $r->print(&Apache::loncommon::end_data_table_row());
                       }
                   }
               }
           }
           $r->print(&Apache::loncommon::end_data_table());
       }
   }
   
   sub releases_by_map {
       my ($r,$bymap,$url,$scopeorder,$lt) = @_;
       return unless ((ref($bymap) eq 'HASH') && (ref($scopeorder) eq 'ARRAY'));
       if (ref($bymap->{$url}) eq 'HASH') {
           foreach my $rev (sort(keys(%{$bymap->{$url}}))) {
               $r->print('<td valign="middle">'.$rev.'</td><td>');
               if (ref($bymap->{$url}{$rev}) eq 'HASH') {
                   $r->print('<table border="0">');
                   foreach my $scope (@{$scopeorder}) {
                       if (ref($bymap->{$url}{$rev}{$scope}) eq 'HASH') {
                           $r->print('<tr><td>'.&mt('Setting - scope: [_1]',$lt->{$scope}).'</td>');
                           foreach my $which (sort(keys(%{$bymap->{$url}{$rev}{$scope}}))) {
                               $r->print('<td>'.$which.'</td><td>'.
                                         join('<br />',@{$bymap->{$url}{$rev}{$scope}{$which}}).
                                         '</td>');
                           }
                           $r->print('</tr>');
                       } elsif (ref($bymap->{$url}{$rev}{$scope}) eq 'ARRAY') {
                           $r->print('<tr><td>'.&mt('Setting - scope: [_1]',$lt->{$scope}).
                                     '</td><td>&nbsp;</td><td>'.
                                     join('<br />',@{$bymap->{$url}{$rev}{$scope}}).'</td></tr>');
                       }
                   }
                   $r->print('</table>');
               }
               $r->print('</td>');
           }
       } else {
           $r->print('<td colspan="2">&nbsp;</td>');
       }
       return;
   }
   
   sub get_param_description {
       my ($stdtype,$value) = @_;
       my $name = $value;
       my $paramstrings = &Apache::lonparmset::standard_string_options($stdtype);
       unless (ref($paramstrings) eq 'ARRAY') {
           return $name;
       }
       foreach my $possibilities (@{$paramstrings}) {
           next unless (ref($possibilities) eq 'ARRAY');
           my ($thing, $description) = @{ $possibilities };
           if ($thing eq $value) {
               $name = $description;
               last;
           }
       }
       return $name;
   }
   
 sub show_autocoowners {  sub show_autocoowners {
     my (@currcoown) = @_;      my (@currcoown) = @_;
     my $output = '<i>'.&mt('Co-ownership is set automatically when a Course Coordinator role is assigned to official course personnel (from institutional data).').'</i>';      my $output = '<i>'.&mt('Co-ownership is set automatically when a Course Coordinator role is assigned to official course personnel (from institutional data).').'</i>';
     if (@currcoown > 0) {      if (@currcoown > 0) { 
         $output .= '<br />'.&mt('Current co-owners are:').'&nbsp;'.          $output .= '<br />'.&mt('Current co-owners are:').'&nbsp;'.
                    join(', ',map { &Apache::loncommon::plainname(split(':',$_)); } (@currcoown));                     join(', ',map { &Apache::loncommon::plainname(split(':',$_)); } (@currcoown));
     } else {      } else {
         $output .= '<br />'.&mt('Currently no co-owners.');          $output .= '<br />'.&mt('Currently no co-owners.');
     }      } 
     return $output;      return $output;
 }  }
   
Line 2124  sub manage_coownership  { Line 2601  sub manage_coownership  {
         $output = &Apache::loncommon::start_data_table();          $output = &Apache::loncommon::start_data_table();
     }      }
     if (@currcoown) {      if (@currcoown) {
         if ($is_coowner || $is_pending) {          if ($is_coowner || $is_pending) { 
             $output .= &Apache::loncommon::start_data_table().              $output .= &Apache::loncommon::start_data_table().
                        &Apache::loncommon::start_data_table_row().'<td>';                         &Apache::loncommon::start_data_table_row().'<td>';
         }          }
         $output .= &mt('Current co-owners are:').'&nbsp;'.          $output .= &mt('Current co-owners are:').'&nbsp;'.
                    join(', ', map { &Apache::loncommon::plainname(split(':',$_)); } (@currcoown));                     join(', ', map { &Apache::loncommon::plainname(split(':',$_)); } (@currcoown));  
         if ($is_coowner || $is_pending) {          if ($is_coowner || $is_pending) {
             $output .= '</td>'.&Apache::loncommon::end_data_table_row();              $output .= '</td>'.&Apache::loncommon::end_data_table_row(); 
         }          }
     }      }
     if ($is_coowner || $is_pending) {      if ($is_coowner || $is_pending) {
         if (@currcoown) {          if (@currcoown) { 
             $output .= &Apache::loncommon::start_data_table_row().'<td>';              $output .= &Apache::loncommon::start_data_table_row().'<td>';
         }          }
         $output .= '<span class="LC_nobreak">';          $output .= '<span class="LC_nobreak">';
Line 2163  sub print_localization { Line 2640  sub print_localization {
     }      }
     my %items = (      my %items = (
         languages => {          languages => {
                         text => &mt($itemtext->{'languages'}).'<br />'.                          text => '<b>'.&mt($itemtext->{'languages'}).'</b><br />'.
                                 &mt("(will override user's preference)"),                                  &mt("(overrides individual user preference)"),
                         input => 'selectbox',                          input => 'selectbox',
                      },                        }, 
         timezone => {          timezone => {
                         text  => &mt($itemtext->{'timezone'}),                          text  => '<b>'.&mt($itemtext->{'timezone'}).'</b>',
                         input => 'selectbox',                          input => 'selectbox',
                     },                      },
         datelocale  => {           datelocale  => { 
                          text => &mt($itemtext->{'datelocale'}),                           text => '<b>'.&mt($itemtext->{'datelocale'}).'</b>',
                          input => 'selectbox',                           input => 'selectbox',
                        },                         },
     );      );
Line 2290  sub print_feedback { Line 2767  sub print_feedback {
   
     foreach my $item (@{$ordered}) {      foreach my $item (@{$ordered}) {
         $count ++;          $count ++;
         $datatable .= &item_table_row_start($items{$item}{text},$count);          if ($position eq 'top') {
           $datatable .= &item_table_row_start($items{$item}{text},$count);
           } else {
           $datatable .= &item_table_row_start($items{$item}{text}."<br/>(Custom text)",$count, "advanced");
           }
         if ($position eq 'top') {          if ($position eq 'top') {
             my $includeempty = 0;              my $includeempty = 0;
             $datatable .= &user_table($cdom,$item,\@sections,              $datatable .= &user_table($cdom,$item,\@sections,
Line 2561  sub role_checkboxes { Line 3042  sub role_checkboxes {
                 $output .= '<tr>';                  $output .= '<tr>';
             }              }
         }          }
         $output .= '<td align="left"><span class="LC_nobreak"><label><input type="checkbox" name='.          $output .= '<td align="left"><span class="LC_nobreak"><label><input type="checkbox" name="'.
                    $item.'" value="'.$role.'"'.$checked.'/>&nbsp;'.                     $item.'" value="'.$role.'"'.$checked.'/>&nbsp;'.
                    $plrole.'</label></span></td>';                     $plrole.'</label></span></td>';
         if ($showsections) {          if ($showsections) {
Line 2593  sub role_checkboxes { Line 3074  sub role_checkboxes {
                     $output .= '<tr>';                      $output .= '<tr>';
                 }                  }
             }              }
             $output .= '<td><span class="LC_nobreak"><label><input type="checkbox" name='.              $output .= '<td><span class="LC_nobreak"><label><input type="checkbox" name="'.
                        $item.'" value="'.$value.'"'.$checked.' />&nbsp;'.$rolename.                         $item.'" value="'.$value.'"'.$checked.' />&nbsp;'.$rolename.
                        '</label></span></td>';                         '</label></span></td>';
             if ($showsections) {              if ($showsections) {
Line 2630  sub print_classlists { Line 3111  sub print_classlists {
     } else {      } else {
         @ordered = ('student_classlist_view',          @ordered = ('student_classlist_view',
                     'student_classlist_opt_in',                      'student_classlist_opt_in',
                     'student_classlist_portfiles');                       'student_classlist_portfiles');
     }      }
     my %lt;      my %lt;
   
Line 2747  sub print_grading { Line 3228  sub print_grading {
                    input => 'selectbox',                     input => 'selectbox',
                    options => {                     options => {
                                 standard => &mt('Standard: shows points'),                                  standard => &mt('Standard: shows points'),
                                   categories => &mt('Categories: shows points according to categories'),
                                 external => &mt('External: shows number of completed parts and totals'),                                  external => &mt('External: shows number of completed parts and totals'),
                                 externalnototals => &mt('External: shows only number of completed parts'),                                  externalnototals => &mt('External: shows only number of completed parts'),
                                 spreadsheet => &mt('Spreadsheet: (with link to detailed scores)'),                                   spreadsheet => &mt('Spreadsheet: (with link to detailed scores)'), 
                               },                                },
                    order => ['standard','external','externalnototals','spreadsheet'],                     order => ['standard','categories','external','externalnototals','spreadsheet'],
                  },                   },
         'rndseed' => {          'rndseed' => {
                    text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'.                     text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'.
                            '<span class="LC_error">'.'<br />'.                             '<span class="LC_warning">'.'<br />'.
                            &mt('Modifying this will make problems have different numbers and answers!').                             &mt('Modifying this will make problems have different numbers and answers!').
                            '</span>',                             '</span>',
                    input => 'selectbox',                     input => 'selectbox',
Line 2768  sub print_grading { Line 3250  sub print_grading {
                                 '64bit5' => '64bit5',                                  '64bit5' => '64bit5',
                               },                                },
                    order => ['32bit','64bit','64bit2','64bit3','64bit4','64bit5'],                     order => ['32bit','64bit','64bit2','64bit3','64bit4','64bit5'],
                      advanced => 1
                  },                   },
         'receiptalg'  => {          'receiptalg'  => {
                    text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'.
Line 2779  sub print_grading { Line 3262  sub print_grading {
                                 receipt3 => 'receipt3',                                  receipt3 => 'receipt3',
                               },                                },
                    order => ['receipt','receipt2','receipt3'],                     order => ['receipt','receipt2','receipt3'],
                      advanced => 1
                  },                   },
         'disablesigfigs' => {          'disablesigfigs' => {
                    text => '<b>'.&mt($itemtext->{'disablesigfigs'}).'</b>',                     text => '<b>'.&mt($itemtext->{'disablesigfigs'}).'</b>',
Line 2827  sub print_printouts { Line 3311  sub print_printouts {
             text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>',              text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>',
             input => 'radio',              input => 'radio',
                                  },                                   },
           canuse_pdfforms => {
               text  => '<b>'.&mt($itemtext->{'canuse_pdfforms'}).'</b>',
               input => 'selectbox',
               options => {
                            1    => &mt('Yes'),
                            0    => &mt('No'),
                          },
               order => ['1','0'],
               nullval => 'None specified - use domain default',
                       }
     );      );
     return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype);      return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype);
 }  }
Line 2957  sub get_other_items { Line 3451  sub get_other_items {
 }  }
   
 sub item_table_row_start {  sub item_table_row_start {
     my ($text,$count) = @_;      my ($text,$count,$add_class) = @_;
     my $output;      my $output;
     if ($count%2) {   my $css_class = ($count % 2) ? 'LC_odd_row' : 'LC_even_row';
         $output .= '<tr class="LC_odd_row">';   $css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
     } else {   $output .= '<tr class="'.$css_class.'">'."\n";;
         $output .= '<tr>';  
     }  
     $output .= '<td class="LC_left_item">'.$text.      $output .= '<td class="LC_left_item">'.$text.
                '</td><td class="LC_right_item" align="right">';                 '</td><td class="LC_right_item">';
     return $output;      return $output;
 }  }
   
Line 3042  sub make_item_rows { Line 3534  sub make_item_rows {
         my $count = 0;          my $count = 0;
         foreach my $item (@{$ordered}) {          foreach my $item (@{$ordered}) {
             $count ++;              $count ++;
             $datatable .= &item_table_row_start($items->{$item}{text},$count);              if (exists $items->{$item}{advanced} && $items->{$item}{advanced} == 1) {
                   $datatable .= &item_table_row_start($items->{$item}{text},$count,"advanced");
               } else {
                   $datatable .= &item_table_row_start($items->{$item}{text},$count);
               }
             if ($item eq 'nothideprivileged') {              if ($item eq 'nothideprivileged') {
                 $datatable .= &nothidepriv_row($cdom,$item,$settings,$crstype);                  $datatable .= &nothidepriv_row($cdom,$item,$settings,$crstype);
             } elsif ($item eq 'print_header_format') {              } elsif ($item eq 'print_header_format') {
Line 3298  sub substitution_selector { Line 3794  sub substitution_selector {
                     a => 'assignment note',                      a => 'assignment note',
              );               );
     my $output .= &mt('Substitution').'<br />'.      my $output .= &mt('Substitution').'<br />'.
                   '<select name=""printfmthdr_sub__'.$num.'">';                    '<select name="printfmthdr_sub_'.$num.'">';
     if ($subst eq '') {      if ($subst eq '') {
         $output .= '<option value="" selected="selected"> </option>';          $output .= '<option value="" selected="selected"> </option>';
     }      }
Removed from v.1.8.2.11  
changed lines
  Added in v.1.41

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