--- loncom/interface/londocs.pm 2008/11/18 19:14:22 1.316 +++ loncom/interface/londocs.pm 2008/11/21 20:31:48 1.317 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.316 2008/11/18 19:14:22 jms Exp $ +# $Id: londocs.pm,v 1.317 2008/11/21 20:31:48 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,20 +27,6 @@ # -=head1 NAME - -Apache::londocs.pm - -=head1 SYNOPSIS - -This is part of the LearningOnline Network with CAPA project -described at http://www.lon-capa.org. - -=head1 SUBROUTINES - -=over - -=cut package Apache::londocs; @@ -70,26 +56,9 @@ my %alreadyseen=(); my $hadchanges; -=pod - -=item %help=() - - Available help topics - -=cut - my %help=(); -=pod - -=item mapread() - -Mapread read maps into LONCAPA::map:: global arrays -@order and @resources, determines status -sets @order - pointer to resources in right order -sets @resources - array with the resources with correct idx -=cut sub mapread { my ($coursenum,$coursedom,$map)=@_; @@ -110,13 +79,6 @@ sub storemap { } -=pod - -=item authorhosts() - - Return hash with valid author names - -=cut sub authorhosts { my %outhash=(); @@ -151,13 +113,7 @@ sub authorhosts { } return ($home,$other,%outhash); } -=pod - -=item dumpbutton() - Generate "dump" button - -=cut sub dumpbutton { my ($home,$other,%outhash)=&authorhosts(); @@ -183,13 +139,7 @@ sub clean { return $title; } -=pod - -=item dumpcourse() - - Actually dump course -=cut sub dumpcourse { my ($r) = @_; @@ -311,13 +261,7 @@ sub dumpcourse { } } -=pod - -=item exportbutton() - - Generate "export" button -=cut sub exportbutton { my $type = &Apache::loncommon::course_type(); @@ -327,11 +271,7 @@ sub exportbutton { &Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').''; } -=pod - -=item exportcourse() -=cut sub exportcourse { my $r=shift; @@ -971,14 +911,6 @@ sub store_template { } } -=pod - -=item group_import() - - Imports the given (name, url) resources into the course - coursenum, coursedom, and folder must precede the list - -=cut sub group_import { my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_; @@ -1140,11 +1072,9 @@ sub log_docs { } } -=pod -=item docs_change_log() -=cut + sub docs_change_log { my ($r)=@_; @@ -2066,13 +1996,6 @@ sub untiehash { } -=pod - -=item checkonthis() - -check on this - -=cut sub checkonthis { @@ -2171,13 +2094,6 @@ sub list_symbs { } -=pod - -=item verifycontent() - -Verify Content - -=cut sub verifycontent { my ($r) = @_; @@ -2208,13 +2124,6 @@ sub verifycontent { &mt('Return to DOCS').''); } -=pod - -=item devalidateversioncache() & checkversions() - -Check Versions - -=cut sub devalidateversioncache { my $src=shift; @@ -2518,13 +2427,6 @@ sub changewarning { $help{'Caching'}.''."\n\n"); } -=pod - -=item init_breadcrumbs() - -Breadcrumbs for special functions - -=cut sub init_breadcrumbs { my ($form,$text)=@_; @@ -2541,13 +2443,7 @@ sub init_breadcrumbs { } -=pod - -=item handler() - -Main Handler -=cut sub handler { my $r = shift; @@ -3454,7 +3350,124 @@ ENDNEWSCRIPT 1; __END__ -=pod + +=head1 NAME + +Apache::londocs.pm + +=head1 SYNOPSIS + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + +=head1 SUBROUTINES + +=over + +=item %help=() + +Available help topics + +=item mapread() + +Mapread read maps into LONCAPA::map:: global arrays +@order and @resources, determines status +sets @order - pointer to resources in right order +sets @resources - array with the resources with correct idx + +=item authorhosts() + +Return hash with valid author names + +=item dumpbutton() + +Generate "dump" button + +=item clean() + +=item dumpcourse() + + Actually dump course + + +=item exportbutton() + + Generate "export" button + +=item exportcourse() + +=item create_ims_store() + +=item build_package() + +=item get_dependencies() + +=item process_content() + +=item replicate_content() + +=item extract_media() + +=item store_template() + +=item group_import() + + Imports the given (name, url) resources into the course + coursenum, coursedom, and folder must precede the list + +=item breadcrumbs() + +=item log_docs() + +=item docs_change_log() + +=item update_paste_buffer() + +=item print_paste_buffer() + +=item do_paste_from_buffer() + +=item update_parameter() + +=item handle_edit_cmd() + +=item editor() + +=item process_file_upload() + +=item process_secondary_uploads() + +=item is_supplemental_title() + +=item parse_supplemental_title() + +=item entryline() + +=item tiehash() + +=item untiehash() + +=item checkonthis() + +check on this + +=item verifycontent() + +Verify Content + +=item devalidateversioncache() & checkversions() + +Check Versions + +=item mark_hash_old() + +=item is_hash_old() + +=item changewarning() + +=item init_breadcrumbs() + +Breadcrumbs for special functions =back