--- loncom/interface/lonhtmlcommon.pm 2002/07/26 16:22:09 1.5
+++ 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.5 2002/07/26 16:22:09 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 .= '