loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.5, 2001/12/11 03:37:11
+version 1.6, 2002/01/17 12:17:50
  Line 28
  #
  # YEAR=2001
  # 8/7,8/8,10/14,10/15,12/10 Scott Harrison
+ # YEAR=2002
+ # 1/17 Scott Harrison
  #
  ###
- Line 134  END
+ Line 136  END
  	$diropendb =
  	    "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
      }
+     else { # choose last accessed
+ 	my $dsearch; my $dindex;
+ 	my $dsearcht; my $dindext;
+ 	$dsearch =
+ 	    "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db";
+ 	if (-e $dsearch) {
+ 	    $dsearcht=(stat($dsearch))[9];
+ 	}
+ 	$dindex =
+             "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
+ 	if (-e $dindex) {
+             $dindext=(stat($dindex))[9];
+         }
+ 	if (!$dsearcht and !$dindext) {
+ 	    $diropendb='';
+ 	}
+         elsif ($dsearcht>$dindext) {
+             $diropendb=$dsearch;
+         }
+ 	else {
+             $diropendb=$dindex;
+ 	}
+     }
      if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
  	my $acts = $ENV{'form.acts'};
  	my @Acts = split(/b/,$acts);