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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.11 and 1.29

version 1.11, 2009/08/12 14:24:35 version 1.29, 2009/09/06 19:09:54
Line 44  described at http://www.lon-capa.org. Line 44  described at http://www.lon-capa.org.
   
 =item handler()  =item handler()
   
   =item get_breadcrumbs()
   
   =item header()
   
   =item form_elements()
   
   =item onload_action()
   
   =item check_can_request() 
   
   =item course_types()
   
   =item print_main_menu()
   
   =item request_administration()
   
   =item close_popup_form()
   
   =item get_instcode()
   
   =item print_request_form()
   
   =item print_enrollment_menu()
   
   =item show_invalid_crosslists()
   
   =item inst_section_selector()
   
   =item date_setting_table()
   
   =item print_personnel_menu()
   
   =item print_request_status()
   
   =item print_request_logs()
   
   =item print_review()
   
   =item dates_from_form()
   
   =item courseinfo_form()
   
   =item clone_form()
   
   =item clone_text()
   
   =item coursecode_form()
   
   =item get_course_dom()
   
   =item display_navbuttons()
   
   =item print_request_outcome()
   
   =item get_processtype()
   
   =item check_autolimit()
   
   =item retrieve_settings()
   
   =item get_request_settings()
   
   =item extract_instcode() 
   
   =item generate_date_items()
   
 =back  =back
   
 =cut  =cut
Line 60  use LONCAPA qw(:DEFAULT :match); Line 126  use LONCAPA qw(:DEFAULT :match);
   
 sub handler {  sub handler {
     my ($r) = @_;      my ($r) = @_;
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
     if ($r->header_only) {      if ($r->header_only) {
         &Apache::loncommon::content_type($r,'text/html');  
         $r->send_http_header;  
         return OK;          return OK;
     }      }
     &Apache::loncommon::content_type($r,'text/html');  
     $r->send_http_header;  
   
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['action','showdom','cnum','state']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     my $dom = &get_course_dom();      my $dom = &get_course_dom();
     my $action = $env{'form.action'};      my $action = $env{'form.action'};
     my $state = $env{'form.state'};      my $state = $env{'form.state'};
       my (%states,%stored);
       my ($jscript,$uname,$udom,$result,$warning);
   
     my %stored;      $states{'display'} = ['details'];
     my $jscript;      $states{'view'} = ['pick_request','details','cancel','removal'];
     if ((defined($state)) && (defined($action))) {  
         my %elements =  &form_elements($dom);  
         if (($action eq 'view') && ($state ne 'crstype')) {  
             if (defined($env{'form.request_id'})) {  
                 %stored = &retrieve_settings($dom,$env{'form.request_id'});  
             }  
         }  
         my $elementsref = {};  
         if (ref($elements{$action}) eq 'HASH') {  
             if (ref($elements{$action}{$state}) eq 'HASH') {  
                 $elementsref = $elements{$action}{$state};  
             }  
         }  
         $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);  
     }  
   
     if ($state eq 'personnel') {  
         $jscript .= "\n".&Apache::loncommon::userbrowser_javascript();  
     }  
   
     my $loaditems = &onload_action($action,$state);  
   
     my %states;  
     $states{'view'} = ['pick_request','details','review','process'];  
     $states{'log'} = ['filter','display'];      $states{'log'} = ['filter','display'];
     $states{'new'} = ['courseinfo','enrollment','personnel','review','process'];      $states{'new'} = ['courseinfo','enrollment','personnel','review','process'];
   
     if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) {      if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) {
         unless ($env{'form.state'} eq 'crstype') {          unless ($env{'form.state'} eq 'crstype') {
             unshift (@{$states{'new'}},'codepick');              unshift(@{$states{'new'}},'codepick');
         }          }
     }      }
   
