--- rat/lonsequence.pm 2002/05/24 14:44:32 1.12 +++ rat/lonsequence.pm 2003/04/07 20:47:06 1.15 @@ -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.15 2003/04/07 20:47:06 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; @@ -61,6 +62,16 @@ sub attemptread { } } +sub mapread { + my $fn=shift; + &Apache::lonnet::repcopy($fn); + if (-e $fn) { + return &Apache::lonratedt::mapread($fn,''); + } else { + return (); + } +} + # ---------------------------------------------------------------- View Handler sub viewmap { @@ -89,7 +100,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 +111,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(); } @@ -151,6 +162,10 @@ ENDSELECT } } # ----------------------------- successtied is now '1' if in working selectmode + my ($errtext,$fatal)=&mapread(&Apache::lonnet::filelocation('',$url),''); + if ($fatal==1) { + $r->print('

Map contents are not shown in order.


'); + } my $idx=0; foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { if (defined($_)) { @@ -234,7 +249,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 +260,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') {