--- rat/lonsequence.pm	2002/05/23 10:58:05	1.9
+++ rat/lonsequence.pm	2002/08/12 18:21:42	1.13
@@ -2,7 +2,7 @@
 #
 # Sequence Handler
 #
-# $Id: lonsequence.pm,v 1.9 2002/05/23 10:58:05 www Exp $
+# $Id: lonsequence.pm,v 1.13 2002/08/12 18:21:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,19 +44,10 @@ use Apache::Constants qw(:common :http R
 use GDBM_File;
 use Apache::lonratedt;
 use Apache::lonratsrv;
+use Apache::lonpageflip;
 
-# ----------------------------------------------------------- Could not resolve
-
-sub getlost {
-    my ($r,$errmsg)=@_;
-    $r->content_type('text/html');
-    $r->send_http_header;
-    $r->print(
- '<head><title>Unknown Error</title></head><body bgcolor="#FFFFFF"><h1>'.
- 'LON-CAPA</h1>Could not handle sequence resource reference.<p>'.$errmsg.
- '</body></html>');
-}
-
+my %selhash;
+my $successtied;
 
 # ----------------------------------------- Attempt to read from resource space
 
@@ -79,7 +70,7 @@ sub viewmap {
 <script>
 
 function select_group() {
-    window.location="/adm/groupsort?catalogmode=groupimport&mode=rat&acts="+document.forms.fileattr.acts.value;
+    window.location="/adm/groupsort?catalogmode=groupsec&mode=rat&acts="+document.forms.fileattr.acts.value;
 }
 
 function queue(val) {
@@ -99,6 +90,7 @@ function queue(val) {
 ENDSCRIPT
     }
     $r->print('<body bgcolor="#FFFFFF">');
+# ------------------ This is trying to select. Provide buttons and tie %selhash
     if ($ENV{'form.forceselect'}) { $r->print(<<ENDSELECT);
 <form name=fileattr><input type=hidden name=acts value=''>
 <input type="button" name="close" value='CLOSE' onClick="self.close()">
@@ -106,12 +98,64 @@ ENDSCRIPT
 onClick="javascript:select_group()">
 </form>   
 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 ($ENV{'form.forceselect'}) { 
+            if ($successtied) { 
 		$r->print('<form name="form'.$idx.'">');
             }
 	    my ($title,$url)=split(/\:/,$_);
@@ -120,10 +164,17 @@ ENDSELECT
             unless ($title) { $title=(split(/\//,$url))[-1] };
             unless ($title) { $title='<i>Empty</i>'; }
             if ($url) {
-		if ($ENV{'form.forceselect'}) {
+		if ($successtied) {
+		    my $checked='';
+	           if ($selhash{'store_'.$url}) {
+	       	      $checked=" checked";
+	           }
+	           $selhash{"pre_${idx}_link"}=$url;
+	           $selhash{"pre_${idx}_title"}=$title;
+
 		    $r->print(<<ENDCHECKBOX);
 <input type='checkbox' name='filelink' 
-value='$url' onClick='javascript:queue("form$idx")' >
+value='$url' onClick='javascript:queue("form$idx")'$checked>
 <input type='hidden' name='title' value='$title'>
 ENDCHECKBOX
                 }
@@ -131,7 +182,7 @@ ENDCHECKBOX
             }
             $r->print(&Apache::lonratsrv::qtescape($title));
             if ($url) { $r->print('</a>'); }
-            if ($ENV{'form.forceselect'}) {
+            if ($successtied) {
 		$r->print('</form>');
             } else {
 		$r->print('<br>');
@@ -139,8 +190,24 @@ ENDCHECKBOX
         }
     }
     $r->print('</body></html>');
+    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 {
@@ -153,12 +220,13 @@ sub handler {
    }
  
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-                                          ['forceselect']);
+                                          ['forceselect','launch']);
 
    my %hash;
    my %bighash;
    my $requrl=$r->uri;
 
+   $successtied=0;
 # ------------------------------------------------------------ Tie symb db file
   my $disurl='';
   my $dismapid='';
@@ -166,7 +234,7 @@ sub handler {
   if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
        my $last;
        if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
-                    &GDBM_READER,0640)) {
+                    &GDBM_READER(),0640)) {
 	   $last=$hash{'last_direction'};
            untie(%hash);
        }
@@ -177,30 +245,30 @@ sub handler {
        }
 # ------------------------------------------------------------- Tie big db file
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
-                    &GDBM_READER,0640)) {
+                    &GDBM_READER(),0640)) {
 	   my $disid='';
-           my $whatend='';
+
            if ($direction eq 'back') {
 	       $disid=$bighash{'map_finish_'.$requrl};
-               $whatend='End';
            } else {
                $disid=$bighash{'map_start_'.$requrl};
-               $whatend='Beginning';
            } 
            if ($disid) {
 	       $disurl=$bighash{'src_'.$disid};
                $dismapid=(split(/\./,$disid))[1];
            }
-           my $symb='';
-           my $sequencetitle='';
-           unless($disurl) {
-               if ($symb=&Apache::lonnet::symbread()) {
-		   my ($mapurl,$mapid)=split(/\_\_\_/,$symb);
-                   $sequencetitle=$bighash{'title_'.
-				          $bighash{'map_pc_/res/'.$mapurl}.'.'.
-					  $mapid};
+# ------------------------- 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);
        }
