version 1.27, 2006/06/08 13:56:40
|
version 1.29, 2006/11/02 21:27:58
|
Line 33 use strict;
|
Line 33 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use Apache::lonratedt; |
use LONCAPA::map(); |
use Apache::lonratsrv; |
use Apache::lonpageflip(); |
use Apache::lonpageflip; |
use Apache::loncommon(); |
use Apache::loncommon; |
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
my %selhash; |
my %selhash; |
Line 48 sub attemptread {
|
Line 47 sub attemptread {
|
my $fn=shift; |
my $fn=shift; |
&Apache::lonnet::repcopy($fn); |
&Apache::lonnet::repcopy($fn); |
if (-e $fn) { |
if (-e $fn) { |
return &Apache::lonratedt::attemptread($fn); |
return &LONCAPA::map::attemptread($fn); |
} else { |
} else { |
return (); |
return (); |
} |
} |
Line 58 sub mapread {
|
Line 57 sub mapread {
|
my $fn=shift; |
my $fn=shift; |
&Apache::lonnet::repcopy($fn); |
&Apache::lonnet::repcopy($fn); |
if (-e $fn) { |
if (-e $fn) { |
return &Apache::lonratedt::mapread($fn,''); |
return &LONCAPA::map::mapread($fn,''); |
} else { |
} else { |
return (); |
return (); |
} |
} |
Line 189 value='$url' onClick='javascript:queue("
|
Line 188 value='$url' onClick='javascript:queue("
|
<input type='hidden' name='title' value='$title'> |
<input type='hidden' name='title' value='$title'> |
ENDCHECKBOX |
ENDCHECKBOX |
} |
} |
$r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">'); |
$r->print('<a href="'.&LONCAPA::map::qtescape($url).'">'); |
} |
} |
$r->print(&Apache::lonratsrv::qtescape($title)); |
$r->print(&LONCAPA::map::qtescape($title)); |
if ($url) { $r->print('</a>'); } |
if ($url) { $r->print('</a>'); } |
if ($successtied) { |
if ($successtied) { |
$r->print('</form>'); |
$r->print('</form>'); |