--- loncom/interface/lonpickcourse.pm 2009/11/03 14:32:44 1.89
+++ loncom/interface/lonpickcourse.pm 2010/02/21 15:09:36 1.92
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.89 2009/11/03 14:32:44 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.92 2010/02/21 15:09:36 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,7 +51,7 @@ sub handler {
($ENV{'QUERY_STRING'},['domainfilter','form','cnumelement',
'cdomelement','cnameelement','roleelement',
'multiple','type','setroles','fixeddom','cloner']);
- my ($type,$title,$jscript,$multelement,$multiple,$roleelement,
+ my ($type,$title,$jscript,$multelement,$multiple,$roleelement,$typeelement,
$lastaction,$autosubmit,$submitopener,$cloneruname,$clonerudom);
# Get course type - Course or Community.
@@ -75,8 +75,11 @@ sub handler {
$submitopener = &processpick();
$autosubmit = 'process_pick("'.$roledom.'")';
}
+ if ($env{'form.typeelement'} ne '') {
+ $typeelement = '';
+ }
- # if called when a DC is creating a course
+ # if called when a DC is creating a course for another user.
if ($env{'form.form'} eq 'ccrs') {
($cloneruname,$clonerudom) = ($env{'form.cloner'} =~ /^($match_username):($match_domain)$/);
}
@@ -165,7 +168,7 @@ sub handler {
$r->print(&build_filters($filterlist,$type,$roleelement,$multelement,
$filter,$action,\$numtitles,undef,$cloneruname,
- $clonerudom));
+ $clonerudom,$typeelement));
}
# ---------------------------------------------------------------- Get the data
@@ -306,8 +309,8 @@ sub display_matched_courses {
my $ccrolechk = ' checked="checked" ';
my $menuchk = ' ';
if ($env{'form.prevphase'} ne '') {
- $ccrolechk = ' ';
- $menuchk = ' checked="checked" ';
+ $ccrolechk = ' ';
+ $menuchk = ' checked="checked" ';
}
$r->print(
'