version 1.26, 2006/04/04 15:32:12
|
version 1.29, 2006/11/02 21:27:58
|
Line 26
|
Line 26
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Handler to resolve ambiguous file locations |
|
# |
|
|
|
package Apache::lonsequence; |
package Apache::lonsequence; |
|
|
Line 35 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 50 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 60 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 108 onClick="javascript:select_group()">
|
Line 105 onClick="javascript:select_group()">
|
</form> |
</form> |
ENDSELECT |
ENDSELECT |
my $diropendb = |
my $diropendb = |
"/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_groupsec.db"; |
"/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_sel_res.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') { |
if ($env{'form.launch'} eq '1') { |
&start_fresh_session(); |
&start_fresh_session(); |
Line 116 ENDSELECT
|
Line 113 ENDSELECT
|
$successtied=1; |
$successtied=1; |
|
|
# - Evaluate actions from previous page (both cumulatively and chronologically) |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
if ($env{'form.catalogmode'} eq 'groupimport') { |
if ($env{'form.catalogmode'} eq 'import') { |
my $acts=$env{'form.acts'}; |
my $acts=$env{'form.acts'}; |
my @Acts=split(/b/,$acts); |
my @Acts=split(/b/,$acts); |
my %ahash; |
my %ahash; |
Line 191 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>'); |