[LON-CAPA-cvs] cvs: loncom /interface lonhtmlcommon.pm

Wed, 19 Feb 2003 20:13:45 -0000

matthew		Wed Feb 19 15:13:45 2003 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  Added POD for &MultipleSectionSelect and &Title.
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.11 loncom/interface/lonhtmlcommon.pm:1.12

--- loncom/interface/lonhtmlcommon.pm:1.11	Tue Jan 14 17:01:56 2003
+++ loncom/interface/lonhtmlcommon.pm	Wed Feb 19 15:13:45 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.11 2003/01/14 22:01:56 minaeibi Exp $
+# $Id: lonhtmlcommon.pm,v 1.12 2003/02/19 20:13:45 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -438,6 +438,35 @@
     $Str .= '</select>'."\n";
 }
 
+
+########################################################
+########################################################
+
+=pod
+
+=item &MultipleSectionSelect()
+
+Inputs: 
+
+=over 4
+
+=item $sections A references to an array containing the names of all the
+sections used in a class.
+
+=item $selectedSections A reference to an array containing the names of the
+currently selected sections.
+
+=back 
+
+Returns: a string containing HTML for a multiple select box for
+selecting sections of a course.  
+
+The form element name is 'Section'.  @$sections is sorted prior to output.
+
+=cut
+
+########################################################
+########################################################
 sub MultipleSectionSelect {
     my ($sections,$selectedSections)=@_;
 
@@ -454,10 +483,29 @@
         $Str .= '>'.$_.'</option>'."\n";
     }
     $Str .= '</select>'."\n";
-
+    
     return $Str;
 }
 
+########################################################
+########################################################
+
+=pod
+
+=item &Title()
+
+Inputs: $pageName a string containing the name of the page to be sent
+to &Apache::loncommon::bodytag.
+
+Returns: string containing being <html> and complete <head> and <title>
+as well as a <script> to focus the current window and change its width
+and height to 500.  Why?  I do not know.  If you find out, please update
+this documentation.
+
+=cut
+
+########################################################
+########################################################
 sub Title {
     my ($pageName)=@_;
 
@@ -471,6 +519,9 @@
     return $Str;
 }
 
+########################################################
+########################################################
+
 =pod
 
 =item &CreateTableHeadings()
@@ -498,6 +549,8 @@
 
 =cut
 
+########################################################
+########################################################
 sub CreateHeadings {
     my ($data,$keyID,$headings,$displayString,$format)=@_;
     my $Str='';
@@ -524,6 +577,9 @@
     return $Str;
 }
 
+########################################################
+########################################################
+
 =pod
 
 =item &FormatStudentInformation()
@@ -553,6 +609,8 @@
 
 =cut
 
+########################################################
+########################################################
 sub FormatStudentInformation {
     my ($data,$name,$keyID,$displayString,$format)=@_;
     my $Str='';
@@ -576,6 +634,9 @@
 
     return $Str;
 }
+
+########################################################
+########################################################
 
 # Create progress
 sub Create_PrgWin {



