[LON-CAPA-cvs] cvs: loncom /publisher lonconstruct.pm

[jms]

jms		Wed Nov 19 19:15:02 2008 EDT

  Modified files:              
    /loncom/publisher	lonconstruct.pm 
  Log:
  Added POD comments
  
Index: loncom/publisher/lonconstruct.pm
diff -u loncom/publisher/lonconstruct.pm:1.34 loncom/publisher/lonconstruct.pm:1.35
--- loncom/publisher/lonconstruct.pm:1.34	Sun Feb  3 01:11:01 2008
+++ loncom/publisher/lonconstruct.pm	Wed Nov 19 19:15:02 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Page Wrapper for Construction
 #
-# $Id: lonconstruct.pm,v 1.34 2008/02/03 01:11:01 raeburn Exp $
+# $Id: lonconstruct.pm,v 1.35 2008/11/19 19:15:02 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,16 +27,22 @@
 #
 #
 
-package Apache::lonconstruct;
 
+=pod
 
-use strict;
-use Apache::Constants qw(:common :http :methods);
-use Apache::lonnet;
-use HTML::Entities();
+=head1
+
+=head1 NAME
+
+Apache::lonconstruct
+
+=head1 SYNOPSIS
+
+Page wrapper for handling construction space.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
 
-my $DEBUG = 0;
-=pod
 
 =item Debug($request, $message)
 
@@ -59,6 +65,17 @@
 
 =cut
 
+package Apache::lonconstruct;
+
+
+use strict;
+use Apache::Constants qw(:common :http :methods);
+use Apache::lonnet;
+use HTML::Entities();
+
+my $DEBUG = 0;
+
+
 sub Debug {
     # Put out the indicated message but only if DEBUG is true.
     if ($DEBUG) {