--- rat/lonsequence.pm 2002/05/24 14:44:32 1.12
+++ rat/lonsequence.pm 2002/08/31 00:43:13 1.14
@@ -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.14 2002/08/31 00:43:13 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -45,6 +45,7 @@ use GDBM_File;
use Apache::lonratedt;
use Apache::lonratsrv;
use Apache::lonpageflip;
+use Apache::loncommon;
my %selhash;
my $successtied;
@@ -89,7 +90,7 @@ function queue(val) {
ENDSCRIPT
}
- $r->print('');
+ $r->print(&Apache::loncommon::bodytag('Map Contents').'
'.$url.'
');
# ------------------ This is trying to select. Provide buttons and tie %selhash
if ($ENV{'form.forceselect'}) { $r->print(<
@@ -100,7 +101,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 +235,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 +246,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') {