--- loncom/interface/lonrequestcourse.pm 2009/08/05 23:44:52 1.4 +++ loncom/interface/lonrequestcourse.pm 2009/08/06 20:40:59 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.4 2009/08/05 23:44:52 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.7 2009/08/06 20:40:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -115,7 +115,7 @@ sub handler { my %trail = ( crstype => 'Course Request Action', codepick => 'Category', - courseinfo => 'Information', + courseinfo => 'Description', enrollment => 'Enrollment', personnel => 'Personnel', review => 'Review', @@ -190,8 +190,9 @@ sub handler { sub header { my ($bodytitle,$jscript,$loaditems,$jsextra) = @_; if ($jscript) { - $jscript = ''."\n"; + $jscript = ''."\n"; } if ($loaditems) { $loaditems = {'add_entries' => $loaditems,}; @@ -857,13 +858,13 @@ sub print_personnel_menu { for (my $i=0; $i<$persontotal; $i++) { my @linkargs = map { 'person_'.$i.'_'.$_ } (@items); 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 = ''; + 'openuserbrowser('."'$formname','$linkargstr','$dom'".');" />'; my $onchange = 'javascript:fix_domain('."'$formname','person_".$i."_dom',". "'person_".$i."_hidedom'".');'. - 'openuserbrowser('."'$formname','$linkargstr'".');'; + 'openuserbrowser('."'$formname','$linkargstr','$dom'".');'; my $udom_form = &Apache::loncommon::select_dom_form($dom,'person_'.$i.'_dom','', 1,$onchange). ''; @@ -968,41 +969,56 @@ sub print_review { ''.$autoroster[$env{'form.autodrops'}].''. ''.&Apache::lonlocal::locallocaltime($startenroll).''. ''.&Apache::lonlocal::locallocaltime($endenroll).''; - $section_values = ''; + $section_values = ''. + ''; + my $secinfo; if ($env{'form.sectotal'} > 0) { for (my $i=0; $i<$env{'form.sectotal'}; $i++) { if ($env{'form.sec_'.$i}) { - $section_values .= $env{'form.secnum_'.$i}; + $secinfo .= ''; } } } - $section_values .= ''; + } + $section_values .= $secinfo.'
'. + &mt('Institutional section').''.&mt('LON-CAPA section').'
'.$env{'form.secnum_'.$i}.''; if ($env{'form.loncapasec_'.$i} ne '') { - $section_values .= ' => '.$env{'form.loncapasec_'.$i}; + $secinfo .= $env{'form.loncapasec_'.$i}; + } else { + $secinfo .= &mt('None'); } - $section_values .= '
'; + $secinfo .= '
'; + if ($secinfo eq '') { + $secinfo = '
'.&mt('None').'
'. + ''. + ''; + my $xlistinfo; if ($env{'form.crosslisttotal'}) { for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) { if ($env{'form.crosslist_'.$i}) { - if (ref($codetitles) eq 'ARRAY') { - if (@{$codetitles} > 0) { - foreach my $item (@{$codetitles}) { - $section_values .= $env{'form.crosslist_'.$i.'_'.$item}; + $xlistinfo .= ''; } } } - $section_values .= ''; + if ($xlistinfo eq '') { + $xlistinfo = ''; + } + $section_values .= $xlistinfo.'
'. + &mt('Institutional course/section').''.&mt('LON-CAPA section').'
'; + if (ref($code_order) eq 'ARRAY') { + if (@{$code_order} > 0) { + 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'}.''; 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 .= '
'; + $xlistinfo .= '
'.&mt('None').'
'; } } @@ -1076,7 +1092,7 @@ sub print_review { my $output = '

'.&mt('Review the details of the course request before submission.').'

'. '
'.&Apache::lonhtmlcommon::start_pick_box(). &Apache::lonhtmlcommon::row_title(&mt('Owner')). - ''. + '
'. ''. ''. ''. @@ -1085,7 +1101,7 @@ sub print_review { ''. '
'.&mt('Name').''.&mt('Username:Domain').''.&mt('E-mail address').''.$owneremail.'
'."\n". &Apache::lonhtmlcommon::row_closure(). - &Apache::lonhtmlcommon::row_title(&mt('Information')). + &Apache::lonhtmlcommon::row_title(&mt('Description')). ''.$inst_headers.''."\n". ''.$inst_values.'
'."\n". &Apache::lonhtmlcommon::row_closure().