--- loncom/homework/inputtags.pm	2008/11/16 02:46:25	1.248
+++ loncom/homework/inputtags.pm	2008/11/25 13:16:17	1.249
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.248 2008/11/16 02:46:25 raeburn Exp $
+# $Id: inputtags.pm,v 1.249 2008/11/25 13:16:17 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,6 +25,30 @@
 #
 # http://www.lon-capa.org/
 
+=pod
+
+=head1 NAME
+
+Apache::inputtags
+
+=head1 SYNOPSIS
+
+
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+
+=head1 NOTABLE SUBROUTINES
+
+=over
+
+=item 
+
+=back
+
+=cut
+
 package Apache::inputtags;
 use HTML::Entities();
 use strict;
@@ -38,41 +62,47 @@ BEGIN {
     &Apache::lonxml::register('Apache::inputtags',('hiddenline','textfield','textline'));
 }
 
-#   Initializes a set of global variables used during the parse of the problem.
-#
-#  @Apache::inputtags::input        - List of current input ids.
-#  @Apache::inputtags::inputlist    - List of all input ids seen this problem.
-#  @Apache::inputtags::response     - List of all current resopnse ids.
-#  @Apache::inputtags::responselist - List of all response ids seen this 
-#                                       problem.
-#  @Apache::inputtags::hint         - List of all hint ids.
-#  @Apache::inputtags::hintlist     - List of all hint ids seen this problem.
-#  @Apache::inputtags::previous     - List describing if specific responseds
-#                                       have been used
-#  @Apache::inputtags::previous_version - Submission responses were used in.
-#  $Apache::inputtags::part         - Current part id (valid only in 
-#                                       <problem>)
-#                                     0 if not in a part.
-#  @Apache::inputtags::partlist     - List of part ids seen in the current
-#                                       <problem>
-#  @Apache::inputtags::status       - List of problem  statuses. First 
-#                                     element is the status of the <problem>
-#                                     the remainder are for individual <part>s.
-#  %Apache::inputtags::params       - Hash of defined parameters for the
-#                                     current response.
-#  @Apache::inputtags::import       - List of all ids for <import> thes get
-#                                     join()ed and prepended.
-#  @Apache::inputtags::importlist   - List of all import ids seen.
-#  $Apache::inputtags::response_with_no_part
-#                                   - Flag set true if we have seen a response
-#                                     that is not inside a <part>
-#  %Apache::inputtags::answertxt    - <*response> tags store correct
-#                                     answer strings for display by <textline/>
-#                                     in this hash.
-#  %Apache::inputtags::submission_display
-#                                   - <*response> tags store improved display
-#                                     of submission strings for display by part
-#                                     end.
+=pod
+
+=item initialize_inputtags()
+
+Initializes a set of global variables used during the parse of the problem.
+
+@Apache::inputtags::input        - List of current input ids.
+@Apache::inputtags::inputlist    - List of all input ids seen this problem.
+@Apache::inputtags::response     - List of all current resopnse ids.
+@Apache::inputtags::responselist - List of all response ids seen this 
+                                     problem.
+@Apache::inputtags::hint         - List of all hint ids.
+@Apache::inputtags::hintlist     - List of all hint ids seen this problem.
+@Apache::inputtags::previous     - List describing if specific responseds
+                                     have been used
+@Apache::inputtags::previous_version - Submission responses were used in.
+$Apache::inputtags::part         - Current part id (valid only in 
+                                     <problem>)
+                                   0 if not in a part.
+@Apache::inputtags::partlist     - List of part ids seen in the current
+                                     <problem>
+@Apache::inputtags::status       - List of problem  statuses. First 
+                                   element is the status of the <problem>
+                                   the remainder are for individual <part>s.
+%Apache::inputtags::params       - Hash of defined parameters for the
+                                   current response.
+@Apache::inputtags::import       - List of all ids for <import> thes get
+                                   join()ed and prepended.
+@Apache::inputtags::importlist   - List of all import ids seen.
+$Apache::inputtags::response_with_no_part
+                                 - Flag set true if we have seen a response
+                                   that is not inside a <part>
+%Apache::inputtags::answertxt    - <*response> tags store correct
+                                   answer strings for display by <textline/>
+                                   in this hash.
+%Apache::inputtags::submission_display
+                                 - <*response> tags store improved display
+                                   of submission strings for display by part
+                                   end.
+
+=cut
 
 sub initialize_inputtags {
     @Apache::inputtags::input=();
@@ -424,14 +454,21 @@ sub end_hiddenline {
     return "";
 }
 
-# $part -> partid
-# $id -> responseid
-# $uploadefiletypes -> comma seperated list of extensions allowed or * for any
-# $which -> 'uploadedonly'  -> only newly uploaded files
-#           'portfolioonly' -> only allow files from portfolio
-#           'both' -> allow files from either location
-# $extratext -> additional text to go between the link and the input box
-# returns a table row <tr> 
+=pod
+
+=item file_selector()
+
+$part -> partid
+$id -> responseid
+$uploadefiletypes -> comma seperated list of extensions allowed or * for any
+$which -> 'uploadedonly'  -> only newly uploaded files
+          'portfolioonly' -> only allow files from portfolio
+          'both' -> allow files from either location
+$extratext -> additional text to go between the link and the input box
+returns a table row <tr> 
+
+=cut
+
 sub file_selector {
     my ($part,$id,$uploadedfiletypes,$which,$extratext)=@_;
     if (!$uploadedfiletypes) { return ''; }
@@ -1346,4 +1383,10 @@ sub previous_tries {
 
 1;
 __END__
+
+=pod
+
+=back
+
+=cut