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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.39 and 1.45

version 1.39, 2009/11/04 17:42:17 version 1.45, 2010/02/25 08:18:32
Line 94  described at http://www.lon-capa.org. Line 94  described at http://www.lon-capa.org.
   
 =item print_request_outcome()  =item print_request_outcome()
   
 =item get_processtype()  
   
 =item check_autolimit()  =item check_autolimit()
   
 =item retrieve_settings()  =item retrieve_settings()
Line 157  sub handler { Line 155  sub handler {
   
     my @invalidcrosslist;      my @invalidcrosslist;
     my %trail = (      my %trail = (
                  crstype       => 'Course Request Action',                   crstype       => 'Request Action',
                  codepick      => 'Category',                   codepick      => 'Category',
                  courseinfo    => 'Description',                   courseinfo    => 'Description',
                  enrollment    => 'Access Dates',                   enrollment    => 'Access Dates',
Line 178  sub handler { Line 176  sub handler {
         &get_breadcrumbs($dom,$action,\$state,\%states,\%trail);          &get_breadcrumbs($dom,$action,\$state,\%states,\%trail);
     if ($action eq 'display') {      if ($action eq 'display') {
         if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {          if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {
             my $namespace = 'courserequestqueue';  
             if ($env{'form.cnum'} ne '') {              if ($env{'form.cnum'} ne '') {
                 my $cnum = $env{'form.cnum'};                  my $cnum = $env{'form.cnum'};
                 my $reqkey = $cnum.'_approval';                  my $reqkey = $cnum.'_approval';
Line 192  sub handler { Line 189  sub handler {
                     if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) {                      if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) {
                         $result = &retrieve_settings($dom,$cnum,$udom,$uname);                          $result = &retrieve_settings($dom,$cnum,$udom,$uname);
                     } else {                      } else {
                         $warning = &mt('Invalid username or domain for course requestor');                          if ($env{'form.crstype'} eq 'community') {
                               $warning = &mt('Invalid username or domain for community requestor');
                           } else {
                               $warning = &mt('Invalid username or domain for course requestor');
                           }
                     }                      }
                 } else {                  } else {
                     $warning = &mt('No information was found for this course request.');                      if ($env{'form.crstype'} eq 'community') {
                           $warning = &mt('No information was found for this community request.');
                       } else {
                           $warning = &mt('No information was found for this course request.');
                       }
                 }                  }
             } else {              } else {
                 $warning = &mt('No course request ID provided.');                  $warning = &mt('No course request ID provided.');
             }              }
         } else {          } else {
             $warning = &mt('You do not have rights to view course request information.');              if ($env{'form.crstype'} eq 'any') {
                  $warning = &mt('You do not have rights to view course or community request information.');
               } elsif ($env{'form.crstype'} eq 'community') {
                   $warning = &mt('You do not have rights to view community request information.');
               } else {
                   $warning = &mt('You do not have rights to view course request information.');
               }
         }          }
     } elsif ((defined($state)) && (defined($action))) {      } elsif ((defined($state)) && (defined($action))) {
         if (($action eq 'view') && ($state eq 'details')) {          if (($action eq 'view') && ($state eq 'details')) {
Line 263  sub handler { Line 274  sub handler {
             $jscript = &mainmenu_javascript();              $jscript = &mainmenu_javascript();
         } else {          } else {
             $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);              $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);
               if ($state eq 'courseinfo') {
                   $jscript .= &cloning_javascript();
               }
         }          }
     }      }
   
Line 287  sub handler { Line 301  sub handler {
                                         \@invalidcrosslist);                                          \@invalidcrosslist);
             }              }
         } else {          } else {
             $r->print(&header('Course Requests').$crumb.              $r->print(&header('Course/Community Requests').$crumb.
                       '<div class="LC_warning">'.                        '<div class="LC_warning">'.
                       &mt('You do not have privileges to request creation of courses.').                        &mt('You do not have privileges to request creation of courses or communities.').
                       '</div>'.&Apache::loncommon::end_page());                        '</div>'.&Apache::loncommon::end_page());
         }          }
     } elsif ($action eq 'view') {      } elsif ($action eq 'view') {
Line 302  sub handler { Line 316  sub handler {
     } elsif ($action eq 'display') {      } elsif ($action eq 'display') {
         if ($warning ne '') {          if ($warning ne '') {
             my $args = { only_body => 1 };              my $args = { only_body => 1 };
             $r->print(&header('Course Requests','','',$args).$crumb.              $r->print(&header('Course/Community Requests','','',$args).$crumb.
                       '<h3>'.&mt('Course Request Details').'</h3>'.                        '<h3>'.&mt('Course/Community Request Details').'</h3>'.
                       '<div class="LC_warning">'.$warning.'</div>'.                        '<div class="LC_warning">'.$warning.'</div>'.
                       &close_popup_form());                        &close_popup_form());
         } else {          } else {
Line 342  function setAction(courseForm) { Line 356  function setAction(courseForm) {
 END  END
 }  }
   
   sub cloning_javascript {
       return <<"END";
   function setCloneDisplay(courseForm) {
       if (courseForm.cloning.length > 1) {    
           for (var i=0; i<courseForm.cloning.length; i++) {
               if (courseForm.cloning[i].checked) {
                   if (courseForm.cloning[i].value == 1) {
                       document.getElementById('cloneoptions').style.display="block";;
                   }
               }
           }
       }
   }
   END
   }
   
 sub get_breadcrumbs {  sub get_breadcrumbs {
     my ($dom,$action,$state,$states,$trail) = @_;      my ($dom,$action,$state,$states,$trail) = @_;
     my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description);      my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description);
Line 387  sub get_breadcrumbs { Line 417  sub get_breadcrumbs {
                 if ($$state eq $states->{$action}[$i]) {                  if ($$state eq $states->{$action}[$i]) {
                     &Apache::lonhtmlcommon::add_breadcrumb(                      &Apache::lonhtmlcommon::add_breadcrumb(
                        {text=>"$trail->{$$state}"});                         {text=>"$trail->{$$state}"});
                     $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');                      $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
                     last;                      last;
                 } else {                  } else {
                     if (($$state eq 'process') || ($$state eq 'removal')) {                      if (($$state eq 'process') || ($$state eq 'removal')) {
Line 407  sub get_breadcrumbs { Line 437  sub get_breadcrumbs {
         } else {          } else {
             &Apache::lonhtmlcommon::add_breadcrumb(              &Apache::lonhtmlcommon::add_breadcrumb(
                     {text=>'Pick Action'});                      {text=>'Pick Action'});
             $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');              $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
         }          }
     } else {      } else {
         &Apache::lonhtmlcommon::add_breadcrumb(          &Apache::lonhtmlcommon::add_breadcrumb(
                 {text=>'Pick Action'});                  {text=>'Pick Action'});
         $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');          $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
     }      }
     return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description);      return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description);
 }  }
Line 450  sub form_elements { Line 480  sub form_elements {
             },              },
             courseinfo => {              courseinfo => {
                 cdescr           => 'text',                  cdescr           => 'text',
                   cloning          => 'radio', 
                 clonecrs         => 'text',                  clonecrs         => 'text',
                 clonedom         => 'selectbox',                  clonedom         => 'selectbox',
                 datemode         => 'radio',                  datemode         => 'radio',
Line 585  sub onload_action { Line 616  sub onload_action {
         if ($state eq 'crstype') {          if ($state eq 'crstype') {
             $loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)';              $loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)';
         } else {          } else {
             $loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)';              $loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs);';
           }
           if ($state eq 'courseinfo') {
               $loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);';
         }          }
     }      }
     return \%loaditems;      return \%loaditems;
Line 691  END Line 725  END
                 $domaintitle = &mt('Course Domain');                  $domaintitle = &mt('Course Domain');
             }              }
         } elsif ($can_request->{'community'}) {          } elsif ($can_request->{'community'}) {
             $pagetitle = 'Course/Community Requests';              $pagetitle = 'Community Requests';
             $pageinfo = &mt('Request creation of a new course or community, or review your pending requests.');              $pageinfo = &mt('Request creation of a new course, or review your pending requests.');
             $domaintitle = &mt('Community Domain');              $domaintitle = &mt('Community Domain');
         } else {          } else {
             $pagetitle = 'Course/Community Requests';              $pagetitle = 'Course/Community Requests';
Line 817  END Line 851  END
         } elsif ($state eq 'personnel') {          } elsif ($state eq 'personnel') {
             $js .= "\n".&section_check_javascript()."\n".&personnel_lcsec_js();              $js .= "\n".&section_check_javascript()."\n".&personnel_lcsec_js();
         }          }
         $r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb);          my $title;
           if ($env{'form.crstype'} eq 'community') {
               $title = 'Request a community';
           } else {
               $title = 'Request a course';
           }
           $r->print(&header($title,$js.$jscript,$loaditems,$jsextra).$crumb);
         &print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode,          &print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode,
                             $codechk,$checkedcode,$description,$invalidcrosslist);                              $codechk,$checkedcode,$description,$invalidcrosslist);
     } elsif ($action eq 'view') {      } elsif ($action eq 'view') {
Line 834  END Line 874  END
         } elsif ($state eq 'cancel') {          } elsif ($state eq 'cancel') {
             $jsextra = &viewcancel_javascript($formname);              $jsextra = &viewcancel_javascript($formname);
         }          }
         $r->print(&header('Manage course requests',$js.$jscript.$jsextra,$loaditems).          my $title;
                   $crumb);          if ($env{'form.crstype'} eq 'community') {
               $title = 'Manage community requests';
           } else {
               $title = 'Manage course requests';
           }
           $r->print(&header($title,$js.$jscript.$jsextra,$loaditems).$crumb);
         my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />';          my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />';
         if ($state eq 'pick_request') {          if ($state eq 'pick_request') {
             $r->print('<h3>'.&mt('Pending course requests').'</h3><div>'."\n".$form."\n".              my $title;
               if ($env{'form.crstype'} eq 'community') {
                   $title = &mt('Pending community requests');
               } elsif ($env{'form.crstype'} eq 'official') {
                   $title = &mt('Pending requests for official courses');
               } elsif ($env{'form.crstype'} eq 'unofficial') {
                   $title = &mt('Pending requests for unofficial courses');
               } else {
                   $title = &mt('Pending course/community requests'); 
               }
               $r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".
                       &print_request_status($dom).'</form></div>');                        &print_request_status($dom).'</form></div>');
         } elsif ($state eq 'details') {          } elsif ($state eq 'details') {
             my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);              my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);