Line 113  sub handler { Line 158  sub handler {
         }          }
     }      }
   
       my @invalidcrosslist;
     my %trail = (      my %trail = (
                  crstype       => 'Course Request Action',                   crstype       => 'Course Request Action',
                  codepick      => 'Category',                   codepick      => 'Category',
                  courseinfo    => 'Description',                   courseinfo    => 'Description',
                  enrollment    => 'Enrollment',                   enrollment    => 'Access Dates',
                  personnel     => 'Personnel',                   personnel     => 'Personnel',
                  review        => 'Review',                   review        => 'Review',
                  process       => 'Result',                   process       => 'Result',
                  pick_request  => 'Display Summary',                   pick_request  => 'Display Summary',
                    details       => 'Request Details',
                    cancel        => 'Cancel Request',
                    removal       => 'Outcome',
                 );                  );
   
     my $page = 0;      if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) {
     my $crumb;          $trail{'enrollment'} = 'Enrollment';
     if (defined($action)) {      }
         my $done = 0;  
         my $i=0;      my ($page,$crumb,$newinstcode,$codechk,$checkedcode) = 
         if (ref($states{$action}) eq 'ARRAY') {          &get_breadcrumbs($dom,$action,\$state,\%states,\%trail);
             while ($i<@{$states{$action}} && !$done) {      if ($action eq 'display') {
                 if ($states{$action}[$i] eq $state) {          if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {
                     $page = $i;              my $namespace = 'courserequestqueue';
                     $done = 1;              if ($env{'form.cnum'} ne '') {
                 }                  my $cnum = $env{'form.cnum'};
                 $i++;                  my $reqkey = $cnum.'_approval';
             }                  my $namespace = 'courserequestqueue';
         }                  my $domconfig = &Apache::lonnet::get_domainconfiguser($dom);
         for (my $i=0; $i<@{$states{$action}}; $i++) {                  my %queued =
             if ($state eq $states{$action}[$i]) {                      &Apache::lonnet::get($namespace,[$reqkey],$dom,$domconfig);
                 &Apache::lonhtmlcommon::add_breadcrumb(                  if (ref($queued{$reqkey}) eq 'HASH') {
                    {text=>"$trail{$state}"});                      $uname = $queued{$reqkey}{'ownername'};
                 $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');                       $udom  = $queued{$reqkey}{'ownerdom'};
                 last;                      if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) {
             } else {                          $result = &retrieve_settings($dom,$cnum,$udom,$uname);
                 if (($state eq 'process') && ($i > 0)) {                      } else {
                     &Apache::lonhtmlcommon::add_breadcrumb(                          $warning = &mt('Invalid username or domain for course requestor');
     {href=>"javascript:backPage(document.requestcrs,'$states{$action}[0]')",                      }
      text=>"$trail{$states{$action}[$i]}"});  
                 } else {                  } else {
                     &Apache::lonhtmlcommon::add_breadcrumb(                      $warning = &mt('No information was found for this course request.');
      {href=>"javascript:backPage(document.requestcrs,'$states{$action}[$i]')",  
       text=>"$trail{$states{$action}[$i]}"});  
                 }                  }
               } else {
                   $warning = &mt('No course request ID provided.');
             }              }
           } else {
               $warning = &mt('You do not have rights to view course request information.');
         }          }
     } else {      } elsif ((defined($state)) && (defined($action))) {
         &Apache::lonhtmlcommon::add_breadcrumb(          if (($action eq 'view') && ($state eq 'details')) {
                 {text=>'Pick Action'});              if ((defined($env{'form.showdom'})) && (defined($env{'form.cnum'}))) {
         $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');                  my $result = &retrieve_settings($env{'form.showdom'},$env{'form.cnum'});
               }
           } elsif ($env{'form.crstype'} eq 'official') {
               if (&Apache::lonnet::auto_run('',$dom)) {
                   if (($action eq 'new') && (($state eq 'enrollment') || 
                       ($state eq 'personnel'))) {
                       my $checkcrosslist = 0;
                       for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
                           if ($env{'form.crosslist_'.$i}) {
                               $checkcrosslist ++;
                           }
                       }
                       if ($checkcrosslist) {
                           my %codechk;
                           my (@codetitles,%cat_titles,%cat_order,@code_order,$lastitem);
                           &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,
                                                                    \%cat_titles,
                                                                    \%cat_order,
                                                                    \@code_order);
                           my $numtitles = scalar(@codetitles);
                           if ($numtitles) {
                               for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
                                   if ($env{'form.crosslist_'.$i}) {
                                       my $codecheck;
                                       my $crosslistcode = '';
                                       foreach my $item (@code_order) {
                                           $crosslistcode .= $env{'form.crosslist_'.$i.'_'.$item}; 
                                       }
                                       if ($crosslistcode ne '') { 
                                            $codechk{$i} = 
                                               &Apache::lonnet::auto_validate_instcode('',$dom,$crosslistcode);
                                       }
                                       unless ($codechk{$i} eq 'valid') {
                                           $env{'form.crosslist_'.$i} = '';
                                           push(@invalidcrosslist,$crosslistcode);
                                       } 
                                   }
                               }
                           }
                       }
                   }
               }
           }
           my %elements =  &form_elements($dom);
           my $elementsref = {};
           if (ref($elements{$action}) eq 'HASH') {
               if (ref($elements{$action}{$state}) eq 'HASH') {
                   $elementsref = $elements{$action}{$state};
               }
           }
           if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) {
               $env{'form.clonedom'} = $dom;
           }
           $jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);
     }      }
   
       if ($state eq 'personnel') {
           $jscript .= "\n".&Apache::loncommon::userbrowser_javascript();
       }
   
       my $loaditems = &onload_action($action,$state);
   
     my %can_request;      my %can_request;
     my $canreq = &check_can_request($dom,\%can_request);      my $canreq = &check_can_request($dom,\%can_request);
     if ($action eq 'new') {      if ($action eq 'new') {
Line 170  sub handler { Line 279  sub handler {
                 &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,                  &print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,
                                  $crumb);                                   $crumb);
             } else {              } else {
                 &request_administration($r,$action,$state,$page,\%states,$dom,$jscript,                  &request_administration($r,$action,$state,$page,\%states,$dom,
                                         $loaditems,$crumb);                                          $jscript,$loaditems,$crumb,$newinstcode,
                                           $codechk,$checkedcode,\@invalidcrosslist);
             }              }
         } else {          } else {
             $r->print(&header('Course Requests').$crumb.              $r->print(&header('Course Requests').$crumb.
Line 181  sub handler { Line 291  sub handler {
         }          }
     } elsif ($action eq 'view') {      } elsif ($action eq 'view') {
         if ($state eq 'crstype') {          if ($state eq 'crstype') {
            &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb);              &print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb);
         } else {          } else {
            &request_administration($r,$action,$state,$page,\%states,$dom,$jscript,              &request_administration($r,$action,$state,$page,\%states,$dom,$jscript,
                                    $loaditems,$crumb);                                      $loaditems,$crumb);
           }
       } elsif ($action eq 'display') {
           if ($warning ne '') {
               my $args = { only_body => 1 };
               $r->print(&header('Course Requests','','',$args).$crumb.
                         '<h3>'.&mt('Course Request Details').'</h3>'.
                         '<div class="LC_warning">'.$warning.'</div>'.
                         &close_popup_form());
           } else {
               &request_administration($r,$action,$state,$page,\%states,$dom,$jscript,
                                       $loaditems,$crumb,'','','','',$uname,$udom);
         }          }
     } elsif ($action eq 'log') {      } elsif ($action eq 'log') {
         &print_request_logs($jscript,$loaditems,$crumb);          &print_request_logs($jscript,$loaditems,$crumb);
Line 194  sub handler { Line 315  sub handler {
     return OK;      return OK;
 }  }
   
   sub get_breadcrumbs {
       my ($dom,$action,$state,$states,$trail) = @_;
       my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles);
       my $page = 0;
       if ((ref($states) eq 'HASH') && (ref($trail) eq 'HASH') && (ref($state))) {
           if (defined($action)) {
               my $done = 0;
               my $i=0;
               if (ref($states->{$action}) eq 'ARRAY') {
                   while ($i<@{$states->{$action}} && !$done) {
                       if ($states->{$action}[$i] eq $$state) {
                           $page = $i;
                           $done = 1;
                       }
                       $i++;
                   }
               }
               if ($env{'form.crstype'} eq 'official') {
                   if ($page > 1) {
                       if ($states->{$action}[$page-1] eq 'codepick') {
                           if ($env{'form.instcode'} eq '') {
                               ($newinstcode,$numtitles) = &get_instcode($dom);
                               if ($numtitles) {
                                   if ($newinstcode eq '') {
                                       $$state = 'codepick';
                                       $page --;
                                   } else {
                                       $codechk = 
                                           &Apache::lonnet::auto_validate_instcode('',
                                               $dom,$newinstcode);
                                       if ($codechk ne 'valid') {
                                           $$state = 'codepick';
                                           $page --;
                                       }
                                       $checkedcode = 1;
                                   }
                               }
                           }
                       }
                   }
               }
               for (my $i=0; $i<@{$states->{$action}}; $i++) {
                   if ($$state eq $states->{$action}[$i]) {
                       &Apache::lonhtmlcommon::add_breadcrumb(
                          {text=>"$trail->{$$state}"});
                       $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');
                       last;
                   } else {
                       if (($$state eq 'process') || ($$state eq 'removal')) {
                           &Apache::lonhtmlcommon::add_breadcrumb(
                               { href => '/adm/requestcourse',
                                 text => "$trail->{$states->{$action}[$i]}",
                               }
                           );
                       } else {
                           &Apache::lonhtmlcommon::add_breadcrumb(
        { href => "javascript:backPage(document.requestcrs,'$states->{$action}[$i]')",
          text => "$trail->{$states->{$action}[$i]}", }
                          );
                      }
                  }
              }
           } else {
               &Apache::lonhtmlcommon::add_breadcrumb(
                       {text=>'Pick Action'});
               $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');
           }
       } else {
           &Apache::lonhtmlcommon::add_breadcrumb(
                   {text=>'Pick Action'});
           $crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');
       }
       return ($page,$crumb,$newinstcode,$codechk,$checkedcode);
   }
   
 sub header {  sub header {
     my ($bodytitle,$jscript,$loaditems,$jsextra) = @_;      my ($bodytitle,$jscript,$loaditems,$jsextra,$args) = @_;
     if ($jscript) {      if ($jscript) {
         $jscript = '<script type="text/javascript">'."\n".          $jscript = '<script type="text/javascript">'."\n".
                    '// <![CDATA['."\n".                     '// <![CDATA['."\n".
                    $jscript."\n".'// ]]>'."\n".'</script>'."\n";                     $jscript."\n".'// ]]>'."\n".'</script>'."\n";
     }      }
     if ($loaditems) {      if ($loaditems) {
         $loaditems = {'add_entries' => $loaditems,};          if (ref($args) eq 'HASH') {
         return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$loaditems);              my %loadhash = (
     } else {                               'add_entries' => $loaditems,
         return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra);                             );
               my %arghash = (%loadhash,%{$args});
               $args = \%arghash;                  
           } else {
               $args = {'add_entries' => $loaditems,};
           }
     }      }
       return &Apache::loncommon::start_page($bodytitle,$jscript.$jsextra,$args);
 }  }
   
 sub form_elements {  sub form_elements {
Line 217  sub form_elements { Line 419  sub form_elements {
             crstype => {              crstype => {
                 crstype => 'selectbox',                  crstype => 'selectbox',
                 action  => 'selectbox',                  action  => 'selectbox',
                   origcnum => 'hidden', 
             },              },
             courseinfo => {              courseinfo => {
                 cdescr           => 'text',                  cdescr           => 'text',
                 clonecourse      => 'text',                  clonecrs         => 'text',
                 clonedomain      => 'selectbox',                  clonedom         => 'selectbox',
                 datemode         => 'radio',                  datemode         => 'radio',
                 dateshift        => 'text',                  dateshift        => 'text',
             },              },
             enrollment  => {              enrollment  => {
                 startaccess_month  => 'selectbox',                  accessstart_month  => 'selectbox',
                 startaccess_hour   => 'selectbox',                  accessstart_hour   => 'selectbox',
                 endaccess_month    => 'selectbox',                  accessend_month    => 'selectbox',
                 endaccess_hour     => 'selectbox',                  accessend_hour     => 'selectbox',
                 startaccess_day    => 'text',                  accessstart_day    => 'text',
                 startaccess_year   => 'text',                  accessstart_year   => 'text',
                 startaccess_minute => 'text',                  accessstart_minute => 'text',
                 startaccess_second => 'text',                  accessstart_second => 'text',
                 endaccess_day      => 'text',                  accessend_day      => 'text',
                 endaccess_year     => 'text',                  accessend_year     => 'text',
                 endaccess_minute   => 'text',                  accessend_minute   => 'text',
                 endaccess_second   => 'text',                  accessend_second   => 'text',
                 no_end_date      => 'checkbox',                  no_end_date      => 'checkbox',
             },              },
             personnel => {              personnel => {
                 persontotal => 'hidden',  
                 addperson   => 'checkbox',                   addperson   => 'checkbox', 
             },              },
               review => {
                   cnum => 'hidden',
               },
          },           },
          view => {           view => {
             crstype => {              crstype => {
Line 252  sub form_elements { Line 457  sub form_elements {
             },              },
          },           },
     );      );
       my %servers = &Apache::lonnet::get_servers($dom,'library');
       my $numlib = keys(%servers);
       if ($numlib > 1) {
           $elements{'new'}{'courseinfo'}{'chome'} = 'selectbox';
       } else {
           $elements{'new'}{'courseinfo'}{'chome'} = 'hidden';
       }
     my (@codetitles,%cat_titles,%cat_order,@code_order,$lastitem);      my (@codetitles,%cat_titles,%cat_order,@code_order,$lastitem);
     &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);
Line 268  sub form_elements { Line 480  sub form_elements {
     if (&Apache::lonnet::auto_run('',$dom)) {      if (&Apache::lonnet::auto_run('',$dom)) {
         my %extras = (          my %extras = (
                        sectotal           => 'hidden',                         sectotal           => 'hidden',
                        startenroll_month  => 'selectbox',                         enrollstart_month  => 'selectbox',
                        startenroll_hour   => 'selectbox',                         enrollstart_hour   => 'selectbox',
                        endenroll_month    => 'selectbox',                         enrollend_month    => 'selectbox',
                        endenroll_hour     => 'selectbox',                         enrollend_hour     => 'selectbox',
                        startenroll_day    => 'text',                         enrollstart_day    => 'text',
                        startenroll_year   => 'text',                         enrollstart_year   => 'text',
                        startenroll_minute => 'text',                         enrollstart_minute => 'text',
                        startenroll_second => 'text',                         enrollstart_second => 'text',
                        endenroll_day      => 'text',                         enrollend_day      => 'text',
                        endenroll_year     => 'text',                         enrollend_year     => 'text',
                        endenroll_minute   => 'text',                         enrollend_minute   => 'text',
                        endenroll_second   => 'text',                         enrollend_second   => 'text',
                        crosslisttotal     => 'hidden',  
                        addcrosslist       => 'checkbox',                         addcrosslist       => 'checkbox',
                        autoadds           => 'radio',                         autoadds           => 'radio',
                        autodrops          => 'radio',                         autodrops          => 'radio',
Line 289  sub form_elements { Line 500  sub form_elements {
             for (my $i=0; $i<$env{'form.sectotal'}; $i++) {              for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
                 $extras{'sec_'.$i} = 'checkbox',                  $extras{'sec_'.$i} = 'checkbox',
                 $extras{'secnum_'.$i} = 'text',                  $extras{'secnum_'.$i} = 'text',
                 $extras{'loncapasec_'.$i} = 'checkbox',                  $extras{'loncapasec_'.$i} = 'text',
             }              }
         }          }
         my $crosslisttotal = $env{'form.crosslisttotal'};          my $crosslisttotal = $env{'form.crosslisttotal'};
         if (!defined($crosslisttotal)) {          if ($env{'form.addcrosslist'}) {
               $crosslisttotal ++;
           }
           if (!$crosslisttotal) {
             $crosslisttotal = 1;              $crosslisttotal = 1;
         }          }
         if ($crosslisttotal > 0) {  
             for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {          for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
                 if ($numtitles) {              if ($numtitles) {
                     $extras{'crosslist_'.$i.'_'.$lastitem} = 'text';                  $extras{'crosslist_'.$i.'_'.$lastitem} = 'text';
                 }              }
                 if (@codetitles > 0) {              if (@codetitles > 0) {
                     foreach my $item (@codetitles) {                  foreach my $item (@codetitles) {
                         $extras{'crosslist_'.$i.'_'.$item} = 'selectbox';                      $extras{'crosslist_'.$i.'_'.$item} = 'selectbox';
                     }  
                 }                  }
                 $extras{'crosslist_'.$i} = 'checkbox';  
                 $extras{'crosslist_'.$i.'_instsec'} = 'text',  
                 $extras{'crosslist_'.$i.'_lcsec'} = 'text',  
             }              }
               $extras{'crosslist_'.$i} = 'checkbox';
               $extras{'crosslist_'.$i.'_instsec'} = 'text',
               $extras{'crosslist_'.$i.'_lcsec'} = 'text',
         }          }
         my %mergedhash = (%{$elements{'new'}{'enrollment'}},%extras);          my %mergedhash = (%{$elements{'new'}{'enrollment'}},%extras);
         %{$elements{'new'}{'enrollment'}} = %mergedhash;          %{$elements{'new'}{'enrollment'}} = %mergedhash;
     }      }
     my %people;      my %people;
     my $persontotal = $env{'form.persontotal'};      my $persontotal = $env{'form.persontotal'};
     if (!defined($persontotal)) {      if ($env{'form.addperson'}) {
           $persontotal ++;
       }
       if ((!defined($persontotal)) || (!$persontotal)) {
         $persontotal = 1;          $persontotal = 1;
     }      }
     for (my $i=0; $i<$persontotal; $i++) {      for (my $i=0; $i<$persontotal; $i++) {
         $people{'person_'.$i.'_uname'}    = 'text',          $people{'person_'.$i.'_uname'}     = 'text',
         $people{'person_'.$i.'_dom'}      = 'selectbox',          $people{'person_'.$i.'_dom'}       = 'selectbox',
         $people{'person_'.$i.'_hidedom'}  = 'hidden',          $people{'person_'.$i.'_hidedom'}   = 'hidden',
         $people{'person_'.$i.'_first'}    = 'text',          $people{'person_'.$i.'_firstname'} = 'text',
         $people{'person_'.$i.'_last'}     = 'text',          $people{'person_'.$i.'_lastname'}  = 'text',
         $people{'person_'.$i.'_email'}    = 'text',          $people{'person_'.$i.'_emailaddr'} = 'text',
         $people{'person_'.$i.'_role'}     = 'selectbox',          $people{'person_'.$i.'_role'}      = 'selectbox',
         $people{'person_'.$i.'_sec'}      = 'selectbox',          $people{'person_'.$i.'_sec'}       = 'selectbox',
         $people{'person_'.$i.'_newsec'}   = 'text',          $people{'person_'.$i.'_newsec'}    = 'text',
         $people{'person_'.$i.'_sections'} = 'hidden',  
     }      }
     my %personnelhash = (%{$elements{'new'}{'personnel'}},%people);      my %personnelhash = (%{$elements{'new'}{'personnel'}},%people);
     %{$elements{'new'}{'personnel'}} = %personnelhash;      %{$elements{'new'}{'personnel'}} = %personnelhash;
Line 349  sub check_can_request { Line 564  sub check_can_request {
     my ($dom,$can_request) = @_;      my ($dom,$can_request) = @_;
     my $canreq = 0;      my $canreq = 0;
     my ($types,$typename) = &course_types();      my ($types,$typename) = &course_types();
       my @options = ('approval','validate','autolimit');
       my $optregex = join('|',@options);
     if ((ref($can_request) eq 'HASH') && (ref($types) eq 'ARRAY')) {      if ((ref($can_request) eq 'HASH') && (ref($types) eq 'ARRAY')) {
         foreach my $type (@{$types}) {          foreach my $type (@{$types}) {
             if (&Apache::lonnet::usertools_access($env{'user.name'},              if (&Apache::lonnet::usertools_access($env{'user.name'},
Line 364  sub check_can_request { Line 581  sub check_can_request {
                 if (@curr > 0) {                  if (@curr > 0) {
                     $canreq ++;                      $canreq ++;
                     unless ($dom eq $env{'user.domain'}) {                      unless ($dom eq $env{'user.domain'}) {
                         if (grep(/^\Q$dom\E$/,@curr)) {                          if (grep(/^\Q$dom\E:($optregex)(=?\d*)$/,@curr)) {
                             $can_request->{$type} = 1;                              $can_request->{$type} = 1;
                         }                          }
                     }                      }
Line 410  sub print_main_menu { Line 627  sub print_main_menu {
     my $js = <<"END";      my $js = <<"END";
   
 function nextPage(formname) {  function nextPage(formname) {
     var crschoice = document.requestcrs.crstype.value;      var crschoice = document.mainmenu_coursetype.crstype.value;
     var actionchoice = document.requestcrs.action.value;      var actionchoice = document.mainmenu_action.action.value;
     if (check_can_request(crschoice,actionchoice) == true) {      if (check_can_request(crschoice,actionchoice) == true) {
         if ((actionchoice == 'new') && (crschoice == 'official')) {          if ((actionchoice == 'new') && (crschoice == 'official')) {
             nextstate = 'codepick';              nextstate = 'codepick';
         } else {          } else {
 $nextstate_setter   $nextstate_setter 
         }           }
           formname.crstype.value = crschoice;
           formname.action.value = actionchoice; 
         formname.state.value= nextstate;          formname.state.value= nextstate;
         formname.submit();          formname.submit();
     }      }
Line 472  END Line 691  END
   
 END  END
   
     $r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb.      $r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb.'<div>'.
               '<div>'.  
               '<form name="domforcourse" method="post" action="/adm/requestcourse">'.  
               &Apache::lonhtmlcommon::start_pick_box().                &Apache::lonhtmlcommon::start_pick_box().
               &Apache::lonhtmlcommon::row_title('Course Domain').                &Apache::lonhtmlcommon::row_title(&mt('Course Domain')).
                 '<form name="domforcourse" method="post" action="/adm/requestcourse">'.
               &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange));                &Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange));
     if (!$onchange) {      if (!$onchange) {
         $r->print('&nbsp;<input type="submit" name="godom" value="'.          $r->print('&nbsp;<input type="submit" name="godom" value="'.
                    &mt('Change').'" />');                     &mt('Change').'" />');
     }      }
     $r->print(&Apache::lonhtmlcommon::row_closure(1).      $r->print('</form>'.&Apache::lonhtmlcommon::row_closure());
               &Apache::lonhtmlcommon::end_pick_box().'</form></div>');  
   
     my $formname = 'requestcrs';      my $formname = 'requestcrs';
     my $nexttext = &mt('Next');      my $nexttext = &mt('Next');
     $r->print('<div><form name="'.$formname.'" method="post" action="/adm/requestcourse">'.      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).'
               &Apache::lonhtmlcommon::start_pick_box().  <form name="mainmenu_action" method="post" action=""> 
               &Apache::lonhtmlcommon::row_title('Action').'  
 <input type="hidden" name="showdom" value="'.$dom.'" />  
 <select size="1" name="action" >  <select size="1" name="action" >
  <option value="new">'.&mt('New request').'</option>   <option value="new">'.&mt('New request').'</option>
  <option value="view">'.&mt('View/Modify/Cancel pending requests').'</option>   <option value="view">'.&mt('View/Modify/Cancel pending requests').'</option>
  <option value="log">'.&mt('View request history').'</option>   <option value="log">'.&mt('View request history').'</option>
 </select>'.  </select></form>'.
               &Apache::lonhtmlcommon::row_closure().                &Apache::lonhtmlcommon::row_closure(1).
               &Apache::lonhtmlcommon::row_title('Course Type').'                &Apache::lonhtmlcommon::row_title(&mt('Course Type')).'
   <form name="mainmenu_coursetype" method="post" action="">
 <select size="1" name="crstype">  <select size="1" name="crstype">
  <option value="any">'.&mt('All types').'</option>');   <option value="any">'.&mt('All types').'</option>');
     if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) {      if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) {
Line 510  END Line 726  END
                       '</option>'."\n");                        '</option>'."\n");
         }          }
     }      }
     $r->print('</select>      $r->print('</select></form>'."\n".
 <input type="hidden" name="state" value="crstype" />'.                &Apache::lonhtmlcommon::row_closure(1)."\n".
               &Apache::lonhtmlcommon::row_closure(1).                &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n".
               &Apache::lonhtmlcommon::end_pick_box().'<br />                '<div><form name="'.$formname.'" method="post" action="">'."\n".
 <input type="button" name="next" value="'.$nexttext.'" onclick="javascript:nextPage(document.'.$formname.')" />                '<input type="hidden" name="state" value="crstype" />'."\n".
 </form></div>');                '<input type="hidden" name="showdom" value="'.$dom.'" />'."\n".
                 '<input type="hidden" name="crstype" value="" />'."\n".
                 '<input type="hidden" name="action" value="" />'."\n".
                 '<input type="button" name="next" value="'.$nexttext.
                 '" onclick="javascript:nextPage(document.'.$formname.')" />'."\n".
                 '</form></div>');
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
   
 sub request_administration {  sub request_administration {
     my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb) = @_;      my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb,
           $newinstcode,$codechk,$checkedcode,$invalidcrosslist,$uname,$udom) = @_;
     my $js;      my $js;
     if (($action eq 'new') || ($action eq 'view')) {      if (($action eq 'new') || (($action eq 'view') && ($state eq 'pick_request'))) {
         $js =  <<END;          $js =  <<END;
   
 function nextPage(formname,nextstate) {  function nextPage(formname,nextstate) {
     formname.state.value= nextstate;      formname.state.value= nextstate;
     formname.submit();      formname.submit();
 }  }
   
   END
       }
       if (($action eq 'new') || ($action eq 'view')) {
           $js .= <<END;   
   
 function backPage(formname,prevstate) {  function backPage(formname,prevstate) {
     formname.state.value = prevstate;      formname.state.value = prevstate;
     formname.submit();      formname.submit();
Line 543  END Line 771  END
             $jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);              $jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);
         }          }
         $r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb);          $r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb);
         &print_request_form($r,$action,$state,$page,$states,$dom);          &print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode,
                               $codechk,$checkedcode,$invalidcrosslist);
     } elsif ($action eq 'view') {      } elsif ($action eq 'view') {
         $r->print(&header('Manage course requests',$js.$jscript,$loaditems).$crumb);          my $jsextra;
           my $formname = 'requestcrs';
           my $prev = $states->{$action}[$page-1];
           my $next = $states->{$action}[$page+1];
           if ($state eq 'pick_request') {
               $next = $states->{$action}[$page+1];
               $jsextra = &viewrequest_javascript($formname,$next);
           } elsif ($state eq 'details') {
               $jsextra = &viewdetails_javascript($formname);
   
           } elsif ($state eq 'cancel') {
               $jsextra = &viewcancel_javascript($formname);
           }
           $r->print(&header('Manage course requests',$js.$jscript.$jsextra,$loaditems).
                     $crumb);
           my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />';
         if ($state eq 'pick_request') {          if ($state eq 'pick_request') {
             $r->print(&print_request_status($dom));              $r->print('<h3>'.&mt('Pending course requests').'</h3><div>'."\n".$form."\n".
                         &print_request_status($dom).'</form>');
           } elsif ($state eq 'details') {
               my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);
               my $origcnum = $env{'form.cnum'};
               if ($origcnum eq '') {
                   $origcnum = $env{'form.origcnum'};   
               }
               if ($env{'form.crstype'} eq 'official') {
                   &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
                                                            \%cat_order,\@code_order);
               }
               $r->print('<h3>'.&mt('Course Request Details').'</h3><div>'."\n".$form."\n".
                         &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,
                                       \@code_order)."\n".
                         '<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n");
               my @excluded = &get_excluded_elements($dom,$states,'new','review');
               push(@excluded,'origcnum');
               $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');
               my $other = 'modify';
               my %navtxt = &Apache::lonlocal::texthash (
                                                         prev => 'Back',
                                                         other => 'Modify Request',
                                                         next => 'Cancel Request',
                                                        );
               &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'},
                                   $state,$other,$navtxt{'other'});
               $r->print('</form>');
           } elsif ($state eq 'cancel') {
               my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});
               $r->print('<h3>'.&mt('Cancel course request').'</h3><div>'."\n".$form."\n".
                         $output);
               my @excluded = &get_excluded_elements($dom,$states,'view','cancel');
               $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');
               my %navtxt = &Apache::lonlocal::texthash (
                                                         prev => 'Back',
                                                         next => 'Confirm Cancellation',
                                                        );
               if ($result eq 'ok') {
                   &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,
                                       $navtxt{'next'},$state);
               } else {
                   &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},undef,'',$state);
               }
               $r->print('</form>');
           } elsif ($state eq 'removal') {
               my $cnum = $env{'form.origcnum'};
               my $statuskey = 'status:'.$dom.':'.$cnum;
               my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey],
                                                      $env{'user.domain'},$env{'user.name'});
               my $currstatus = $userreqhash{$statuskey};
               my ($result,$error); 
               if (($currstatus eq 'approval') || ($currstatus eq 'pending')) { 
                   my %status = (
                                    $statuskey => 'cancelled',
                                );
                   my $statusresult = &Apache::lonnet::put('courserequests',\%status);
                   if ($statusresult eq 'ok') {
                       my $delresult = 
                           &Apache::lonnet::del_dom('courserequestqueue',
                                                    [$cnum.'_'.$currstatus],$dom);
                       if ($delresult eq 'ok') {
                           $result = 'ok';
                       } else {
                           $error = &mt('An error occurred when updating the pending requests queue: [_1]',$delresult);
                       }
                   } else {
                       $error = &mt("An error occurred when updating the status of this request in the requestor's records: [_1]",$statusresult);
                   }
               } else {
                   $error = &mt('The current status of this request could not be verified as pending approval/institutional action.');  
               }
               $r->print('<h3>'.&mt('Request Cancellation').'</h3><div>'."\n".$form."\n".
                         '<input type="hidden" name="state" value="'.$state.'" />'."\n".
                         '<input type="hidden" name="action" value="'.$action.'" />'."\n".
                         '<input type="hidden" name="showdom" value="'.$dom.'" />'."\n".
                         '<input type="hidden" name="orignum" value="'.$cnum.'" />'."\n");
               if ($result eq 'ok') {
                   $r->print(&mt('Your course request has been cancelled.'));
               } else {
                   $r->print('<div class="LC_error">'.
                             &mt('The request cancellation process was not complete.').
                             '<br />'.$error.'</div>');
               }
               $r->print('</form>');
           }
       } elsif ($action eq 'display') {
           my $formname = 'requestcrs';
           my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);
           if ($env{'form.crstype'} eq 'official') {
               &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
                                                        \%cat_order,\@code_order);
         }          }
           $r->print(&header('Course Request','','','',{ 'only_body' => 1}).
                     $crumb."\n".'<h3>'.&mt('Course Request Details').'</h3>'.
                     &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,
                                   \@code_order,$uname,$udom)."\n".'</div>'.
                     &close_popup_form());
     } elsif ($action eq 'log') {      } elsif ($action eq 'log') {
         $r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb);          $r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb);
     }      }
