[LON-CAPA-cvs] cvs: loncom /auth localstudentphoto.pm lonacc.pm /homework essayresponse.pm externalresponse.pm /html/res/adm/pages/annotator admannotations.pm /interface lonstatistics.pm /publisher londiff.pm
jms
lon-capa-cvs-allow@mail.lon-capa.org
Thu, 20 Nov 2008 14:37:52 -0000
This is a MIME encoded message
--jms1227191872
Content-Type: text/plain
jms Thu Nov 20 14:37:52 2008 EDT
Modified files:
/loncom/interface lonstatistics.pm
/loncom/publisher londiff.pm
/loncom/homework essayresponse.pm externalresponse.pm
/loncom/html/res/adm/pages/annotator admannotations.pm
/loncom/auth localstudentphoto.pm lonacc.pm
Log:
Reformatted POD, moved to bottom of file
--jms1227191872
Content-Type: text/plain
Content-Disposition: attachment; filename="jms-20081120143752.txt"
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.143 loncom/interface/lonstatistics.pm:1.144
--- loncom/interface/lonstatistics.pm:1.143 Mon Nov 10 13:20:14 2008
+++ loncom/interface/lonstatistics.pm Thu Nov 20 14:37:24 2008
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.143 2008/11/10 13:20:14 jms Exp $
+# $Id: lonstatistics.pm,v 1.144 2008/11/20 14:37:24 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -28,22 +28,7 @@
#
###
-=pod
-
-=head1 NAME
-
-lonstatistics
-
-=head1 SYNOPSIS
-
-Main handler for statistics and chart.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=over 4
-=cut
package Apache::lonstatistics;
@@ -81,33 +66,6 @@
use Apache::longradinganalysis();
use LONCAPA;
-#######################################################
-#######################################################
-
-=pod
-
-=item Package Variables
-
-=item @FullClasslist The full classlist
-
-=item @Students The students we are concerned with for this invocation
-
-=item @Sections The sections available in this class
-
-=item @Groups The groups available in the class
-
-=item $curr_student The student currently being examined
-
-=item $prev_student The student previous in the classlist
-
-=item $next_student The student next in the classlist
-
-=over
-
-=cut
-
-#######################################################
-#######################################################
#
# Classlist variables
#
@@ -115,43 +73,7 @@
my $prev_student;
my $next_student;
-#######################################################
-#######################################################
-
-=pod
-
-=item &clear_classlist_variables()
-
-undef the following package variables:
-
-=over
-
-=item @FullClasslist
-
-=item @Students
-
-=item @Sections
-
-=item @Groups
-
-=item %StudentData
-
-=item @StudentDataOrder
-
-=item @SelectedStudentData
-=item $curr_student
-
-=item $prev_student
-
-=item $next_student
-
-=back
-
-=cut
-
-#######################################################
-#######################################################
sub clear_classlist_variables {
undef(@FullClasslist);
undef(@Students);
@@ -164,45 +86,7 @@
undef($next_student);
}
-#######################################################
-#######################################################
-
-=pod
-
-=item &PrepareClasslist()
-
-Build up the classlist information. The classlist information is kept in
-the following package variables:
-
-=over
-
-=item @FullClasslist
-
-=item @Students
-
-=item @Sections
-
-=item @Groups
-=item %StudentData
-
-=item @SelectedStudentData
-
-=item $curr_student
-
-=item $prev_student
-
-=item $next_student
-
-=back
-
-$curr_student, $prev_student, and $next_student may not be defined, depending
-upon the calling context.
-
-=cut
-
-#######################################################
-#######################################################
sub PrepareClasslist {
my %Sections;
&clear_classlist_variables();
@@ -377,19 +261,7 @@
return;
}
-#######################################################
-#######################################################
-
-=pod
-
-=item get_selected_sections
-
-Returns an array of the selected sections
-
-=cut
-#######################################################
-#######################################################
sub get_selected_sections {
my @selected_sections =
&Apache::loncommon::get_env_multiple('form.Section');
@@ -407,19 +279,7 @@
return @selected_sections;
}
-#######################################################
-#######################################################
-
-=pod
-
-=item get_selected_groups
-
-Returns an array of the selected groups
-
-=cut
-
-#######################################################
-#######################################################
+
sub get_selected_groups {
my @selected_groups =
&Apache::loncommon::get_env_multiple('form.Group');
@@ -433,21 +293,8 @@
return @selected_groups;
}
-=pod
-
-=item §ion_and_enrollment_description
-
-Returns a string describing the currently selected section(s), group(s) and
-access status.
-Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized')
- 'plaintext' is used for example in Excel spreadsheets.
-Returns: scalar description string.
-
-=cut
-#######################################################
-#######################################################
sub section_and_enrollment_description {
my ($mode) = @_;
if (! defined($mode)) { $mode = 'localized'; }
@@ -472,8 +319,8 @@
return $description;
}
-#######################################################
-#######################################################
+
+
sub section_or_group_text {
my ($mode,$type,@items) = @_;
@@ -516,16 +363,6 @@
}
-=pod
-
-=item get_students
-
-Returns a list of the selected students
-
-=cut
-
-#######################################################
-#######################################################
sub get_students {
if (! @Students) {
&PrepareClasslist()
@@ -533,84 +370,26 @@
return @Students;
}
-#######################################################
-#######################################################
-=pod
-=item ¤t_student()
-
-Returns a pointer to a hash containing data about the currently
-selected student.
-
-=cut
-
-#######################################################
-#######################################################
sub current_student {
return $curr_student;
}
-#######################################################
-#######################################################
-=pod
-=item &previous_student()
-
-Returns a pointer to a hash containing data about the student prior
-in the list of students. Or something.
-
-=cut
-
-#######################################################
-#######################################################
sub previous_student {
return $prev_student;
}
-#######################################################
-#######################################################
-=pod
-=item &next_student()
-
-Returns a pointer to a hash containing data about the next student
-to be viewed.
-
-=cut
-
-#######################################################
-#######################################################
sub next_student {
return $next_student;
}
-##############################################
-##############################################
-
-=pod
-
-=item &StudentDataSelect($elementname,$status,$numvisible,$selected)
-
-Returns html for a selection box allowing the user to choose one (or more)
-of the fields of student data available (fullname, username, id, section, etc)
-
-=over 4
-
-=item $elementname The name of the HTML form element
-
-=item $status 'multiple' or 'single' selection box
-
-=item $numvisible The number of options to be visible
-
-=back
-=cut
-##############################################
-##############################################
sub StudentDataSelect {
my ($elementname,$status,$numvisible)=@_;
if ($numvisible < 1) {
@@ -650,22 +429,8 @@
return $Str;
}
-#######################################################
-#######################################################
-
-=pod
-=item &get_selected_maps($elementname)
-Input: Name of the <select> form element used to specify the maps.
-
-Returns: Array of symbs of selected maps or the description 'all'.
- If form.$elementname does not exist, 'all' is returned.
-
-=cut
-
-#######################################################
-#######################################################
sub get_selected_maps {
my ($elementname) = @_;
my @selected_maps =
@@ -681,25 +446,8 @@
}
-#######################################################
-#######################################################
-
-=pod
-
-=item &selected_sequences_with_assessments
-Retrieve the sequences which were selected by the user to show.
-Input: $mode: scalar. Either 'selected' or 'all'. If not specified,
- 'selected' is used.
-
-Returns: an array containing a navmap object and navmap resources,
- or an array containing a scalar with an error message.
-
-=cut
-
-#######################################################
-#######################################################
sub selected_sequences_with_assessments {
my ($mode) = @_;
$mode = 'selected' if (! defined($mode));
@@ -739,31 +487,7 @@
return $navmap,@sequences_to_show;
}
-##############################################
-##############################################
-
-=pod
-
-=item &map_select($elementname,$status,$numvisible,$restriction)
-Returns html for a selection box allowing the user to choose one (or more)
-of the sequences in the course. The values of the sequences are the symbs.
-If the top sequence is selected, the value 'top' will result.
-
-=over 4
-
-=item $elementname The name of the HTML form element
-
-=item $status 'multiple' or 'single' selection box
-
-=item $numvisible The number of options to be visible
-
-=back
-
-=cut
-
-##############################################
-##############################################
sub map_select {
my ($elementname,$status,$numvisible)=@_;
if ($numvisible < 1) {
@@ -810,31 +534,7 @@
return $form;
}
-##############################################
-##############################################
-
-=pod
-
-=item &SectionSelect($elementname,$status,$numvisible)
-
-Returns html for a selection box allowing the user to choose one (or more)
-of the sections in the course.
-
-Uses the package variables @Sections
-=over 4
-
-=item $elementname The name of the HTML form element
-
-=item $status 'multiple' or 'single' selection box
-
-=item $numvisible The number of options to be visible
-=back
-
-=cut
-
-##############################################
-##############################################
sub SectionSelect {
my ($elementname,$status,$numvisible)=@_;
if ($numvisible < 1) {
@@ -869,31 +569,7 @@
return $Str;
}
-##############################################
-##############################################
-
-=pod
-
-=item &GroupSelect($elementname,$status,$numvisible)
-
-Returns html for a selection box allowing the user to choose one (or more)
-of the groups in the course.
-
-Uses the package variables @Groups
-=over 4
-
-=item $elementname The name of the HTML form element
-
-=item $status 'multiple' or 'single' selection box
-
-=item $numvisible The number of options to be visible
-
-=back
-
-=cut
-
-##############################################
-##############################################
+
sub GroupSelect {
my ($elementname,$status,$numvisible)=@_;
if ($numvisible < 1) {
@@ -928,8 +604,8 @@
}
-##################################################
-##################################################
+
+
sub DisplayClasslist {
my ($r)=@_;
&Apache::lonhtmlcommon::add_breadcrumb
@@ -1057,8 +733,8 @@
return;
}
-##############################################
-##############################################
+
+
sub CreateMainMenu {
#
# Define menu data
@@ -1121,8 +797,8 @@
return $Str;
}
-##############################################
-##############################################
+
+
sub handler {
my $r=shift;
my $c = $r->connection();
@@ -1275,17 +951,227 @@
1;
-#######################################################
-#######################################################
+__END__
=pod
+=head1 NAME
+
+lonstatistics
+
+=head1 SYNOPSIS
+
+Main handler for statistics and chart.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+
+=head1 PACKAGE VARIABLES
+
+=over
+
+=item @FullClasslist The full classlist
+
+=item @Students The students we are concerned with for this invocation
+
+=item @Sections The sections available in this class
+
+=item @Groups The groups available in the class
+
+=item $curr_student The student currently being examined
+
+=item $prev_student The student previous in the classlist
+
+=item $next_student The student next in the classlist
+
=back
-=cut
+=head1 SUBROUTINES
+
+=over
-#######################################################
-#######################################################
+=item &clear_classlist_variables()
-__END__
+undef the following package variables:
+
+=over 4
+
+=item * @FullClasslist
+
+=item * @Students
+
+=item * @Sections
+
+=item * @Groups
+
+=item * %StudentData
+
+=item * @StudentDataOrder
+
+=item * @SelectedStudentData
+
+=item * $curr_student
+
+=item * $prev_student
+
+=item * $next_student
+
+=back
+
+=item &PrepareClasslist()
+
+Build up the classlist information. The classlist information is kept in
+the following package variables:
+
+=over 4
+
+=item * @FullClasslist
+
+=item * @Students
+
+=item * @Sections
+
+=item * @Groups
+
+=item * %StudentData
+
+=item * @SelectedStudentData
+
+=item * $curr_student
+
+=item * $prev_student
+
+=item * $next_student
+
+=back
+
+$curr_student, $prev_student, and $next_student may not be defined, depending
+upon the calling context.
+
+=item get_selected_sections()
+
+Returns an array of the selected sections
+
+=item get_selected_groups()
+
+Returns an array of the selected groups
+
+=item §ion_and_enrollment_description()
+
+Returns a string describing the currently selected section(s), group(s) and
+access status.
+
+Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized')
+ 'plaintext' is used for example in Excel spreadsheets.
+Returns: scalar description string.
+
+=item section_or_group_text()
+
+=item get_students()
+
+Returns a list of the selected students
+
+=item ¤t_student()
+
+Returns a pointer to a hash containing data about the currently
+selected student.
+
+=item &previous_student()
+
+Returns a pointer to a hash containing data about the student prior
+in the list of students. Or something.
+
+=item &next_student()
+
+Returns a pointer to a hash containing data about the next student
+to be viewed.
+
+=item &StudentDataSelect($elementname,$status,$numvisible,$selected)
+
+Returns html for a selection box allowing the user to choose one (or more)
+of the fields of student data available (fullname, username, id, section, etc)
+
+=over 4
+
+=item * $elementname The name of the HTML form element
+
+=item * $status 'multiple' or 'single' selection box
+
+=item * $numvisible The number of options to be visible
+
+=back
+
+=item &get_selected_maps($elementname)
+
+Input: Name of the <select> form element used to specify the maps.
+
+Returns: Array of symbs of selected maps or the description 'all'.
+ If form.$elementname does not exist, 'all' is returned.
+
+=item &selected_sequences_with_assessments()
+
+Retrieve the sequences which were selected by the user to show.
+
+Input: $mode: scalar. Either 'selected' or 'all'. If not specified,
+ 'selected' is used.
+
+Returns: an array containing a navmap object and navmap resources,
+ or an array containing a scalar with an error message.
+
+=item &map_select($elementname,$status,$numvisible,$restriction)
+
+Returns html for a selection box allowing the user to choose one (or more)
+of the sequences in the course. The values of the sequences are the symbs.
+If the top sequence is selected, the value 'top' will result.
+
+=over 4
+
+=item * $elementname The name of the HTML form element
+
+=item * $status 'multiple' or 'single' selection box
+
+=item * $numvisible The number of options to be visible
+
+=back
+
+=item &SectionSelect($elementname,$status,$numvisible)
+
+Returns html for a selection box allowing the user to choose one (or more)
+of the sections in the course.
+
+Uses the package variables @Sections
+
+=over 4
+
+=item * $elementname The name of the HTML form element
+
+=item * $status 'multiple' or 'single' selection box
+
+=item * $numvisible The number of options to be visible
+
+=back
+
+=item &GroupSelect($elementname,$status,$numvisible)
+
+Returns html for a selection box allowing the user to choose one (or more)
+of the groups in the course.
+
+Uses the package variables @Groups
+
+=over 4
+
+=item * $elementname The name of the HTML form element
+
+=item * $status 'multiple' or 'single' selection box
+
+=item * $numvisible The number of options to be visible
+
+=back
+
+=item CreateMainMenu()
+
+=back
+
+=cut
Index: loncom/publisher/londiff.pm
diff -u loncom/publisher/londiff.pm:1.24 loncom/publisher/londiff.pm:1.25
--- loncom/publisher/londiff.pm:1.24 Mon Nov 10 13:20:04 2008
+++ loncom/publisher/londiff.pm Thu Nov 20 14:37:30 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to show differences between file versions
#
-# $Id: londiff.pm,v 1.24 2008/11/10 13:20:04 jms Exp $
+# $Id: londiff.pm,v 1.25 2008/11/20 14:37:30 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,22 +27,7 @@
#
###
-=pod
-
-=head1 NAME
-
-Apache::londiff
-
-=head1 SYNOPSIS
-
-Handler to show difference between two files.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-=head2 Subroutines
-
-=cut
package Apache::londiff;
@@ -226,5 +211,27 @@
__END__
+=pod
+=head1 NAME
+Apache::londiff
+
+=head1 SYNOPSIS
+
+Handler to show difference between two files.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 Subroutines
+
+=over
+
+=item get_split_file()
+
+=item are_different_files()
+
+=item handler()
+
+=cut
Index: loncom/homework/essayresponse.pm
diff -u loncom/homework/essayresponse.pm:1.91 loncom/homework/essayresponse.pm:1.92
--- loncom/homework/essayresponse.pm:1.91 Sun Nov 16 02:46:25 2008
+++ loncom/homework/essayresponse.pm Thu Nov 20 14:37:37 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# essay (ungraded) style responses
#
-# $Id: essayresponse.pm,v 1.91 2008/11/16 02:46:25 raeburn Exp $
+# $Id: essayresponse.pm,v 1.92 2008/11/20 14:37:37 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -26,21 +26,6 @@
# http://www.lon-capa.org/
#
-=pod
-
-=head1 NAME
-
-Apache::easyresponse
-
-=head1 SYNOPSIS
-
-Handler to evaluate essay (ungraded) style responses.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=cut
-
package Apache::essayresponse;
use strict;
use Apache::lonxml();
@@ -415,3 +400,37 @@
1;
__END__
+
+
+=pod
+
+=head1 NAME
+
+Apache::easyresponse
+
+=head1 SYNOPSIS
+
+Handler to evaluate essay (ungraded) style responses.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 SUBROUTINES
+
+=over
+
+=item start_essayresponse()
+
+=item end_essayresponse()
+
+=item format_prior_response()
+
+=item file_submission()
+
+=item delete_form_items()
+
+=item check_collaborators()
+
+=back
+
+=cut
\ No newline at end of file
Index: loncom/homework/externalresponse.pm
diff -u loncom/homework/externalresponse.pm:1.14 loncom/homework/externalresponse.pm:1.15
--- loncom/homework/externalresponse.pm:1.14 Mon Nov 10 13:18:19 2008
+++ loncom/homework/externalresponse.pm Thu Nov 20 14:37:37 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# external style responses
#
-# $Id: externalresponse.pm,v 1.14 2008/11/10 13:18:19 jms Exp $
+# $Id: externalresponse.pm,v 1.15 2008/11/20 14:37:37 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -26,21 +26,7 @@
# http://www.lon-capa.org/
#
-=pod
-=head1 NAME
-
-Apache::externalresponse.pm
-
-=head1 SYNOPSIS
-
-Handler to evaluate externally graded responses.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-
-=cut
package Apache::externalresponse;
use strict;
@@ -54,7 +40,7 @@
=pod
-=head1 FIXME
+=head1 FIXME (start_externalresponse)
send of response params and their current values (form good enough? what parameters to send?)
Need to get returned message displayed
@@ -165,3 +151,29 @@
__END__
+=pod
+
+=head1 NAME
+
+Apache::externalresponse.pm
+
+=head1 SYNOPSIS
+
+Handler to evaluate externally graded responses.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 SUBROUTINES
+
+=over
+
+=item start_externalresponse()
+
+=item end_externalresponse()
+
+=item format_prior_response()
+
+=back
+
+=cut
\ No newline at end of file
Index: loncom/html/res/adm/pages/annotator/admannotations.pm
diff -u loncom/html/res/adm/pages/annotator/admannotations.pm:1.29 loncom/html/res/adm/pages/annotator/admannotations.pm:1.30
--- loncom/html/res/adm/pages/annotator/admannotations.pm:1.29 Thu Nov 20 13:51:14 2008
+++ loncom/html/res/adm/pages/annotator/admannotations.pm Thu Nov 20 14:37:45 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# This will take annotations and then plug them into a page.
#
-# $Id: admannotations.pm,v 1.29 2008/11/20 13:51:14 jms Exp $
+# $Id: admannotations.pm,v 1.30 2008/11/20 14:37:45 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,43 +27,6 @@
#
##################
-=pod
-
-=head1 NAME
-
-Apache::admannotations
-
-=head1 SYNOPSIS
-
-This will take annotations and then plug them into a page.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=head1 OVERVIEW
-
-(empty)
-
-=head1 SUBROUTINES
-
-=over write_annotation()
-
-Put annotation
-
-=item js_get_symb()
-
-Construct editor
-
-=item construct_editor()
-
-=item construct_error()
-
-=item handler()
-
-=back
-
-=cut
-
package Apache::admannotations;
@@ -243,3 +206,41 @@
1;
__END__
+=pod
+
+=head1 NAME
+
+Apache::admannotations
+
+=head1 SYNOPSIS
+
+This will take annotations and then plug them into a page.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 OVERVIEW
+
+(empty)
+
+=head1 SUBROUTINES
+
+=over write_annotation()
+
+Put annotation
+
+=item js_get_symb()
+
+Construct editor
+
+=item construct_editor()
+
+=item construct_error()
+
+=item handler()
+
+=back
+
+=cut
+
+
Index: loncom/auth/localstudentphoto.pm
diff -u loncom/auth/localstudentphoto.pm:1.6 loncom/auth/localstudentphoto.pm:1.7
--- loncom/auth/localstudentphoto.pm:1.6 Mon Nov 10 14:11:01 2008
+++ loncom/auth/localstudentphoto.pm Thu Nov 20 14:37:52 2008
@@ -1,6 +1,6 @@
# The LON-CAPA dummy student photo fetch mechnism
#
-# $Id: localstudentphoto.pm,v 1.6 2008/11/10 14:11:01 jms Exp $
+# $Id: localstudentphoto.pm,v 1.7 2008/11/20 14:37:52 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -26,31 +26,6 @@
#
# 8/24 Guy Albertelli
-=pod
-
-=head1 NAME
-
-Apache::localstudentphoto
-
-=head1 SYNOPSIS
-
-Incoming data: none
-Returns ''
-
-=head1 OVERVIEW
-
-Prevents errors when undefined subroutines are called in this package.
-Will allow new routines added in the future to be called from lond etc.
-without the need for customized versions of local*.pm packages to be
-modified to include the new subroutines immediately.
-
-See I<"Programming Perl"> 3rd ed. pp 296-298.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=cut
-
package localstudentphoto;
use lib '/home/httpd/lib/perl/';
@@ -114,5 +89,28 @@
1;
__END__
+=pod
+
+=head1 NAME
+
+Apache::localstudentphoto
+
+=head1 SYNOPSIS
+
+Incoming data: none
+Returns ''
+
+=head1 OVERVIEW
+
+Prevents errors when undefined subroutines are called in this package.
+Will allow new routines added in the future to be called from lond etc.
+without the need for customized versions of local*.pm packages to be
+modified to include the new subroutines immediately.
+See I<"Programming Perl"> 3rd ed. pp 296-298.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=cut
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.119 loncom/auth/lonacc.pm:1.120
--- loncom/auth/lonacc.pm:1.119 Tue Nov 18 19:14:34 2008
+++ loncom/auth/lonacc.pm Thu Nov 20 14:37:52 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Cookie Based Access Handler
#
-# $Id: lonacc.pm,v 1.119 2008/11/18 19:14:34 jms Exp $
+# $Id: lonacc.pm,v 1.120 2008/11/20 14:37:52 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,68 +27,6 @@
#
###
-=head1 NAME
-
-Apache::lonacc - Cookie Based Access Handler
-
-=head1 SYNOPSIS
-
-Invoked (for various locations) by /etc/httpd/conf/srm.conf:
-
- PerlAccessHandler Apache::lonacc
-
-=head1 INTRODUCTION
-
-This module enables cookie based authentication and is used
-to control access for many different LON-CAPA URIs.
-
-Whenever the client sends the cookie back to the server,
-this cookie is handled by either lonacc.pm or loncacc.pm
-(see srm.conf for what is invoked when). If
-the cookie is missing or invalid, the user is re-challenged
-for login information.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=head1 HANDLER SUBROUTINE
-
-This routine is called by Apache and mod_perl.
-
-=over 4
-
-=item *
-
-transfer profile into environment
-
-=item *
-
-load POST parameters
-
-=item *
-
-check access
-
-=item *
-
-if allowed, get symb, log, generate course statistics if applicable
-
-=item *
-
-otherwise return error
-
-=item *
-
-see if public resource
-
-=item *
-
-store attempted access
-
-=back
-
-=cut
-
package Apache::lonacc;
@@ -522,3 +460,66 @@
1;
__END__
+
+
+=head1 NAME
+
+Apache::lonacc - Cookie Based Access Handler
+
+=head1 SYNOPSIS
+
+Invoked (for various locations) by /etc/httpd/conf/srm.conf:
+
+ PerlAccessHandler Apache::lonacc
+
+=head1 INTRODUCTION
+
+This module enables cookie based authentication and is used
+to control access for many different LON-CAPA URIs.
+
+Whenever the client sends the cookie back to the server,
+this cookie is handled by either lonacc.pm or loncacc.pm
+(see srm.conf for what is invoked when). If
+the cookie is missing or invalid, the user is re-challenged
+for login information.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 HANDLER SUBROUTINE
+
+This routine is called by Apache and mod_perl.
+
+=over 4
+
+=item *
+
+transfer profile into environment
+
+=item *
+
+load POST parameters
+
+=item *
+
+check access
+
+=item *
+
+if allowed, get symb, log, generate course statistics if applicable
+
+=item *
+
+otherwise return error
+
+=item *
+
+see if public resource
+
+=item *
+
+store attempted access
+
+=back
+
+=cut
\ No newline at end of file
--jms1227191872--