version 1.40, 2010/02/23 05:00:16
|
version 1.43, 2012/12/19 05:21:13
|
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 301 sub handler {
|
Line 303 sub handler {
|
$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' => 'Navigate Course Content', |
); |
); |
my $warnmsg = &mt('As all folders and sequences '); |
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= |