--- loncom/interface/lonhtmlcommon.pm 2002/08/13 00:37:18 1.7 +++ loncom/interface/lonhtmlcommon.pm 2002/08/30 15:35:08 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.7 2002/08/13 00:37:18 stredwic Exp $ +# $Id: lonhtmlcommon.pm,v 1.9 2002/08/30 15:35:08 stredwic Exp $ # # Copyright Michigan State University Board of Trustees # @@ -85,6 +85,76 @@ sub MapOptions { return $Str; } +sub ProblemOptions { + my ($data, $page, $map, $formName)=@_; + my $Str = ''; + $Str .= '{'orderedSequences'})) { + if($data->{$sequence.':title'} eq $map || $map eq 'All Maps') { + foreach my $problem (split(':', $data->{$sequence.':problems'})) { + $Str .= '{$page.'ProblemSelect'} eq + $data->{$problem.':title'}) { + $Str .= ' selected'; + $selected = 1; + } + $Str .= '>'.$data->{$problem.':title'}.''."\n"; + } + } + } + $Str .= '{$page.'PartSelect'} eq $part) { + $Str .= ' selected'; + $selected = 1; + } + $Str .= '>'.$part.''."\n"; + } + $Str .= ''."\n"; - $Str .= ''."\n"; + $Str .= &Apache::loncommon::bodytag($pageName)."\n"; $Str .= ''."\n"; - $Str .= ''; - $Str .= ' Course: '; - $Str .= $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; - $Str .= ''."\n"; - $Str .= ''; - $Str .= ''."\n"; return $Str; }