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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.89 and 1.92

version 1.89, 2009/11/03 14:32:44 version 1.92, 2010/02/21 15:09:36
Line 51  sub handler { Line 51  sub handler {
         ($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']);
     my ($type,$title,$jscript,$multelement,$multiple,$roleelement,      my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,
         $lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom);          $lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom);
   
     # Get course type - Course or Community.      # Get course type - Course or Community.
Line 75  sub handler { Line 75  sub handler {
         $submitopener = &processpick();          $submitopener = &processpick();
         $autosubmit = 'process_pick("'.$roledom.'")';          $autosubmit = 'process_pick("'.$roledom.'")';
     }      }
       if ($env{'form.typeelement'} ne '') {
           $typeelement = '<input type="hidden" name="typeelement" value="'.$env{'form.typeelement'}.'" />';
       }
   
     # if called when a DC is creating a course      # 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)$/);
     }      }
Line 165  sub handler { Line 168  sub handler {
   
         $r->print(&build_filters($filterlist,$type,$roleelement,$multelement,          $r->print(&build_filters($filterlist,$type,$roleelement,$multelement,
                                  $filter,$action,\$numtitles,undef,$cloneruname,                                   $filter,$action,\$numtitles,undef,$cloneruname,
                                  $clonerudom));                                   $clonerudom,$typeelement));
     }      }
   
 # ---------------------------------------------------------------- Get the data  # ---------------------------------------------------------------- Get the data
