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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.90 and 1.94

version 1.90, 2015/06/14 00:02:43 version 1.94, 2015/09/01 14:11:26
Line 3667  sub process_request { Line 3667  sub process_request {
         }          }
         $storeresult = 'notpermitted';           $storeresult = 'notpermitted'; 
     } else {      } else {
         my ($disposition,$message,$reqstatus,$coursedesc,%customvalidation);          my ($disposition,$message,$reqstatus,$coursedesc,$accessstart,$accessend,%customvalidation);
         my %reqhash = (          my %reqhash = (
                         reqtime   => $now,                          reqtime   => $now,
                         crstype   => $crstype,                          crstype   => $crstype,
Line 3679  sub process_request { Line 3679  sub process_request {
                                                      $env{'user.domain'});                                                       $env{'user.domain'});
         if (ref($details) eq 'HASH') {          if (ref($details) eq 'HASH') {
             $coursedesc = $details->{'cdescr'};              $coursedesc = $details->{'cdescr'};
               $accessstart = $details->{'accessstart'};
               $accessend = $details->{'accessend'};
         }          }
         if ($val eq 'autolimit=') {          if ($val eq 'autolimit=') {
             $disposition = 'process';              $disposition = 'process';
Line 3730  sub process_request { Line 3732  sub process_request {
         }          }
         $reqhash{'disposition'} = $disposition;          $reqhash{'disposition'} = $disposition;
         $reqstatus = $disposition;          $reqstatus = $disposition;
         my ($modified,$queued,$coursedesc,$token,%customitems);          my ($modified,$queued,$token,%customitems);
         unless ($disposition eq 'rejected') {          unless ($disposition eq 'rejected') {
             my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$env{'user.name'},              my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$env{'user.name'},
                                                                 $env{'user.domain'},$fullname,$coursedesc,undef,                                                                  $env{'user.domain'},$fullname,$coursedesc,undef,
Line 3786  sub process_request { Line 3788  sub process_request {
                 $customitems{'_LC_owneremail'} = $owneremail;                  $customitems{'_LC_owneremail'} = $owneremail;
             }              }
             $customitems{'_LC_coursedomainname'} = &Apache::lonnet::domain($dom,'description');              $customitems{'_LC_coursedomainname'} = &Apache::lonnet::domain($dom,'description');
               $customitems{'_LC_coursedescription'} = $coursedesc;
               $customitems{'_LC_coursestartdate'} = $accessstart;
               $customitems{'_LC_courseenddate'} = $accessend;
             my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,              my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
                                           'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,                                            'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
                                           \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,                                            \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,
Line 4742  sub print_textbook_form { Line 4747  sub print_textbook_form {
     if (keys(%cloneable)) {      if (keys(%cloneable)) {
         $r->print('<div id="showexisting" style="display:none">'.          $r->print('<div id="showexisting" style="display:none">'.
                   &clone_selection_table($dom,'owned',\%cloneable).                    &clone_selection_table($dom,'owned',\%cloneable).
                   '<p><input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.                    '<p><input type="radio" name="owndatemode" value="delete" /> '.$lt{'ncd'}.
                   '</label><br /><label>'.                    '</label><br /><label>'.
                   '<input type="radio" name="datemode" value="preserve" /> '.$lt{'prd'}.                    '<input type="radio" name="owndatemode" value="preserve" /> '.$lt{'prd'}.
                   '</label><br /><label>'.                    '</label><br /><label>'.
                   '<input type="radio" name="datemode" value="shift" checked="checked" /> '.                    '<input type="radio" name="owndatemode" 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="owndateshift" value="365" />'.
                   '</div>');                    '</div>');
     }      }
 #  #
Line 4757  sub print_textbook_form { Line 4762  sub print_textbook_form {
     if (keys(%domcloneable)) {      if (keys(%domcloneable)) {
         $r->print('<div id="showcolleague" style="display:none">'.          $r->print('<div id="showcolleague" style="display:none">'.
                   &clone_selection_table($dom,'colleague',\%domcloneable).                    &clone_selection_table($dom,'colleague',\%domcloneable).
                   '<p><input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.                    '<p><input type="radio" name="colldatemode" value="delete" /> '.$lt{'ncd'}.
                   '</label><br /><label>'.                    '</label><br /><label>'.
                   '<input type="radio" name="datemode" value="preserve" /> '.$lt{'prd'}.                    '<input type="radio" name="colldatemode" value="preserve" /> '.$lt{'prd'}.
                   '</label><br /><label>'.                    '</label><br /><label>'.
                   '<input type="radio" name="datemode" value="shift" checked="checked" /> '.                    '<input type="radio" name="colldatemode" 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="colldateshift" value="365" />'.
                   '</div>');                    '</div>');
     }      }
   
Line 4844  sub clone_selection_table { Line 4849  sub clone_selection_table {
                 my $cleantitle=&HTML::Entities::encode($title,'<>&"');                  my $cleantitle=&HTML::Entities::encode($title,'<>&"');
                 $cleantitle=~s/'/\\'/g;                  $cleantitle=~s/'/\\'/g;
                 $cleantitle =~ s/^\s+//;                  $cleantitle =~ s/^\s+//;
                 my ($namestr,@owners,%ownernames);                  my ($namestr,$singleowner,$otherowners,@owners,%ownernames);
                 my $singleowner = $cloneableref->{$cid}{'internal.courseowner'};                  if ($name eq 'colleague') {
                 push(@owners,$singleowner);                      $singleowner = $cloneableref->{$cid}{'owner'};
                 if ($cloneableref->{$cid}{'co-owners'} ne '') {                      $otherowners = $cloneableref->{$cid}{'co-owners'};
                     foreach my $item (split(/,/,$cloneableref->{$cid}{'internal.co-owners'})) {                  } else {
                         push(@owners,$item);                      $singleowner = $cloneableref->{$cid}{'internal.courseowner'};
                       $otherowners = $cloneableref->{$cid}{'internal.co-owners'};
                   }
                   if ($singleowner ne '') {
                       push(@owners,$singleowner);
                   }
                   if ($otherowners ne '') {
                       foreach my $item (split(/,/,$otherowners)) {
                           if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) {
                               push(@owners,$item);
                           }
                     }                      }
                 }                  }
                 foreach my $owner (@owners) {                  foreach my $owner (@owners) {
Line 4983  sub process_textbook_request { Line 4998  sub process_textbook_request {
                     accessend      => $accessend,                      accessend      => $accessend,
                     personnel      => {},                      personnel      => {},
                   };                    };
     if ($reqtype eq 'existing') {      if (($clonecrs ne '') && ($clonedom ne '')) {
         $details->{datemode} = $env{'form.datemode'};          if ($reqtype eq 'existing') {
         $details->{dateshift} = $env{'form.dateshift'};              $details->{datemode} = $env{'form.owndatemode'};
               if ($details->{datemode} eq 'shift') {
                   $details->{dateshift} = $env{'form.owndateshift'};
               } else {
                   $details->{dateshift} = '';
               }
           } elsif ($reqtype eq 'colleague') {
               $details->{datemode} = $env{'form.colldatemode'};
               if ($details->{datemode} eq 'shift') {
                   $details->{dateshift} = $env{'form.colldateshift'};
               } else {
                   $details->{dateshift} = '';
               }
           }
           if ($details->{dateshift} ne '') {
               $details->{dateshift} =~ s/[^\d\.]+//g;
           }
       } else {
           $details->{datemode} = '';
           $details->{dateshift} = '';
     }      }
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     $r->rflush();      $r->rflush();
Line 5159  function validTextbookReq() { Line 5193  function validTextbookReq() {
                        if (cloneChoice == 'existing') {                         if (cloneChoice == 'existing') {
                            alert("$js_lt{'existing'}");                             alert("$js_lt{'existing'}");
                        } else {                         } else {
                            alert("js_$lt{'colleague'}");                             alert("$js_lt{'colleague'}");
                        }                         }
                    }                     }
                }                 }
Removed from v.1.90  
changed lines
  Added in v.1.94

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