|
version 1.54.2.3, 2010/08/11 13:24:21
|
version 1.55, 2010/08/10 17:16:05
|
|
Line 647 sub onload_action {
|
Line 647 sub onload_action {
|
| sub print_main_menu { |
sub print_main_menu { |
| my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; |
| my ($types,$typename) = &Apache::loncommon::course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
| my $onchange; |
my $onchange = 'this.form.submit()'; |
| unless ($env{'form.interface'} eq 'textual') { |
|
| $onchange = 'this.form.submit()'; |
|
| } |
|
| |
|
| my $nextstate_setter = "\n"; |
my $nextstate_setter = "\n"; |
| if (ref($states) eq 'HASH') { |
if (ref($states) eq 'HASH') { |
| foreach my $key (keys(%{$states})) { |
foreach my $key (keys(%{$states})) { |
|
Line 2538 sub print_review {
|
Line 2534 sub print_review {
|
| if (($env{'form.cloning'}) && |
if (($env{'form.cloning'}) && |
| ($env{'form.clonecrs'} =~ /^$match_name$/) && |
($env{'form.clonecrs'} =~ /^$match_name$/) && |
| ($env{'form.clonedom'} =~ /^$match_domain$/)) { |
($env{'form.clonedom'} =~ /^$match_domain$/)) { |
| my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname, |
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
| $udom,$env{'form.clonecrs'},$env{'form.clonedom'}, |
$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'}, |
| $env{'form.crstype'}); |
$env{'form.crstype'}); |
| if ($canclone) { |
if ($canclone) { |
| my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, |
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonrequestcourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface