version 1.948.2.26, 2011/01/14 00:25:44
|
version 1.948.2.28, 2011/05/27 19:31:50
|
Line 3570 sub format_previous_attempt_value {
|
Line 3570 sub format_previous_attempt_value {
|
my @anskeys = sort(keys(%answers)); |
my @anskeys = sort(keys(%answers)); |
if (@anskeys == 1) { |
if (@anskeys == 1) { |
my $answer = $answers{$anskeys[0]}; |
my $answer = $answers{$anskeys[0]}; |
if ($answer =~ m{\Q\0\E}) { |
if ($answer =~ m{\0}) { |
$answer =~ s{\Q\0\E}{, }g; |
$answer =~ s{\0}{,}g; |
} |
} |
my $tag_internal_answer_name = 'INTERNAL'; |
my $tag_internal_answer_name = 'INTERNAL'; |
if ($anskeys[0] eq $tag_internal_answer_name) { |
if ($anskeys[0] eq $tag_internal_answer_name) { |
Line 3582 sub format_previous_attempt_value {
|
Line 3582 sub format_previous_attempt_value {
|
} else { |
} else { |
foreach my $ans (@anskeys) { |
foreach my $ans (@anskeys) { |
my $answer = $answers{$ans}; |
my $answer = $answers{$ans}; |
if ($answer =~ m{\Q\0\E}) { |
if ($answer =~ m{\0}) { |
$answer =~ s{\Q\0\E}{, }g; |
$answer =~ s{\0}{,}g; |
} |
} |
$value .= $ans.'='.$answer.'<br />';; |
$value .= $ans.'='.$answer.'<br />';; |
} |
} |
Line 5197 td.LC_table_cell_checkbox {
|
Line 5197 td.LC_table_cell_checkbox {
|
|
|
li.LC_menubuttons_inline_text img,a { |
li.LC_menubuttons_inline_text img,a { |
cursor:pointer; |
cursor:pointer; |
|
text-decoration: none; |
} |
} |
|
|
.LC_menubuttons_link { |
.LC_menubuttons_link { |
Line 9027 sub modify_html_refs {
|
Line 9028 sub modify_html_refs {
|
if ($allfiles{$ref}) { |
if ($allfiles{$ref}) { |
my $newname = $orig; |
my $newname = $orig; |
my ($attrib_regexp,$codebase); |
my ($attrib_regexp,$codebase); |
my $attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i}); |
$attrib_regexp = &unescape($env{'form.embedded_attrib_'.$i}); |
if ($attrib_regexp =~ /:/) { |
if ($attrib_regexp =~ /:/) { |
$attrib_regexp =~ s/\:/|/g; |
$attrib_regexp =~ s/\:/|/g; |
} |
} |
Line 9036 sub modify_html_refs {
|
Line 9037 sub modify_html_refs {
|
$count += $numchg; |
$count += $numchg; |
} |
} |
if ($env{'form.embedded_codebase_'.$i} ne '') { |
if ($env{'form.embedded_codebase_'.$i} ne '') { |
my $codebase = &unescape($env{'form.embedded_codebase_'.$i}); |
$codebase = &unescape($env{'form.embedded_codebase_'.$i}); |
my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs |
my $numchg = ($content =~ s/(codebase\s*=\s*["']?)\Q$codebase\E(["']?)/$1.$2/i); #' stupid emacs |
$codebasecount ++; |
$codebasecount ++; |
} |
} |