Line 556  END Line 896  END
     return;      return;
 }  }
   
   sub close_popup_form {
       my $close= &mt('Close Window');
       return << "END";
   <p><form name="displayreq" action="" method="post">
   <input type="button" name="closeme" value="$close" onclick="javascript:self.close();" />
   </form></p>
   END
   }
   
   sub get_instcode {
       my ($dom) = @_;
       my ($instcode,$numtitles);
       my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);
       &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
                                                \%cat_order,\@code_order);
       $numtitles = scalar(@codetitles);
       if (@code_order > 0) {
           my $message;
           foreach my $item (@code_order) {
               $instcode .= $env{'form.instcode_'.$item};
           }
       }
       return ($instcode,$numtitles);
   }
   
 sub print_request_form {  sub print_request_form {
     my ($r,$action,$state,$page,$states,$dom) = @_;      my ($r,$action,$state,$page,$states,$dom,$newinstcode,$codechk,$checkedcode,
           $invalidcrosslist) = @_;
     my $formname = 'requestcrs';      my $formname = 'requestcrs';
     my ($next,$prev,$message,$output,$codepicker,$crstype);      my ($next,$prev,$message,$output,$codepicker,$crstype);
     $prev = $states->{$action}[$page-1];      $prev = $states->{$action}[$page-1];
Line 572  sub print_request_form { Line 938  sub print_request_form {
     if ($crstype eq 'official') {      if ($crstype eq 'official') {
         if ($env{'form.instcode'} ne '') {          if ($env{'form.instcode'} ne '') {
             $instcode = $env{'form.instcode'};              $instcode = $env{'form.instcode'};
           } elsif ($newinstcode ne '') {
               $instcode = $newinstcode;
         }          }
     }          if ($checkedcode) {
     if ($prev eq 'codepick') {              if ($codechk eq 'valid') {
         if ($crstype eq 'official') {                  $message = '<div class="LC_info">'.
             &Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,                             &mt('The chosen course category [_1] is valid.','<b>'.
                                                      \%cat_order,\@code_order);                             $instcode.'</b>').
         }                             '<input type="hidden" name="instcode" value="'.
         if (@code_order > 0) {                             $instcode.'" /></div>';
             my $message;  
             if ($instcode eq '') {  
                 foreach my $item (@code_order) {  
                     $instcode .= $env{'form.instcode_'.$item};  
                 }  
                 $r->print('<input type="hidden" name="instcode" value="'.$instcode.'" />'."\n");  
             }  
             if ($instcode ne '') {  
                 $code_chk = &Apache::lonnet::auto_validate_instcode('',$dom,$instcode);  
                 if ($code_chk eq 'ok') {  
                     $message = '<div class="LC_info">'.  
                                &mt('The chosen course category [_1] is valid.','<b>'.  
                                $instcode.'</b>').'</div>';  
                 } else {  
                     $message = '<div class="LC_warning">'.  
                                &mt('No course was found matching your choice of institutional course category.');  
                     if ($code_chk ne '') {  
                         $message .= '<br />'.$code_chk;  
                     }  
                     $message .= '</div>';  
                 }  
             } else {              } else {
                 $message = '<div class="LC_warning">'.                  $message = '<div class="LC_warning">'.
                            &mt('No course was found matching your choice of institutional course category.');                              &mt('No course was found matching your choice of institutional course category.');
             }                  if ($codechk ne '') {
             unless ($code_chk eq 'ok') {                      $message .= '<br />'.$codechk;
                   }
                   $message .= '</div>';
                 $prev = 'crstype';                  $prev = 'crstype';
             }              }
             $r->print($message);              $r->print($message);
Line 623  sub print_request_form { Line 972  sub print_request_form {
                 $r->print('<div>'.&Apache::lonhtmlcommon::start_pick_box().$codepicker.                  $r->print('<div>'.&Apache::lonhtmlcommon::start_pick_box().$codepicker.
                           &Apache::lonhtmlcommon::end_pick_box().'</div>');                            &Apache::lonhtmlcommon::end_pick_box().'</div>');
             } else {              } else {
                 $r->print(&courseinfo_form($dom,$formname,$crstype));                  $next = $states->{$action}[$page+2];
                   $r->print(&courseinfo_form($dom,$formname,$crstype,$next));
             }              }
         } else {          } else {
             $r->print(&courseinfo_form($dom,$formname,$crstype));              if ($crstype eq 'official') {
                   $next = $states->{$action}[$page+2];
               }
               $r->print(&courseinfo_form($dom,$formname,$crstype,$next));
         }          }
     } elsif ($prev eq 'codepick') {      } elsif ($prev eq 'codepick') {
         $r->print(&courseinfo_form($dom,$formname,$crstype));          if ($instcode eq '') {
               $prev = $states->{$action}[$page-2];
           }
           $r->print(&courseinfo_form($dom,$formname,$crstype,$next));
     } elsif ($state eq 'enrollment') {      } elsif ($state eq 'enrollment') {
         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,
                                                      \%cat_order,\@code_order);                                                       \%cat_order,\@code_order);
         }          }
         $r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles,          $r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles,
                                          \%cat_titles,\%cat_order,\@code_order));                                           \%cat_titles,\%cat_order,\@code_order,
                                            $invalidcrosslist));
     } elsif ($state eq 'personnel') {      } elsif ($state eq 'personnel') {
         $r->print(&print_personnel_menu($dom,$formname,$crstype));          $r->print(&print_personnel_menu($dom,$formname,$crstype,$invalidcrosslist));
     } elsif ($state eq 'review') {      } elsif ($state eq 'review') {
           my $cnum;
           if ($env{'form.origcnum'} =~ /^($match_courseid)$/) {
               $cnum = $env{'form.origcnum'};
           } else {
               $cnum = &Apache::lonnet::generate_coursenum($dom);
           }
         &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(&print_review($formname,$dom,\@codetitles,\%cat_titles,\%cat_order,          $r->print('<h3>'.&mt('Review course request details before submission').'</h3>'.
                                 \@code_order));                    &print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order).
                     '<input type="hidden" name="cnum" value="'.$cnum.'" />');
         $navtxt{'next'} = &mt('Submit course request');          $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,
                                                      \%cat_order,\@code_order);                                                       \%cat_order,\@code_order);
         }          }
         my $result = &print_request_outcome($dom,\@codetitles,\@code_order);          my ($storeresult,$result) = &print_request_outcome($dom,\@codetitles,
                                                              \@code_order);
           $r->print($result);
           if (($storeresult eq 'ok') || ($storeresult eq 'created')) {
               $r->print('<p>');
               if ($storeresult eq 'ok') {
                   $r->print('<a href="/adm/requestcourse?action=view&state=details&showdom='.$dom.'&cnum='. $env{'form.cnum'}.'">'.
                             &mt('Modify this request').'</a>'.('&nbsp;'x4));
               }
               $r->print('<a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');
               return;
           }
       }
       my @excluded = &get_excluded_elements($dom,$states,$action,$state);
       if ($state eq 'personnel') {
           push(@excluded,'persontotal');
       }
       if ($state eq 'enrollment') {
           push(@excluded,'crosslisttotal');
     }      }
       $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>');
       &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'},$state);
       return;
   }
   
   sub get_excluded_elements {
       my ($dom,$states,$action,$state) = @_;
     my @excluded = ('counter');      my @excluded = ('counter');
     my %elements = &form_elements($dom);      my %elements = &form_elements($dom);
     if (ref($states) eq 'HASH') {      if (ref($states) eq 'HASH') {
Line 662  sub print_request_form { Line 1051  sub print_request_form {
                 for (my $i=$numitems-1; $i>=0; $i--) {                  for (my $i=$numitems-1; $i>=0; $i--) {
                     if (ref($elements{$action}) eq 'HASH') {                      if (ref($elements{$action}) eq 'HASH') {
                         if (ref($elements{$action}{$items[$i]}) eq 'HASH') {                          if (ref($elements{$action}{$items[$i]}) eq 'HASH') {
                             foreach my $key (keys(%{$elements{$action}{$items[$i]}})) {                               foreach my $key (keys(%{$elements{$action}{$items[$i]}})) {
                                 push(@excluded,$key);                                  push(@excluded,$key);
                             }                              }
                         }                          }
Line 675  sub print_request_form { Line 1064  sub print_request_form {
     if (grep(/^instcode_/,@excluded)) {      if (grep(/^instcode_/,@excluded)) {
         push(@excluded,'instcode');          push(@excluded,'instcode');
     }      }
     $r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>');      return @excluded;
     &display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'});  
     return;  
 }  }
   
 sub print_enrollment_menu {  sub print_enrollment_menu {
     my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order) =@_;      my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order,
     my ($sections,$autoenroll,$access_dates);          $invalidcrosslist) =@_;
       my ($sections,$autoenroll,$access_dates,$output);
     my $starttime = time;      my $starttime = time;
     my $endtime = time+(6*30*24*60*60); # 6 months from now, approx      my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
   
     my %accesstitles = (      my %accesstitles = (
                           'start' => 'Default start access',                            'start' => 'Default start access',
                            'end'   => 'Default end accss',                             'end'   => 'Default end access',
                        );                         );
     my %enrolltitles = (      my %enrolltitles = (
                            'start' => 'Start auto-enrollment',                             'start' => 'Start auto-enrollment',
Line 696  sub print_enrollment_menu { Line 1084  sub print_enrollment_menu {
                        );                         );
     if ($env{'form.crstype'} eq 'official') {      if ($env{'form.crstype'} eq 'official') {
         if (&Apache::lonnet::auto_run('',$dom)) {          if (&Apache::lonnet::auto_run('',$dom)) {
             my ($section_form,$crosslist_form,$autoenroll_form);              $output = &show_invalid_crosslists($invalidcrosslist);
               my ($section_form,$crosslist_form);
             $section_form = &inst_section_selector($dom,$instcode);              $section_form = &inst_section_selector($dom,$instcode);
               if ($section_form) {
                   $sections = &Apache::lonhtmlcommon::row_headline().
                               '<h3>'.&mt('Sections for auto-enrollment').'</h3>'.
                               &Apache::lonhtmlcommon::row_closure(1).
                               $section_form;
               }
             my $crosslisttotal = $env{'form.crosslisttotal'};              my $crosslisttotal = $env{'form.crosslisttotal'};
             if (!defined($crosslisttotal)) {              if (!$crosslisttotal) {
                 $crosslisttotal = 1;                  $crosslisttotal = 1;
             }              }
             if ($env{'form.addcrosslist'}) {              if ($env{'form.addcrosslist'}) {
Line 715  sub print_enrollment_menu { Line 1110  sub print_enrollment_menu {
                     '<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'}.
                    "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1);                     "'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure();
                   $sections .=  &Apache::lonhtmlcommon::row_headline.
                                 '<h3>'.&mt('Crosslisted courses for auto-enrollment').'</h3>'.
                                 &Apache::lonhtmlcommon::row_closure(1).
                                 $crosslist_form;
             }              }
             if ($section_form || $crosslist_form) {              $autoenroll = 
                 $sections = '<div>'.&Apache::lonhtmlcommon::start_pick_box().  
                             $section_form.$crosslist_form.  
                             &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";  
             }  
             $autoenroll_form =   
                 &Apache::lonhtmlcommon::row_title(&mt('Add registered students automatically')).                  &Apache::lonhtmlcommon::row_title(&mt('Add registered students automatically')).
                 '<span class="LC_nobreak"><label>'.                  '<span class="LC_nobreak"><label>'.
                 '<input type="radio" name="autoadds" value="1">'.                  '<input type="radio" name="autoadds" value="1">'.
                 &mt('Yes').'</label>'.('&nbsp;'x3).'<label>'.                  &mt('Yes').'</label>'.('&nbsp;'x3).'<label>'.
                 '<input type="radio" name="autoadds" value="0" checked="checked">'.                  '<input type="radio" name="autoadds" value="0" checked="checked">'.
                 &mt('No').'</label></span>'.                  &mt('No').'</label></span>'.
                 &Apache::lonhtmlcommon::row_closure().                  &Apache::lonhtmlcommon::row_closure(1).
                 &Apache::lonhtmlcommon::row_title(&mt('Drop unregistered students automatically')).                  &Apache::lonhtmlcommon::row_title(&mt('Drop unregistered students automatically')).
                 '<span class="LC_nobreak"><label>'.                  '<span class="LC_nobreak"><label>'.
                 '<input type="radio" name="autodrops" value="1">'.                  '<input type="radio" name="autodrops" value="1">'.
                 &mt('Yes').'</label>'.('&nbsp;'x3).'<label>'.                  &mt('Yes').'</label>'.('&nbsp;'x3).'<label>'.
                 '<input type="radio" name="autodrops" value="0" checked="checked">'.                  '<input type="radio" name="autodrops" value="0" checked="checked">'.
                 &mt('No').'</label></span>'.                   &mt('No').'</label></span>'. 
                 &Apache::lonhtmlcommon::row_closure().                  &Apache::lonhtmlcommon::row_closure(1).
                 &date_setting_table($starttime,$endtime,$formname,'enroll',%enrolltitles);                  &date_setting_table($starttime,$endtime,$formname,'enroll',%enrolltitles);
             if ($autoenroll_form) {  
                 $autoenroll = '<div>'.&Apache::lonhtmlcommon::start_pick_box().  
                               $autoenroll_form.  
                               &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";  
             }  
         }          }
     }      }
     my $access_dates_form =       my $access_dates = 
         &date_setting_table($starttime,$endtime,$formname,'access',%accesstitles);          &date_setting_table($starttime,$endtime,$formname,'access',%accesstitles);
     if ($access_dates_form) {      $output .= &Apache::lonhtmlcommon::start_pick_box();
         $access_dates = '<div>'.&Apache::lonhtmlcommon::start_pick_box().      if ($sections) {
                         $access_dates_form.          $output .=  $sections;
                         &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";      }
       if ($autoenroll) {
           $output .= &Apache::lonhtmlcommon::row_headline('Auto-enroll').
                      '<h3>'.&mt('Auto-enrollment settings').'</h3>'.
                      &Apache::lonhtmlcommon::row_closure(1).
                      $autoenroll;
       }
       if ($access_dates) {
           my $header = &mt('Access dates for students');
           if ($env{'form.crstype'} eq 'community') {
               $header = &mt('Access dates for community members');
           }
           $output .= &Apache::lonhtmlcommon::row_headline('Access').
                      '<h3>'.$header.'</h3>'.
                      &Apache::lonhtmlcommon::row_closure(1).
                      $access_dates
     }      }
     return $sections.$autoenroll.$access_dates;      return '<div>'.&Apache::lonhtmlcommon::start_pick_box().$output.
              &Apache::lonhtmlcommon::end_pick_box().'</div>';
 }  }
   
   sub show_invalid_crosslists {
       my ($invalidcrosslist) = @_;
       my $output;
       if (ref($invalidcrosslist) eq 'ARRAY') {
           if (@{$invalidcrosslist} > 0) {
               $output = '<div class="LC_warning">'.
                         &mt('The following crosslisted courses were invalid:').'<ul>';
               foreach my $item (@{$invalidcrosslist}) {
                   $output .= '<li>'.$item.'</li>';
               }
               $output .= '</ul></div><br />';
           }
       }
       return $output;
   }
   
   
 sub inst_section_selector {  sub inst_section_selector {
     my ($dom,$instcode) = @_;      my ($dom,$instcode) = @_;
     my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode);      my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode);
     my $sectotal = scalar(@sections);      my $sectotal = scalar(@sections);
     my $output;      my $output;
     if ($sectotal) {      if ($sectotal) {
         $output .=  &Apache::lonhtmlcommon::row_title('Sections').          $output .=  &Apache::lonhtmlcommon::row_title(&mt('Sections of [_1]',$instcode)).
                     &Apache::loncommon::start_data_table().                      &Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_row().                      &Apache::loncommon::start_data_table_row().
                     '<th>'.&mt('Include?').'<input type="hidden" name="sectotal" '.                      '<th>'.&mt('Include?').'<input type="hidden" name="sectotal" '.
                     'value="'.$sectotal.'"</th>'.                      'value="'.$sectotal.'"  /></th>'.
                     '<th>'.&mt('Institutional Section').'</th>'.                      '<th>'.&mt('Institutional Section').'</th>'.
                     '<th>'.&mt('LON-CAPA section').'</th>'.                      '<th>'.&mt('LON-CAPA section').'</th>'.
                     &Apache::loncommon::end_data_table_row();                      &Apache::loncommon::end_data_table_row();
         for (my $i=0; $i<@sections; $i++) {          for (my $i=0; $i<@sections; $i++) {
             my $colflag = $i%2;              my $colflag = $i%2;
               my $checked = ' checked="checked"';
               if ($env{'form.origcnum'}) {
                   $checked='';
               }
             $output .= &Apache::loncommon::start_data_table_row().              $output .= &Apache::loncommon::start_data_table_row().
                        '<td><input type="checkbox" name="sec_'.$i.                         '<td><input type="checkbox" name="sec_'.$i.
                        '" checked="checked" /></td>'.                         '"'.$checked.' value="1" /></td>'.
                        '<td>'.$sections[$i].                         '<td>'.$sections[$i].
                        '<input type="hidden" name="secnum_'.$i.'" value="'.                         '<input type="hidden" name="secnum_'.$i.'" value="'.
                        $sections[$i].'" /></td>'.                         $sections[$i].'" /></td>'.
Line 788  sub inst_section_selector { Line 1214  sub inst_section_selector {
 }  }
   
 sub date_setting_table {  sub date_setting_table {
     my ($starttime,$endtime,$formname,$suffix,%datetitles) = @_;      my ($starttime,$endtime,$formname,$prefix,%datetitles) = @_;
     my ($perpetual,$table);      my ($perpetual,$table);
     my $startform = &Apache::lonhtmlcommon::date_setter($formname,'start'.$suffix,      my $startform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'start',
                                                         $starttime,'','','',1,'','','',1);                                                          $starttime,'','','',1,'','','',1);
     my $endform = &Apache::lonhtmlcommon::date_setter($formname,'end'.$suffix,      my $endform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'end',
                                                       $endtime,'','','',1,'','','',1);                                                        $endtime,'','','',1,'','','',1);
     if ($suffix eq 'access') {      my $closure = '';
       if ($prefix eq 'access') {
         $perpetual = ' <span class="LC_nobreak"><label>'.          $perpetual = ' <span class="LC_nobreak"><label>'.
                      '<input type="checkbox" name="no_end_date" />'.                       '<input type="checkbox" name="no_end_date" />'.
                      &mt('No end date').'</label></span>';                       &mt('No end date').'</label></span>';
           $closure = '1';
     }      }
     $table = &Apache::lonhtmlcommon::row_title($datetitles{'start'}).      $table = &Apache::lonhtmlcommon::row_title($datetitles{'start'}).
              $startform.               $startform.
              &Apache::lonhtmlcommon::row_closure().               &Apache::lonhtmlcommon::row_closure(1).
              &Apache::lonhtmlcommon::row_title($datetitles{'end'}).               &Apache::lonhtmlcommon::row_title($datetitles{'end'}).
              $endform.$perpetual.               $endform.$perpetual.
              &Apache::lonhtmlcommon::row_closure(1);               &Apache::lonhtmlcommon::row_closure($closure);
     return $table;      return $table;
 }  }
   
 sub print_personnel_menu {  sub print_personnel_menu {
     my ($dom,$formname,$crstype) = @_;      my ($dom,$formname,$crstype,$invalidcrosslist) = @_;
     my $output = '<div>'.&Apache::lonhtmlcommon::start_pick_box();      my $output;
       if ($crstype eq 'official') {
           if (&Apache::lonnet::auto_run('',$dom)) {
               $output .= &show_invalid_crosslists($invalidcrosslist);
           }  
       }
       $output .= '<div>'.&Apache::lonhtmlcommon::start_pick_box();
     my $persontotal = $env{'form.persontotal'};      my $persontotal = $env{'form.persontotal'};
     if (!defined($persontotal)) {      if ((!defined($persontotal)) || (!$persontotal)) {
         $persontotal = 1;          $persontotal = 1;
     }      }
     if ($env{'form.addperson'}) {      if ($env{'form.addperson'}) {
         $persontotal ++;          $persontotal ++;
     }      }
     my $userlinktxt = &mt('Set User');      my @items = ('uname','dom','lastname','firstname','emailaddr','hidedom');
     my @items = ('uname','dom','last','first','email','hidedom');  
   
     my $roleoptions;      my $roleoptions;
     my @roles = &Apache::lonuserutils::roles_by_context('course');      my @roles = &Apache::lonuserutils::roles_by_context('course');
Line 828  sub print_personnel_menu { Line 1261  sub print_personnel_menu {
         $type = 'Community';          $type = 'Community';
     }      }
     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";
     }      }
     my %customroles=&Apache::lonuserutils::my_custom_roles();      my %customroles=&Apache::lonuserutils::my_custom_roles();
     if (keys(%customroles) > 0) {      if (keys(%customroles) > 0) {
         foreach my $cust (sort(keys(%customroles))) {          foreach my $cust (sort(keys(%customroles))) {
             my $custrole='cr_cr_'.$env{'user.domain'}.              my $custrole="cr/$env{'user.domain'}/$env{'user.name'}/$cust";
                     '_'.$env{'user.name'}.'_'.$cust;  
             $roleoptions .= '  <option value="'.$custrole.'">'.$cust.'</option>'."\n";              $roleoptions .= '  <option value="'.$custrole.'">'.$cust.'</option>'."\n";
         }          }
     }      }
Line 871  sub print_personnel_menu { Line 1303  sub print_personnel_menu {
         $newtitle = &mt('Other').':&nbsp;';          $newtitle = &mt('Other').':&nbsp;';
     }      }
   
       if ($persontotal) {
           $output .= &Apache::lonhtmlcommon::row_headline().
                      '<h3>'.&mt('Requestor is automatically assigned Course Coordinator role.').' '.&mt('Include other personnel?').'</h3>';
       }
     for (my $i=0; $i<$persontotal; $i++) {       for (my $i=0; $i<$persontotal; $i++) { 
         my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);          my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);
         my $linkargstr = join("','",@linkargs);          my $linkargstr = join("','",@linkargs);
         my $userlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,$userlinktxt);          my $uname_form = '<input type="text" name="person_'.$i.'_uname" value="" size="20" />';
         my $uname_form = '<input type="text" name="person_'.$i.'_uname" value=""'.  
                          ' onFocus="this.blur();'.  
                          'openuserbrowser('."'$formname','$linkargstr','$dom'".');" />';  
         my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',".          my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',".
                        "'person_".$i."_hidedom'".');'.                         "'person_".$i."_hidedom','person_".$i."_uname'".');';
                        'openuserbrowser('."'$formname','$linkargstr','$dom'".');';  
         my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','',          my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','',
                                                             1,$onchange).                                                              1,$onchange).
                         '<input type="hidden" name="person_'.$i.'_hidedom" value="'.$dom.'" />';                          '<input type="hidden" name="person_'.$i.'_hidedom" value="" />';
         my %form_elems;          my %form_elems;
         foreach my $item (@items) {          foreach my $item (@items) {
             next if (($item eq 'dom') || ($item eq 'uname') || ($item eq 'hidedom'));              next if (($item eq 'dom') || ($item eq 'uname') || ($item eq 'hidedom'));
Line 898  sub print_personnel_menu { Line 1330  sub print_personnel_menu {
                                $existmult.'>'."\n".$existops.'</select>'.('&nbsp;' x3);                                 $existmult.'>'."\n".$existops.'</select>'.('&nbsp;' x3);
         }          }
         $sectionselector .= $newtitle.          $sectionselector .= $newtitle.
             '<input type="text" name="person_'.$i.'_newsec" size="15" value="" />'.              '<input type="text" name="person_'.$i.'_newsec" size="15" value="" />'."\n";
             '<input type="hidden" name="person_'.$i.'_sections" value="" />'."\n";          my $usersrchlinktxt = &mt('Search for user');
                    my $usersrchlink =  &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,
                               $usersrchlinktxt);
           my $userchklinktxt = &mt('Check username');
           my $userchklink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,
                               $userchklinktxt,'checkusername');
         $output .=           $output .= 
             &Apache::lonhtmlcommon::row_title(&mt('Additional Personnel').'<br />'.              &Apache::lonhtmlcommon::row_title(&mt('Additional Personnel')).
                                               '<span class="LC_nobreak">'.$userlink.              '<table><tr><td align="center" valign="middle"><b>'.$usersrchlink.'</b></td>'."\n".
                                               '</span>').              '<td align="left" valign="top" colspan="2"><span class="LC_nobreak">'.
             '<table><tr><td align="center" valign="top">'.&mt('Username').'<br />'.$uname_form.'</td>'."\n".              &mt('Username').':&nbsp;'.$uname_form.'&nbsp;'.$userchklink.'</span><br />'."\n".
             '<td align="center" valign="top" colspan="2">'.&mt('Domain').'<br />'.$udom_form.'</td></tr><tr>'."\n".              '<span class="LC_nobreak">'.&mt('Domain').':&nbsp;'.$udom_form.'</span></td>'.
             '<td align="center" valign="top">'.&mt('First Name').'<br />'.$form_elems{'first'}.'</td>'."\n".              '</tr>'."\n".'<tr>'.
             '<td align="center" valign="top">'.&mt('Last Name').'<br />'.$form_elems{'last'}.'</td>'."\n".              '<td align="center" valign="top">'.&mt('First Name').'<br />'.$form_elems{'firstname'}.'</td>'."\n".
             '<td align="center" valign="top">'.&mt('E-mail').'<br />'.$form_elems{email}.'</td></tr>'."\n".              '<td align="center" valign="top">'.&mt('Last Name').'<br />'.$form_elems{'lastname'}.'</td>'."\n".
               '<td align="center" valign="top">'.&mt('E-mail').'<br />'.$form_elems{'emailaddr'}.'</td></tr>'."\n".
             '<tr><td align="center" valign="top">'.&mt('Role').'<br />'.$roleselector.'</td>'."\n".              '<tr><td align="center" valign="top">'.&mt('Role').'<br />'.$roleselector.'</td>'."\n".
             '<td'.$seccolspan.' align="center" valign="top">'.&mt('Section(s)').'<br />'.$sectionselector.'</td>'."\n".              '<td'.$seccolspan.' align="center" valign="top">'.&mt('Section(s)').'<br />'.$sectionselector.'</td>'."\n".
             '</tr></table>'.&Apache::lonhtmlcommon::row_closure();              '</tr></table>'.&Apache::lonhtmlcommon::row_closure();
Line 925  sub print_personnel_menu { Line 1362  sub print_personnel_menu {
   
 sub print_request_status {  sub print_request_status {
     my ($dom) = @_;      my ($dom) = @_;
     my %requests = &Apache::lonnet::dumpstore('courserequests',$env{'user.domain'},      my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'},
                                               $env{'user.name'});                                             $env{'user.name'},'^status:'.$dom);
     my ($output,$formname,%queue_by_date);      my ($output,$formname,%queue_by_date,%typenames);
     foreach my $key (keys(%requests)) {      if ($env{'form.crstype'} eq 'any') {
         if (ref($requests{$key}) eq 'HASH') {          %typenames = &Apache::lonlocal::texthash (
             my ($cdom,$cnum) = split('_',$key);                                                     official   => 'Official course',
             next if ($cdom ne $dom);                                                     unofficial => 'Unofficial course',
             my $entry;                                                     community  => 'Community',
             my $timestamp = $requests{$key}{'timestamp'};                                                   );
             my $crstype = $requests{$key}{'crstype'};      }
             my $status = $requests{$key}{'status'};      foreach my $key (keys(%statusinfo)) {
             next unless (($env{'form.crstype'} eq 'all') ||           if (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')) { 
                          ($env{'form.crstype'} eq $crstype));              (undef,my($cdom,$cnum)) = split(':',$key);
             next unless (($status eq 'approval') || ($status eq 'pending'));              next if ($cdom ne $dom);   
             if (ref($requests{$key}{'details'}) eq 'HASH') {              my $requestkey = $cdom.'_'.$cnum;
                 $entry = $key.':'.$crstype.':'.$requests{$key}{'details'}{'cdesc'};              if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
                 if ($crstype eq 'official') {                  my %history = &Apache::lonnet::restore($requestkey,'courserequests',
                     $entry .= ':'.$requests{$key}{'details'}{'instcode'};                                                          $env{'user.domain'},$env{'user.name'});
                 }                  my $entry;
             }                  my $timestamp = $history{'reqtime'};
             if ($entry ne '') {                  my $crstype = $history{'crstype'};
                 if (exists($queue_by_date{$timestamp})) {                  my $disposition = $history{'disposition'};
                     if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {                  next if ((exists($history{'status'})) && ($history{'status'} eq 'created'));
                         push(@{$queue_by_date{$timestamp}},$entry);                  next unless (($env{'form.crstype'} eq 'any') || 
                               ($env{'form.crstype'} eq $crstype));
                   next unless (($disposition eq 'approval') || 
                                ($disposition eq 'pending'));
                   if (ref($history{'details'}) eq 'HASH') {
                       $entry = $requestkey.':'.$crstype.':'.
                                &escape($history{'details'}{'cdescr'});
                       if ($crstype eq 'official') {
                           $entry .= ':'.&escape($history{'details'}{'instcode'}); 
                       }
                   }
                   if ($entry ne '') {
                       if (exists($queue_by_date{$timestamp})) {
                           if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {
                               push(@{$queue_by_date{$timestamp}},$entry);
                           }
                       } else {
                           @{$queue_by_date{$timestamp}} = ($entry);
                     }                      }
                 } else {  
                     @{$queue_by_date{$timestamp}} = ($entry);  
                 }                  }
             }              }
         }          }
     }      }
     $formname = 'requestcrs';      $formname = 'requestcrs';
     my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));      my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));
     $output = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />'."\n".      $output = '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".
               '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".  
               '<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n".                '<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n".
               '<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n";                '<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n".
                 '<input type="hidden" name="showdom" value="" />'."\n".
                 '<input type="hidden" name="cnum" value="" />'."\n";
     if (@sortedtimes > 0) {      if (@sortedtimes > 0) {
         $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('Description').'</th>';                     '<th>'.&mt('Course Description').'</th>'.
         if ($env{'form.crstype'} eq 'all') {                     '<th>'.&mt('Domain').'</th>';
           if ($env{'form.crstype'} eq 'any') {
             $output .= '<th>'.&mt('Type').'</th>';              $output .= '<th>'.&mt('Type').'</th>';
         }          }
         if (($env{'form.crstype'} eq 'all') || ($env{'form.crstype'} eq 'official')) {          if (($env{'form.crstype'} eq 'any') || ($env{'form.crstype'} eq 'official')) {
             $output .= '<th>'.&mt('Institutional Code').'</th>';              $output .= '<th>'.&mt('Institutional Code').'</th>';
         }          }
         $output .= '<th>'.&mt('Date requested').'</th>'.          $output .= '<th>'.&mt('Date requested').'</th>'.
Line 983  sub print_request_status { Line 1438  sub print_request_status {
                     my ($key,$type,$desc,$instcode) = split(':',$request);                      my ($key,$type,$desc,$instcode) = split(':',$request);
                     my ($cdom,$cnum) = split('_',$key);                      my ($cdom,$cnum) = split('_',$key);
                     $output .= &Apache::loncommon::start_data_table_row().                      $output .= &Apache::loncommon::start_data_table_row().
      '<td><input type="button" value="'.&mt('Select').'" onclick="javascript:viewrequest('."'$cdom','$cnum'".')" /></td>'.       '<td><input type="button" value="'.&mt('Select').'" onclick="javascript:chooseRequest('."'$cdom','$cnum'".')" /></td>'.
      '<td>'.$desc.'</td>';       '<td>'.&unescape($desc).'</td>'.
                     if ($env{'form.crstype'} eq 'all') {       '<td>'.$cdom.'</td>';
                         $output .= '<td>'.&course_types($type).'</td>';                      if ($env{'form.crstype'} eq 'any') {
                           my $typename = $typenames{$type};
                           if ($typename eq '') {
                               $typename = &mt('Unknown type');
                           }
                           $output .= '<td>'.$typename.'</td>';
                     }                      }
                     if (($env{'form.crstype'} eq 'all') ||                       if (($env{'form.crstype'} eq 'any') || 
                         ($env{'form.crstype'} eq 'official')) {                          ($env{'form.crstype'} eq 'official')) {
                         $output .= '<td>'.$instcode.'</td>';                          my $showinstcode;
                           if ($type eq 'official') {
                               $showinstcode = &unescape($instcode);
                           } else {
                               $showinstcode = &mt('Not applicable');
                           }
                           $output .= '<td>'.$showinstcode.'</td>';
                     }                      }
                     $output .= '<td>'.$showtime.'</td>'.                      $output .= '<td>'.$showtime.'</td>'.
                                &Apache::loncommon::end_data_table_row();                                 &Apache::loncommon::end_data_table_row();
Line 1002  sub print_request_status { Line 1468  sub print_request_status {
         $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 .= '<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 .= '
 <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'".')" />
 </form>';  </form></div>';
     return $output;      return $output;
 }  }
   
   sub print_cancel_request {
       my ($dom,$cnum) = @_;
       my $requestkey = $dom.'_'.$cnum;
       my ($result,$output);
       if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
           my %history = &Apache::lonnet::restore($requestkey,'courserequests',
                                                  $env{'user.domain'},$env{'user.name'});
           my $timestamp = $history{'reqtime'};
           my $crstype = $history{'crstype'};
           my $status = $history{'status'};
           if (($status eq 'cancelled') || ($status eq 'created')) { 
               if ($status eq 'cancelled') {
                   $output = &mt('This request has already been cancelled.');
               } elsif ($status eq 'created') {
                   $output = &mt('This request has already been processed, and a course created.');
               }
               $output = &mt('No further action will be taken');
           } elsif (ref($history{'details'}) eq 'HASH') {
               my ($types,$typename) = &course_types();
               my $showtype = $crstype;
               if (defined($typename->{$crstype})) {
                   $showtype = $typename->{$crstype}; 
               }
               $output = '<p>'.&Apache::loncommon::start_data_table().
                         &Apache::loncommon::start_data_table_header_row().
                         '<th>'.&mt('Description').'</th><th>'.&mt('Requested').'</th>'.
                         '<th>'.&mt('Type').'</th>'.
                         &Apache::loncommon::end_data_table_header_row().
                         &Apache::loncommon::start_data_table_row().
                         '<td>'.$history{details}{'cdescr'}.'</td><td>'.
                         &Apache::lonlocal::locallocaltime($timestamp).'</td>'.
                         '<td>'.$showtype.'</td>'.
                         &Apache::loncommon::end_data_table_row().
                         &Apache::loncommon::end_data_table().
                         '<br /><div class="LC_warning">'.
                         &mt('Cancelling the request will remove it from the queue of pending course requests').'</div>';
               $result = 'ok';
           } else {
               $output = '<div class="LC_error">'.&mt('No record exists for the course ID').'</div>';
           }
       } else {
           $output = '<div class="LC_error">'.&mt('Invalid course ID').'</div>';
       }
       return ($result,$output);
   }
   
   sub viewrequest_javascript {
       my ($formname,$next) = @_;
       return <<"ENDJS";
   
   function chooseRequest(cdom,cnum) {
       document.$formname.showdom.value = cdom;
       document.$formname.cnum.value = cnum;
       nextPage(document.$formname,'$next');
   }
   
   ENDJS
   }
   
   sub viewdetails_javascript {
       my ($formname) = @_;
       return << "ENDJS";
   
   function nextPage(formname,nextstate) {
       if (nextstate == "modify") { 
           formname.state.value = "personnel";
           formname.action.value = "new";
       } else {
           formname.state.value = nextstate;
       }
       formname.submit();
   }
   
   function backPage(formname,prevstate) {
       formname.state.value = prevstate;
       formname.submit();
   }
   
   ENDJS
   }
   
   sub viewcancel_javascript {
       my $alert = &mt('Are you sure you want to cancel this request?\\n'.
                       'Your request will be removed.');
       return << "ENDJS";
   function nextPage(formname,nextstate) {
       if (confirm('$alert')) {
           formname.state.value = nextstate;
           formname.submit();
       }
       return;
   }
   
   ENDJS
   }
   
 sub print_request_logs {  sub print_request_logs {
     my ($jscript,$loaditems,$crumb) = @_;      my ($jscript,$loaditems,$crumb) = @_;
     return;      return;
 }  }
   
 sub print_review {  sub print_review {
     my ($formname,$dom,$codetitles,$cat_titles,$cat_order,$code_order) = @_;      my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom) = @_;
     my ($types,$typename) = &course_types();      my ($types,$typename) = &course_types();
     my ($owner,$ownername,$owneremail);      my ($owner,$ownername,$owneremail);
     $owner = $env{'user.name'}.':'.$env{'user.domain'};      if ($uname eq '' || $udom eq '') {
     $ownername = &Apache::loncommon::plainname($env{'user.name'},          $uname = $env{'user.name'};
                                                $env{'user.domain'},'first');          $udom = $env{'user.domain'};
     my %emails = &Apache::loncommon::getemails();      }
       $owner = $uname.':'.$udom;
       $ownername = &Apache::loncommon::plainname($uname,$udom,'first');
       my %emails = &Apache::loncommon::getemails($uname,$udom);
     foreach my $email ('permanentemail','critnotification','notification') {      foreach my $email ('permanentemail','critnotification','notification') {
         $owneremail = $emails{$email};          $owneremail = $emails{$email};
         last if ($owneremail ne '');          last if ($owneremail ne '');
Line 1033  sub print_review { Line 1598  sub print_review {
             $crstypename = $typename->{$env{'form.crstype'}};              $crstypename = $typename->{$env{'form.crstype'}};
         }          }
     }      }
       my $category = 'Course';
       if ($env{'form.crstype'} eq 'community') {
           $category = 'Community';
       }
   
     $inst_headers = '<th>'.&mt('Description').'</th><th>'.&mt('Type').'</th>';      $inst_headers = '<th>'.&mt('Description').'</th><th>'.&mt('Type').'</th>';
     $inst_values = '<td>'.$env{'form.cdescr'}.'</td><td>'.$crstypename.'</td>';      $inst_values = '<td>'.$env{'form.cdescr'}.'</td><td>'.$crstypename.'</td>';
   
       my $enrollrow_title = &mt('Default Access Dates').'<br />'.
                             '('.&Apache::lonnet::plaintext('st',$category).')';
     if ($env{'form.crstype'} eq 'official') {      if ($env{'form.crstype'} eq 'official') {
         if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH')) {          if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH')) {
             foreach my $title (@{$codetitles}) {              foreach my $title (@{$codetitles}) {
Line 1053  sub print_review { Line 1624  sub print_review {
             }              }
         }          }
         if (&Apache::lonnet::auto_run('',$dom)) {          if (&Apache::lonnet::auto_run('',$dom)) {
               $enrollrow_title = &mt('Enrollment');
             $enroll_headers = '<th>'.&mt('Automatic Adds').'</th>'.              $enroll_headers = '<th>'.&mt('Automatic Adds').'</th>'.
                               '<th>'.&mt('Automatic Drops').'</th>'.                                '<th>'.&mt('Automatic Drops').'</th>'.
                               '<th>'.&mt('Enrollment Starts').'</th>'.                                '<th>'.&mt('Enrollment Starts').'</th>'.
Line 1060  sub print_review { Line 1632  sub print_review {
             $section_headers = '<th>'.&mt('Sections').'</th>'.              $section_headers = '<th>'.&mt('Sections').'</th>'.
                                '<th>'.&mt('Crosslistings').'</th>';                                 '<th>'.&mt('Crosslistings').'</th>';
   
             my ($startenroll,$endenroll) = &dates_from_form('startenroll','endenroll');              my ($enrollstart,$enrollend) = &dates_from_form('enrollstart','enrollend');
             my @autoroster = (&mt('No'),&mt('Yes'));              my @autoroster = (&mt('No'),&mt('Yes'));
             $enroll_values = '<td>'.$autoroster[$env{'form.autoadds'}].'</td>'.              $enroll_values = '<td>'.$autoroster[$env{'form.autoadds'}].'</td>'.
                              '<td>'.$autoroster[$env{'form.autodrops'}].'</td>'.                               '<td>'.$autoroster[$env{'form.autodrops'}].'</td>'.
                              '<td>'.&Apache::lonlocal::locallocaltime($startenroll).'</td>'.                               '<td>'.&Apache::lonlocal::locallocaltime($enrollstart).'</td>'.
                              '<td>'.&Apache::lonlocal::locallocaltime($endenroll).'</td>';                               '<td>'.&Apache::lonlocal::locallocaltime($enrollend).'</td>';
             $section_values = '<td><table class="LC_innerpickbox"><tr><th>'.              $section_values = '<td><table class="LC_innerpickbox"><tr><th>'.
                               &mt('Institutional section').'</th>'.                                &mt('Institutional section').'</th>'.
                               '<th>'.&mt('LON-CAPA section').'</th></tr>';                                '<th>'.&mt('LON-CAPA section').'</th></tr>';
Line 1091  sub print_review { Line 1663  sub print_review {
                                &mt('Institutional course/section').'</th>'.                                 &mt('Institutional course/section').'</th>'.
                                '<th>'.&mt('LON-CAPA section').'</th></tr>';                                 '<th>'.&mt('LON-CAPA section').'</th></tr>';
             my $xlistinfo;              my $xlistinfo;
             if ($env{'form.crosslisttotal'}) {              my $crosslisttotal = $env{'form.crosslisttotal'};
                 for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {              if (!$crosslisttotal) {
                     if ($env{'form.crosslist_'.$i}) {                  $crosslisttotal = 1;
                         $xlistinfo .= '<tr><td>';              }
                         if (ref($code_order) eq 'ARRAY') {              for (my $i=0; $i<$crosslisttotal; $i++) {
                             if (@{$code_order} > 0) {                  if ($env{'form.crosslist_'.$i}) {
                                 foreach my $item (@{$code_order}) {                      $xlistinfo .= '<tr><td>';
                                     $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item};                      if (ref($code_order) eq 'ARRAY') {
                                 }                          if (@{$code_order} > 0) {
                               foreach my $item (@{$code_order}) {
                                   $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item};
                             }                              }
                         }                          }
                         $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'}.'</td><td>';  
                         if ($env{'form.crosslist_'.$i.'_lcsec'}) {  
                             $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'};  
                         } else {  
                             $xlistinfo .= &mt('None');  
                         }  
                         $xlistinfo .= '</td></tr>';  
                     }                      }
                       $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'}.'</td><td>';
                       if ($env{'form.crosslist_'.$i.'_lcsec'}) {
                           $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'};
                       } else {
                           $xlistinfo .= &mt('None');
                       }
                       $xlistinfo .= '</td></tr>';
                 }                  }
             }              }
             if ($xlistinfo eq '') {              if ($xlistinfo eq '') {
                 $xlistinfo = '<tr><td colspan="2">'.&mt('None').'</td></tr>';                  $xlistinfo = '<tr><td colspan="2">'.&mt('None').'</td></tr>';
             }              }
             $section_values .= $xlistinfo.'</table></td>';              $section_values .= $xlistinfo;
         }          }
           $section_values .= '</table></td>';
     }      }
   
     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.clonecourse'} =~ /^$match_name$/) &&       if (($env{'form.clonecrs'} =~ /^$match_name$/) && 
         ($env{'form.clonedomain'} =~ /^$match_domain$/)) {          ($env{'form.clonedom'} =~ /^$match_domain$/)) {
         my %coursehash =           my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
             &Apache::lonnet::courseiddump($env{'form.clonedomain'},'.',1,'.','.',                             $env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'});
                                           $env{'form.clonecourse'},undef,undef,'.');          if ($canclone) {
         my $cloneid = $env{'form.clonedomain'}.'_'.$env{'form.clonecourse'};              my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},
         if (ref($coursehash{$cloneid}) eq 'HASH') {                                $env{'form.clonecrs'},('description','internal.coursecode'));
             $inst_headers .= '<th>'.$ctxt{'dsh'}.'</th>';              if (keys(%courseenv) > 0) {
             my $clonedesc = $coursehash{$cloneid}{'description'};                  $inst_headers .= '<th>'.$ctxt{'dsh'}.'</th>';
             my $cloneinst = $coursehash{$cloneid}{'inst_code'};                  $inst_values .= '<td>'.$courseenv{'description'}.'&nbsp;';
                   my $cloneinst = $courseenv{'internal.coursecode'};
             $inst_values .= '<td>'.$clonedesc.'&nbsp;';                  if ($cloneinst ne '') {
             if ($cloneinst ne '') {                      $inst_values .= $cloneinst.' '.&mt('in').' '.$env{'form.clonedom'};
                 $inst_values .= &mt('([_1] in [_2])',$cloneinst,$env{'form.clonedomain'});                   } else {
             } else {                      $inst_values .= &mt('from').' '.$env{'form.clonedom'};
                 $inst_values .= &mt('(from [_1])',$env{'form.clonedomain'});                  }
             }                  $inst_values .= '</td><td>';
             $inst_values .= '</td><td>';                  if ($env{'form.datemode'} eq 'preserve') {
             if ($env{'form.datemode'} eq 'preserve') {                      $inst_values .= $ctxt{'prd'}; 
                 $inst_values .= $ctxt{'pcd'};                   } elsif ($env{'form.datemode'} eq 'shift') {
             } elsif ($env{'form.datemode'} eq 'shift') {                      $inst_values .= &mt('Shift dates by [_1] days',$env{'form.dateshift'});
                 $inst_values .= &mt('Shift dates by [_1] days',$env{'form.dateshift'});                  } else {
             } else {                      $inst_values .= $ctxt{'ncd'};
                 $inst_values .= $ctxt{'ncd'};                  }
             }                  $inst_values .= '</td>';
             $inst_values .= '</td>';               } else {
         } else {                   $inst_values .= '<td>'.&mt('Unknown').'</td>';
             $inst_values .= '<td>'.&mt('Unknown').'</td>';               }
         }           } else {
                $inst_values .= '<td>'.&mt('Not permitted'),'</td>';
            }
     } else {      } else {
         $inst_values .= '<td>'.&mt('None').'</td>';          $inst_values .= '<td>'.&mt('None').'</td>';
     }      }
     $enroll_headers .= '<th>'.&mt('Access Starts').'</th>'.      $enroll_headers .= '<th>'.&mt('Access Starts').'</th>'.
                        '<th>'.&mt('Access Ends').'</th>';                         '<th>'.&mt('Access Ends').'</th>';
     my ($startaccess,$endaccess) = &dates_from_form('startaccess','endaccess');      my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
     $enroll_values .= '<td>'.&Apache::lonlocal::locallocaltime($startaccess).'</td>';      $enroll_values .= '<td>'.&Apache::lonlocal::locallocaltime($accessstart).'</td>';
     if ($endaccess == 0) {      if ($accessend == 0) {
         $enroll_values .= '<td>'.&mt('No end date').'</td>';          $enroll_values .= '<td>'.&mt('No end date').'</td>';
     } else {      } else {
         $enroll_values .= '<td>'.&Apache::lonlocal::locallocaltime($endaccess).'</td>';          $enroll_values .= '<td>'.&Apache::lonlocal::locallocaltime($accessend).'</td>';
     }      }
   
     my $container = 'Course';      my $container = 'Course';
Line 1176  sub print_review { Line 1753  sub print_review {
                          '<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 '') {
               my @allsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
               my $newsec = $env{'form.person_'.$i.'_newsec'};
               $newsec =~ s/^\s+//;
               $newsec =~s/\s+$//;
               my @newsecs = split(/[\s,;]+/,$newsec);
               foreach my $sec (@newsecs) {
                   next if ($sec =~ /\W/);
                   next if ($newsec eq 'none');
                   if ($sec ne '') {
                       unless (grep(/^\Q$sec\E$/,@allsecs)) {
                           push(@allsecs,$sec); 
                       }
                   }
               }
               my $showsec;
               if (@allsecs) {
                   $showsec = join(', ',@allsecs);
               }
               if ($showsec eq '') {
                   $showsec = &mt('None');
               }
               if ($env{'form.person_'.$i.'_role'} eq 'cc') {
                   $showsec = &mt('None');
               }
               my $role = $env{'form.person_'.$i.'_role'}; 
             $personnel_values .=               $personnel_values .= 
                 '<tr><td>'.$env{'form.person_'.$i.'_first'}.' '.                  '<tr><td>'.$env{'form.person_'.$i.'_firstname'}.' '.
                 $env{'form.person_'.$i.'_last'}.'</td>'.                  $env{'form.person_'.$i.'_lastname'}.'</td>'.
                 '<td>'.$env{'form.person_'.$i.'_uname'}.':'.                  '<td>'.$env{'form.person_'.$i.'_uname'}.':'.
                 $env{'form.person_'.$i.'_dom'}.'</td>'.                  $env{'form.person_'.$i.'_dom'}.'</td>'.
                 '<td>'.&Apache::lonnet::plaintext($env{'form.person_'.$i.'_role'},                  '<td>'.&Apache::lonnet::plaintext($role,$container).'</td>'.
                                                   $container).'</td>'.                  '<td>'.$showsec.'</td></tr>';
                 '<td>'.$env{'form.person_'.$i.'_sections'}.'</td></tr>';  
         }          }
     }      }
     my $output =  '<p>'.&mt('Review the details of the course request before submission.').'</p>'.        my $output =  
                   '<div>'.&Apache::lonhtmlcommon::start_pick_box().                    '<div>'.&Apache::lonhtmlcommon::start_pick_box().
                   &Apache::lonhtmlcommon::row_title(&mt('Owner')).                    &Apache::lonhtmlcommon::row_title(&mt('Owner')).
                   '<table class="LC_innerpickbox"><tr>'.                    '<table class="LC_innerpickbox"><tr>'.
Line 1202  sub print_review { Line 1803  sub print_review {
                   '<table class="LC_innerpickbox"><tr>'.$inst_headers.'</tr>'."\n".                    '<table class="LC_innerpickbox"><tr>'.$inst_headers.'</tr>'."\n".
                   '<tr>'.$inst_values.'</tr></table>'."\n".                    '<tr>'.$inst_values.'</tr></table>'."\n".
                   &Apache::lonhtmlcommon::row_closure().                    &Apache::lonhtmlcommon::row_closure().
                   &Apache::lonhtmlcommon::row_title(&mt('Enrollment')).                    &Apache::lonhtmlcommon::row_title($enrollrow_title).
                   '<table class="LC_innerpickbox"><tr>'.$enroll_headers.'</tr>'."\n".                    '<table class="LC_innerpickbox"><tr>'.$enroll_headers.'</tr>'."\n".
                   '<tr>'.$enroll_values.'</tr></table>'."\n".                    '<tr>'.$enroll_values.'</tr></table>'."\n".
                   &Apache::lonhtmlcommon::row_closure();                    &Apache::lonhtmlcommon::row_closure();
Line 1216  sub print_review { Line 1817  sub print_review {
                '<table class="LC_innerpickbox"><tr>'.$personnel_headers.'</tr>'."\n".                 '<table class="LC_innerpickbox"><tr>'.$personnel_headers.'</tr>'."\n".
                $personnel_values.'</table>'."\n".                 $personnel_values.'</table>'."\n".
                &Apache::lonhtmlcommon::row_closure(1).                 &Apache::lonhtmlcommon::row_closure(1).
                &Apache::lonhtmlcommon::end_pick_box();                 &Apache::lonhtmlcommon::end_pick_box().'</div>';
     my $cnum = &Apache::lonnet::generate_coursenum($dom);  
     $output .= '<input type="hidden" name="cnum" value="'.$cnum.'" />';  
     return $output;      return $output;
 }  }
   
Line 1226  sub dates_from_form { Line 1825  sub dates_from_form {
     my ($startname,$endname) = @_;      my ($startname,$endname) = @_;
     my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);      my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname);
     my $enddate   = &Apache::lonhtmlcommon::get_date_from_form($endname);      my $enddate   = &Apache::lonhtmlcommon::get_date_from_form($endname);
     if ($endname eq 'endaccess') {      if ($endname eq 'accessend') {
         if (exists($env{'form.no_end_date'}) ) {          if (exists($env{'form.no_end_date'}) ) {
             $enddate = 0;              $enddate = 0;
         }          }
Line 1235  sub dates_from_form { Line 1834  sub dates_from_form {
 }  }
   
 sub courseinfo_form {  sub courseinfo_form {
     my ($dom,$formname,$crstype) = @_;      my ($dom,$formname,$crstype,$next) = @_;
     my $output = '<div>'.&Apache::lonhtmlcommon::start_pick_box().      my $nodescr = &mt('You must provide a (brief) course description.');
                  &Apache::lonhtmlcommon::row_title('Course Description').      my $js_validate = <<"ENDJS";
                  '<input type="text" size="40" name="cdescr" />'.  <script type="text/javascript">
                  &Apache::lonhtmlcommon::row_closure(1).  // <![CDATA['
                  &Apache::lonhtmlcommon::end_pick_box().'</div>'.  
                  '<div>'.&clone_form($dom,$formname,$crstype).'</div>'."\n";  function validateForm() {
       if ((document.$formname.cdescr.value == "")  || (document.$formname.cdescr.value == "undefined")) {
           alert('$nodescr');
           return;
       }
       nextPage(document.$formname,'$next');
   }
   // ]]
   </script>
   
   ENDJS
       my $title = &mt('Brief Course Description');
       if ($crstype eq 'community') {
           $title = &mt('Brief Community Description');
       }
       my $output .= $js_validate."\n".'<div>'.&Apache::lonhtmlcommon::start_pick_box().
                     &Apache::lonhtmlcommon::row_headline().
                     '<h3>'.$title.'</h3>'.
                     &Apache::lonhtmlcommon::row_closure(1).
                     &Apache::lonhtmlcommon::row_title(&mt('Description')).
                    '<input type="text" size="40" name="cdescr" />';
       my ($home_server_pick,$numlib) =
           &Apache::loncommon::home_server_form_item($dom,'chome',
                                                     'default','hide');
       if ($numlib > 1) {
           $output .= &Apache::lonhtmlcommon::row_closure().
                      &Apache::lonhtmlcommon::row_title(&mt('Home Server for Course'));
       }
       $output .= $home_server_pick.
                  &Apache::lonhtmlcommon::row_closure().
                  &Apache::lonhtmlcommon::row_headline().
                  '<h3>'.&mt('Clone content and settings from an existing course?').'</h3>'. 
                  &Apache::lonhtmlcommon::row_closure(1).
                  &clone_form($dom,$formname,$crstype).
                  &Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";
     return $output;      return $output;
 }  }
   
Line 1251  sub clone_form { Line 1884  sub clone_form {
     if ($crstype eq 'community') {      if ($crstype eq 'community') {
         $type = 'Community';          $type = 'Community';
     }      }
     my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedomain').      my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedom').
                     &Apache::loncommon::selectcourse_link($formname,'clonecourse','clonedomain','','','',$type);                      &Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type);
     my %lt = &clone_text();      my %lt = &clone_text();
     my $output .=       my $output .= 
         &Apache::lonhtmlcommon::start_pick_box().   
         &Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.          &Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.
         '<input type="text" size="25" name="clonecourse" value="" onfocus="this.blur();'.          '<input type="text" size="25" name="clonecrs" value=""  />'.
         'opencrsbrowser('."'$formname','clonecourse','clonedomain','','','','$type'".');" />'.  
         '</label>'.&Apache::lonhtmlcommon::row_closure(1).'<label>'.          '</label>'.&Apache::lonhtmlcommon::row_closure(1).'<label>'.
         &Apache::lonhtmlcommon::row_title($lt{'dmn'}).'</label>'.          &Apache::lonhtmlcommon::row_title($lt{'dmn'}).'</label>'.
         $cloneform.'</label>'.&Apache::lonhtmlcommon::row_closure().          $cloneform.'</label>'.&Apache::lonhtmlcommon::row_closure(1).
         &Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'.          &Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'.
         '<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.          '<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.
         '</label><br /><label>'.          '</label><br /><label>'.
Line 1270  sub clone_form { Line 1901  sub clone_form {
         '<input type="radio" name="datemode" value="shift" checked="checked" /> '.          '<input type="radio" name="datemode" value="shift" checked="checked" /> '.
         $lt{'shd'}.'</label>'.          $lt{'shd'}.'</label>'.
         '<input type="text" size="5" name="dateshift" value="365" />'.          '<input type="text" size="5" name="dateshift" value="365" />'.
         &Apache::lonhtmlcommon::row_closure(1).          &Apache::lonhtmlcommon::row_closure(1);
         &Apache::lonhtmlcommon::end_pick_box();  
     return $output;      return $output;
 }  }
   
 sub clone_text {   sub clone_text {
     return &Apache::lonlocal::texthash(      return &Apache::lonlocal::texthash(
                'cid'  => 'Course ID',                 'cid'  => 'Course ID',
                'dmn'  => 'Domain',                 'dmn'  => 'Domain',
Line 1375  sub coursecode_form { Line 2005  sub coursecode_form {
   
 sub get_course_dom {  sub get_course_dom {
     my $codedom = &Apache::lonnet::default_login_domain();      my $codedom = &Apache::lonnet::default_login_domain();
       if ($env{'form.showdom'} ne '') {
           if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') {
               return $env{'form.showdom'};
           }
       }
     if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) {      if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) {
           my ($types,$typename) = &course_types();
           if (ref($types) eq 'ARRAY') {
               foreach my $type (@{$types}) {
                   if (&Apache::lonnet::usertools_access($env{'user.name'},
                                                         $env{'user.domain'},$type,
                                                         undef,'requestcourses')) {
                       return $env{'user.domain'};
                   }
               }
               my @possible_doms;
               foreach my $type (@{$types}) {
                   my $dom_str = $env{'environment.reqcrsotherdom.'.$type};
                   if ($dom_str ne '') {
                       my @domains = split(',',$dom_str);
                       foreach my $entry (@domains) {
                           my ($extdom,$extopt) = split(':',$entry);
                           if ($extdom eq $env{'request.role.domain'}) {
                               return $extdom;
                           } 
                           unless(grep(/^\Q$extdom\E$/,@possible_doms)) {
                               push(@possible_doms,$extdom);
                           }
                       }
                   }
               }
               if (@possible_doms) {
                   @possible_doms = sort(@possible_doms);
                   return $possible_doms[0];
               }
           }
         $codedom = $env{'user.domain'};          $codedom = $env{'user.domain'};
         if ($env{'request.role.domain'} ne '') {          if ($env{'request.role.domain'} ne '') {
             $codedom = $env{'request.role.domain'};              $codedom = $env{'request.role.domain'};
         }          }
     }      }
     if ($env{'form.showdom'} ne '') {  
         if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') {  
             $codedom = $env{'form.showdom'};  
         }  
     }  
     return $codedom;      return $codedom;
 }  }
   
 sub display_navbuttons {  sub display_navbuttons {
     my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;      my ($r,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_;
     $r->print('<div class="LC_navbuttons">');      $r->print('<div class="LC_navbuttons">');
     if ($prev) {      if ($prev) {
         $r->print('          $r->print('<input type="button" name="previous" value = "'.$prevtext.'" '.
       <input type="button" name="previous" value = "'.$prevtext.'"                    'onclick="javascript:backPage(document.'.$formname.','."'".$prev."'".')"/>'.
     onclick="javascript:backPage(document.'.$formname.','."'".$prev."'".')"/>                    ('&nbsp;'x3));
    &nbsp;&nbsp;&nbsp;');  
     } elsif ($prevtext) {      } elsif ($prevtext) {
         $r->print('          $r->print('<input type="button" name="previous" value = "'.$prevtext.'" '.
       <input type="button" name="previous" value = "'.$prevtext.'"                    'onclick="javascript:history.back()"/>'.('&nbsp;'x3));
     onclick="javascript:history.back()"/>  
    &nbsp;&nbsp;&nbsp;');  
     }      }
     if ($next) {      if ($state eq 'details') {
           $r->print(' <input type="button" name="other" value="'.$othertext.'" '.
                     'onclick="javascript:nextPage(document.'.$formname.','."'".$other."'".
                     ')" />');
       }
       if ($state eq 'courseinfo') {
           $r->print('<input type="button" name="next" value="'.$nexttext.'" '.
                     'onclick="javascript:validateForm();" />');
       } elsif ($next) {
         $r->print('          $r->print('
       <input type="button" name="next" value="'.$nexttext.'"        <input type="button" name="next" value="'.$nexttext.'" '.
  onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');        'onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');
     }      }
     $r->print('</div>');      $r->print('</div>');
 }  }
   
 sub print_request_outcome {  sub print_request_outcome {
     my ($dom,$codetitles,$code_order) = @_;      my ($dom,$codetitles,$code_order) = @_;
     my ($output,$cnum,$now,$req_notifylist,$crstype,$startenroll,$endenroll,      my ($output,$cnum,$now,$req_notifylist,$crstype,$enrollstart,$enrollend,
         %sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig,);          %sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig,);
       my $sectotal = $env{'form.sectotal'};
       my $crosslisttotal = 0;
     $cnum = $env{'form.cnum'};      $cnum = $env{'form.cnum'};
     unless ($cnum =~ /^$match_courseid$/) {      unless ($cnum =~ /^$match_courseid$/) {
         $output = &mt('Invalid LON-CAPA course number for the new course')."\n";           $output = &mt('Invalid LON-CAPA course number for the new course')."\n"; 
Line 1429  sub print_request_outcome { Line 2096  sub print_request_outcome {
     }      }
     $now = time;      $now = time;
     $crstype = $env{'form.crstype'};      $crstype = $env{'form.crstype'};
       my @instsections;
     if ($crstype eq 'official') {      if ($crstype eq 'official') {
         if (&Apache::lonnet::auto_run('',$dom)) {          if (&Apache::lonnet::auto_run('',$dom)) {
             ($startenroll,$endenroll)=&dates_from_form('startenroll','endenroll');              ($enrollstart,$enrollend)=&dates_from_form('enrollstart','enrollend');
         }          }
         for (my $i=0; $i<$env{'form.sectotal'}; $i++) {          for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
             if ($env{'form.sec_'.$i}) {              if ($env{'form.sec_'.$i}) {
                 if ($env{'form.secnum_'.$i} ne '') {                  if ($env{'form.secnum_'.$i} ne '') {
                     $sections{$env{'form.secnum_'.$i}} = $env{'form.loncapasec_'.$i};                      my $sec = $env{'form.secnum_'.$i};
                       $sections{$i}{'inst'} = $sec;
                       if (($sec ne '') && (!grep(/^\Q$sec\E$/,@instsections))) {
                           push(@instsections,$sec);
                       }
                       $sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i};
                 }                  }
             }              }
         }          }
Line 1450  sub print_request_outcome { Line 2123  sub print_request_outcome {
                         }                          }
                     }                      }
                 }                  }
                 $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'};                  $crosslistings{$i}{'instcode'} = $xlistinfo;
                 $crosslistings{$xlistinfo} = $env{'form.crosslist_'.$i.'_lcsec'};                  if ($xlistinfo ne '') {
                       $crosslisttotal ++;
                   }
                   $crosslistings{$i}{'instsec'} = $env{'form.crosslist_'.$i.'_instsec'}; 
                   $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'};
             }              }
         }          }
       } else {
           $enrollstart = '';
           $enrollend = '';
     }      }
   
     for (my $i=0; $i<$env{'form.persontotal'}; $i++) {      for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
         my $uname = $env{'form.person_'.$i.'_uname'};          my $uname = $env{'form.person_'.$i.'_uname'};
         my $udom = $env{'form.person_'.$i.'_uname'};          my $udom = $env{'form.person_'.$i.'_dom'};
         if (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) {          if (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) {
             if (&Apache::lonnet::domain($udom) ne '') {              if (&Apache::lonnet::domain($udom) ne '') {
                 $personnel{$uname.':'.$udom} = {                  unless (ref($personnel{$uname.':'.$udom}) eq 'HASH') {
                          first    => $env{'form.person_'.$i.'_first'},                      $personnel{$uname.':'.$udom} = {
                          last     => $env{'form.person_'.$i.'_last'},                               firstname    => $env{'form.person_'.$i.'_firstname'},
                          email    => $env{'form.person_'.$i.'_email'},                               lastname     => $env{'form.person_'.$i.'_lastname'},
                          role     => $env{'form.person_'.$i.'_role'},                               emailaddr    => $env{'form.person_'.$i.'_emailaddr'},
                          sections => $env{'form.person_'.$i.'_sections'},                                                     };
                                                };                  }
                   my $role = $env{'form.person_'.$i.'_role'};
                   unless ($role eq '') {
                       if (ref($personnel{$uname.':'.$udom}{'roles'}) eq 'ARRAY') {
                           my @curr_roles = @{$personnel{$uname.':'.$udom}{'roles'}};
                           unless (grep(/^\Q$role\E$/,@curr_roles)) {
                               push(@{$personnel{$uname.':'.$udom}{'roles'}},$role);
                           }
                       } else {
                           @{$personnel{$uname.':'.$udom}{'roles'}} = ($role);
                       }
                       if ($role eq 'cc') {
                           @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();
                       } else {
                           my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
                           my $newsec = $env{'form.person_'.$i.'_newsec'};
                           $newsec =~ s/^\s+//;
                           $newsec =~s/\s+$//;
                           my @newsecs = split(/[\s,;]+/,$newsec);
                           foreach my $sec (@newsecs) {
                               next if ($sec =~ /\W/);
                               next if ($newsec eq 'none');
                               if ($sec ne '') {
                                   unless (grep(/^\Q$sec\E$/,@currsec)) {
                                       push(@currsec,$sec);
                                   }
                               }
                           }
                           @{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @currsec;
                       }
                   }
             } else {              } else {
                 push(@missingdom,$uname.':'.$udom);                  push(@missingdom,$uname.':'.$udom);
             }              }
Line 1475  sub print_request_outcome { Line 2184  sub print_request_outcome {
             push(@baduname,$uname.':'.$udom);              push(@baduname,$uname.':'.$udom);
         }          }
     }      }
       my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
     my ($startaccess,$endaccess) = &dates_from_form('startaccess','endacess');      my $autodrops = 0;
       if ($env{'form.autodrops'}) {
           $autodrops = $env{'form.autodrops'}; 
       }
       my $autoadds = 0;
       if ($env{'form.autoadds'}) {
           $autodrops = $env{'form.autoadds'};
       }
       if ($env{'form.autoadds'}) {
           $autodrops = $env{'form.autoadds'};
       }
       my $instcode = '';
       if (exists($env{'form.instcode'})) {
           $instcode = $env{'form.instcode'};
       }
       my $clonecrs = '';
       my $clonedom = '';
       if (($env{'form.clonecrs'} =~ /^($match_courseid)$/) && 
           ($env{'form.clonedom'} =~ /^($match_domain)$/)) {
           my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},
                                                       $env{'form.clonedom'});
           if ($clonehome ne 'no_host') {  
               my $canclone =  
                   &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
                           $env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'});
               if ($canclone) {
                   $clonecrs = $env{'form.clonecrs'};
                   $clonedom = $env{'form.clonedom'};
               }
           }
       }
     my $details = {      my $details = {
                     owner          => $env{'user.name'},                      owner          => $env{'user.name'},
                     domain         => $env{'user.domain'},                       domain         => $env{'user.domain'}, 
                     cdom           => $dom,                      cdom           => $dom,
                     cnum           => $cnum,                      cnum           => $cnum,
                     cdesc          => $env{'form.cdesc'},                      coursehome     => $env{'form.chome'},
                       cdescr         => $env{'form.cdescr'},
                     crstype        => $env{'form.crstype'},                      crstype        => $env{'form.crstype'},
                     instcode       => $env{'form.instcode'},                      instcode       => $instcode,
                     clonedomain    => $env{'form.clonedomain'},                      clonedom       => $clonedom,
                     clonecourse    => $env{'form.clonecourse'},                      clonecrs       => $clonecrs,
                     datemode       => $env{'form.datemode'},                      datemode       => $env{'form.datemode'},
                     dateshift      => $env{'form.datshift'},                      dateshift      => $env{'form.dateshift'},
                     sectotal       => $env{'form.sectotal'},                      sectotal       => $sectotal,
                     sections       => \%sections,                      sections       => \%sections,
                     crosslisttotal => $env{'form.crosslisttotal'},                      crosslisttotal => $crosslisttotal,
                     crosslistings  => \%crosslistings,                      crosslists     => \%crosslistings,
                     autoadds       => $env{'form.autoadds'},                      autoadds       => $autoadds,
                     autodrops      => $env{'form.autodrops'},                      autodrops      => $autodrops,
                     startenroll    => $startenroll,                      enrollstart    => $enrollstart,
                     endenroll      => $endenroll,                      enrollend      => $enrollend,
                     startaccess    => $startaccess,                      accessstart    => $accessstart,
                     endaccess      => $endaccess,                      accessend      => $accessend,
                     personnel      => \%personnel,                      personnel      => \%personnel,
                   };                    };
     my @inststatuses;      my (@inststatuses,$storeresult,$creationresult);
     my $val = &get_processtype($dom,$crstype,\@inststatuses,\%domconfig);      my $val = &get_processtype($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.');
         } elsif ($crstype eq 'unofficial') {          } elsif ($crstype eq 'unofficial') {
             $output = &mt('You are not permitted to request creation of unofficial courses');              $output = &mt('You are not permitted to request creation of unofficial courses.');
         } elsif ($crstype eq 'community') {          } elsif ($crstype eq 'community') {
             $output = &mt('You are not permitted to request creation of communities');              $output = &mt('You are not permitted to request creation of communities');
         } else {          } else {
             $output = &mt('Unrecognized course type: [_1]',$crstype);              $output = &mt('Unrecognized course type: [_1]',$crstype);
         }          }
           $storeresult = 'notpermitted'; 
     } else {      } else {
         my ($disposition,$message);          my ($disposition,$message,$reqstatus);
         my %reqhash = (          my %reqhash = (
                         timestamp => $now,                          reqtime   => $now,
                         crstype   => $crstype,                          crstype   => $crstype,
                         details   => $details,                          details   => $details,
                       );                        );
         my $requestkey = $dom.'_'.$cnum;          my $requestkey = $dom.'_'.$cnum;
           my $validationerror;
         if ($val eq 'autolimit=') {          if ($val eq 'autolimit=') {
             $disposition = 'process';              $disposition = 'process';
         } elsif ($val =~ /^autolimit=(\d+)$/) {          } elsif ($val =~ /^autolimit=(\d+)$/) {
Line 1528  sub print_request_outcome { Line 2270  sub print_request_outcome {
             $disposition = &check_autolimit($env{'user.name'},$env{'user.domain'},              $disposition = &check_autolimit($env{'user.name'},$env{'user.domain'},
                                             $dom,$crstype,$limit,\$message);                                              $dom,$crstype,$limit,\$message);
         } elsif ($val eq 'validate') {          } elsif ($val eq 'validate') {
             $disposition =              my ($inststatuslist,$validationchk,$validation);
                 &Apache::lonnet::auto_courserequest_validation($dom,$details,              if (@inststatuses > 0) {
                                                               \@inststatuses,\$message);                  $inststatuslist = join(',',@inststatuses);
               }
               my $instseclist;
               if (@instsections > 0) {
                   $instseclist = join(',',@instsections);
               }
               $validationchk = 
                   &Apache::lonnet::auto_courserequest_validation($dom,
                       $env{'user.name'}.':'.$env{'user.domain'},$crstype,
                       $inststatuslist,$instcode,$instseclist);
               if ($validationchk =~ /:/) {
                   ($validation,$message) = split(':',$validationchk);
               } else {
                   $validation = $validationchk;
               }
               if ($validation =~ /^error(.*)$/) {
                   $disposition = 'approval';
                   $validationerror = $1;
               } else {
                   $disposition = $validation;
               }
         } else {          } else {
             $disposition = 'approval';              $disposition = 'approval';
         }          }
         $reqhash{'status'} = $disposition;          $reqhash{'disposition'} = $disposition;
           $reqstatus = $disposition;
           my ($modified,$queued);
         if ($disposition eq 'rejected') {          if ($disposition eq 'rejected') {
             $output = &mt('Your course request was rejected.');              $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>';
             }              }
               $storeresult = 'rejected';
         } elsif ($disposition eq 'process') {          } elsif ($disposition eq 'process') {
               my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
               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 ($logmsg,$newusermsg,$addresult,$enrollcount,$output,$keysmsg,%longroles);  
             my @roles = &Apache::lonuserutils::roles_by_context('course');  
             foreach my $role (@roles) {              foreach my $role (@roles) {
                 $longroles{$role}=&Apache::lonnet::plaintext($role,$type);                  $longroles{$role}=&Apache::lonnet::plaintext($role,$type);
             }              }
             my %reqdetails = &build_batchcreatehash($details);              my $result = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
             my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'request',\%reqdetails,\%longroles,\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$output,\$keysmsg,$env{'user.domain'},$env{'user.name'},$cnum);                                     'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
             $disposition = 'created';                                     \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles);
             if ($cid eq $cnum) {              if ($result eq 'created') {
                 $disposition = 'created';                  $disposition = 'created';
                 $output = &mt('Your course request has been processed and the course has been created.').'<br />'.&mt('You will need to logout and log-in again to be able to select a role in the course.');                  $reqstatus = 'created';
                   my $role_result = &update_requestors_roles($dom,$cnum,$crstype,$details,
                                                              \%longroles);
                   $output = '<p>'.&mt('Your course request has been processed and the course has been created.').
                             '<br />'.$role_result.'</p>';
                   $creationresult = 'created';
             } else {              } else {
                 $output = &mt('An error occurred when processing your course request.').'<br />'.&mt('You may want to review the request details and submit the request again.');                  $output = '<span class="LC_error">'.
                             &mt('An error occurred when processing your course request.').
                             '<br />'.
                             &mt('You may want to review the request details and submit the request again.').
                             '</span>';
                   $creationresult = 'error';
             }              }
         } else {          } else {
             my $requestid = $cnum.'_'.$disposition;              my $requestid = $cnum.'_'.$disposition;
Line 1567  sub print_request_outcome { Line 2343  sub print_request_outcome {
                                             crstype     => $crstype,                                              crstype     => $crstype,
                                             ownername   => $env{'user.name'},                                              ownername   => $env{'user.name'},
                                             ownerdom    => $env{'user.domain'},                                              ownerdom    => $env{'user.domain'},
                                             description => $env{'form.cdesc'},                                               description => $env{'form.cdescr'}, 
                                           },                                            },
                           };                            };
             my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,              my $statuskey = 'status:'.$dom.':'.$cnum;
                                                         $dom);              my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey],
             if ($putresult eq 'ok') {                                                     $env{'user.domain'},$env{'user.name'});
                 my %emails = &Apache::loncommon::getemails();              if ($userreqhash{$statuskey} ne '') {
                 my $address;                  $modified = 1;
                 if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {                  my $uname = &Apache::lonnet::get_domainconfiguser($dom);
                     $address = $emails{'permanentemail'};                  my %queuehash = &Apache::lonnet::get('courserequestqueue',
                     if ($address eq '') {                                                       [$cnum.'_approval',
                         $address = $emails{'notification'};                                                        $cnum.'_pending'],$dom,$uname);
                     }                  if (($queuehash{$cnum.'_approval'} ne '') || 
                 }                      ($queuehash{$cnum.'_pending'} ne '')) {
                 $output = &mt('Your course request has been recorded.').'<br />';                      $queued = 1;
                 if ($disposition eq 'approval') {                  }
                     $output .= &mt('Your course request has been recorded.').'<br />'.              }
                               &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').'<br />'.              unless ($queued) {
                               &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'<br />';                  my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,
                     if ($address ne '') {                                                                   $dom);
                         $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'<br />';                  if ($putresult eq 'ok') {
                     }                      $output = &mt('Your course request has been recorded.').'<br />'.
                     if ($req_notifylist) {                                &notification_information($disposition,$req_notifylist,
                         my $fullname = &Apache::loncommon::plainname($env{'user.name'},                                                          $cnum,$now);
                                                                      $env{'user.domain'});  
                         &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,$fullname,$now,$dom,$details);  
                     }  
                 } else {                  } else {
                     $output .= '<div class="LC_info">'.                      $reqstatus = 'domainerror';
 &mt('Your request has been placed in a queue pending administrative action.').'<br />'.                      $reqhash{'disposition'} = $disposition;
 &mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'<br />'.                      my $warning = &mt('An error occurred saving your request in the pending requests queue.');
 &mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.').                      $output = '<span class"LC_warning">'.$warning.'</span><br />';
                                '</div>';  
                 }                  }
             } else {  
                 $reqhash{'status'} = 'domainerror';  
                 $reqhash{'disposition'} = $disposition;  
                 my $warning = &mt('An error occurred saving your request in the pending requests queue.');  
                 $output = '<span class"LC_warning">'.$warning.'</span><br />';  
                   
             }              }
         }          }
         my $storeresult;          my ($statusresult);
         if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {          if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
             $storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey,              $storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey,
                                                            'courserequests');                                                             'courserequests');
               if ($storeresult eq 'ok') {
                   my %status = (
                                    'status:'.$dom.':'.$cnum => $reqstatus,
                                );
                   $statusresult = &Apache::lonnet::put('courserequests',\%status);
               }
         } else {          } else {
             $storeresult = 'error: invalid requestkey format';               $storeresult = 'error: invalid requestkey format'; 
         }          }
         if ($storeresult ne 'ok') {          if ($storeresult ne 'ok') {
             $output .=  '<span class="LC_warning">'.&mt('An error occurred saving a record of the details of your request.').'</span><br />';              $output .=  '<span class="LC_warning">'.&mt('An error occurred saving a record of the details of your request: [_1].',$storeresult).'</span><br />';
             &logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult");              &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') {
               $output .= '<p>'.&mt('Your course request has been updated').'</p>'.
                          &notification_information($disposition,$req_notifylist,$cnum,$now);
           }
           if ($validationerror ne '') {
               $output .= '<span class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>';
           }
       }
       if ($creationresult ne '') {
           return ($creationresult,$output);
       } else {
           return ($storeresult,$output);
       }
   }
   
   sub update_requestors_roles {
       my ($dom,$cnum,$crstype,$details,$longroles) = @_;
       my $now = time;
       my ($active,$future,$numactive,$numfuture,$output);
       my $owner = $env{'user.name'}.':'.$env{'user.domain'};
       if (ref($details) eq 'HASH') {
           if (ref($details->{'personnel'}) eq 'HASH') {
               if (ref($details->{'personnel'}{$owner}) eq 'HASH') {
                   my @roles;
                   if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') {
                       @roles = sort(@{$details->{'personnel'}{$owner}{'roles'}});
                       unless (grep(/^cc$/,@roles)) {
                           push(@roles,'cc');
                       }
                   } else {
                       @roles = ('cc');
                   }
                   foreach my $role (@roles) {
                       my $start = $now;
                       my $end = '0';
                       if ($role eq 'st') {
                           if ($details->{'accessstart'} ne '') {
                               $start = $details->{'accessstart'};
                           }
                           if ($details->{'accessend'} ne '') {
                               $end = $details->{'accessend'};
                           }
                       }
                       my @usecs;
                       if ($role ne 'cc') {
                           if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') {
                               @usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}};
                           }
                       } 
                       if ($role eq 'st') {
                           if (@usecs > 1) {
                               my $firstsec = $usecs[0];
                               @usecs = ($firstsec);
                           }
                       }
                       if (@usecs == 0) {
                           push(@usecs,'');
                       }
                       foreach my $usec (@usecs) {
                           my (%userroles,%newrole,%newgroups,$spec,$area);
                           my $area = '/'.$dom.'/'.$cnum;
                           my $spec = $role.'.'.$area;
                           if ($usec ne '') {
                              $spec .= '/'.$usec;
                              $area .= '/'.$usec;
                           }
                           if ($role =~ /^cr\//) {
                               &Apache::lonnet::custom_roleprivs(\%newrole,$role,$dom,
                                                                 $cnum,$spec,$area);
                           } else {
                               &Apache::lonnet::standard_roleprivs(\%newrole,$role,$dom,
                                                                   $spec,$cnum,$area);
                           }
                           &Apache::lonnet::set_userprivs(\%userroles,\%newrole,
                                                          \%newgroups);
                           $userroles{'user.role.'.$spec} = $start.'.'.$end;
                           &Apache::lonnet::appenv(\%userroles,[$role,'cm']);
                           if (($end == 0) || ($end > $now)) {
                               my $showrole = $role;
                               if ($role =~ /^cr\//) {
                                   $showrole = &Apache::lonnet::plaintext($role,$crstype);
                               } elsif (ref($longroles) eq 'HASH') {
                                   if ($longroles->{$role} ne '') {
                                       $showrole = $longroles->{$role};
                                   }
                               }
                               if ($start <= $now) {
                                   $active .= '<li><a href="/adm/roles?selectrole=1&'.                                             $spec.'=1">'.$showrole;
                                   if ($usec ne '') {
                                       $active .= ' - '.&mt('section:').' '.$usec; 
                                   }
                                   $active .= '</a></li>';
                                   $numactive ++;
                               } else { 
                                   $future .= '<li>'.$showrole;
                                   if ($usec ne '') {
                                       $future .= ' - '.&mt('section:').' '.$usec;
                                   }
                                   $future .= '</li>';
                                   $numfuture ++;
                               }
                           }
                       }
                   }
               }
           }
       }
       if ($active) {
           if ($numactive == 1) {
               $output = &mt('Use the following link to enter the course:'); 
           } else {
               $output = &mt('Use the following links to your new roles to enter the course:');
           }
           $output .= ' <ul>'.$active.'</ul><br />';
       }
       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'})).
                      ' <ul>'.$future.'</ul>';
       }
       return $output;
   }
   
   sub notification_information {
       my ($disposition,$req_notifylist,$cnum,$now) = @_;
       my %emails = &Apache::loncommon::getemails();
       my $address;
       if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {
           $address = $emails{'permanentemail'};
           if ($address eq '') {
               $address = $emails{'notification'};
           }
       }
       my $output;
       if ($disposition eq 'approval') {
           $output .= &mt('A message will be sent to your LON-CAPA account when a domain coordinator takes action on your request.').'<br />'.
                      &mt('To access your LON-CAPA message, go to the Main Menu and click on "Send and Receive Messages".').'<br />';
           if ($address ne '') {
               $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'<br />';
         }          }
           if ($req_notifylist) {
               my $fullname = &Apache::loncommon::plainname($env{'user.name'},
                                                                        $env{'user.domain'});
               my $sender = $env{'user.name'}.':'.$env{'user.domain'};
               &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,"$fullname ($env{'user.name'}:$env{'user.domain'})",$cnum,$env{'form.cdescr'},$now,'coursereq',$sender);
           }
       } elsif ($disposition eq 'pending') {
           $output .= '<div class="LC_info">'.
   &mt('Your request has been placed in a queue pending administrative action.').'<br />'.
   &mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'<br />'.
   &mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.').
                      '</div>';
       } else {
           $output .= '<div class="LC_warning">'.
                      &mt('Your request status is: [_1].',$disposition). 
                      '</div>'
     }      }
     return $output;      return $output;
 }  }
