--- loncom/interface/lonpickcourse.pm 2005/11/15 20:46:40 1.35
+++ loncom/interface/lonpickcourse.pm 2006/02/01 22:46:09 1.38
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.35 2005/11/15 20:46:40 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.38 2006/02/01 22:46:09 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -82,7 +82,7 @@ ENDDOCUMENT
unless ($coursefilter) { $coursefilter=''; }
my $listcourseid=&HTML::Entities::encode($coursefilter,'<>&"');
$courseidtag = &mt('LON-CAPA course ID');
- $courseidtag .= qq|
+ $courseidtag .= qq|:
|;
}
@@ -131,7 +131,7 @@ ENDDOCUMENT
'cde' => 'Course Description',
'cdo' => 'Course Domain',
'cin' => 'Course Institutional Code',
- 'cow' => "Course Owner's usename");
+ 'cow' => "Course Owner's Username");
my ($name_code,$name_input);
if (defined($env{'form.cnameelement'}) && $env{'form.cnameelement'} ne '') {
$name_code = "opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=cdesc;";
@@ -149,7 +149,7 @@ ENDDOCUMENT
my $roledom = $env{'form.roleelement'};
if ($roledom) {
$roleelement = '';
- $submitopener = &Apache::lonroles::processpick($roledom);
+ $submitopener = &Apache::lonroles::processpick();
$autosubmit = 'process_pick("'.$roledom.'")';
}
$r->print(< 1 && $multiple) {
@@ -329,8 +329,11 @@ ENDSCRIPT
$r->print(''."\n".
''."\n".
''."\n".
- ''."\n".
- '');
+ ''."\n");
+ if ((exists($env{'form.roleelement'})) && ($env{'form.form'} eq 'rolechoice')) {
+ $r->print(''."\n");
+ }
+ $r->print("\n");
}
$r->print('