version 1.101, 2003/01/06 15:19:21
|
version 1.103, 2003/01/10 15:41:26
|
Line 159 sub sequence_content_menu {
|
Line 159 sub sequence_content_menu {
|
if ($sequence[0]=~/^uploaded/) {$primary_sequence = '/'.$sequence[0];} |
if ($sequence[0]=~/^uploaded/) {$primary_sequence = '/'.$sequence[0];} |
else {$primary_sequence = '/res/'.$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 = sort @master_seq; |
|
@master_seq = sort @master_seq; |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
$master_seq_view[$i]=~/\/([^\/]+)$/; |
$master_seq_view[$i]=~/\/([^\/]+)$/; |
$master_seq_view[$i]=$1; |
$master_seq_view[$i]=$1; |
Line 272 sub problem_choice_menu {
|
Line 273 sub problem_choice_menu {
|
<p> |
<p> |
ENDMENUOUT1 |
ENDMENUOUT1 |
my $i=0; |
my $i=0; |
foreach my $file (@list_of_files) { |
foreach my $file (sort @list_of_files) { |
$r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '. |
$r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '. |
$file); |
$file); |
$i++; |
$i++; |
Line 1198 sub page_format_transformation {
|
Line 1199 sub page_format_transformation {
|
if ($choice ne 'All class print') { |
if ($choice ne 'All class print') { |
$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\markboth{}{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}} $courseidinfo - $assignment}\\pagestyle{myheadings}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}/; |
$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\markboth{}{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}} $courseidinfo - $assignment}\\pagestyle{myheadings}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}/; |
} else { |
} else { |
$text =~ s/\\begin{document}/\\setlength{\\textheight}{$textheight}\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\textwidth}{$textwidth}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1} \\vskip 5 mm /; |
$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1} \\vskip 5 mm /; |
} |
} |
} |
} |
return $text; |
return $text; |
Line 1224 sub details_for_menu {
|
Line 1225 sub details_for_menu {
|
my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; |
my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
my ($map,$id,$resource)=split(/___/,$symbolic); |
my ($map,$id,$resource)=split(/___/,$symbolic); |
my $name_of_sequence = $hash{'title_'.$hash{'ids_/res/'.$map}}; |
my $name_of_sequence; |
|
if ($map=~/^uploaded/) { |
|
$name_of_sequence = $hash{'title_'.$hash{'ids_/'.$map}}; |
|
} else { |
|
$name_of_sequence = $hash{'title_'.$hash{'ids_/res/'.$map}}; |
|
} |
if ($name_of_sequence =~ /^\s*$/) { |
if ($name_of_sequence =~ /^\s*$/) { |
$map =~ m|([^/]+)$|; |
$map =~ m|([^/]+)$|; |
$name_of_sequence = $1; |
$name_of_sequence = $1; |
} |
} |
my $name_of_map = $hash{'title_'.$hash{'ids_/res/'.$ENV{'request.course.uri'}}}; |
my $name_of_map = $hash{'title_'.$hash{'ids_/res/'.$ENV{'request.course.uri'}}}; |