Gitlab CSE Unil
Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
M. Chardon
moodle-assignfeedback_editpdfplus
Commits
2b86bb5e
Commit
2b86bb5e
authored
Oct 18, 2016
by
M. Chardon
Browse files
modif pdf
parent
2059f0c2
Changes
1
Hide whitespace changes
Inline
Side-by-side
classes/document_services.php
View file @
2b86bb5e
...
...
@@ -672,14 +672,27 @@ EOD;
$pdf
->
SetTextColor
(
0
,
0
,
0
);
$pdf
->
Write
(
10
,
""
,
''
,
false
,
'L'
,
true
);
$pdf
->
SetFontSize
(
14
);
$pdf
->
SetLeftMargin
(
20
);
$pdf
->
SetLeftMargin
(
40
);
$pdf
->
SetTopMargin
(
20
);
$pdf
->
Write
(
5
,
"Références des annotations"
,
''
,
false
,
'L'
,
true
);
$pdf
->
SetFontSize
(
8
);
$pdf
->
Write
(
10
,
""
,
''
,
false
,
'L'
,
true
);
$pdf
->
SetTextColor
(
255
,
0
,
0
);
$pdf
->
Write
(
5
,
'*'
,
''
,
false
,
'L'
,
false
);
$pdf
->
SetTextColor
(
0
,
0
,
0
);
$pdf
->
Write
(
5
,
" : annotation marquée comme
\"
non comprise
\"
"
,
''
,
false
,
'L'
,
true
);
$pdf
->
SetFontSize
(
10
);
$pdf
->
Write
(
10
,
""
,
''
,
false
,
'L'
,
true
);
foreach
(
$annotation_index
as
$id
=>
$index
)
{
$annot
=
page_editor
::
get_annotation
(
$id
);
if
(
$annot
->
textannot
&&
!
$annot
->
parent_annot
)
{
$pdf
->
Write
(
5
,
$index
.
" : "
,
''
,
false
,
'L'
,
false
);
$pdf
->
Write
(
5
,
$index
,
''
,
false
,
'L'
,
false
);
if
(
$annot
->
studentstatus
===
"2"
)
{
$pdf
->
SetTextColor
(
255
,
0
,
0
);
$pdf
->
Write
(
5
,
'*'
,
''
,
false
,
'L'
,
false
);
$pdf
->
SetTextColor
(
0
,
0
,
0
);
}
$pdf
->
Write
(
5
,
" : "
,
''
,
false
,
'L'
,
false
);
if
(
$annot
->
answerrequested
)
{
$pdf
->
SetTextColor
(
255
,
0
,
0
);
$pdf
->
Write
(
5
,
"[question] "
,
''
,
false
,
'L'
,
true
);
...
...
@@ -699,12 +712,13 @@ EOD;
$pdf
->
SetTextColor
(
0
,
0
,
0
);
$pdf
->
Write
(
10
,
""
,
''
,
false
,
'L'
,
true
);
$pdf
->
SetFontSize
(
14
);
$pdf
->
SetLeftMargin
(
20
);
$pdf
->
SetLeftMargin
(
40
);
$pdf
->
SetTopMargin
(
20
);
$pdf
->
Write
(
5
,
"Feedback global"
,
''
,
false
,
'L'
,
true
);
$pdf
->
Write
(
10
,
""
,
''
,
false
,
'L'
,
true
);
$pdf
->
SetFontSize
(
10
);
$finalcomment
=
page_editor
::
get_feedback_comments
(
$grade
->
id
);
$pdf
->
writeHTMLCell
(
0
,
0
,
2
0
,
5
0
,
$finalcomment
->
commenttext
);
$pdf
->
writeHTMLCell
(
0
,
0
,
4
0
,
7
0
,
$finalcomment
->
commenttext
);
fulldelete
(
$stamptmpdir
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment