--- loncom/interface/lonhtmlcommon.pm 2002/08/13 00:37:18 1.7
+++ loncom/interface/lonhtmlcommon.pm 2003/06/19 15:02:37 1.25
@@ -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.25 2003/06/19 15:02:37 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,109 +25,335 @@
#
# http://www.lon-capa.org/
#
+######################################################################
+######################################################################
+
+=pod
+
+=head1 NAME
+
+Apache::lonhtmlcommon - routines to do common html things
+
+=head1 SYNOPSIS
+
+Referenced by other mod_perl Apache modules.
+
+=head1 INTRODUCTION
+
+lonhtmlcommon is a collection of subroutines used to present information
+in a consistent html format, or provide other functionality related to
+html.
+
+=head2 General Subroutines
+
+=over 4
+
+=cut
+
+######################################################################
+######################################################################
package Apache::lonhtmlcommon;
+use Time::Local;
use strict;
-sub AscendOrderOptions {
- my ($order, $page, $formName)=@_;
+##############################################
+##############################################
- my $OpSel1 = '';
- my $OpSel2 = '';
+=pod
- if($order eq 'Ascending') {
- $OpSel1 = ' selected';
- } else {
- $OpSel2 = ' selected';
- }
+=item &date_setter
- my $Str = '';
- $Str .= ''."\n";
+&date_setter returns html and javascript for a compact date-setting form.
+To retrieve values from it, use &get_date_from_form().
- return $Str;
-}
+Inputs
-sub MapOptions {
- my ($data, $page, $formName)=@_;
- my $Str = '';
- $Str .= '