Line 850  END Line 905  END
                 &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,                  &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
                                                          \%cat_order,\@code_order);                                                           \%cat_order,\@code_order);
             }              }
             $r->print('<h3>'.&mt('Course Request Details').'</h3><div>'."\n".$form."\n".              my $title;
               if ($env{'form.crstype'} eq 'community') {
                   $title = &mt('Community Request Details');
               } else {
                   $title = &mt('Course Request Details');
               }
               $r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".
                       &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,                        &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,
                                     \@code_order)."\n".                                      \@code_order)."\n".
                       '<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n");                        '<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n");
Line 867  END Line 928  END
                                 $navtxt{'next'},$state,$other,$navtxt{'other'});                                  $navtxt{'next'},$state,$other,$navtxt{'other'});
             $r->print('</form>');              $r->print('</form>');
         } elsif ($state eq 'cancel') {          } elsif ($state eq 'cancel') {
               my $title;
               if ($env{'form.crstype'} eq 'community') {
                   $title = &mt('Cancel community request');
               } else {
                   $title = &mt('Cancel course request');
               }
             my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});              my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});
             $r->print('<h3>'.&mt('Cancel course request').'</h3><div>'."\n".$form."\n".              $r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".
                       $output);                        $output);
             my @excluded = &get_excluded_elements($dom,$states,'view','cancel');              my @excluded = &get_excluded_elements($dom,$states,'view','cancel');
             $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');              $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');
