--- rat/lonsequence.pm 2002/08/12 18:21:42 1.13
+++ rat/lonsequence.pm 2003/04/07 20:47:06 1.15
@@ -2,7 +2,7 @@
#
# Sequence Handler
#
-# $Id: lonsequence.pm,v 1.13 2002/08/12 18:21:42 albertel 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(<
@@ -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('