version 1.34, 2005/10/14 19:11:56
|
version 1.35, 2005/11/15 20:46:40
|
Line 55 ENDDOCUMENT
|
Line 55 ENDDOCUMENT
|
'sincefilter','form','cnumelement', |
'sincefilter','form','cnumelement', |
'cdomelement','cnameelement','roleelement', |
'cdomelement','cnameelement','roleelement', |
'pickedcourse','instcodefilter', |
'pickedcourse','instcodefilter', |
'ownerfilter','coursefilter']); |
'ownerfilter','coursefilter','multiple']); |
# domain filter and selection |
# domain filter and selection |
my $domainfilter=$env{'form.domainfilter'}; |
my $domainfilter=$env{'form.domainfilter'}; |
$domainfilter=~s/\W//g; |
$domainfilter=~s/\W//g; |
Line 115 ENDDOCUMENT
|
Line 115 ENDDOCUMENT
|
$seclist = join('","',@sections); |
$seclist = join('","',@sections); |
} |
} |
} |
} |
# if called from rolefilter, setup for multiple course selections. |
|
my $multflag = 0; |
|
my $jscript; |
my $jscript; |
my $title = 'Selecting a course'; |
my $title = 'Selecting a course'; |
if ($env{'form.form'} eq 'rolefilter') { |
# Setup for multiple course selections, if flag for multiples set. |
$multflag = 1; |
my $multiple = $env{'form.multiple'}; |
|
my $multelement; |
|
if ($multiple) { |
$title = 'Selecting course(s)'; |
$title = 'Selecting course(s)'; |
} |
|
if ($multflag) { |
|
$jscript = &Apache::loncommon::check_uncheck_jscript(); |
$jscript = &Apache::loncommon::check_uncheck_jscript(); |
|
$multelement = '<input type="hidden" name="multiple" value="'.$multiple.'" />'; |
} |
} |
$r->print(&Apache::loncommon::bodytag($title,undef,$loaditem,undef,undef,undef,undef,1)); |
$r->print(&Apache::loncommon::bodytag($title,undef,$loaditem,undef,undef,undef,undef,1)); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
Line 155 ENDDOCUMENT
|
Line 154 ENDDOCUMENT
|
} |
} |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script> |
function gochoose(cname,cdom,cdesc,multflag,caller) { |
function gochoose(cname,cdom,cdesc,multiple,caller) { |
var openerForm = "$env{'form.form'}"; |
var openerForm = "$env{'form.form'}"; |
courseCount = 0; |
courseCount = 0; |
var courses = ''; |
var courses = ''; |
if (multflag) { |
if (multiple) { |
if (typeof(document.courselist.course_id.length) == 'undefined') { |
if (typeof(document.courselist.course_id.length) == 'undefined') { |
// only 1 course checkbox was created |
// only 1 course checkbox was created |
if (document.courselist.course_id.checked) { |
if (document.courselist.course_id.checked) { |
Line 198 function gochoose(cname,cdom,cdesc,multf
|
Line 197 function gochoose(cname,cdom,cdesc,multf
|
} else { |
} else { |
$name_code |
$name_code |
opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname; |
opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname; |
if (openerForm == 'cu') { |
var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'}; |
|
if (slct.options == undefined) { |
opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom; |
opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom; |
} else { |
} |
var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'}; |
else { |
var i; |
var i; |
for (i=0;i<slct.length;i++) { |
for (i=0;i<slct.length;i++) { |
if (slct.options[i].value==cdom) { slct.selectedIndex=i; } |
if (slct.options[i].value==cdom) { slct.selectedIndex=i; } |
Line 252 $submitopener
|
Line 252 $submitopener
|
$name_input |
$name_input |
<input type="hidden" name="form" value="$env{'form.form'}" /> |
<input type="hidden" name="form" value="$env{'form.form'}" /> |
$roleelement |
$roleelement |
|
$multelement |
$lt{'cac'}: $sincefilterform |
$lt{'cac'}: $sincefilterform |
<br /> |
<br /> |
$lt{'cdo'}: $domainselectform |
$lt{'cdo'}: $domainselectform |
Line 294 ENDSCRIPT
|
Line 295 ENDSCRIPT
|
my $description = lc($descr); |
my $description = lc($descr); |
push (@{$by_descrip{$description}}, $course); |
push (@{$by_descrip{$description}}, $course); |
} |
} |
if ($numcourses > 1 && $multflag) { |
if ($numcourses > 1 && $multiple) { |
$r->print('<input type="button" value="check all" |
$r->print('<input type="button" value="check all" |
onclick="javascript:checkAll(document.courselist.course_id)" /> <input type="button" value="uncheck all" |
onclick="javascript:checkAll(document.courselist.course_id)" /> <input type="button" value="uncheck all" |
onclick="javascript:uncheckAll(document.courselist.course_id)" /> |
onclick="javascript:uncheckAll(document.courselist.course_id)" /> |
Line 306 ENDSCRIPT
|
Line 307 ENDSCRIPT
|
$cleandesc=~s/'/\\'/g; |
$cleandesc=~s/'/\\'/g; |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($cdom,$cnum)=split(/\_/,$course); |
my ($descr,$instcode,$owner) = split/:/,$courses{$course}; |
my ($descr,$instcode,$owner) = split/:/,$courses{$course}; |
$r->print(&course_chooser($multflag,$cdom,$cnum,$cleandesc)); |
$r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc)); |
$r->print($description.'('. |
$r->print($description.'('. |
($Apache::lonnet::domaindescription{$cdom}? |
($Apache::lonnet::domaindescription{$cdom}? |
$Apache::lonnet::domaindescription{$cdom}:$cdom).")"); |
$Apache::lonnet::domaindescription{$cdom}:$cdom).")"); |
Line 316 ENDSCRIPT
|
Line 317 ENDSCRIPT
|
unless ($owner eq '') { |
unless ($owner eq '') { |
$r->print(", owner - ".&Apache::lonnet::unescape($owner)); |
$r->print(", owner - ".&Apache::lonnet::unescape($owner)); |
} |
} |
if ($multflag) { $r->print("</label>\n"); } |
if ($multiple) { $r->print("</label>\n"); } |
$r->print("<br />\n"); |
$r->print("<br />\n"); |
} |
} |
} |
} |
if (!%courses) { |
if (!%courses) { |
$r->print(&mt('None found')); |
$r->print(&mt('None found')); |
} elsif ($multflag) { |
} elsif ($multiple) { |
$r->print('<input type="button" value="Submit" onClick="gochoose('."'','','',1)".'" />'); |
$r->print('<input type="button" value="Submit" onClick="gochoose('."'','','',1)".'" />'); |
} |
} |
$r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n". |
$r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n". |
Line 336 ENDSCRIPT
|
Line 337 ENDSCRIPT
|
} |
} |
|
|
sub course_chooser { |
sub course_chooser { |
my ($multflag,$cdom,$cnum,$cleandesc) = @_; |
my ($multiple,$cdom,$cnum,$cleandesc) = @_; |
my $output; |
my $output; |
if ($multflag) { |
if ($multiple) { |
$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n"; |
$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n"; |
} else { |
} else { |
$output = '<input type="button" value="Select" onClick="gochoose('. |
$output = '<input type="button" value="Select" onClick="gochoose('. |