Line 306  sub display_matched_courses { Line 309  sub display_matched_courses {
             my $ccrolechk = ' checked="checked" ';              my $ccrolechk = ' checked="checked" ';
             my $menuchk = ' ';              my $menuchk = ' ';
             if ($env{'form.prevphase'} ne '') {              if ($env{'form.prevphase'} ne '') {
                  $ccrolechk = ' ';                  $ccrolechk = ' ';
                  $menuchk = ' checked="checked" ';                  $menuchk = ' checked="checked" ';
             }              }
             $r->print(              $r->print(
                 '<fieldset>'                  '<fieldset>'
Line 377  sub display_matched_courses { Line 380  sub display_matched_courses {
         }          }
         $r->print(&Apache::loncommon::end_data_table_header_row());          $r->print(&Apache::loncommon::end_data_table_header_row());
     }      }
       my %cc_cloneable;
       if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {
           my ($coord_cloneable,$warning) =
               &get_coordinator_cloneable($cloneruname,$clonerudom,$type);
           if ($coord_cloneable) {
               map {$cc_cloneable{$_} = 1;} split('&',$coord_cloneable);
           }
       }
     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 389  sub display_matched_courses { Line 400  sub display_matched_courses {
                 $instcode = $courses{$course}{'inst_code'};                  $instcode = $courses{$course}{'inst_code'};
                 $ttype = $courses{$course}{'type'};                  $ttype = $courses{$course}{'type'};
                 if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {                  if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {
                     my $cloners = $courses{$course}{'cloners'};                      if ($cc_cloneable{$courses{$course}{'cnum'}.':'.$courses{$course}{'domain'}}) {
                     if ($cloners ne '') {                           $canclone = 1;
                         my @cloneable = split(',',$cloners);                      }
                         if (grep(/^\*$/,@cloneable)) {                      unless ($canclone) {
                             $canclone = 1;                          my $cloners = $courses{$course}{'cloners'};
                         }                          if ($cloners ne '') { 
                         if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) {                              my @cloneable = split(',',$cloners);
                             $canclone = 1;                              if (grep(/^\*$/,@cloneable)) {
                         }                                  $canclone = 1;
                         if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {                              }
                             $canclone = 1;                              if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) {
                                   $canclone = 1;
                               }
                               if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {
                                   $canclone = 1;
                               }
                         }                          }
                     }                      }
                 }                  }
Line 481  sub display_matched_courses { Line 497  sub display_matched_courses {
                   $env{'form.cnumelement'}.'" />'."\n".                      $env{'form.cnumelement'}.'" />'."\n".  
                   '<input type="hidden" name="cdomelement" value="'.                    '<input type="hidden" name="cdomelement" value="'.
                   $env{'form.cdomelement'}.'" />'."\n");                    $env{'form.cdomelement'}.'" />'."\n");
           if ($env{'form.typeelement'} ne '') {
               $r->print('<input type="hidden" name="typeelement" value="'.
                         $env{'form.typeelement'}.'" />'."\n");
   
           }
     }      }
     if ((exists($env{'form.fixeddom'})) && ($env{'form.form'} eq 'rules')) {      if ((exists($env{'form.fixeddom'})) && ($env{'form.form'} eq 'rules')) {
         $r->print('<input type="hidden" name="fixeddom" value="'.          $r->print('<input type="hidden" name="fixeddom" value="'.
Line 502  sub multiples_tag { Line 523  sub multiples_tag {
   
 sub build_filters {  sub build_filters {
     my ($filterlist,$type,$roleelement,$multelement,$filter,$action,      my ($filterlist,$type,$roleelement,$multelement,$filter,$action,
         $numtitlesref,$caller,$cloneruname,$clonerudom) = @_;          $numtitlesref,$caller,$cloneruname,$clonerudom,$typeelement) = @_;
     my ($list,$formname,$fixeddom,$codedom,$jscript);      my ($list,$formname,$fixeddom,$codedom,$jscript);
     $codedom = $env{'request.role.domain'};      $codedom = $env{'request.role.domain'};
     if (defined($env{'form.form'})) {      if (defined($env{'form.form'})) {
Line 581  sub build_filters { Line 602  sub build_filters {
     $filter->{'sincefilter'} = $env{'form.sincefilter'};      $filter->{'sincefilter'} = $env{'form.sincefilter'};
     $filter->{'sincefilter'} =~ s/[^\d-]//g;      $filter->{'sincefilter'} =~ s/[^\d-]//g;
     if (!$filter->{'sincefilter'}) { $filter->{'sincefilter'}=-1; }      if (!$filter->{'sincefilter'}) { $filter->{'sincefilter'}=-1; }
     $sincefilterform=&Apache::loncommon::select_form($filter->{'sincefilter'},      $sincefilterform=&Apache::loncommon::select_form(
        'sincefilter',('-1'=>'',          $filter->{'sincefilter'},
                       '86400' => 'today',          'sincefilter',
                       '604800' => 'last week',          (      '-1' => '',
                       '2592000' => 'last month',              '86400' => &mt('today'),
                       '7776000' => 'last three months',             '604800' => &mt('last week'),
                       '15552000' => 'last six months',            '2592000' => &mt('last month'),
                       '31104000' => 'last year',            '7776000' => &mt('last three months'),
                       'select_form_order' =>           '15552000' => &mt('last six months'),
                       ['-1','86400','604800','2592000','7776000',           '31104000' => &mt('last year'),
                       '15552000','31104000']));           'select_form_order' =>
               ['-1','86400','604800','2592000','7776000',
     my %lt = (               '15552000','31104000']));
               'cac' => &mt("$type Activity"),  
               'cde' => &mt("$type Title"),      my %lt = &Apache::lonlocal::texthash(
               'cdo' => &mt("$type Domain"),                  'cac' => "$type Activity",
               'ins' => &mt('Institutional Code'),                  'cde' => "$type Title",
               'inc' => &mt('Institutional Categorization'),                  'cdo' => "$type Domain",
               'cow' => &mt("$type Owner/Co-owner"),                  'ins' => 'Institutional Code',
               'cop' => &mt("$type Personnel Includes"),                  'inc' => 'Institutional Categorization',
               'cog' => &mt('Type')                  'cow' => "$type Owner/Co-owner",
                   'cop' => "$type Personnel Includes",
                   'cog' => 'Type',
              );               );
   
     if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {      if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {
Line 685  sub build_filters { Line 708  sub build_filters {
 $name_input  $name_input
 $roleelement  $roleelement
 $multelement  $multelement
   $typeelement
 |;  |;
         if ($formname eq 'portform') {          if ($formname eq 'portform') {
             $output .= '<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />'."\n";              $output .= '<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />'."\n";
Line 751  $multelement Line 775  $multelement
                   .&Apache::lonhtmlcommon::row_closure(1);                    .&Apache::lonhtmlcommon::row_closure(1);
     }      }
     $output .= &Apache::lonhtmlcommon::end_pick_box().'<p>';      $output .= &Apache::lonhtmlcommon::end_pick_box().'<p>';
     my $warning;      my ($coord_cloneable,$warning);
     if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {      if (($env{'form.form'} eq 'ccrs') || ($env{'form.form'} eq 'requestcrs')) {
         my $cloneruhome=&Apache::lonnet::homeserver($cloneruname,$clonerudom);          ($coord_cloneable,$warning) = 
         my $cc_clone;              &get_coordinator_cloneable($cloneruname,$clonerudom,$type);
         if ($cloneruhome eq 'no_host') {          if ($env{'form.form'} eq 'ccrs') {
             $warning = '<div class="LC_error">'.&mt('Intended course owner does not exist').              $output .= '<input type="hidden" name="cloner" value="'.$env{'form.cloner'}.'" />'."\n";
                        '</div>';  
         } else {  
             my $ccrole;  
             if ($type eq 'Community') {  
                 $ccrole = 'co';  
             } elsif ($type eq 'Course') {  
                 $ccrole = 'cc';  
             }  
             if ($env{'form.form'} eq 'ccrs') {  
                 $output .= '<input type="hidden" name="cloner" value="'.$env{'form.cloner'}.'" />'."\n";  
             }  
             my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom,  
                                                         'userroles',['active'], [$ccrole]);  
             foreach my $key (sort(keys(%ccroles))) {  
                 my ($cnum,$cdom,$role) = split(':',$key);  
                 $cc_clone .= $cdom.':'.$cnum.'&';  
             }  
             $cc_clone =~ s/\&$//;  
         }          }
         if ($cc_clone ne '') {          if ($coord_cloneable) {
             $output .= '<input type="hidden" name="cc_clone" value="'.$cc_clone.'" />';              $output .= '<input type="hidden" name="cc_clone" value="'.$coord_cloneable.'" />';
         }          }
     }      }
     $output .= '<input type="hidden" name="updater" value="">'."\n".      $output .= '<input type="hidden" name="updater" value="">'."\n".
Line 786  $multelement Line 792  $multelement
     return $jscript.$warning.$output;      return $jscript.$warning.$output;
 }  }
   
   sub get_coordinator_cloneable {
       my ($cloneruname,$clonerudom,$type) = @_;
       if (&Apache::lonnet::homeserver($cloneruname,$clonerudom) eq 'no_host') {
           my $warning = '<div class="LC_error">'.&mt('Intended course owner does not exist').
                      '</div>';
           return ('',$warning);
       } else {
           my ($cc_clone,$ccrole);
           if ($type eq 'Community') {
               $ccrole = 'co';
           } elsif ($type eq 'Course') {
               $ccrole = 'cc';
           }
           my %ccroles = &Apache::lonnet::get_my_roles($cloneruname,$clonerudom,
                                                       'userroles',['active'], [$ccrole]);
           foreach my $key (sort(keys(%ccroles))) {
               my ($cnum,$cdom,$role) = split(':',$key);
               $cc_clone .= $cdom.':'.$cnum.'&';
           }
           $cc_clone =~ s/\&$//;
           return ($cc_clone);
       }
   }
   
 sub instcode_selectors {  sub instcode_selectors {
     my ($codedom,$formname,$officialjs) = @_;      my ($codedom,$formname,$officialjs) = @_;
     my ($output,@codetitles,%cat_titles,%cat_order,%cat_items);      my ($output,@codetitles,%cat_titles,%cat_order,%cat_items);
Line 981  function gochoose(cname,cdom,cdesc) { Line 1011  function gochoose(cname,cdom,cdesc) {
     }      }
 ENDSCRIPT  ENDSCRIPT
     } else {      } else {
         my $name_code;          my ($name_code,$type_code);
         if ($env{'form.cnameelement'} ne '') {          if ($env{'form.cnameelement'} ne '') {
             $name_code = 'opener.document.'.$env{'form.form'}.'.'.              $name_code = 'opener.document.'.$env{'form.form'}.'.'.
                           $env{'form.cnameelement'}.'.value=cdesc;';                            $env{'form.cnameelement'}.'.value=cdesc;';
         }          }
           if ($env{'form.typeelement'} ne '') {
               $type_code = 'opener.document.'.$env{'form.form'}.'.'.
                             $env{'form.typeelement'}.'.value=document.courselist.type;';
           }
   
         $output .= qq|          $output .= qq|
         $name_code          $name_code
           $type_code
         opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;          opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;
         var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};          var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};
         if (slct.options == undefined) {          if (slct.options == undefined) {
Line 1129  Side Effects: None Line 1165  Side Effects: None
   
 =item *  =item *
 X<build_filters()>  X<build_filters()>
 B<build_filters($filterlist,$type,$roleelement,$multelement,$filter,$action,$numfiltersref,$caller,$cloneruname,$clonerudom)>:  B<build_filters($filterlist,$type,$roleelement,$multelement,$filter,$action,$numfiltersref,$caller,$cloneruname,$clonerudom,$typeelem)>:
   
   
 Input: 7 - anonymous array of search criteria; course type; $roleelement ; $multelement ; anonymous hash of criteria and their values; form action; ref to scalar (count of number of elements in institutional codes -- e.g., 4 for year, semester, department, and number); caller context (e.g., set to 'modifycourse' when routine is called from lonmodifycourse.pm).  Input: 11 - anonymous array of search criteria; course type; $roleelement ; $multelement ; anonymous hash of criteria and their values; form action; ref to scalar (count of number of elements in institutional codes -- e.g., 4 for year, semester, department, and number); caller context (e.g., set to 'modifycourse' when routine is called from lonmodifycourse.pm), username and domain of new course owner who wants to clone, $tyepelem 
   
 Output: 1 - $output - HTML for display of search criteria, and hidden form elements.   Output: 1 - $output - HTML for display of search criteria, and hidden form elements. 
   
Removed from v.1.89  
changed lines
  Added in v.1.92

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