--- rat/lonsequence.pm	2002/05/24 14:44:32	1.12
+++ rat/lonsequence.pm	2002/08/12 18:21:42	1.13
@@ -2,7 +2,7 @@
 #
 # Sequence Handler
 #
-# $Id: lonsequence.pm,v 1.12 2002/05/24 14:44:32 www Exp $
+# $Id: lonsequence.pm,v 1.13 2002/08/12 18:21:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -100,7 +100,7 @@ onClick="javascript:select_group()">
 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 (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
 	    if ($ENV{'form.launch'} eq '1') {
 	       &start_fresh_session();
 	    }
@@ -234,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);
        }
@@ -245,7 +245,7 @@ sub handler {
        }
 # ------------------------------------------------------------- Tie big db file
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
-                    &GDBM_READER,0640)) {
+                    &GDBM_READER(),0640)) {
 	   my $disid='';
 
            if ($direction eq 'back') {