--- loncom/interface/lonpickcourse.pm 2005/11/15 20:46:40 1.35
+++ loncom/interface/lonpickcourse.pm 2006/01/10 21:36:45 1.37
@@ -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.37 2006/01/10 21:36:45 albertel 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|:
|;
}
@@ -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(<print(''."\n".
''."\n".
''."\n".
- ''."\n".
- '');
+ ''."\n");
+ if ((exists($env{'form.roleelement'})) && ($env{'form.form'} eq 'rolechoice')) {
+ $r->print(''."\n");
+ }
+ $r->print("\n");
}
$r->print('