version 1.17, 2004/06/29 14:56:32
|
version 1.18, 2004/11/12 23:29:56
|
Line 52 ENDDOCUMENT
|
Line 52 ENDDOCUMENT
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', |
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', |
'sincefilter','form','cnumelement', |
'sincefilter','form','cnumelement', |
'cdomelement','cnameelement']); |
'cdomelement','cnameelement','roleelement']); |
# 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 90 ENDDOCUMENT
|
Line 90 ENDDOCUMENT
|
$name_input ='<input type="hidden" name="cnameelement" value="'. |
$name_input ='<input type="hidden" name="cnameelement" value="'. |
$ENV{'form.cnameelement'}.'" />'; |
$ENV{'form.cnameelement'}.'" />'; |
} |
} |
|
my $submitopener = ''; |
|
my $autosubmit = ''; |
|
my $roleelement = ''; |
|
my $roledom = $ENV{'form.roleelement'}; |
|
if ($roledom) { |
|
$roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />'; |
|
$submitopener = &Apache::lonroles::processpick($roledom); |
|
$autosubmit = 'process_pick("'.$roledom.'")'; |
|
} |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script> |
function gochoose(cname,cdom,cdesc) { |
function gochoose(cname,cdom,cdesc) { |
Line 100 function gochoose(cname,cdom,cdesc) {
|
Line 109 function gochoose(cname,cdom,cdesc) {
|
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; } |
} |
} |
|
$autosubmit |
self.close(); |
self.close(); |
} |
} |
</script> |
</script> |
|
$submitopener |
<form method="post"> |
<form method="post"> |
<input type="hidden" name="cnumelement" value="$ENV{'form.cnumelement'}" /> |
<input type="hidden" name="cnumelement" value="$ENV{'form.cnumelement'}" /> |
<input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" /> |
<input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" /> |
$name_input |
$name_input |
<input type="hidden" name="form" value="$ENV{'form.form'}" /> |
<input type="hidden" name="form" value="$ENV{'form.form'}" /> |
|
$roleelement |
$lt{'cac'}: $sincefilterform |
$lt{'cac'}: $sincefilterform |
<br /> |
<br /> |
$lt{'cdo'}: $domainselectform |
$lt{'cdo'}: $domainselectform |
Line 155 ENDSCRIPT
|
Line 166 ENDSCRIPT
|
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |