version 1.43, 2012/12/19 05:21:13
|
version 1.45, 2014/12/15 00:46:52
|
Line 133 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 184 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 305 sub handler {
|
Line 305 sub handler {
|
my %lt =&Apache::lonlocal::texthash( |
my %lt =&Apache::lonlocal::texthash( |
'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', |
); |
); |
|
if (&Apache::loncommon::course_type() eq 'Community') { |
|
$lt{'nav'} = &mt('Community Contents'); |
|
} |
my $warnmsg; |
my $warnmsg; |
if ($arrow_dir eq 'forward') { |
if ($arrow_dir eq 'forward') { |
$warnmsg = &mt('As all folders and sequences ' |
$warnmsg = &mt('As all folders and sequences ' |