--- rat/lonsequence.pm 2006/06/08 13:56:40 1.27
+++ rat/lonsequence.pm 2006/11/02 21:27:58 1.29
@@ -2,7 +2,7 @@
#
# Sequence Handler
#
-# $Id: lonsequence.pm,v 1.27 2006/06/08 13:56:40 www Exp $
+# $Id: lonsequence.pm,v 1.29 2006/11/02 21:27:58 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,10 +33,9 @@ use strict;
use Apache::lonnet;
use Apache::Constants qw(:common :http REDIRECT);
use GDBM_File;
-use Apache::lonratedt;
-use Apache::lonratsrv;
-use Apache::lonpageflip;
-use Apache::loncommon;
+use LONCAPA::map();
+use Apache::lonpageflip();
+use Apache::loncommon();
use Apache::lonlocal;
my %selhash;
@@ -48,7 +47,7 @@ sub attemptread {
my $fn=shift;
&Apache::lonnet::repcopy($fn);
if (-e $fn) {
- return &Apache::lonratedt::attemptread($fn);
+ return &LONCAPA::map::attemptread($fn);
} else {
return ();
}
@@ -58,7 +57,7 @@ sub mapread {
my $fn=shift;
&Apache::lonnet::repcopy($fn);
if (-e $fn) {
- return &Apache::lonratedt::mapread($fn,'');
+ return &LONCAPA::map::mapread($fn,'');
} else {
return ();
}
@@ -189,9 +188,9 @@ value='$url' onClick='javascript:queue("
ENDCHECKBOX
}
- $r->print('');
+ $r->print('');
}
- $r->print(&Apache::lonratsrv::qtescape($title));
+ $r->print(&LONCAPA::map::qtescape($title));
if ($url) { $r->print(''); }
if ($successtied) {
$r->print('');