[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.7 and 1.28.2.5

version 1.8.2.7, 2010/02/21 01:06:13 version 1.28.2.5, 2010/12/22 16:57:41
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 272  sub handler { Line 272  sub handler {
                 gens => 'General community settings',                  gens => 'General community settings',
                 idnu => 'Community ID or number',                  idnu => 'Community ID or number',
                 desc => 'Community Description',                  desc => 'Community Description',
                   ownr => 'Community Owner',
                   cown => 'Community Co-owners',
                 catg => 'Categorize community',                  catg => 'Categorize community',
                 excc => 'Exclude from community catalog',                  excc => 'Exclude from community catalog',
                 clon => 'Users allowed to clone community',                  clon => 'Users allowed to clone community',
Line 297  sub handler { Line 299  sub handler {
                 gens => 'General course settings',                  gens => 'General course settings',
                 idnu => 'Course ID or number',                  idnu => 'Course ID or number',
                 desc => 'Course Description',                  desc => 'Course Description',
                   ownr => 'Course Owner',
                   cown => 'Course Co-owners',
                 catg => 'Categorize course',                  catg => 'Categorize course',
                 excc => 'Exclude from course catalog',                  excc => 'Exclude from course catalog',
                 clon => 'Users allowed to clone course',                  clon => 'Users allowed to clone course',
Line 316  sub handler { Line 320  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 342  sub handler { Line 347  sub handler {
                      help => 'Course_Environment',                       help => 'Course_Environment',
                      header => [{col1 => 'Setting',                       header => [{col1 => 'Setting',
                                  col2 => 'Value'}],                                   col2 => 'Value'}],
                      ordered => ['description','courseid','categories',                       ordered => ['owner','co-owners','loncaparev','description',
                                  'hidefromcat','cloners','externalsyllabus',                                   'courseid','categories','hidefromcat',
                                  'url','rolenames'],                                   'externalsyllabus','cloners','url','rolenames'],
                      itemtext => {                       itemtext => {
                                    description      => $lt{'desc'},                                     'owner'            => $lt{'ownr'},
                                    courseid         => $lt{'idnu'},                                     'co-owners'        => $lt{'cown'},
                                    categories       => $lt{'catg'},                                     'description'      => $lt{'desc'},
                                    hidefromcat      => $lt{'excc'},                                     'courseid'         => $lt{'idnu'},
                                    cloners          => $lt{'clon'},                                      'categories'       => $lt{'catg'},
                                    externalsyllabus => 'URL of Syllabus',                                     'hidefromcat'      => $lt{'excc'},
                                    url              => 'Top Level Map',                                     'cloners'          => $lt{'clon'}, 
                                    rolenames        => $lt{'rept'},                                     'externalsyllabus' => 'URL of Syllabus',
                                      'url'              => 'Top Level Map',
                                      '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',                        header => [{col1 => 'Setting',
                                   col2 => 'Value',}],                                    col2 => 'Value',}],
Line 385  sub handler { Line 393  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 412  sub handler { Line 418  sub handler {
                      ordered => ['default_enrollment_start_date',                       ordered => ['default_enrollment_start_date',
                                  'default_enrollment_end_date',                                   'default_enrollment_end_date',
                                  'nothideprivileged','student_classlist_view',                                   'nothideprivileged','student_classlist_view',
                                  'student_opt_in','student_classlist_portfiles'],                                   'student_classlist_opt_in','student_classlist_portfiles'],
                      itemtext => {                       itemtext => {
                          default_enrollment_start_date => 'Start date',                           default_enrollment_start_date => 'Start date',
                          default_enrollment_end_date   => 'End date',                           default_enrollment_end_date   => 'End date',
                          nothideprivileged             => $lt{'priv'},                           nothideprivileged             => $lt{'priv'},
                          student_classlist_view        => $lt{'stuv'},                           student_classlist_view        => $lt{'stuv'},
                          student_opt_in                => $lt{'stul'},                           student_classlist_opt_in      => $lt{'stul'},
                          student_classlist_portfiles   => 'Include link to accessible portfolio files',                           student_classlist_portfiles   => 'Include link to accessible portfolio files',
                                   },                                    },
                    },                     },
Line 426  sub handler { Line 432  sub handler {
                    { text => 'Display of resources ',                     { text => 'Display of resources ',
                      help => 'Course_Environment',                       help => 'Course_Environment',
                      header => [{col1 => 'Setting',                       header => [{col1 => 'Setting',
                                  col2 => 'Value'}],                                   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 460  sub handler { Line 466  sub handler {
                                 col2 => 'Value',}],                                  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' =>
Line 546  sub print_config_box { Line 553  sub print_config_box {
     my $output =      my $output =
          '<table class="LC_nested_outer">           '<table class="LC_nested_outer">
           <tr>            <tr>
            <th align="left" valign="middle"><span class="LC_font_larger">'.             <th align="left" valign="middle"><span class="LC_nobreak" style="font-size: larger;" >'.
            &mt($item->{text}).'&nbsp;'.             &mt($item->{text}).'&nbsp;'.
            &Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".             &Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".
           '</tr>';            '</tr>';
Line 554  sub print_config_box { Line 561  sub print_config_box {
         $output .= '          $output .= '
           <tr>            <tr>
            <td>             <td>
             <table class="LC_nested">              <table class="LC_nested">';
              <tr class="LC_info_row">          if (exists $item->{'header'}->[0]->{'col1'} || 
               exists $item->{'header'}->[0]->{'col2'}) {
    $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 585  sub print_config_box { Line 596  sub print_config_box {
           </tr>            </tr>
           <tr>            <tr>
            <td>             <td>
             <table class="LC_nested">              <table class="LC_nested">';
              <tr class="LC_info_row">              if (exists $item->{'header'}->[0]->{'col1'} || 
               <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td>              exists $item->{'header'}->[0]->{'col2'}) {
               <td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>   $output .= '          
              </tr>';   <tr class="LC_info_row">
     <td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>
     <td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
    </tr>';
               }
         }          }
     } else {      } else {
         $output .= '          $output .= '
           <tr>            <tr>
            <td>             <td>
             <table class="LC_nested">              <table class="LC_nested">';
              <tr class="LC_info_row">          if (exists $item->{'header'}->[0]->{'col1'} || 
               exists $item->{'header'}->[0]->{'col2'}) {
    $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 695  sub process_changes { Line 714  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 703  sub process_changes { Line 723  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 774  sub process_changes { Line 794  sub process_changes {
                                     }                                      }
                                 }                                  }
                             }                              }
                           } elsif ($entry eq 'co-owners') {
                               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                               my $coowners = $values->{'internal.co-owners'};
                               my @currcoown;
                               if ($coowners) {
                                   @currcoown = split(',',$coowners);
                               }
                               if (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                   my $autocoowner;
                                   if (($crstype eq 'Course') && 
                                       ($values->{'internal.coursecode'})) {
                                       my %domconf =
                                           &Apache::lonnet::get_dom('configuration',['autoenroll'],$cdom);
                                       if (ref($domconf{'autoenroll'}) eq 'HASH') {
                                           $autocoowner = $domconf{'autoenroll'}{'co-owners'};
                                       }
                                   }
                                   unless ($autocoowner) {
                                       my @keepcoowners = &Apache::loncommon::get_env_multiple('form.coowners');
                                       my @pendingcoowners = &Apache::loncommon::get_env_multiple('form.pendingcoowners');
                                       my @invitecoowners =  &Apache::loncommon::get_env_multiple('form.invitecoowners');
                                       if (@invitecoowners) {
                                           push(@pendingcoowners,@invitecoowners);
                                       }
                                       $newvalues{'pendingco-owners'} = join(',',sort(@pendingcoowners));
                                       $newvalues{'co-owners'} = join(',',sort(@keepcoowners));
                                       if ($newvalues{'co-owners'} ne $values->{'internal.co-owners'}) {
                                           $changes->{$entry}{'co-owners'} = $newvalues{'co-owners'};
                                           push(@{$changes->{$entry}{'changed'}},'co-owners');
                                       }
                                       if ($newvalues{'pendingco-owners'} ne $values->{'internal.pendingco-owners'}) {
                                           $changes->{$entry}{'pendingco-owners'} = $newvalues{'pendingco-owners'};
                                           push(@{$changes->{$entry}{'changed'}},'pendingco-owners');
                                       }
                                   }
                               } else {
                                   my (@newpending,@newcoown);
                                   my $uname = $env{'user.name'};
                                   my $udom = $env{'user.domain'};
                                   my $pendingcoowners = $values->{'internal.pendingco-owners'};
                                   my @pendingcoown = split(',',$pendingcoowners);
                                   if ($env{'form.pending_coowoner'}) {
                                       foreach my $item (@pendingcoown) {
                                           unless ($item eq $uname.':'.$udom) {
                                               push(@newpending,$item);
                                           }
                                       }
                                       @newcoown = @currcoown;
                                       if ($env{'form.pending_coowoner'} eq 'accept') {
                                           unless (grep(/^\Q$uname\E:\Q$udom\E$/,@currcoown)) {
                                               push(@newcoown,$uname.':'.$udom);
                                           }
                                       }
                                   } elsif ($env{'form.remove_coowoner'}) {
                                       foreach my $item (@currcoown) {
                                           unless ($item eq $uname.':'.$udom) {
                                               push(@newcoown,$item);
                                           }
                                       }
                                       if ($pendingcoowners ne '') {
                                           @newpending = @pendingcoown;
                                       }
                                   }
                                   $newvalues{'pendingco-owners'} = join(',',sort(@newpending));
                                   $newvalues{'co-owners'} = join(',',sort(@newcoown));
                                   if ($newvalues{'co-owners'} ne $values->{'internal.co-owners'}) {
                                       $changes->{$entry}{'co-owners'} = $newvalues{'co-owners'};
                                       push(@{$changes->{$entry}{'changed'}},'co-owners');
                                   }
                                   if ($newvalues{'pendingco-owners'} ne $values->{'internal.pendingco-owners'}) {
                                       $changes->{$entry}{'pendingco-owners'} = $newvalues{'pendingco-owners'};
                                       push(@{$changes->{$entry}{'changed'}},'pendingco-owners');
                                   }
                               }
                         } elsif ($entry =~ /^default_enrollment_(start|end)_date$/) {                          } elsif ($entry =~ /^default_enrollment_(start|end)_date$/) {
                             $newvalues{$entry}=&Apache::lonhtmlcommon::get_date_from_form($entry);                              $newvalues{$entry}=&Apache::lonhtmlcommon::get_date_from_form($entry);
                         } elsif ($entry eq 'rolenames') {                          } elsif ($entry eq 'rolenames') {
Line 942  sub process_changes { Line 1036  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 990  sub process_changes { Line 1084  sub process_changes {
                         } else {                          } else {
                             $newvalues{$entry} = $env{'form.'.$entry};                              $newvalues{$entry} = $env{'form.'.$entry};
                         }                          }
                         if ($newvalues{$entry} ne $values->{$entry}) {                          unless ($entry eq 'co-owners') {
                             $changes->{$entry} = $newvalues{$entry};                              if ($newvalues{$entry} ne $values->{$entry}) {
                                   $changes->{$entry} = $newvalues{$entry};
                               }
                         }                          }
                     }                      }
                 }                  }
Line 1067  sub store_changes { Line 1163  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 1108  sub store_changes { Line 1204  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}));
                                     my ($displayname,$text);                                      my ($displayname,$text);
                                     $text = $prefs->{$item}->{'itemtext'}{$key};                                      $text = $prefs->{$item}->{'itemtext'}{$key};
                                     my $displayval = $changes->{$item}{$key};                                      my $displayval;
                                       unless ($key eq 'co-owners') {
                                           $displayval = $changes->{$item}{$key};
                                       }
                                     if ($item eq 'feedback') {                                      if ($item eq 'feedback') {
                                         if ($key =~ /^(question|policy|comment)(\.email)\.text$/) {                                          if ($key =~ /^(question|policy|comment)(\.email)\.text$/) {
                                             $text = $prefs->{$item}->{'itemtext'}{$1.$2};                                              $text = $prefs->{$item}->{'itemtext'}{$1.$2};
Line 1168  sub store_changes { Line 1267  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 '') {                                          if ($changes->{$item}{$key} eq '1') {
                                               $displayval = &mt('Yes');
                                           } elsif ($changes->{$item}{$key} eq '0') {
                                               $displayval = &mt('No');
                                           }
                                       }
                                       if ($key eq 'co-owners') {
                                           if (ref($changes->{$item}{$key}) eq 'HASH') {
                                               if (ref($changes->{$item}{$key}{'changed'}) eq 'ARRAY') {
                                                   foreach my $type ('co-owners','pendingco-owners') {
                                                       next unless (grep(/^\Q$type\E$/,@{$changes->{$item}{$key}{'changed'}}));
                                                       if ($type eq 'pendingco-owners') {
                                                           if (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                                               $displayname = &mt('Invited as co-owners, pending acceptance');
                                                           }
                                                       }
                                                       if ($changes->{$item}{$key}{$type} eq '') {
                                                           push(@delkeys,'internal.'.$type);
                                                           if (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                                               $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',
                                                               '<i>'.$displayname.'</i>')).'</li>';
                                                           }
                                                       } elsif (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                                           $displayval = join(', ',map { &Apache::loncommon::plainname(split(':',$_)); } split(',',$changes->{$item}{$key}{$type}));
                                                           $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',
                                                                      '<i>'.$displayname.'</i>',
                                                                      "'<b>$displayval</b>'")).'</li>';
                                                       }
                                                   }
                                               }
                                               unless (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                                                   if ($env{'form.pending_coowoner'} eq 'accept') {
                                                           $displayval = &mt('on');
                                                   } elsif ($env{'form.pending_coowoner'} eq 'decline') {
                                                           $displayval = '';
                                                           $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Invitation to be co-owner declined')).'</li>';
                                                   } elsif ($env{'form.remove_coowoner'}) {
                                                       $displayval = &mt('off');
                                                   }
                                                   if ($displayval) {
                                                       $displayname = &mt('Your co-ownership status');
                                                       $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',
                                                      '<i>'.$displayname.'</i>',
                                                      "'<b>$displayval</b>'")).'</li>';
                                                   }
                                               }
                                           }
                                       } elsif ($changes->{$item}{$key} eq '') {
                                         push(@delkeys,$key);                                          push(@delkeys,$key);
                                         $output .= '<li>'.&mt('Deleted setting for [_1]',                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',
                                                    '<i>'.$displayname.'</i>').'</li>';                                                     '<i>'.$displayname.'</i>')).'</li>';
                                     } else {                                      } else {
                                         $output .= '<li>'.&mt('[_1] set to [_2]',                                          $output .= '<li>'.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',
                                                    '<i>'.$displayname.'</i>',                                                     '<i>'.$displayname.'</i>',
                                                    "'<b>$displayval</b>'");                                                     "'<b>$displayval</b>'"));
                                         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>';
                                     }                                      }
                                     $storehash{$key} = $changes->{$item}{$key};                                      if ($key eq 'co-owners') {
                                           if (ref($changes->{$item}{$key}) eq 'HASH') {
                                               if (ref($changes->{$item}{$key}{'changed'}) eq 'ARRAY') {
                                                   foreach my $type ('co-owners','pendingco-owners') {
                                                       next unless (grep(/^\Q$type\E$/,@{$changes->{$item}{$key}{'changed'}}));
                                                       $storehash{'internal.'.$type} = $changes->{$item}{$key}{$type};
                                                   }
                                               }
                                           }
                                       } else {
                                           $storehash{$key} = $changes->{$item}{$key};
                                       }
                                 }                                  }
                                 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 1203  sub store_changes { Line 1360  sub store_changes {
                                     }                                      }
                                 }                                  }
                                 if (($key eq 'description') || ($key eq 'cloners') ||                                  if (($key eq 'description') || ($key eq 'cloners') ||
                                     ($key eq 'hidefromcat') || ($key eq 'categories')) {                                      ($key eq 'hidefromcat') || ($key eq 'categories') ||
                                       ($key eq 'co-owners')) {
                                     push(@need_env_update,$key);                                      push(@need_env_update,$key);
                                 }                                  }
                             }                              }
Line 1238  sub store_changes { Line 1396  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 1277  sub update_env { Line 1435  sub update_env {
                     &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.'.$key => $storehash->{$key}});                      &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.'.$key => $storehash->{$key}});
                     $crsinfo{$env{'request.course.id'}}{$key} = $storehash->{$key};                      $crsinfo{$env{'request.course.id'}}{$key} = $storehash->{$key};
                     $count ++;                      $count ++;
                   } elsif ($key eq 'co-owners') {
                       if ($storehash->{'internal.co-owners'} ne '') {
                           &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.internal.co-owners' => $storehash->{'internal.co-owners'}});
                       }
                       if ($storehash->{'internal.pendingco-owners'} ne '') {
                           &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.internal.pendingco-owners' => $storehash->{'internal.pendingco-owners'}});
                       }
                       my @coowners = split(',',$storehash->{'internal.'.$key});
                       $crsinfo{$env{'request.course.id'}}{'co-owners'} = \@coowners;
                       $count ++;
                 }                  }
             }              }
             if ($count) {              if ($count) {
Line 1491  sub print_courseinfo { Line 1659  sub print_courseinfo {
     unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {      unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {
         return;          return;
     }      }
     my ($cathash,$categoriesform);      my ($cathash,$categoriesform,$autocoowner);
     my %domconf =       my %domconf = 
         &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);          &Apache::lonnet::get_dom('configuration',['coursecategories','autoenroll'],$cdom);
     if (ref($domconf{'coursecategories'}) eq 'HASH') {      if (ref($domconf{'coursecategories'}) eq 'HASH') {
         $cathash = $domconf{'coursecategories'}{'cats'};          $cathash = $domconf{'coursecategories'}{'cats'};
         if (ref($cathash) eq 'HASH') {          if (ref($cathash) eq 'HASH') {
Line 1502  sub print_courseinfo { Line 1670  sub print_courseinfo {
                                                 $settings->{'categories'},$crstype)."\n";                                                  $settings->{'categories'},$crstype)."\n";
         }          }
     }      }
       if (ref($domconf{'autoenroll'}) eq 'HASH') {
           $autocoowner = $domconf{'autoenroll'}{'co-owners'};
       }
     if (!defined($categoriesform)) {      if (!defined($categoriesform)) {
         $categoriesform = &mt('No categories defined in this domain.');          $categoriesform = &mt('No categories defined in this domain.');
     }      }
Line 1530  sub print_courseinfo { Line 1701  sub print_courseinfo {
                    input => 'textbox',                     input => 'textbox',
                    size  => '25',                     size  => '25',
                           },                            },
           'owner'        => {
                      text => '<b>'.&mt($itemtext->{'owner'}).'</b>',
                             },
           'co-owners'    => {
                      text => '<b>'.&mt($itemtext->{'co-owners'}).'</b>',
                             },
         'courseid'     => {           'courseid'     => { 
                    text => '<b>'.&mt($itemtext->{'courseid'}).'</b><br />'.'('.                     text => '<b>'.&mt($itemtext->{'courseid'}).'</b><br />'.'('.
                            &mt('internal, optional').')',                             &mt('internal, optional').')',
Line 1538  sub print_courseinfo { Line 1715  sub print_courseinfo {
                           },                            },
         'cloners'      => {           'cloners'      => { 
                    text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.
                            &mt('Coordinators included automatically'),                             &mt('Owner and Coordinators included automatically'),
                    input => 'textbox',                     input => 'textbox',
                    size  => '40',                     size  => '40',
                          },                           },
Line 1565  sub print_courseinfo { Line 1742  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 1610  sub print_courseinfo { Line 1790  sub print_courseinfo {
                 if (@entries > 0) {                  if (@entries > 0) {
                     foreach my $entry (@entries) {                      foreach my $entry (@entries) {
                         my ($uname,$udom) = split(/:/,$entry);                          my ($uname,$udom) = split(/:/,$entry);
                         my ($uname,$udom) = split(/:/,$entry);  
                         if ($udom =~ /^$match_domain$/) {                          if ($udom =~ /^$match_domain$/) {
                             unless (&Apache::lonnet::domain($udom)) {                              unless (&Apache::lonnet::domain($udom)) {
                                 next;                                  next;
Line 1689  sub print_courseinfo { Line 1868  sub print_courseinfo {
             $datatable .= '<input type="hidden" name="categories" value="'.$settings->{$item}.'" />'.              $datatable .= '<input type="hidden" name="categories" value="'.$settings->{$item}.'" />'.
                           &Apache::lonhtmlcommon::textbox($item.'_display',$settings->{$item},                            &Apache::lonhtmlcommon::textbox($item.'_display',$settings->{$item},
                                                           $items{$item}{size},$launcher);                                                            $items{$item}{size},$launcher);
           } elsif ($item eq 'owner') {
               my $owner = $env{'course.'.$env{'request.course.id'}.'.internal.courseowner'};
               if ($owner =~ /:/) {
                   my ($ownername,$ownerdom) = split(':',$owner); 
                   $owner = &Apache::loncommon::plainname($ownername,$ownerdom);
               } elsif ($owner ne '') {
                   $owner = &Apache::loncommon::plainname($owner,$cdom);
               } else {
                   $owner = &mt('None specified');
               }
               $datatable .= $owner;
           } elsif ($item eq 'co-owners') {
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
               my $coowners = $env{'course.'.$env{'request.course.id'}.'.internal.co-owners'};
               my @currcoown;
               if ($coowners) {
                   @currcoown = split(',',$coowners);
               }
               if (&Apache::lonnet::is_course_owner($cdom,$cnum)) {
                   if (($crstype eq 'Course') && ($env{'course.'.$env{'request.course.id'}.'.internal.coursecode'}) && ($autocoowner)) {
                       $datatable .= &show_autocoowners(@currcoown);
                   } else {
                       $datatable .= &coowner_invitations($cnum,$cdom,@currcoown);
                   }
               } else {
                   if (($crstype eq 'Course') && ($env{'course.'.$env{'request.course.id'}.'.internal.coursecode'}) && ($autocoowner)) {
                       $datatable .= &show_autocoowners(@currcoown);
                   } else {
                       $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);
               } 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 1846  ENDSCRIPT Line 2065  ENDSCRIPT
     return;      return;
 }  }
   
   sub show_autocoowners {
       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>';
       if (@currcoown > 0) { 
           $output .= '<br />'.&mt('Current co-owners are:').'&nbsp;'.
                      join(', ',map { &Apache::loncommon::plainname(split(':',$_)); } (@currcoown));
       } else {
           $output .= '<br />'.&mt('Currently no co-owners.');
       } 
       return $output;
   }
   
   sub coowner_invitations {
       my ($cnum,$cdom,@currcoown) = @_;
       my ($output,@pendingcoown,@othercoords);
       my $pendingcoowners =
           $env{'course.'.$env{'request.course.id'}.'.internal.pendingco-owners'};
       if ($pendingcoowners) {
           @pendingcoown = split(',',$pendingcoowners);
       }
       my $ccrole = 'cc';
       my %ccroles = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,undef,[$ccrole]);
       foreach my $key (sort(keys(%ccroles))) {
           my ($ccname,$ccdom,$role) = split(':',$key);
           next if ($key eq $env{'user.name'}.':'.$env{'user.domain'}.':'.$ccrole);
           unless (grep(/^\Q$ccname\E:\Q$ccdom\E$/,@currcoown,@pendingcoown)) {
               push(@othercoords,$ccname.':'.$ccdom);
           }
       }
       my $coowner_rows = @currcoown + @pendingcoown + @othercoords;
       if ($coowner_rows) {
           $output .= &Apache::loncommon::start_data_table();
           if (@currcoown) {
               $output .= &Apache::loncommon::start_data_table_row().
                             '<td><i>'.&mt('Current co-owners').'</i></td><td>';
               foreach my $person (@currcoown) {
                   my ($co_uname,$co_dom) = split(':',$person);
                   $output .= '<span class="LC_nobreak"><label><input type="checkbox" name="coowners" checked="checked" value="'.$person.'" />'.&Apache::loncommon::plainname($co_uname,$co_dom).'</label></span>'.('&nbsp;'x2).' ';
               }
               $output .= '</td>'.
                             &Apache::loncommon::end_data_table_row();
           }
           if ($pendingcoowners) {
               $output .= &Apache::loncommon::start_data_table_row().
                             '<td><i>'.&mt('Invited as co-owners [_1](agreement pending)','<br />').'</i></td><td>';
               foreach my $person (@pendingcoown) {
                   my ($co_uname,$co_dom) = split(':',$person);
                   $output .= '<span class="LC_nobreak"><label><input type="checkbox" name="pendingcoowners" checked="checked" value="'.$person.'" />'.&Apache::loncommon::plainname($co_uname,$co_dom).'</label></span>'.('&nbsp;'x2).' ';
               }
               $output .= '</td>'.
                          &Apache::loncommon::end_data_table_row();
           }
           if (@othercoords) {
               $output .= &Apache::loncommon::start_data_table_row().
                             '<td><i>'.&mt('Invite other Coordinators [_1]to become co-owners','<br />').'</i></td><td>';
               foreach my $person (@othercoords) {
                   my ($co_uname,$co_dom) = split(':',$person);
                   $output .= '<span class="LC_nobreak"><label><input type="checkbox" name="invitecoowners" value="'.$person.'" />'.&Apache::loncommon::plainname($co_uname,$co_dom).'</label></span>'.('&nbsp;'x2).' ';
               }
               $output .= '</td>'.
                             &Apache::loncommon::end_data_table_row();
           }
           $output .= &Apache::loncommon::end_data_table();
       } else {
           $output = &mt('There are no coordinators to select as co-owners');
       }
       return $output;
   }
   
   sub manage_coownership  {
       my ($cnum,$cdom,@currcoown) = @_;
       my (@pendingcoown);
       my $pendingcoowners =
           $env{'course.'.$env{'request.course.id'}.'.internal.pendingco-owners'};
       if ($pendingcoowners) {
           @pendingcoown = split(',',$pendingcoowners);
       }
       my ($is_coowner,$is_pending,$output);
       my $uname = $env{'user.name'};
       my $udom = $env{'user.domain'};
       if (grep(/^\Q$uname\E:\Q$udom\E$/,@currcoown)) {
           $is_coowner = 1;
       }
       if (grep(/^\Q$uname\E:\Q$udom\E$/,@pendingcoown)) {
           $is_pending = 1;
       }
       if (@currcoown && ($is_coowner || $is_pending)) {
           $output = &Apache::loncommon::start_data_table();
       }
       if (@currcoown) {
           if ($is_coowner || $is_pending) { 
               $output .= &Apache::loncommon::start_data_table().
                          &Apache::loncommon::start_data_table_row().'<td>';
           }
           $output .= &mt('Current co-owners are:').'&nbsp;'.
                      join(', ', map { &Apache::loncommon::plainname(split(':',$_)); } (@currcoown));  
           if ($is_coowner || $is_pending) {
               $output .= '</td>'.&Apache::loncommon::end_data_table_row(); 
           }
       }
       if ($is_coowner || $is_pending) {
           if (@currcoown) { 
               $output .= &Apache::loncommon::start_data_table_row().'<td>';
           }
           $output .= '<span class="LC_nobreak">';
           if ($is_coowner) {
               $output .= &mt('You are currently a co-owner:').'&nbsp;<label><input type="checkbox" name="remove_coowoner" value="'.$uname.':'.$udom.'" />'.&mt('Discontinue?').'</label>';
           } else {
               $output .= &mt('The course owner has invited you to become a co-owner:').'&nbsp;<label><input type="radio" name="pending_coowoner" value="accept" />'.&mt('Accept?').'</label>'.('&nbsp;'x2).
                          '<label><input type="radio" name=pending_coowoner" value="decline" />'.&mt('Decline?').'</label>';
           }
           $output .= '</span>';
           if (@currcoown) {
               $output .= '</td>'.&Apache::loncommon::end_data_table_row();
           }
       }
       if (@currcoown && ($is_coowner || $is_pending)) {
           $output .= &Apache::loncommon::end_data_table();
       }
       return $output;
   }
   
 sub print_localization {  sub print_localization {
     my ($cdom,$settings,$ordered,$itemtext,$rowtotal) = @_;      my ($cdom,$settings,$ordered,$itemtext,$rowtotal) = @_;
     unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {      unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {
Line 1853  sub print_localization { Line 2194  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 1980  sub print_feedback { Line 2321  sub print_feedback {
   
     foreach my $item (@{$ordered}) {      foreach my $item (@{$ordered}) {
         $count ++;          $count ++;
         $datatable .= &item_table_row_start($items{$item}{text},$count);          $datatable .= &item_table_row_start($items{$item}{text},$count);
         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,
                                       $settings->{$item},\%lt);                                        $settings->{$item},\%lt);
         } else {          } else {
             $datatable .= &Apache::lonhtmlcommon::textbox($item.'.text',              $datatable .= &Apache::lonhtmlcommon::textbox($item.'.text',
                               $settings->{$item.'.text'},$items{$item}{size});                                  $settings->{$item.'.text'},$items{$item}{size});
         }          }
         $datatable .= &item_table_row_end();          $datatable .= &item_table_row_end();
     }      }
Line 2251  sub role_checkboxes { Line 2592  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 2283  sub role_checkboxes { Line 2624  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 2319  sub print_classlists { Line 2660  sub print_classlists {
         @ordered = ('nothideprivileged');          @ordered = ('nothideprivileged');
     } else {      } else {
         @ordered = ('student_classlist_view',          @ordered = ('student_classlist_view',
                     'student_opt_in','student_classlist_portfiles');                      'student_classlist_opt_in',
                        'student_classlist_portfiles');
     }      }
     my %lt;      my %lt;
   
Line 2358  sub print_classlists { Line 2700  sub print_classlists {
                    options => \%lt,                     options => \%lt,
                    order => ['disabled','all','section'],                     order => ['disabled','all','section'],
                  },                   },
         'student_opt_in' => {          'student_classlist_opt_in' => {
                    text => '<b>'.&mt($itemtext->{'student_opt_in'}).'</b>',                     text => '<b>'.&mt($itemtext->{'student_classlist_opt_in'}).'</b>',
                    input => 'radio',                     input => 'radio',
                  },                   },
   
Line 2444  sub print_grading { Line 2786  sub print_grading {
                  },                   },
         '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 2516  sub print_printouts { Line 2858  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 2646  sub get_other_items { Line 2998  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 2987  sub substitution_selector { Line 3337  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.7  
changed lines
  Added in v.1.28.2.5

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