Line 917  END Line 984  END
                       '<input type="hidden" name="showdom" value="'.$dom.'" />'."\n".                        '<input type="hidden" name="showdom" value="'.$dom.'" />'."\n".
                       '<input type="hidden" name="orignum" value="'.$cnum.'" />'."\n");                        '<input type="hidden" name="orignum" value="'.$cnum.'" />'."\n");
             if ($result eq 'ok') {              if ($result eq 'ok') {
                 $r->print(&mt('Your course request has been cancelled.'));                  if ($env{'form.crstype'} eq 'community') {
                       $r->print(&mt('Your community request has been cancelled.'));
                   } else {
                       $r->print(&mt('Your course request has been cancelled.'));
                   }
             } else {              } else {
                 $r->print('<div class="LC_error">'.                  $r->print('<div class="LC_error">'.
                           &mt('The request cancellation process was not complete.').                            &mt('The request cancellation process was not complete.').
Line 932  END Line 1003  END
             &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,              &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
                                                      \%cat_order,\@code_order);                                                       \%cat_order,\@code_order);
         }          }
         $r->print(&header('Course Request','','','',{ 'only_body' => 1}).          my ($title,$header);
                   $crumb."\n".'<h3>'.&mt('Course Request Details').'</h3>'.          if ($env{'form.crstype'} eq 'community') {
               $title = 'Community Request';
               $header = &mt('Community Request');
           } else {
               $title = 'Course Request';
               $header = &mt('Course Request');
           }
           $r->print(&header($title,'','','',{ 'only_body' => 1}).
                     $crumb."\n".'<h3>'.$header.'</h3>'.
                   &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,                    &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,
                                 \@code_order,$uname,$udom)."\n".'</div>'.                                  \@code_order,$uname,$udom)."\n".'</div>'.
                   &close_popup_form());                    &close_popup_form());
