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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.4 and 1.7

version 1.4, 2009/08/05 23:44:52 version 1.7, 2009/08/06 20:40:59
Line 115  sub handler { Line 115  sub handler {
     my %trail = (      my %trail = (
                  crstype  => 'Course Request Action',                   crstype  => 'Course Request Action',
                  codepick => 'Category',                   codepick => 'Category',
                  courseinfo => 'Information',                   courseinfo => 'Description',
                  enrollment => 'Enrollment',                   enrollment => 'Enrollment',
                  personnel => 'Personnel',                   personnel => 'Personnel',
                  review => 'Review',                   review => 'Review',
Line 190  sub handler { Line 190  sub handler {
 sub header {  sub header {
     my ($bodytitle,$jscript,$loaditems,$jsextra) = @_;      my ($bodytitle,$jscript,$loaditems,$jsextra) = @_;
     if ($jscript) {      if ($jscript) {
         $jscript = '<script type="text/javascript">'.          $jscript = '<script type="text/javascript">'."\n".
                    $jscript.'</script>'."\n";                     '// <![CDATA['."\n".
                      $jscript."\n".'// ]]>'."\n".'</script>'."\n";
     }      }
     if ($loaditems) {      if ($loaditems) {
         $loaditems = {'add_entries' => $loaditems,};          $loaditems = {'add_entries' => $loaditems,};
Line 857  sub print_personnel_menu { Line 858  sub print_personnel_menu {
     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,$userlinktxt);          my $userlink = &Apache::loncommon::selectuser_link($formname,@linkargs,$dom,$userlinktxt);
         my $uname_form = '<input type="text" name="person_'.$i.'_uname" value=""'.          my $uname_form = '<input type="text" name="person_'.$i.'_uname" value=""'.
                          ' onFocus="this.blur();'.                           ' onFocus="this.blur();'.
                          'openuserbrowser('."'$formname','$linkargstr'".');" />';                           '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'".');'.
                        'openuserbrowser('."'$formname','$linkargstr'".');';                         '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="'.$dom.'" />';
Line 968  sub print_review { Line 969  sub print_review {
                              '<td>'.$autoroster[$env{'form.autodrops'}].'</td>'.                               '<td>'.$autoroster[$env{'form.autodrops'}].'</td>'.
                              '<td>'.&Apache::lonlocal::locallocaltime($startenroll).'</td>'.                               '<td>'.&Apache::lonlocal::locallocaltime($startenroll).'</td>'.
                              '<td>'.&Apache::lonlocal::locallocaltime($endenroll).'</td>';                               '<td>'.&Apache::lonlocal::locallocaltime($endenroll).'</td>';
             $section_values = '<td>';              $section_values = '<td><table class="LC_innerpickbox"><tr><th>'.
                                 &mt('Institutional section').'</th>'.
                                 '<th>'.&mt('LON-CAPA section').'</th></tr>';
               my $secinfo;
             if ($env{'form.sectotal'} > 0) {              if ($env{'form.sectotal'} > 0) {
                 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}) {
                         $section_values .= $env{'form.secnum_'.$i};                          $secinfo .= '<tr><td>'.$env{'form.secnum_'.$i}.'</td><td>';
                         if ($env{'form.loncapasec_'.$i} ne '') {                          if ($env{'form.loncapasec_'.$i} ne '') {
                             $section_values .= ' => '.$env{'form.loncapasec_'.$i};                              $secinfo .= $env{'form.loncapasec_'.$i};
                           } else {
                               $secinfo .= &mt('None');
                         }                          }
                         $section_values .= '<br />';                          $secinfo .= '</td></tr>';
                     }                      }
                 }                  }
             }              }
             $section_values .= '</td><td>';              if ($secinfo eq '') {
                   $secinfo = '<tr><td colspan="2">'.&mt('None').'</td></tr>';
               }
               $section_values .= $secinfo.'</table></td><td>'.
                                  '<table class="LC_innerpickbox"><tr><th>'.
                                  &mt('Institutional course/section').'</th>'.
                                  '<th>'.&mt('LON-CAPA section').'</th></tr>';
               my $xlistinfo;
             if ($env{'form.crosslisttotal'}) {              if ($env{'form.crosslisttotal'}) {
                 for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {                  for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
                     if ($env{'form.crosslist_'.$i}) {                      if ($env{'form.crosslist_'.$i}) {
                         if (ref($codetitles) eq 'ARRAY') {                          $xlistinfo .= '<tr><td>';
                             if (@{$codetitles} > 0) {                          if (ref($code_order) eq 'ARRAY') {
                                 foreach my $item (@{$codetitles}) {                              if (@{$code_order} > 0) {
                                     $section_values .= $env{'form.crosslist_'.$i.'_'.$item};                                  foreach my $item (@{$code_order}) {
                                       $xlistinfo .= $env{'form.crosslist_'.$i.'_'.$item};
                                 }                                  }
                             } else {  
                                 $section_values .= $env{'form.crosslist_'.$i.'_instsec'};  
                             }                              }
                         } else {  
                             $section_values .= $env{'form.crosslist_'.$i.'_instsec'};  
                         }                          }
                           $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'}.'</td><td>';
                         if ($env{'form.crosslist_'.$i.'_lcsec'}) {                          if ($env{'form.crosslist_'.$i.'_lcsec'}) {
                             $section_values .= ' => '.$env{'form.crosslist_'.$i.'_lcsec'};                                                          $xlistinfo .= $env{'form.crosslist_'.$i.'_lcsec'};
                           } else {
                               $xlistinfo .= &mt('None');
                         }                          }
                         $section_values .= '<br />';                          $xlistinfo .= '</td></tr>';
                     }                      }
                 }                  }
             }              }
             $section_values .= '</td>';              if ($xlistinfo eq '') {
                   $xlistinfo = '<tr><td colspan="2">'.&mt('None').'</td></tr>';
               }
               $section_values .= $xlistinfo.'</table></td>';
         }          }
     }      }
   
Line 1076  sub print_review { Line 1092  sub print_review {
     my $output =  '<p>'.&mt('Review the details of the course request before submission.').'</p>'.        my $output =  '<p>'.&mt('Review the details of the course request before submission.').'</p>'.  
                   '<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">'.                    '<table class="LC_innerpickbox"><tr>'.
                   '<th>'.&mt('Name').'</th>'.                    '<th>'.&mt('Name').'</th>'.
                   '<th>'.&mt('Username:Domain').'</th>'.                    '<th>'.&mt('Username:Domain').'</th>'.
                   '<th>'.&mt('E-mail address').'</th>'.                    '<th>'.&mt('E-mail address').'</th>'.
Line 1085  sub print_review { Line 1101  sub print_review {
                   '<td>'.$owneremail.'</td>'.                    '<td>'.$owneremail.'</td>'.
                   '</tr></table>'."\n".                    '</tr></table>'."\n".
                   &Apache::lonhtmlcommon::row_closure().                    &Apache::lonhtmlcommon::row_closure().
                   &Apache::lonhtmlcommon::row_title(&mt('Information')).                    &Apache::lonhtmlcommon::row_title(&mt('Description')).
                   '<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().
Removed from v.1.4  
changed lines
  Added in v.1.7

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