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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.115 and 1.116

version 1.115, 2014/05/30 01:50:05 version 1.116, 2015/05/21 23:40:09
Line 50  sub handler { Line 50  sub handler {
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['domainfilter','form','cnumelement',          ($ENV{'QUERY_STRING'},['domainfilter','form','cnumelement',
        'cdomelement','cnameelement','roleelement',         'cdomelement','cnameelement','roleelement',
                                'multiple','type','setroles','fixeddom','cloner']);                                 'multiple','type','setroles','fixeddom','cloner',
                                  'crscode','crsdom']);
     my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,      my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,
         $lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom);          $lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom,$crscode,$crsdom);
   
     # Get course type - Course or Community.      # Get course type - Course or Community.
     $type = $env{'form.type'};      $type = $env{'form.type'};
Line 82  sub handler { Line 83  sub handler {
     # if called when a DC is creating a course for another user.      # if called when a DC is creating a course for another user.
     if ($env{'form.form'} eq 'ccrs') {      if ($env{'form.form'} eq 'ccrs') {
         ($cloneruname,$clonerudom) = ($env{'form.cloner'} =~ /^($match_username):($match_domain)$/);          ($cloneruname,$clonerudom) = ($env{'form.cloner'} =~ /^($match_username):($match_domain)$/);
           $crscode = $env{'form.crscode'};
           $crsdom = $env{'request.role.domain'};
     }      }
   
     # if called when requesting a course      # if called when requesting a course
     if ($env{'form.form'} eq 'requestcrs') {      if ($env{'form.form'} eq 'requestcrs') {
         $cloneruname = $env{'user.name'};          $cloneruname = $env{'user.name'};
         $clonerudom =  $env{'user.domain'};          $clonerudom =  $env{'user.domain'};
           $crscode = $env{'form.crscode'};
           $crsdom = $env{'form.crsdom'};
     }      }
   
     my $onlyown = 0;      my $onlyown = 0;
Line 220  sub handler { Line 225  sub handler {
             if ($coord_cloneable) {              if ($coord_cloneable) {
                 $clonetext .= '<input type="hidden" name="cc_clone" value="'.$coord_cloneable.'" />';                  $clonetext .= '<input type="hidden" name="cc_clone" value="'.$coord_cloneable.'" />';
             }              }
               if ($crscode ne '') {
                   $clonetext .= '<input type="hidden" name="crscode" value="'.$crscode.'" />';
               }
               if ($crsdom ne '') {
                   $clonetext .= '<input type="hidden" name="crsdom" value="'.$crsdom.'" />';
               }
         }          }
         $r->print(&Apache::loncommon::build_filters($filterlist,$type,$roleelement,$multelement,          $r->print(&Apache::loncommon::build_filters($filterlist,$type,$roleelement,$multelement,
                                                     $filter,$action,\$numtitles,undef,$cloneruname,                                                      $filter,$action,\$numtitles,undef,$cloneruname,
Line 247  sub handler { Line 258  sub handler {
             my $srchdom = $filter->{'domainfilter'};              my $srchdom = $filter->{'domainfilter'};
             %courses = &Apache::loncommon::search_courses($srchdom,$type,$filter,$numtitles,              %courses = &Apache::loncommon::search_courses($srchdom,$type,$filter,$numtitles,
                                                           $cloneruname,$clonerudom,$domcloner,                                                            $cloneruname,$clonerudom,$domcloner,
                                                           \@codetitles,$env{'form.cc_clone'});                                                            \@codetitles,$env{'form.cc_clone'},
                                                             $crsdom,$crscode);
         } else {          } else {
             $r->print('<br />');              $r->print('<br />');
             my %coursehash = &Apache::loncommon::findallcourses();              my %coursehash = &Apache::loncommon::findallcourses();
Line 262  sub handler { Line 274  sub handler {
                            '<b>'.$filter->{'persondomfilter'}.'</b>').'</span>');                             '<b>'.$filter->{'persondomfilter'}.'</b>').'</span>');
         } else {          } else {
             &display_matched_courses($r,$type,$multiple,$action,$showroles,$cloneruname,              &display_matched_courses($r,$type,$multiple,$action,$showroles,$cloneruname,
                                      $clonerudom,%courses);                                       $clonerudom,$crsdom,$crscode,%courses);
         }          }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Line 371  function setDefaultCredits() { Line 383  function setDefaultCredits() {
 }  }
   
 sub display_matched_courses {  sub display_matched_courses {
     my ($r,$type,$multiple,$action,$showroles,$cloneruname,$clonerudom,%courses) = @_;      my ($r,$type,$multiple,$action,$showroles,$cloneruname,$clonerudom,$crsdom,$crscode,%courses) = @_;
     if ($env{'form.form'} eq 'portform') {      if ($env{'form.form'} eq 'portform') {
         $action = '/adm/portfolio';          $action = '/adm/portfolio';
     }      }
Line 464  sub display_matched_courses { Line 476  sub display_matched_courses {
             map {$cc_cloneable{$_} = 1;} split('&',$coord_cloneable);              map {$cc_cloneable{$_} = 1;} split('&',$coord_cloneable);
         }          }
     }      }
       my (%gotdomdefaults,%gotcodedefaults);
     foreach my $description (sort { lc($a) cmp lc($b) } (keys(%by_descrip))) {      foreach my $description (sort { lc($a) cmp lc($b) } (keys(%by_descrip))) {
         foreach my $course (@{$by_descrip{$description}}) {          foreach my $course (@{$by_descrip{$description}}) {
             $r->print(&Apache::loncommon::start_data_table_row());              $r->print(&Apache::loncommon::start_data_table_row());
Line 489  sub display_matched_courses { Line 502  sub display_matched_courses {
                     }                      }
                     unless ($canclone) {                      unless ($canclone) {
                         my $cloners = $courses{$course}{'cloners'};                          my $cloners = $courses{$course}{'cloners'};
                         if ($cloners ne '') {                           if ($cloners ne '') {
                             my @cloneable = split(',',$cloners);                              my @cloneable = split(',',$cloners);
                             if (grep(/^\*$/,@cloneable)) {                              if (grep(/^\*$/,@cloneable)) {
                                 $canclone = 1;                                  $canclone = 1;
Line 500  sub display_matched_courses { Line 513  sub display_matched_courses {
                             if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {                              if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {
                                 $canclone = 1;                                  $canclone = 1;
                             }                              }
                               unless ($canclone) {
                                   if (($instcode) && ($crscode) && ($cdom eq $crsdom)) {
                                       foreach my $cloner (@cloneable) {
                                           if (($cloner ne '*') && ($cloner !~ /^\*\:$match_domain$/) &&
                                               ($cloner !~ /^$match_username\:$match_domain$/) && ($cloner ne '')) {
                                               if ($cloner =~ /\=/) {
                                                   my (%codedefaults,@code_order);
                                                   if (ref($gotcodedefaults{$cdom}) eq 'HASH') {
                                                       if (ref($gotcodedefaults{$cdom}{'defaults'}) eq 'HASH') {
                                                           %codedefaults = %{$gotcodedefaults{$cdom}{'defaults'}};
                                                       }
                                                       if (ref($gotcodedefaults{$cdom}{'order'}) eq 'ARRAY') {
                                                           @code_order = @{$gotcodedefaults{$cdom}{'order'}};
                                                       }
                                                   } else {
                                                       &Apache::lonnet::auto_instcode_defaults($cdom,
                                                                                               \%codedefaults,
                                                                                               \@code_order);
                                                       $gotcodedefaults{$cdom}{'defaults'} = \%codedefaults;
                                                       $gotcodedefaults{$cdom}{'order'} = \@code_order;
                                                   }
                                                   if (@code_order > 0) {
                                                       if (&Apache::lonnet::check_instcode_cloning(\%codedefaults,\@code_order,
                                                                                                   $cloner,$instcode,$crscode)) {
                                                           $canclone = 1;
                                                           last;
                                                       }
                                                   }
                                               }
                                           }
                                       }
                                   }
                               }
                           } else {
                               my %domdefs;
                               if (ref($gotdomdefaults{$cdom}) eq 'HASH') {
                                   %domdefs = %{$gotdomdefaults{$cdom}};
                               } else {
                                   %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
                                   $gotdomdefaults{$cdom} = \%domdefs;
                               }
                               if ($domdefs{'canclone'}) {
                                   unless ($domdefs{'canclone'} eq 'none') {
                                       if ($domdefs{'canclone'} eq 'domain') {
                                           if ($clonerudom eq $cdom) {
                                               $canclone = 1;
                                           }
                                       } elsif (($instcode) && ($crscode) &&
                                                ($cdom eq $crsdom)) {
                                           my (%codedefaults,@code_order); 
                                           if (ref($gotcodedefaults{$cdom}) eq 'HASH') {
                                               if (ref($gotcodedefaults{$cdom}{'defaults'}) eq 'HASH') {
                                                   %codedefaults = %{$gotcodedefaults{$cdom}{'defaults'}};
                                               }
                                               if (ref($gotcodedefaults{$cdom}{'order'}) eq 'ARRAY') {
                                                   @code_order = @{$gotcodedefaults{$cdom}{'order'}};
                                               }
                                           } else {
                                               &Apache::lonnet::auto_instcode_defaults($cdom,
                                                                                       \%codedefaults,
                                                                                       \@code_order);
                                               $gotcodedefaults{$cdom}{'defaults'} = \%codedefaults;
                                               $gotcodedefaults{$cdom}{'order'} = \@code_order;
                                           }
                                           if (@code_order > 0) {
                                               if (&Apache::lonnet::default_instcode_cloning($cdom,$domdefs{'canclone'},
                                                                                             $instcode,$crscode,\%codedefaults,
                                                                                             \@code_order)) {
                                                   $canclone = 1;
                                               }
                                           }
                                       }
                                   }
                               }
                         }                          }
                     }                      }
                 }                  }
Line 849  javascript code for reporting selected s Line 936  javascript code for reporting selected s
   
 =item *  =item *
 X<display_matched_courses()>  X<display_matched_courses()>
 B<display_matched_courses($r,$type,$multiple,$action,$showroles,$cloneruname,$clonerudom,%courses)>:  B<display_matched_courses($r,$type,$multiple,$action,$showroles,$cloneruname,$clonerudom,$crsdom,$crscode,%courses)>:
   
 Input: 7 - request object, course type, multiple (0 or 1), form action, whether to show roles (for course personnel filter), username of new course owner, domain of new course owner, hash of courses.  Input: 8 - request object, course type, multiple (0 or 1), form action, whether to show roles (for course personnel filter), username of new course owner, domain of new course owner, domain of new course, institutional code of new course, hash of courses.
   
 Output: 0  Output: 0
   
Removed from v.1.115  
changed lines
  Added in v.1.116

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