--- loncom/interface/lonhtmlcommon.pm 2002/07/25 21:23:51 1.4 +++ loncom/interface/lonhtmlcommon.pm 2002/08/13 00:37:18 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.4 2002/07/25 21:23:51 stredwic Exp $ +# $Id: lonhtmlcommon.pm,v 1.7 2002/08/13 00:37:18 stredwic Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,16 +30,45 @@ package Apache::lonhtmlcommon; use strict; +sub AscendOrderOptions { + my ($order, $page, $formName)=@_; + + my $OpSel1 = ''; + my $OpSel2 = ''; + + if($order eq 'Ascending') { + $OpSel1 = ' selected'; + } else { + $OpSel2 = ' selected'; + } + + my $Str = ''; + $Str .= ''."\n"; + + return $Str; +} + sub MapOptions { - my ($data, $page)=@_; + my ($data, $page, $formName)=@_; my $Str = ''; $Str .= ''."\n"; } +sub MultipleSectionSelect { + my ($sections,$selectedSections)=@_; + + my $Str = ''; + $Str .= ''."\n"; + + return $Str; +} + sub Title { my ($pageName)=@_; @@ -135,45 +184,6 @@ sub Title { $Str .= '
'."\n"; - $Str .= ' | Analysis Reports: | '."\n"; - $Str .= 'Student Status: | |
{'reportSelected'} eq $reports->{$_}) { - $Str .= ' selected=""'; - } - $Str .= '>'.$reports->{$_}.''."\n"; - } - $Str .= ' | '."\n"; - - $Str .= ''; - $Str .= &StatusOptions($status, 'Statistics'); - $Str .= ' | '."\n"; - - $Str .= '