Commit 3a544e32 authored by Jojo Boulix's avatar Jojo Boulix
Browse files

Introduce %(code:XXX) syntax in annotation header

parent b89db16e

AMC-perl/AMC/Substitute.pm

+3 −0
Original line number Diff line number Diff line
@@ -68,6 +68,9 @@ s/\%[m]/$self->format_note($self->{scoring}->variable('mark_max'))/ge; 
            debug "No marks found ! Copy="

              . studentids_string( $student, $copy );

        }



        # Substitute codes values

        $text =~ s/\%\(code:(.*?)\)/$self->{scoring}->student_code($student,$copy,$1)/ge;

    }



    $text =~ s/\%[n]/$self->{name}/ge;