--- loncom/interface/lonpickcourse.pm 2016/10/05 13:59:46 1.119 +++ loncom/interface/lonpickcourse.pm 2016/10/19 13:14:05 1.120 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.119 2016/10/05 13:59:46 raeburn Exp $ +# $Id: lonpickcourse.pm,v 1.120 2016/10/19 13:14:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,12 +69,12 @@ sub handler { $title = 'Selecting '.$type.'(s)'; } - # if called when a DC is selecting a course - my $roledom = $env{'form.roleelement'}; + # if called when a DC or DH is selecting a course + my ($roledom,$rolename) = split(/:/,$env{'form.roleelement'}); if ($roledom) { - $roleelement = ''; + $roleelement = ''; $submitopener = &processpick(); - $autosubmit = 'process_pick("'.$roledom.'")'; + $autosubmit = 'process_pick("'.$roledom.'","'.$rolename.'")'; } if ($env{'form.typeelement'} ne '') { $typeelement = ''; @@ -288,7 +288,7 @@ sub processpick { } my $process_pick = <<"ENDONE";