--- loncom/interface/loncommon.pm 2016/11/08 23:51:11 1.1259 +++ loncom/interface/loncommon.pm 2016/11/20 21:24:29 1.1261 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1259 2016/11/08 23:51:11 raeburn Exp $ +# $Id: loncommon.pm,v 1.1261 2016/11/20 21:24:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -14829,6 +14829,9 @@ currcat - scalar with an & separated lis type - scalar contains course type (Course or Community). +disabled - scalar (optional) contains disabled="disabled" if input elements are + to be readonly (e.g., Domain Helpdesk role viewing course settings). + Returns: $output (markup to be displayed) =cut @@ -14917,6 +14920,9 @@ path - Array containing all categories b currcategories - reference to array of current categories assigned to the course +disabled - scalar (optional) contains disabled="disabled" if input elements are + to be readonly (e.g., Domain Helpdesk role viewing course settings). + Returns: $output (markup to be displayed). =cut @@ -15502,19 +15508,20 @@ sub construct_course { ' ('.$lt{'adby'}.')'; if ($context eq 'auto') { $outcome .= $badclass_msg.$linefeed; + } else { $outcome .= '
'.$badclass_msg.$linefeed.'

\n"; + $outcome .= "
  • $item
  • \n"; } + } + if ($context eq 'auto') { + $outcome .= $linefeed; + } else { + $outcome .= "

    \n"; } } if ($args->{'no_end_date'}) {