# The LearningOnline Network with CAPA # # Sequence Handler # # $Id: lonsequence.pm,v 1.14 2002/08/31 00:43:13 www Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # # (Handler to resolve ambiguous file locations # # (TeX Content Handler # # 05/29/00,05/30,10/11 Gerd Kortemeyer) # # 10/11,10/12 Gerd Kortemeyer) # # 10/16 Gerd Kortemeyer package Apache::lonsequence; use strict; use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use GDBM_File; use Apache::lonratedt; use Apache::lonratsrv; use Apache::lonpageflip; use Apache::loncommon; my %selhash; my $successtied; # ----------------------------------------- Attempt to read from resource space sub attemptread { my $fn=shift; &Apache::lonnet::repcopy($fn); if (-e $fn) { return &Apache::lonratedt::attemptread($fn); } else { return (); } } # ---------------------------------------------------------------- View Handler sub viewmap { my ($r,$url)=@_; $r->print(''); if ($ENV{'form.forceselect'}) { $r->print(< function select_group() { window.location="/adm/groupsort?catalogmode=groupsec&mode=rat&acts="+document.forms.fileattr.acts.value; } function queue(val) { if (eval("document.forms."+val+".filelink.checked")) { var l=val.length; var v=val.substring(4,l); document.forms.fileattr.acts.value+='1a'+v+'b'; } else { var l=val.length; var v=val.substring(4,l); document.forms.fileattr.acts.value+='0a'+v+'b'; } } ENDSCRIPT } $r->print(&Apache::loncommon::bodytag('Map Contents').'

'.$url.'

'); # ------------------ This is trying to select. Provide buttons and tie %selhash if ($ENV{'form.forceselect'}) { $r->print(< ENDSELECT my $diropendb = "/home/httpd/perl/tmp/$ENV{'user.domain'}\_$ENV{'user.name'}_groupsec.db"; if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { if ($ENV{'form.launch'} eq '1') { &start_fresh_session(); } $successtied=1; # - Evaluate actions from previous page (both cumulatively and chronologically) if ($ENV{'form.catalogmode'} eq 'groupimport') { my $acts=$ENV{'form.acts'}; my @Acts=split(/b/,$acts); my %ahash; my %achash; my $ac=0; # some initial hashes for working with data foreach (@Acts) { my ($state,$ref)=split(/a/); $ahash{$ref}=$state; $achash{$ref}=$ac; $ac++; } # sorting through the actions and changing the tied database hash foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { my $key=$_; if ($ahash{$key} eq '1') { $selhash{'store_'.$selhash{'pre_'.$key.'_link'}}= $selhash{'pre_'.$key.'_title'}; $selhash{'storectr_'.$selhash{'pre_'.$key.'_link'}}= $selhash{'storectr'}+0; $selhash{'storectr'}++; } if ($ahash{$key} eq '0') { if ($selhash{'store_'.$selhash{'pre_'.$key.'_link'}}) { delete $selhash{'store_'.$selhash{'pre_'.$key.'_link'}}; } } } # deleting the previously cached listing foreach (keys %selhash) { if ($_ =~ /^pre_/ && $_ =~/link$/) { my $key = $_; $key =~ s/^pre_//; $key =~ s/_[^_]*$//; delete $selhash{'pre_'.$key.'_title'}; delete $selhash{'pre_'.$key.'_link'}; } } } # - } } # ----------------------------- successtied is now '1' if in working selectmode my $idx=0; foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { if (defined($_)) { $idx++; if ($successtied) { $r->print('
'); } my ($title,$url)=split(/\:/,$_); $title=~s/\&colon\;/\:/g; $url=~s/\&colon\;/\:/g; unless ($title) { $title=(split(/\//,$url))[-1] }; unless ($title) { $title='Empty'; } if ($url) { if ($successtied) { my $checked=''; if ($selhash{'store_'.$url}) { $checked=" checked"; } $selhash{"pre_${idx}_link"}=$url; $selhash{"pre_${idx}_title"}=$title; $r->print(< ENDCHECKBOX } $r->print(''); } $r->print(&Apache::lonratsrv::qtescape($title)); if ($url) { $r->print(''); } if ($successtied) { $r->print(''); } else { $r->print('
'); } } } $r->print(''); if ($successtied) { untie %selhash; } } # ----------------------------------------------------------- Clean out selhash sub start_fresh_session { foreach (keys %selhash) { if ($_ =~ /^pre_/) { delete $selhash{$_}; } if ($_ =~ /^store/) { delete $selhash{$_}; } } } # ================================================================ Main Handler sub handler { my $r=shift; if ($r->header_only) { $r->content_type('text/html'); $r->send_http_header; return OK; } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['forceselect','launch']); my %hash; my %bighash; my $requrl=$r->uri; $successtied=0; # ------------------------------------------------------------ Tie symb db file my $disurl=''; my $dismapid=''; if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) { my $last; if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', &GDBM_READER(),0640)) { $last=$hash{'last_direction'}; untie(%hash); } my $direction=''; my $prevmap=''; if ($last) { ($prevmap,$direction)=(split(/\_\_\_/,$last)); } # ------------------------------------------------------------- Tie big db file if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', &GDBM_READER(),0640)) { my $disid=''; if ($direction eq 'back') { $disid=$bighash{'map_finish_'.$requrl}; } else { $disid=$bighash{'map_start_'.$requrl}; } if ($disid) { $disurl=$bighash{'src_'.$disid}; $dismapid=(split(/\./,$disid))[1]; } # ------------------------- If this is an empty one, skip to next non-empty one if ((!$disurl) && ($disid)) { $direction=($direction?$direction:'forward'); ($disid,$requrl)= &Apache::lonpageflip::fullmove($disid, &Apache::lonnet::declutter($requrl),$direction); if ($disid) { $disurl=$bighash{'src_'.$disid}; $dismapid=(split(/\./,$disid))[1]; } } # --------------------------------------- Untie hash, make sure to come by here untie(%bighash); } } # now either disurl is set (going to first page), or we need another display if ($disurl) { # -------------------------------------------------- Has first or last resource &Apache::lonnet::symblist($requrl,$disurl => $dismapid, 'last_known' => &Apache::lonnet::declutter($disurl)); $r->content_type('text/html'); $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); return REDIRECT; } else { $r->content_type('text/html'); $r->send_http_header; &viewmap($r,$requrl); return OK; } } 1; __END__