Line 1289  sub print_request_form { Line 1368  sub print_request_form {
         }          }
         &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,          &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
                                                  \%cat_order,\@code_order);                                                   \%cat_order,\@code_order);
         $r->print('<h3>'.&mt('Review course request details before submission').'</h3>'.          if ($crstype eq 'community') {
                   &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg).              $r->print('<h3>'.&mt('Review community request details before submission').'</h3>');
           } else {
               $r->print('<h3>'.&mt('Review course request details before submission').'</h3>');
           }
           $r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg).
                   '<input type="hidden" name="cnum" value="'.$cnum.'" />');                    '<input type="hidden" name="cnum" value="'.$cnum.'" />');
         $navtxt{'next'} = &mt('Submit course request');          if ($crstype eq 'community') {
               $navtxt{'next'} = &mt('Submit community request');
           } else {
               $navtxt{'next'} = &mt('Submit course request');
           }
     }  elsif ($state eq 'process') {      }  elsif ($state eq 'process') {
         if ($crstype eq 'official') {          if ($crstype eq 'official') {
             &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,              &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
Line 1457  sub print_enrollment_menu { Line 1544  sub print_enrollment_menu {
             }              }
             if ($crosslist_form) {               if ($crosslist_form) { 
                 $crosslist_form .=                   $crosslist_form .= 
                     &Apache::lonhtmlcommon::row_title(&mt('Add another?')).                      &Apache::lonhtmlcommon::row_title(&mt('Add another')).
                     '<input name="crosslisttotal" type="hidden" value="'.$crosslisttotal.'" />'.                      '<input name="crosslisttotal" type="hidden" value="'.$crosslisttotal.'" />'.
                     '<input name="addcrosslist" type="checkbox" value="'.$crosslisttotal.'"'.                      '<input name="addcrosslist" type="checkbox" value="'.$crosslisttotal.'"'.
                     ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.                      ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.
Line 1629  sub print_personnel_menu { Line 1716  sub print_personnel_menu {
     }      }
     my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom');      my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom');
   
     my $roleoptions;  
     my @roles = &Apache::lonuserutils::roles_by_context('course');  
     my $type = 'Course';      my $type = 'Course';
     if ($crstype eq 'community') {      if ($crstype eq 'community') {
         $type = 'Community';          $type = 'Community';
     }      }
       my $roleoptions;
       my @roles = &Apache::lonuserutils::roles_by_context('course','',$type);
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole = &Apache::lonnet::plaintext($role,$type);          my $plrole = &Apache::lonnet::plaintext($role,$type);
         $roleoptions .= '  <option value="'.$role.'">'.$plrole.'</option>'."\n";          $roleoptions .= '  <option value="'.$role.'">'.$plrole.'</option>'."\n";
Line 1722  sub print_personnel_menu { Line 1809  sub print_personnel_menu {
             &Apache::loncommon::help_open_topic('Course_Request_Rolesection').'&nbsp;'.&mt('LON-CAPA Section(s)').'<br />'.$sectionselector.'</td>'."\n".              &Apache::loncommon::help_open_topic('Course_Request_Rolesection').'&nbsp;'.&mt('LON-CAPA Section(s)').'<br />'.$sectionselector.'</td>'."\n".
             '</tr></table>'.&Apache::lonhtmlcommon::row_closure();              '</tr></table>'.&Apache::lonhtmlcommon::row_closure();
     }      }
     $output .= &Apache::lonhtmlcommon::row_title(&mt('Add another?')).      $output .= &Apache::lonhtmlcommon::row_title(&mt('Add another')).
                '<input name="persontotal" type="hidden" value="'.$persontotal.'" />'.                 '<input name="persontotal" type="hidden" value="'.$persontotal.'" />'.
                '<input name="addperson" type="checkbox" value="'.$persontotal.'"'.                 '<input name="addperson" type="checkbox" value="'.$persontotal.'"'.
                ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.                 ' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.
                "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1).                 "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1).
                &Apache::lonhtmlcommon::end_pick_box().'</div>'.                 &Apache::lonhtmlcommon::end_pick_box().'</div>';
                '<p>'.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'</p>';      if ($crstype eq 'community') {
           $output .= '<p>'.&mt('You may also add users later, once the community has been created, by using the "Manage community users" link, accessible from the "Main Menu".').'</p>';
       } else {
           $output .= '<p>'.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'</p>';
       }
     return $output;      return $output;
 }  }
   
Line 1800  sub print_request_status { Line 1891  sub print_request_status {
               '<input type="hidden" name="showdom" value="" />'."\n".                '<input type="hidden" name="showdom" value="" />'."\n".
               '<input type="hidden" name="cnum" value="" />'."\n";                '<input type="hidden" name="cnum" value="" />'."\n";
     if (@sortedtimes > 0) {      if (@sortedtimes > 0) {
           my $desctitle;
           if ($env{'form.crstype'} eq 'any') {
               $desctitle = &mt('Course/Community Description')
           } elsif ($env{'form.crstype'} eq 'community') {
               $desctitle = &mt('Community Description')
           } else {
               $desctitle = &mt('Course Description');
           }
         $output .= &Apache::loncommon::start_data_table().          $output .= &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().                     &Apache::loncommon::start_data_table_header_row().
                    '<th>'.&mt('Action').'</th>'.                     '<th>'.&mt('Action').'</th>'.
                    '<th>'.&mt('Course Description').'</th>'.                     '<th>'.$desctitle.'</th>'.
                    '<th>'.&mt('Domain').'</th>';                     '<th>'.&mt('Domain').'</th>';
         if ($env{'form.crstype'} eq 'any') {          if ($env{'form.crstype'} eq 'any') {
             $output .= '<th>'.&mt('Type').'</th>';              $output .= '<th>'.&mt('Type').'</th>';
Line 1851  sub print_request_status { Line 1950  sub print_request_status {
         }          }
         $output .= &Apache::loncommon::end_data_table();          $output .= &Apache::loncommon::end_data_table();
     } else {      } else {
         $output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>';          if ($env{'form.crstype'} eq 'any') {
   $output .= '<div>'.&mt('You have no matching course or community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>';
           } elsif ($env{'form.crstype'} eq 'community') {
               $output .= '<div>'.&mt('You have no matching community requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>';
           } else {
               $output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>';
           }
     }      }
     $output .= '      $output .= '
 <br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />';  <br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />';
Line 1892  sub print_cancel_request { Line 1997  sub print_cancel_request {
                       '<td>'.$showtype.'</td>'.                        '<td>'.$showtype.'</td>'.
                       &Apache::loncommon::end_data_table_row().                        &Apache::loncommon::end_data_table_row().
                       &Apache::loncommon::end_data_table().                        &Apache::loncommon::end_data_table().
                       '<br /><div class="LC_warning">'.                        '<br /><div class="LC_warning">';
                       &mt('Cancelling the request will remove it from the queue of pending course requests').'</div>';              if ($crstype eq 'community') {
                   $output .= &mt('Cancelling the request will remove it from the queue of pending community requests').'</div>';
               } else {
                   $output .= &mt('Cancelling the request will remove it from the queue of pending course requests').'</div>';
               }
             $result = 'ok';              $result = 'ok';
         } else {          } else {
             $output = '<div class="LC_error">'.&mt('No record exists for the course ID').'</div>';              $output = '<div class="LC_error">'.&mt('No record exists for the course ID').'</div>';
Line 2082  sub print_review { Line 2191  sub print_review {
   
     my %ctxt = &clone_text();      my %ctxt = &clone_text();
     $inst_headers .= '<th>'.&mt('Clone From').'</th>';      $inst_headers .= '<th>'.&mt('Clone From').'</th>';
     if (($env{'form.clonecrs'} =~ /^$match_name$/) &&       if (($env{'form.cloning'}) &&
           ($env{'form.clonecrs'} =~ /^$match_name$/) && 
         ($env{'form.clonedom'} =~ /^$match_domain$/)) {          ($env{'form.clonedom'} =~ /^$match_domain$/)) {
         my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},          my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
                            $env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},                             $env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},
Line 2128  sub print_review { Line 2238  sub print_review {
     }      }
   
     my $container = 'Course';      my $container = 'Course';
       my $ccrole = 'cc';
     if ($env{'form.crstype'} eq 'community') {      if ($env{'form.crstype'} eq 'community') {
         $container = 'Community';          $container = 'Community';
           $ccrole = 'co';
     }      }
   
     $personnel_headers = '<th>'.&mt('Name').'</th><th>'.&mt('Username:Domain').      $personnel_headers = '<th>'.&mt('Name').'</th><th>'.&mt('Username:Domain').
                          '</th><th>'.&mt('Role').'</th><th>'.&mt('LON-CAPA Sections').                           '</th><th>'.&mt('Role').'</th><th>'.&mt('LON-CAPA Sections').
                          '</th>';                           '</th>';
   
     $personnel_values .= '<tr><td>'.$ownername.'</td><td>'.$owner.'</td>'.      $personnel_values .= '<tr><td>'.$ownername.'</td><td>'.$owner.'</td>'.
                          '<td>'.&Apache::lonnet::plaintext('cc',$container).'</td>'.                           '<td>'.&Apache::lonnet::plaintext($ccrole,$container).'</td>'.
                          '<td>'.&mt('None').'</td></tr>';                           '<td>'.&mt('None').'</td></tr>';
     for (my $i=0; $i<$env{'form.persontotal'}; $i++) {      for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
         if ($env{'form.person_'.$i.'_uname'} ne '') {          if ($env{'form.person_'.$i.'_uname'} ne '') {
Line 2172  sub print_review { Line 2285  sub print_review {
             if ($showsec eq '') {              if ($showsec eq '') {
                 $showsec = &mt('None');                  $showsec = &mt('None');
             }              }
             if ($env{'form.person_'.$i.'_role'} eq 'cc') {              if ($env{'form.person_'.$i.'_role'} eq $ccrole) {
                 $showsec = &mt('None');                  $showsec = &mt('None');
             }              }
             my $role = $env{'form.person_'.$i.'_role'};               my $role = $env{'form.person_'.$i.'_role'}; 
Line 2261  function validateForm() { Line 2374  function validateForm() {
     }      }
     nextPage(document.$formname,'$next');      nextPage(document.$formname,'$next');
 }  }
   
   function toggleCloning() {
       var willclone;
       if (document.$formname.cloning.length > 1) {
           for (var i=0; i<document.$formname.cloning.length; i++) {
               if (document.$formname.cloning[i].checked) {
                   willclone = document.$formname.cloning[i].value;
               }
           }
       }
       if (willclone == 1) {
           document.getElementById('cloneoptions').style.display="block";
       } else {
           document.getElementById('cloneoptions').style.display="none";
           document.$formname.clonecrs.value = '';
       }
   }
   
 // ]]  // ]]
 </script>  </script>
   
 ENDJS  ENDJS
     my $title = &mt('Brief Course Description');      my $title = &mt('Brief Course Description');
       my $clonetitle = &mt('Clone content and settings from an existing course?');
     if ($crstype eq 'community') {      if ($crstype eq 'community') {
         $title = &mt('Brief Community Description');          $title = &mt('Brief Community Description');
           $clonetitle = &mt('Clone content and settings from an existing community?');
     }      }
     my $output .= $js_validate."\n".'<div>'.&Apache::lonhtmlcommon::start_pick_box().      my $output .= $js_validate."\n".&Apache::lonhtmlcommon::start_pick_box().
                   &Apache::lonhtmlcommon::row_headline().                    &Apache::lonhtmlcommon::row_headline().
                   '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').'&nbsp;'.$title.'</h3>'.                    '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').'&nbsp;'.$title.'</h3>'.
                   &Apache::lonhtmlcommon::row_closure(1).                    &Apache::lonhtmlcommon::row_closure(1).
Line 2285  ENDJS Line 2418  ENDJS
     $output .= $home_server_pick.      $output .= $home_server_pick.
                &Apache::lonhtmlcommon::row_closure().                 &Apache::lonhtmlcommon::row_closure().
                &Apache::lonhtmlcommon::row_headline().                 &Apache::lonhtmlcommon::row_headline().
                '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').'&nbsp;'.&mt('Clone content and settings from an existing course?').'</h3>'.                  '<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').'&nbsp;'.$clonetitle.
                  '<label><input type="radio" name="cloning" value="1" '.
                  'onclick="javascript:toggleCloning()" />'.
                  &mt('Yes').('&nbsp;'x2).'</label><label>'.
                  '<input type="radio" name="cloning" value="0" '.
                  'onclick="javascript:toggleCloning()" />'.&mt('No').'</label>'.
                  '</h3>'.
                &Apache::lonhtmlcommon::row_closure(1).                 &Apache::lonhtmlcommon::row_closure(1).
                  &Apache::lonhtmlcommon::row_headline().
                  '<div id="cloneoptions" style="display: none" >'.
                  &Apache::lonhtmlcommon::start_pick_box().
                &clone_form($dom,$formname,$crstype).                 &clone_form($dom,$formname,$crstype).
                &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";                 &Apache::lonhtmlcommon::end_pick_box().'</div>'.
                  &Apache::lonhtmlcommon::end_pick_box()."\n";
     return $output;      return $output;
 }  }
   
Line 2532  sub print_request_outcome { Line 2675  sub print_request_outcome {
     }      }
     $now = time;      $now = time;
     $crstype = $env{'form.crstype'};      $crstype = $env{'form.crstype'};
       my $ccrole = 'cc';
       if ($crstype eq 'community') {
           $ccrole = 'co';
       }
     my @instsections;      my @instsections;
     if ($crstype eq 'official') {      if ($crstype eq 'official') {
         if (&Apache::lonnet::auto_run('',$dom)) {          if (&Apache::lonnet::auto_run('',$dom)) {
Line 2593  sub print_request_outcome { Line 2740  sub print_request_outcome {
                     } else {                      } else {
                         @{$personnel{$uname.':'.$udom}{'roles'}} = ($role);                          @{$personnel{$uname.':'.$udom}{'roles'}} = ($role);
                     }                      }
                     if ($role eq 'cc') {                      if ($role eq $ccrole) {
                         @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();                          @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();
                     } else {                      } else {
                         my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');                          my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
Line 2645  sub print_request_outcome { Line 2792  sub print_request_outcome {
     }      }
     my $clonecrs = '';      my $clonecrs = '';
     my $clonedom = '';      my $clonedom = '';
     if (($env{'form.clonecrs'} =~ /^($match_courseid)$/) &&       if (($env{'form.cloning'}) &&
           ($env{'form.clonecrs'} =~ /^($match_courseid)$/) && 
         ($env{'form.clonedom'} =~ /^($match_domain)$/)) {          ($env{'form.clonedom'} =~ /^($match_domain)$/)) {
         my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},          my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},
                                                     $env{'form.clonedom'});                                                      $env{'form.clonedom'});
Line 2686  sub print_request_outcome { Line 2834  sub print_request_outcome {
                     personnel      => \%personnel,                      personnel      => \%personnel,
                   };                    };
     my (@inststatuses,$storeresult,$creationresult);      my (@inststatuses,$storeresult,$creationresult);
     my $val = &get_processtype($dom,$crstype,\@inststatuses,\%domconfig);      my $val = 
           &Apache::loncoursequeueadmin::get_processtype($env{'user.name'},$env{'user.domain'},
               $env{'user.adv'},$dom,$crstype,\@inststatuses,\%domconfig);
     if ($val eq '') {      if ($val eq '') {
         if ($crstype eq 'official') {          if ($crstype eq 'official') {
             $output = &mt('You are not permitted to request creation of official courses.');              $output = &mt('You are not permitted to request creation of official courses.');
Line 2744  sub print_request_outcome { Line 2894  sub print_request_outcome {
         $reqstatus = $disposition;          $reqstatus = $disposition;
         my ($modified,$queued);          my ($modified,$queued);
         if ($disposition eq 'rejected') {          if ($disposition eq 'rejected') {
             $output = &mt('Your course request was rejected.');              if ($crstype eq 'community') {
                   $output = &mt('Your community request was rejected.');
               } else {
                   $output = &mt('Your course request was rejected.');
               }
             if ($message) {              if ($message) {
                 $output .= '<div class="LC_warning">'.$message.'</div>';                  $output .= '<div class="LC_warning">'.$message.'</div>';
             }              }
Line 2752  sub print_request_outcome { Line 2906  sub print_request_outcome {
         } elsif ($disposition eq 'process') {          } elsif ($disposition eq 'process') {
             my %domdefs = &Apache::lonnet::get_domain_defaults($dom);              my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
             my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles);              my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles);
             my @roles = &Apache::lonuserutils::roles_by_context('course');  
             my $type = 'Course';              my $type = 'Course';
             if ($crstype eq 'community') {              if ($crstype eq 'community') {
                 $type = 'Community';                  $type = 'Community';
             }              }
               my @roles = &Apache::lonuserutils::roles_by_context('course','',$type);
             foreach my $role (@roles) {              foreach my $role (@roles) {
                 $longroles{$role}=&Apache::lonnet::plaintext($role,$type);                  $longroles{$role}=&Apache::lonnet::plaintext($role,$type);
             }              }
Line 2768  sub print_request_outcome { Line 2922  sub print_request_outcome {
                 $reqstatus = 'created';                  $reqstatus = 'created';
                 my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details,                  my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details,
                                                            \%longroles);                                                             \%longroles);
                 $output = '<p>'.&mt('Your course request has been processed and the course has been created.').                  if ($crstype eq 'community') {
                           '<br />'.$role_result.'</p>';                      $output = '<p>'.&mt('Your community request has been processed and the community has been created.');
                   } else {
                       $output = '<p>'.&mt('Your course request has been processed and the course has been created.');
                   }
                   $output .= '<br />'.$role_result.'</p>';
                 $creationresult = 'created';                  $creationresult = 'created';
             } else {              } else {
                 $output = '<span class="LC_error">'.                  $output = '<span class="LC_error">';
                           &mt('An error occurred when processing your course request.').                  if ($crstype eq 'community') {
                           '<br />'.                      $output .= &mt('An error occurred when processing your community request.');
                           &mt('You may want to review the request details and submit the request again.').                  } else {
                       $output .= &mt('An error occurred when processing your course request.');
                   }
                   $output .= '<br />'.
                              &mt('You may want to review the request details and submit the request again.').
                           '</span>';                            '</span>';
                 $creationresult = 'error';                  $creationresult = 'error';
             }              }
Line 2808  sub print_request_outcome { Line 2970  sub print_request_outcome {
                 my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,                  my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,
                                                             $dom);                                                              $dom);
                 if ($putresult eq 'ok') {                  if ($putresult eq 'ok') {
                     $output = &mt('Your course request has been recorded.').'<br />'.                      if ($crstype eq 'community') {
                           $output .= &mt('Your community request has been recorded.');
                       } else {
                           $output .= &mt('Your course request has been recorded.') 
                       }
                       $output .= '<br />'.
                               &notification_information($disposition,$req_notifylist,                                &notification_information($disposition,$req_notifylist,
                                                         $cnum,$now);                                                          $cnum,$now);
                 } else {                  } else {
Line 2819  sub print_request_outcome { Line 2986  sub print_request_outcome {
                 }                  }
             }              }
         }          }
         my ($statusresult);          ($storeresult,my $updateresult) = 
         if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {              &Apache::loncoursequeueadmin::update_coursereq_status(\%reqhash,$dom,
             $storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey,                  $cnum,$reqstatus,'request');
                                                            'courserequests');  
             if ($storeresult eq 'ok') {  
                 my %status = (  
                                  'status:'.$dom.':'.$cnum => $reqstatus,  
                              );  
                 $statusresult = &Apache::lonnet::put('courserequests',\%status);  
             }  
         } else {  
             $storeresult = 'error: invalid requestkey format';   
         }  
         if ($storeresult ne 'ok') {  
             $output .=  '<span class="LC_warning">'.&mt('An error occurred saving a record of the details of your request: [_1].',$storeresult).'</span><br />';  
             &Apache::lonnet::logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult");  
         } elsif ($statusresult ne 'ok') {  
             $output .= '<span class="LC_warning">'.&mt('An error occurred saving a record of the status of your request: [_1].',$statusresult).'</span><br />';  
             &Apache::lonnet::logthis("Error saving course request status for  $requestkey (for $env{'user.name'}:$env{'user.domain'}) - $statusresult");  
         }  
         if ($modified && $queued && $storeresult eq 'ok') {          if ($modified && $queued && $storeresult eq 'ok') {
             $output .= '<p>'.&mt('Your course request has been updated').'</p>'.              if ($crstype eq 'community') {
                        &notification_information($disposition,$req_notifylist,$cnum,$now);                  $output .= '<p>'.&mt('Your community request has been updated').'</p>';
               } else {
                   $output .= '<p>'.&mt('Your course request has been updated').'</p>';
               }
               $output .= &notification_information($disposition,$req_notifylist,$cnum,$now);
         }          }
         if ($validationerror ne '') {          if ($validationerror ne '') {
             $output .= '<span class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>';              $output .= '<p class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>';
           }
           if ($updateresult) {
               $output .= $updateresult;
         }          }
     }      }
     if ($creationresult ne '') {      if ($creationresult ne '') {
Line 2861  sub update_requestors_roles { Line 3018  sub update_requestors_roles {
     my $owner = $env{'user.name'}.':'.$env{'user.domain'};      my $owner = $env{'user.name'}.':'.$env{'user.domain'};
     if (ref($details) eq 'HASH') {      if (ref($details) eq 'HASH') {
         if (ref($details->{'personnel'}) eq 'HASH') {          if (ref($details->{'personnel'}) eq 'HASH') {
               my $ccrole = 'cc';
               if ($crstype eq 'community') {
                   $ccrole = 'co';
               }
             unless (ref($details->{'personnel'}{$owner}) eq 'HASH') {              unless (ref($details->{'personnel'}{$owner}) eq 'HASH') {
                 $details->{'personnel'}{$owner} = {                  $details->{'personnel'}{$owner} = {
                                                     'roles' => ['cc'],                                                      'roles' => [$ccrole],
                                                     'cc'    => { 'usec' => [] },                                                      $ccrole => { 'usec' => [] },
                                                   };                                                    };
             }              }
             my @roles;              my @roles;
             if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') {              if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') {
                 @roles = sort(@{$details->{'personnel'}{$owner}{'roles'}});                  @roles = sort(@{$details->{'personnel'}{$owner}{'roles'}});
                 unless (grep(/^cc$/,@roles)) {                  unless (grep(/^\Q$ccrole\E$/,@roles)) {
                     push(@roles,'cc');                      push(@roles,$ccrole);
                 }                  }
             } else {              } else {
                 @roles = ('cc');                  @roles = ($ccrole);
             }              }
             foreach my $role (@roles) {              foreach my $role (@roles) {
                 my $start = $now;                  my $refresh=$env{'user.refresh.time'};
                   if ($refresh eq '') {
                       $refresh = $env{'user.login.time'};
                   }
                   if ($refresh eq '') {
                       $refresh = $now;
                   }
                   my $start = $refresh-1;
                 my $end = '0';                  my $end = '0';
                 if ($role eq 'st') {                  if ($role eq 'st') {
                     if ($details->{'accessstart'} ne '') {                      if ($details->{'accessstart'} ne '') {
Line 2888  sub update_requestors_roles { Line 3056  sub update_requestors_roles {
                     }                      }
                 }                  }
                 my @usecs;                  my @usecs;
                 if ($role ne 'cc') {                  if ($role ne $ccrole) {
                     if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') {                      if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') {
                         @usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}};                          @usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}};
                     }                      }
Line 2953  sub update_requestors_roles { Line 3121  sub update_requestors_roles {
     }      }
     if ($active) {      if ($active) {
         if ($numactive == 1) {          if ($numactive == 1) {
             $output = &mt('Use the following link to enter the course:');               if ($crstype eq 'Community') {
                   $output = &mt('Use the following link to enter the community:');
               } else {
                   $output = &mt('Use the following link to enter the course:'); 
               }
         } else {          } else {
             $output = &mt('Use the following links to your new roles to enter the course:');              if ($crstype eq 'Community') {
                   $output = &mt('Use the following links to your new roles to enter the community:');
               } else {
                   $output = &mt('Use the following links to your new roles to enter the course:');
               }
         }          }
         $output .= ' <ul>'.$active.'</ul><br />';          $output .= ' <ul>'.$active.'</ul><br />';
     }      }
     if ($future) {      if ($future) {
         $output .= &mt('The following course [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'})).          if ($crstype eq 'Community') {
                    ' <ul>'.$future.'</ul>';              $output .= &mt('The following community [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'}))
           } else {
               $output .= &mt('The following course [quant,_1,role] will become available for selection from your [_2]roles page[_3], once the default student access start date - [_4] - has been reached:',$numfuture,'<a href="/adm/roles">','</a>',&Apache::lonlocal::locallocaltime($details->{'accessstart'}));
           }
           $output .= ' <ul>'.$future.'</ul>';
     }      }
     return $output;      return $output;
 }  }
Line 2997  sub notification_information { Line 3177  sub notification_information {
                    '</div>';                     '</div>';
     } else {      } else {
         $output .= '<div class="LC_warning">'.          $output .= '<div class="LC_warning">'.
                    &mt('Your request status is: [_1].',$disposition).                      &mt('Your request status is: [_1].',$disposition).
                    '</div>'                     '</div>';
     }      }
     return $output;      return $output;
 }  }
   
 sub get_processtype {  
     my ($dom,$crstype,$inststatuses,$domconfig) = @_;  
     return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH'));  
     my (%userenv,%settings,$val);  
     my @options = ('autolimit','validate','approval');  
     if ($dom eq $env{'user.domain'}) {  
         %userenv =   
             &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'},  
                 'requestcourses.'.$crstype,'inststatus');  
         if ($userenv{'requestcourses.'.$crstype}) {  
             $val = $userenv{'requestcourses.'.$crstype};  
             @{$inststatuses} = ('_custom_');  
         } else {  
             my ($task,%alltasks);  
             if (ref($domconfig->{'requestcourses'}) eq 'HASH') {  
                 %settings = %{$domconfig->{'requestcourses'}};  
                 if (ref($settings{$crstype}) eq 'HASH') {  
                     if (($env{'user.adv'}) && ($settings{$crstype}{'_LC_adv'} ne '')) {  
                         $val = $settings{$crstype}{'_LC_adv'};  
                         @{$inststatuses} = ('_LC_adv_');  
                     } else {  
                         if ($userenv{'inststatus'} ne '') {  
                             @{$inststatuses} = split(',',$userenv{'inststatus'});  
                         } else {  
                             @{$inststatuses} = ('default');  
                         }  
                         foreach my $status (@{$inststatuses}) {  
                             if (exists($settings{$crstype}{$status})) {  
                                 my $value = $settings{$crstype}{$status};  
                                 next unless ($value);   
                                 unless (exists($alltasks{$value})) {  
                                     if (ref($alltasks{$value}) eq 'ARRAY') {  
                                         unless(grep(/^\Q$status\E$/,@{$alltasks{$value}})) {  
                                             push(@{$alltasks{$value}},$status);   
                                         }  
                                     } else {  
                                         @{$alltasks{$value}} = ($status);  
                                     }  
                                 }  
                             }  
                         }  
                         my $maxlimit = 0;  
                           
                         foreach my $key (sort(keys(%alltasks))) {  
                             if ($key =~ /^autolimit=(\d*)$/) {  
                                 if ($1 eq '') {  
                                     $val ='autolimit=';  
                                     last;  
                                 } elsif ($1 > $maxlimit) {  
                                     $maxlimit = $1;   
                                 }  
                             }  
                         }  
                         if ($maxlimit) {  
                             $val = 'autolimit='.$maxlimit;  
                         } else {  
                             foreach my $option (@options) {  
                                 if ($alltasks{$option}) {  
                                     $val = $option;  
                                     last;    
                                 }  
                             }  
                         }  
                     }  
                 }  
             }  
         }  
     } else {  
         %userenv = &Apache::lonnet::userenvironment($env{'user.domain'},  
                       $env{'user.name'},'reqcrsotherdom.'.$env{'form.crstype'});  
         if ($userenv{'reqcrsotherdom.'.$crstype}) {  
             my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype});  
             my $optregex = join('|',@options);  
             foreach my $item (@doms) {  
                 my ($extdom,$extopt) = split(':',$item);  
                 if ($extdom eq $dom) {    
                     if ($extopt =~ /^($optregex)(=?\d*)$/) {  
                         $val = $1.$2;  
                     }  
                     last;  
                 }  
             }  
             @{$inststatuses} = ('_external_');  
         }  
     }  
     return $val;  
 }  
   
 sub check_autolimit {  sub check_autolimit {
     my ($uname,$udom,$dom,$crstype,$limit,$message) = @_;      my ($uname,$udom,$dom,$crstype,$limit,$message) = @_;
     my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},      my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},
                                         'userroles',['active','future'],['cc'],[$dom]);                         'userroles',['active','future'],['cc','co'],[$dom]);
     my ($types,$typename) = &Apache::loncommon::course_types();      my ($types,$typename) = &Apache::loncommon::course_types();
     my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname);      my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname);
     my %count;      my $count = 0;
     if (ref($types) eq 'ARRAY') {  
         foreach my $type (@{$types}) {  
             $count{$type} = 0;  
         }  
     }  
     foreach my $key (keys(%requests)) {      foreach my $key (keys(%requests)) {
         my ($cdom,$cnum) = split('_',$key);          my ($cdom,$cnum) = split('_',$key);
         if (exists($crsroles{$cnum.':'.$cdom.':cc'})) {          if (ref($requests{$key}) eq 'HASH') {
             if (ref($requests{$key}) eq 'HASH') {              next if ($requests{$key}{'crstype'} ne $crstype);
                 my $type = $requests{$key}{'crstype'};              if (($crstype eq 'community') && 
                 if ($type =~ /^official|unofficial|community$/) {                  (exists($crsroles{$cnum.':'.$cdom.':co'}))) {
                     $count{$type} ++;                  $count ++;
                 }              } elsif ((($crstype eq 'official') || ($crstype eq 'unofficial')) &&
                        (exists($crsroles{$cnum.':'.$cdom.':cc'}))) {
                   $count ++;
             }              }
         }          }
     }      }
     if ($count{$crstype} < $limit) {      if ($count < $limit) {
         return 'process';          return 'process';
     } else {      } else {
         if (ref($typename) eq 'HASH') {          if (ref($typename) eq 'HASH') {
             $$message = &mt('Your request has not been processed because you have reached the limit for the number of courses of this type.').'<br />'.&mt("Your $typename->{$crstype} limit is [_1].",$limit);              if ($crstype eq 'community') {
                   $$message = &mt('Your request has not been processed because you have reached the limit for the number of communities.').
                               '<br />'.&mt("Your limit is [_1].",$limit);
               } else {
                   $$message = &mt('Your request has not been processed because you have reached the limit for the number of courses of this type.').
                               '<br />'.&mt("Your $typename->{$crstype} limit is [_1].",$limit);
               }
         }          }
         return 'rejected';          return 'rejected';
     }      }
Removed from v.1.39  
changed lines
  Added in v.1.45

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