--- loncom/interface/londocs.pm 2008/11/17 14:46:10 1.315 +++ loncom/interface/londocs.pm 2010/01/22 01:07:08 1.325.2.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.315 2008/11/17 14:46:10 jms Exp $ +# $Id: londocs.pm,v 1.325.2.4 2010/01/22 01:07:08 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,20 +27,6 @@ # -=head1 NAME - -Apache::londocs - -=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,26 +79,19 @@ sub storemap { } -=pod - -=item authorhosts() - - Return hash with valid author names - -=cut sub authorhosts { my %outhash=(); my $home=0; my $other=0; - foreach (keys %env) { - if ($_=~/^user\.role\.(au|ca)\.(.+)$/) { + foreach my $key (keys(%env)) { + if ($key=~/^user\.role\.(au|ca)\.(.+)$/) { my $role=$1; my $realm=$2; - my ($start,$end)=split(/\./,$env{$_}); + my ($start,$end)=split(/\./,$env{$key}); if (($start) && ($start>time)) { next; } if (($end) && (time>$end)) { next; } - my $ca; my $cd; + my ($ca,$cd); if ($1 eq 'au') { $ca=$env{'user.name'}; $cd=$env{'user.domain'}; @@ -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,19 +139,13 @@ sub clean { return $title; } -=pod - -=item dumpcourse() - - Actually dump course -=cut sub dumpcourse { my ($r) = @_; my $type = &Apache::loncommon::course_type(); $r->print(&Apache::loncommon::start_page('Dump '.$type.' DOCS to Construction Space'). - '
'); } } @@ -559,7 +551,7 @@ sub create_ims_store { my $manifestfilename = $$tempexport.$manifest; if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) { $$manifestok=1; - print $ims_manifest + print $ims_manifest ''."\n". ''.$paste_res.'
'); + } } $r->print($upload_output); @@ -1528,10 +1564,10 @@ sub editor { # Group import/search if ($env{'form.importdetail'}) { my @imports; - foreach (split(/\&/,$env{'form.importdetail'})) { - if (defined($_)) { + foreach my $item (split(/\&/,$env{'form.importdetail'})) { + if (defined($item)) { my ($name,$url,$residx)= - map {&unescape($_)} split(/\=/,$_); + map {&unescape($_)} split(/\=/,$item); push(@imports, [$name, $url, $residx]); } } @@ -1787,7 +1823,7 @@ sub entryline { '