version 1.105, 2003/01/23 20:19:38
|
version 1.106, 2003/01/27 16:01:13
|
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 @titles_master_seq = &titles_coming_from_hash($primary_sequence,$sequence[0]); |
|
foreach my $entity (@titles_master_seq) {$entity=~/^(.*)&&/; $entity=$1} |
my @master_seq_view = @master_seq; |
my @master_seq_view = @master_seq; |
@master_seq = @master_seq; |
if (not $ENV{'request.role'}=~/^st\./) { |
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]=~/___\d+___(.+)$/; |
$master_seq_view[$i]=$1; |
$master_seq_view[$i]='/'.$1; |
|
} |
|
} else { |
|
for (my $i=0;$i<=$#master_seq_view;$i++) { |
|
$master_seq_view[$i]=' '; |
|
} |
} |
} |
$r->print(<<ENDMENUOUT1); |
$r->print(<<ENDMENUOUT1); |
<input type="hidden" name="url" value="$ENV{'form.url'}"> |
<input type="hidden" name="url" value="$ENV{'form.url'}"> |
Line 192 sub sequence_content_menu {
|
Line 199 sub sequence_content_menu {
|
} |
} |
</script> |
</script> |
<input type=button onClick="checkall()" value="Check All"> |
<input type=button onClick="checkall()" value="Check All"> |
<input type=button onClick="uncheckall()" value="Uncheck"> |
<input type=button onClick="uncheckall()" value="Uncheck"> |
|
<input type="submit" value="Submit"> |
<p> |
<p> |
ENDMENUOUT1 |
ENDMENUOUT1 |
my $inc=0; |
my $inc=0; |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
for (my $i=0;$i<=$#master_seq_view;$i++) { |
if ($key_to==1 && $master_seq_view[$i]=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($key_to==1 && $master_seq[$i]=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
$r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n". |
$r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".'<b>'. |
$master_seq_view[$i]); |
$titles_master_seq[$i].'</b> <small>'.$master_seq_view[$i].'</small>'); |
$inc++; |
$inc++; |
} elsif ($key_to==0 && $master_seq_view[$i]=~/\.(problem|exam|quiz|assess|survey|form|library|xml|htm|html|page)$/) { |
} elsif ($key_to==0 && $master_seq[$i]=~/\.(problem|exam|quiz|assess|survey|form|library|xml|htm|html|page)$/) { |
$r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '. |
$r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".'<b>'. |
$master_seq_view[$i]); |
$titles_master_seq[$i].'</b> <small>'.$master_seq_view[$i].'</small>'); |
$inc++; |
$inc++; |
} |
} |
} |
} |
Line 798 sub coming_from_hash {
|
Line 806 sub coming_from_hash {
|
} |
} |
|
|
|
|
|
sub titles_coming_from_hash { |
|
|
|
my ($mainsequence,$symb) = @_; |
|
my @resourcelist = (); |
|
my $mapid = $hash{'map_pc_'.$mainsequence}; |
|
my $mapstart = $hash{'map_start_'.$mainsequence}; |
|
my $mapfinish = $hash{'map_finish_'.$mainsequence}; |
|
my ($presymb); |
|
if ($symb) { |
|
($presymb)=split(/___/,$symb); |
|
} else { |
|
$presymb=$mainsequence; |
|
$presymb=~s|^/res/||; |
|
} |
|
$presymb = $presymb.'___'; |
|
my $current_resource = $mapstart; |
|
while ($current_resource ne $mapfinish) { |
|
if (not $hash{'src_'.$current_resource}=~/\.sequence$/) { |
|
my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}}; |
|
if ($rid=~/,/) { |
|
my @rid = split /,/, $rid; |
|
foreach my $rid_element (@rid) { |
|
if ($rid_element =~ m/^$mapid\.(\d*)/) { |
|
$rid = $1; |
|
last; |
|
} |
|
} |
|
} else { |
|
$rid =~ m/^$mapid\.(\d*)/; |
|
$rid = $1; |
|
} |
|
$hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/; |
|
$symb = $presymb.$rid.'___'.$1; |
|
push @resourcelist,$hash{'title_'.$current_resource}.'&&'.$symb; |
|
} else { |
|
push @resourcelist,&titles_coming_from_hash($hash{'src_'.$current_resource}); |
|
} |
|
$current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}}; |
|
} |
|
#needs if final resource in the map (type="finish") contains something |
|
if (not $hash{'src_'.$current_resource}=~/\.sequence$/) { |
|
my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}}; |
|
if ($rid=~/,/) { |
|
my @rid = split /,/, $rid; |
|
foreach my $rid_element (@rid) { |
|
if ($rid_element =~ m/^$mapid\.(\d*)/) { |
|
$rid = $1; |
|
last; |
|
} |
|
} |
|
} else { |
|
$rid =~ m/^$mapid\.(\d*)/; |
|
$rid = $1; |
|
} |
|
$hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/; |
|
$symb = $presymb.$rid.'___'.$1; |
|
push @resourcelist,$hash{'title_'.$current_resource}.'&&'.$symb; |
|
} else { |
|
push @resourcelist,&titles_coming_from_hash($hash{'src_'.$current_resource}); |
|
} |
|
return @resourcelist; |
|
} |
|
|
sub latex_header_footer_remove { |
sub latex_header_footer_remove { |
my $text = shift; |
my $text = shift; |
$text =~ s/\\end{document}//; |
$text =~ s/\\end{document}//; |