version 1.100, 2002/12/23 19:11:33
|
version 1.101, 2003/01/06 15:19:21
|
Line 153 ENDMENUOUT5
|
Line 153 ENDMENUOUT5
|
|
|
sub sequence_content_menu { |
sub sequence_content_menu { |
my ($key_to,$r) = @_; |
my ($key_to,$r) = @_; |
|
my $primary_sequence; |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'}); |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'}); |
my @sequence = split('___',$symbolic); |
my @sequence = split('___',$symbolic); |
my $primary_sequence = '/res/'.$sequence[0]; |
if ($sequence[0]=~/^uploaded/) {$primary_sequence = '/'.$sequence[0];} |
|
else {$primary_sequence = '/res/'.$sequence[0];} |
my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); |
my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); |
my @master_seq_view = @master_seq; |
my @master_seq_view = @master_seq; |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
Line 1187 sub character_chart {
|
Line 1189 sub character_chart {
|
|
|
sub page_format_transformation { |
sub page_format_transformation { |
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; |
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; |
|
$assignment=~s/_/ /g; |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
if ($layout eq 'CBI') { |
if ($layout eq 'CBI') { |