Line 1628  sub get_processtype { Line 2558  sub get_processtype {
     my ($dom,$crstype,$inststatuses,$domconfig) = @_;      my ($dom,$crstype,$inststatuses,$domconfig) = @_;
     return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH'));      return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH'));
     my (%userenv,%settings,$val);      my (%userenv,%settings,$val);
     my @options = ('autolimit','validate','approve');      my @options = ('autolimit','validate','approval');
     if ($dom eq $env{'user.domain'}) {      if ($dom eq $env{'user.domain'}) {
         %userenv =           %userenv = 
             &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'},              &Apache::lonnet::userenvironment($env{'user.domain'},$env{'user.name'},
Line 1641  sub get_processtype { Line 2571  sub get_processtype {
             if (ref($domconfig->{'requestcourses'}) eq 'HASH') {              if (ref($domconfig->{'requestcourses'}) eq 'HASH') {
                 %settings = %{$domconfig->{'requestcourses'}};                  %settings = %{$domconfig->{'requestcourses'}};
                 if (ref($settings{$crstype}) eq 'HASH') {                  if (ref($settings{$crstype}) eq 'HASH') {
                     if (($env{'user.adv'}) && (exists($settings{$crstype}{'_LC_adv'}))) {                      if (($env{'user.adv'}) && ($settings{$crstype}{'_LC_adv'} ne '')) {
                         $val = $settings{$crstype}{'_LC_adv'};                          $val = $settings{$crstype}{'_LC_adv'};
                         @{$inststatuses} = ('_LC_adv_');                          @{$inststatuses} = ('_LC_adv_');
                     } else {                      } else {
                         if ($userenv{'inststatus'} ne '') {                          if ($userenv{'inststatus'} ne '') {
                             @{$inststatuses} = split(',',$userenv{'inststatus'});                              @{$inststatuses} = split(',',$userenv{'inststatus'});
                         } else {                          } else {
                             @{$inststatuses} = ('other');                              @{$inststatuses} = ('default');
                         }                          }
                         foreach my $status (@{$inststatuses}) {                          foreach my $status (@{$inststatuses}) {
                             if (exists($settings{$crstype}{$status})) {                              if (exists($settings{$crstype}{$status})) {
Line 1666  sub get_processtype { Line 2596  sub get_processtype {
                             }                              }
                         }                          }
                         my $maxlimit = 0;                          my $maxlimit = 0;
                           
                         foreach my $key (sort(keys(%alltasks))) {                          foreach my $key (sort(keys(%alltasks))) {
                             if ($key =~ /^autolimit=(\d*)$/) {                              if ($key =~ /^autolimit=(\d*)$/) {
                                 if ($1 eq '') {                                  if ($1 eq '') {
Line 1693  sub get_processtype { Line 2624  sub get_processtype {
     } else {      } else {
         %userenv = &Apache::lonnet::userenvironment($env{'user.domain'},          %userenv = &Apache::lonnet::userenvironment($env{'user.domain'},
                       $env{'user.name'},'reqcrsotherdom.'.$env{'form.crstype'});                        $env{'user.name'},'reqcrsotherdom.'.$env{'form.crstype'});
         if ($userenv{'reqcrsotherdom'}) {          if ($userenv{'reqcrsotherdom.'.$crstype}) {
             my @doms = split(',',$userenv{'reqcrsotherdom'});              my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype});
             my $optregex = join('|',@options);               my $optregex = join('|',@options);
             if (grep(/^\Q$dom\E:($optregex=?\d*)/,@doms)) {              foreach my $item (@doms) {
                 $val = $1;                  my ($extdom,$extopt) = split(':',$item);
                   if ($extdom eq $dom) {  
                       if ($extopt =~ /^($optregex)(=?\d*)$/) {
                           $val = $1.$2;
                       }
                       last;
                   }
             }              }
             @{$inststatuses} = ('_external_');              @{$inststatuses} = ('_external_');
         }          }
Line 1739  sub check_autolimit { Line 2676  sub check_autolimit {
     return;      return;
 }  }
   
 sub build_batchcreatehash {  sub retrieve_settings {
     my ($details) = @_;      my ($dom,$cnum,$udom,$uname) = @_;
     my %batchhash;      if ($udom eq '' || $uname eq '') {
     if (ref($details) eq 'HASH') {          $udom = $env{'user.domain'};
           $uname = $env{'user.name'};
       }
       my ($result,%reqinfo) = &get_request_settings($dom,$cnum,$udom,$uname);
       if ($result eq 'ok') {
           if (($udom eq $reqinfo{'domain'}) &&  ($uname eq $reqinfo{'owner'})) {
               $env{'form.chome'} = $reqinfo{'coursehome'};
               $env{'form.cdescr'} = $reqinfo{'cdescr'};
               $env{'form.crstype'} = $reqinfo{'crstype'}; 
               &generate_date_items($reqinfo{'accessstart'},'accessstart');
               &generate_date_items($reqinfo{'accessend'},'accessend');
               if ($reqinfo{'accessend'} == 0) {
                   $env{'form.no_end_date'} = 1;
               }
               if (($reqinfo{'crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) {
                   &generate_date_items($reqinfo{'enrollstart'},'enrollstart');
                   &generate_date_items($reqinfo{'enrollend'},'enrollend');
               }
               $env{'form.clonecrs'} = $reqinfo{'clonecrs'};
               $env{'form.clonedom'} = $reqinfo{'clonedom'};
               $env{'form.datemode'} = $reqinfo{'datemode'};
               $env{'form.dateshift'} = $reqinfo{'dateshift'};
               if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) { 
                    $env{'form.sectotal'} = $reqinfo{'sectotal'};
                    $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};
                    $env{'form.autoadds'} = $reqinfo{'autoadds'};
                    $env{'form.autdrops'} = $reqinfo{'autodrops'};
                    $env{'form.instcode'} = $reqinfo{'instcode'};
                    my $crscode = { 
                                    $cnum => $reqinfo{'instcode'},
                                  };
                    &extract_instcode($dom,'instcode',$crscode,$cnum);
               }
               my @currsec;
               if (ref($reqinfo{'sections'}) eq 'HASH') {
                   foreach my $i (sort(keys(%{$reqinfo{'sections'}}))) {
                       if (ref($reqinfo{'sections'}{$i}) eq 'HASH') {
                           my $sec = $reqinfo{'sections'}{$i}{'inst'};
                           $env{'form.secnum_'.$i} = $sec;
                           $env{'form.sec_'.$i} = '1';
                           if (!grep(/^\Q$sec\E$/,@currsec)) {
                               push(@currsec,$sec);
                           }
                           $env{'form.loncapasec_'.$i} = $reqinfo{'sections'}{$i}{'loncapa'};
                       }
                   }
               }
               if (ref($reqinfo{'crosslists'}) eq 'HASH') {
                   foreach my $i (sort(keys(%{$reqinfo{'crosslists'}}))) {
                       if (ref($reqinfo{'crosslists'}{$i}) eq 'HASH') {
                           $env{'form.crosslist_'.$i} = '1';
                           $env{'form.crosslist_'.$i.'_instsec'} = $reqinfo{'crosslists'}{$i}{'instsec'};
                           $env{'form.crosslist_'.$i.'_lcsec'} = $reqinfo{'crosslists'}{$i}{'loncapa'};
                           if ($reqinfo{'crosslists'}{$i}{'instcode'} ne '') {
                               my $key = $cnum.$i; 
                               my $crscode = {
                                                 $key => $reqinfo{'crosslists'}{$i}{'instcode'},
                                             };
                               &extract_instcode($dom,'crosslist',$crscode,$key,$i);
                           }
                       }
                   }
               }
               if (ref($reqinfo{'personnel'}) eq 'HASH') {
                   my $i = 0;
                   foreach my $user (sort(keys(%{$reqinfo{'personnel'}}))) {
                       my ($uname,$udom) = split(':',$user);
                       if (ref($reqinfo{'personnel'}{$user}) eq 'HASH') {
                           if (ref($reqinfo{'personnel'}{$user}{'roles'}) eq 'ARRAY') {
                               foreach my $role (sort(@{$reqinfo{'personnel'}{$user}{'roles'}})) {
                                   $env{'form.person_'.$i.'_role'} = $role;
                                   $env{'form.person_'.$i.'_firstname'} = $reqinfo{'personnel'}{$user}{'firstname'};
                                   $env{'form.person_'.$i.'_lastname'} = $reqinfo{'personnel'}{$user}{'lastname'}; ;
                                   $env{'form.person_'.$i.'_emailaddr'} = $reqinfo{'personnel'}{$user}{'emailaddr'};
                                   $env{'form.person_'.$i.'_uname'} = $uname;
                                   $env{'form.person_'.$i.'_dom'} = $udom;
                                   if (ref($reqinfo{'personnel'}{$user}{$role}) eq 'HASH') {
                                       if (ref($reqinfo{'personnel'}{$user}{$role}{'usec'}) eq 'ARRAY') {
                                           my @usecs = @{$reqinfo{'personnel'}{$user}{$role}{'usec'}};
                                           my @newsecs;
                                           if (@usecs > 0) {
                                               foreach my $sec (@usecs) {
                                                   if (grep(/^\Q$sec\E/,@currsec)) {
                                                       $env{'form.person_'.$i.'_sec'} = $sec;
                                                   } else {
                                                       push(@newsecs,$sec);
                                                   }
                                               }
                                           }
                                           if (@newsecs > 0) {
                                               $env{'form.person_'.$i.'_newsec'} = join(',',@newsecs); 
                                           }
                                       }
                                   }
                                   $i ++;
                               }
                           }
                       }
                   }
                   $env{'form.persontotal'} = $i;
               }
           }
     }      }
     return %batchhash;      return $result;
 }  }
   
 sub retrieve_settings {  sub get_request_settings {
     my ($dom,$request_id) = @_;      my ($dom,$cnum,$udom,$uname) = @_;
     my %reqinfo = &get_request_settings($request_id,$dom);      my $requestkey = $dom.'_'.$cnum;
     my %stored;      my ($result,%reqinfo);
     $stored{'cdescr'} = &unescape($reqinfo{'description'});      if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
     $stored{'startaccess'} = $reqinfo{'startaccess'};          my %history = &Apache::lonnet::restore($requestkey,'courserequests',$udom,$uname);
     $stored{'endaccess'} = $reqinfo{'endaccess'};          my $disposition = $history{'disposition'};
     if ($stored{'endaccess'} == 0) {          if (($disposition eq 'approval') || ($disposition eq 'pending')) { 
         $stored{'no_end_date'} = 1;              if (ref($history{'details'}) eq 'HASH') {
     }                  %reqinfo = %{$history{'details'}};
     $stored{'startenroll'} = $reqinfo{'startenroll'};                  $result = 'ok';
     $stored{'endenroll'} = $reqinfo{'endenroll'};              } else {
     $stored{'crosslist'} = $reqinfo{'crosslist'};                  $result = 'nothash';
     $stored{'clonecourse'} = $reqinfo{'clonecourse'};              }
     $stored{'clonedomain'} = $reqinfo{'clonedomain'};          } else {
     $stored{'sections'} = $reqinfo{'sections'};              $result = 'notqueued';
     $stored{'personnel'} = $reqinfo{'personnel'};          }
       } else {
           $result = 'invalid';
       }
       return ($result,%reqinfo);
   }
   
     return %stored;  sub extract_instcode {
       my ($cdom,$element,$crscode,$crskey,$counter) = @_;
       my (%codes,@codetitles,%cat_titles,%cat_order);
       if (&Apache::lonnet::auto_instcode_format('requests',$cdom,$crscode,\%codes,
                                                 \@codetitles,\%cat_titles,
                                                 \%cat_order) eq 'ok') {
           if (ref($codes{$crskey}) eq 'HASH') {
               if (@codetitles > 0) {
                   my $sel = $element;
                   if ($element eq 'crosslist') {
                       $sel .= '_'.$counter;
                   }
                   foreach my $title (@codetitles) {
                       $env{'form.'.$sel.'_'.$title} = $codes{$crskey}{$title};
                   }
               }
           }
       }
       return;
 }  }
   
 sub get_request_settings {  sub generate_date_items {
     my ($request_id,$dom);      my ($currentval,$item) = @_;
       if ($currentval =~ /\d+/) {
           my ($tzname,$sec,$min,$hour,$mday,$month,$year) = 
               &Apache::lonhtmlcommon::get_timedates($currentval);
           $env{'form.'.$item.'_day'} = $mday;
           $env{'form.'.$item.'_month'} = $month+1;
           $env{'form.'.$item.'_year'} = $year;
       }
       return;
 }  }
   
 1;  1;
Removed from v.1.11  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.