|
version 1.871, 2009/07/27 22:35:12
|
version 1.872, 2009/07/31 02:13:05
|
|
Line 529 sub coursebrowser_javascript {
|
Line 529 sub coursebrowser_javascript {
|
| } |
} |
| } |
} |
| } |
} |
| |
if (formname == 'ccrs') { |
| |
var ownername = document.forms[formid].ccuname.value; |
| |
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value; |
| |
url += '&cloner='+ownername+':'+ownerdom; |
| |
} |
| if (multflag !=null && multflag != '') { |
if (multflag !=null && multflag != '') { |
| url += '&multiple='+multflag; |
url += '&multiple='+multflag; |
| } |
} |
|
Line 1802 selected");
|
Line 1807 selected");
|
| |
|
| If the $showdomdesc flag is set, the domain name is followed by the domain description. |
If the $showdomdesc flag is set, the domain name is followed by the domain description. |
| |
|
| If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action. |
The optional $onchange argumnet specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted. |
| |
|
| =cut |
=cut |
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| sub select_dom_form { |
sub select_dom_form { |
| my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_; |
my ($defdom,$name,$includeempty,$showdomdesc,$onchange) = @_; |
| my $onchange; |
if ($onchange) { |
| if ($autosubmit) { |
' onchange="'.$onchange.'"; |
| $onchange = ' onchange="this.form.submit()"'; |
|
| } |
} |
| my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains()); |
| if ($includeempty) { @domains=('',@domains); } |
if ($includeempty) { @domains=('',@domains); } |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface