version 1.39, 2009/05/16 23:21:12
|
version 1.45, 2014/12/15 00:46:52
|
Line 36 use Apache::lonnet;
|
Line 36 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use LONCAPA::map(); |
use LONCAPA::map(); |
|
use LONCAPA; |
use Apache::lonpageflip(); |
use Apache::lonpageflip(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::groupsort(); |
use Apache::groupsort(); |
Line 109 onClick="javascript:select_group()" />
|
Line 110 onClick="javascript:select_group()" />
|
</form> |
</form> |
ENDSELECT |
ENDSELECT |
my $diropendb = |
my $diropendb = |
"/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_sel_res.db"; |
LONCAPA::tempdir() . |
|
"$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 131 ENDSELECT
|
Line 133 ENDSELECT
|
.'</p><br />'); |
.'</p><br />'); |
} |
} |
my $idx=0; |
my $idx=0; |
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { |
foreach my $entry (&attemptread(&Apache::lonnet::filelocation('',$url))) { |
if (defined($_)) { |
if (defined($entry)) { |
$idx++; |
$idx++; |
if ($successtied) { |
if ($successtied) { |
$r->print('<form name="form'.$idx.'">'); |
$r->print('<form name="form'.$idx.'">'); |
} |
} |
my ($title,$url)=split(/\:/,$_); |
my ($title,$url)=split(/\:/,$entry); |
$title = &LONCAPA::map::qtescape($title); |
$title = &LONCAPA::map::qtescape($title); |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
my $enc_title = &HTML::Entities::encode($title,'\'"<>&'); |
my $enc_title = &HTML::Entities::encode($title,'\'"<>&'); |
Line 182 ENDCHECKBOX
|
Line 184 ENDCHECKBOX
|
|
|
# ----------------------------------------------------------- Clean out selhash |
# ----------------------------------------------------------- Clean out selhash |
sub start_fresh_session { |
sub start_fresh_session { |
foreach (keys %selhash) { |
foreach my $item (keys(%selhash)) { |
if ($_ =~ /^pre_/) { |
if ($item =~ /^pre_/) { |
delete $selhash{$_}; |
delete $selhash{$item}; |
} |
} |
if ($_ =~ /^store/) { |
if ($item =~ /^store/) { |
delete $selhash{$_}; |
delete $selhash{$item}; |
} |
} |
} |
} |
} |
} |
Line 217 sub handler {
|
Line 219 sub handler {
|
my $dismapid=''; |
my $dismapid=''; |
my $exitdisid = ''; |
my $exitdisid = ''; |
my $arrow_dir = ''; |
my $arrow_dir = ''; |
|
my $is_encrypted = ''; |
|
|
if (($env{'request.course.fn'}) && (!$env{'form.forceselect'})) { |
if (($env{'request.course.fn'}) && (!$env{'form.forceselect'})) { |
my $last; |
my $last; |
Line 247 sub handler {
|
Line 250 sub handler {
|
if (!$env{'request.role.adv'}) { |
if (!$env{'request.role.adv'}) { |
$randomout = $bighash{'randomout_'.$disid}; |
$randomout = $bighash{'randomout_'.$disid}; |
} |
} |
|
if (!$env{'request.role.adv'}) { |
|
$is_encrypted = $bighash{'encrypted_'.$disid}; |
|
} |
} elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
} elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
Line 266 sub handler {
|
Line 272 sub handler {
|
if (!$env{'request.role.adv'}) { |
if (!$env{'request.role.adv'}) { |
$randomout = $bighash{'randomout_'.$disid}; |
$randomout = $bighash{'randomout_'.$disid}; |
} |
} |
|
if (!$env{'request.role.adv'}) { |
|
$is_encrypted = $bighash{'encrypted_'.$disid}; |
|
} |
} |
} |
} |
} |
$exitdisid = $disid; |
$exitdisid = $disid; |
Line 279 sub handler {
|
Line 288 sub handler {
|
# now either disurl is set (going to first page), or we need another display |
# now either disurl is set (going to first page), or we need another display |
if ($disurl) { |
if ($disurl) { |
# -------------------------------------------------- Has first or last resource |
# -------------------------------------------------- Has first or last resource |
|
my $showdisurl = $disurl; |
|
if ($is_encrypted) { |
|
$showdisurl = &Apache::lonenc::encrypted($disurl); |
|
} |
&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid], |
&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid], |
'last_known' => [$disurl,$dismapid]); |
'last_known' => [$disurl,$dismapid]); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}). |
$r->header_out(Location => &Apache::lonnet::absolute_url($ENV{'SERVER_NAME'}). |
$disurl); |
$showdisurl); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
if ($exitdisid eq '' && $arrow_dir ne '') { |
if ($exitdisid eq '' && $arrow_dir ne '') { |
my %lt =&Apache::lonlocal::texthash( |
my %lt =&Apache::lonlocal::texthash( |
'back' => 'beginning', |
|
'forward' => 'end', |
|
'nere' => 'Next resource could not be displayed', |
'nere' => 'Next resource could not be displayed', |
'goba' => 'Go Back', |
'goba' => 'Go Back', |
'nacc' => 'Navigate Course Content', |
'nacc' => 'Course Contents', |
); |
); |
my $warnmsg = &mt('As all folders and sequences '); |
if (&Apache::loncommon::course_type() eq 'Community') { |
|
$lt{'nav'} = &mt('Community Contents'); |
|
} |
|
my $warnmsg; |
if ($arrow_dir eq 'forward') { |
if ($arrow_dir eq 'forward') { |
$warnmsg .= &mt('following the current resource were empty').','; |
$warnmsg = &mt('As all folders and sequences ' |
|
.'following the current resource were empty, ' |
|
.'you have now reached the end of the course.'); |
} elsif ($arrow_dir eq 'back') { |
} elsif ($arrow_dir eq 'back') { |
$warnmsg .= &mt('preceding the current resource were empty').','; |
$warnmsg = &mt('As all folders and sequences ' |
|
.'preceding the current resource were empty, ' |
|
.'you have now reached the beginning of the course.'); |
} |
} |
$warnmsg .= &mt('you have now reached the').' '.$lt{$arrow_dir}.' '.&mt('of the course.'); |
|
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Empty Folder/Sequence'); |
&Apache::loncommon::start_page('Empty Folder/Sequence'); |
my $end_page= |
my $end_page= |