version 1.341, 2013/02/05 16:22:27
|
version 1.342, 2013/03/11 19:46:13
|
Line 1908 returns: nothing
|
Line 1908 returns: nothing
|
|
|
sub docs_breadcrumbs { |
sub docs_breadcrumbs { |
my ($allowed,$crstype,$contenteditor,$title,$precleared)=@_; |
my ($allowed,$crstype,$contenteditor,$title,$precleared)=@_; |
my ($folderpath,@folders); |
my ($folderpath,@folders,$supplementalflag); |
@folders = split('&',$env{'form.folderpath'}); |
@folders = split('&',$env{'form.folderpath'}); |
|
if ($env{'form.folderpath'} =~ /^supplemental/) { |
|
$supplementalflag = 1; |
|
} |
my $plain=''; |
my $plain=''; |
my $container = 'sequence'; |
my $container = 'sequence'; |
my ($randompick,$isencrypted,$ishidden,$is_random_order) = (-1,0,0,0); |
my ($randompick,$isencrypted,$ishidden,$is_random_order) = (-1,0,0,0); |
Line 1930 sub docs_breadcrumbs {
|
Line 1933 sub docs_breadcrumbs {
|
# each of randompick number, hidden, encrypted, random order, is_page |
# each of randompick number, hidden, encrypted, random order, is_page |
# are appended with ":"s to the foldername |
# are appended with ":"s to the foldername |
$name=~s/\:(\d*)\:(\w*)\:(\w*):(\d*)\:?(\d*)$//; |
$name=~s/\:(\d*)\:(\w*)\:(\w*):(\d*)\:?(\d*)$//; |
if ($contenteditor) { |
unless ($supplementalflag) { |
if ($1 ne '') { |
if ($contenteditor) { |
$randompick=$1; |
if ($1 ne '') { |
} else { |
$randompick=$1; |
$randompick=-1; |
} else { |
|
$randompick=-1; |
|
} |
|
if ($2) { $ishidden=1; } |
|
if ($3) { $isencrypted=1; } |
|
if ($4 ne '') { $is_random_order = 1; } |
|
if ($5 == 1) {$container = 'page'; } |
} |
} |
if ($2) { $ishidden=1; } |
|
if ($3) { $isencrypted=1; } |
|
if ($4 ne '') { $is_random_order = 1; } |
|
if ($5 == 1) {$container = 'page'; } |
|
} |
} |
if ($folder eq 'supplemental') { |
if ($folder eq 'supplemental') { |
$name = &mt('Supplemental '.$crstype.' Contents'); |
$name = &mt('Supplemental '.$crstype.' Contents'); |