SWAPR/SWAPRoutputWebassign.py~ at master · scott-s-douglas/SWAPR · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
from sqlite1 import *
from SWAPRstrings import *

def exportWebassign(filename,db,labNumber):

    db.cursor.execute("SELECT wID FROM student")
    wIDs = [str(item[0]) for item in db.cursor.fetchall()]

    with open(filename,'w') as output:
        output.write('<eqn>\n'
            '#!/usr/bin/env perl\n'
            '%linkdb = (\n')

        for wID in wIDs:
            if db.getURL(wID,labNumber) is not '':
                output.write(getPerlLinksLine(wID,db.getURLsToGrade(wID,labNumber)[4:]))
        output.write(');\n\n')

        output.write('sub get_link {\n'
            'my ($stu, $linknum) = @_;\n'
            'return $linkdb{$stu}[$linknum];\n'
            "}\n''\n"
            '</eqn>\n'
            '<eqn>\n'
            '$this_student = $STUDENT;'  # We need to strip out the @
            '$this_student =~ s/@/_/g;'  # because that breaks hash lookup
            '\n'
            "'';"  # Make sure the output of this expression is blank
            '</eqn>\n\n')

        output.write('<b>Please watch and respond to the following video:</b> <a href=http://youtu.be/<EQN>get_link($this_student,$QUESTION_NUM-1);</EQN> target="_blank"><eqn get_link($this_student,$QUESTION_NUM-1);></a> (This might be your own video; if so, please grade it honestly!)\n<br><br>\n\n')

def writeCommentsWebassign(db,filename,labNumber):

    with open(filename,'w') as output:
            output.write('<eqn>\n'
                '#!/usr/bin/env perl\n'
                '%comments_db = (\n')
            typeDict = getRubricTypeDict(db,labNumber)

            db.cursor.execute("SELECT wID FROM student")
            wIDs = [str(d[0]) for d in db.cursor.fetchall()]


            for wID in wIDs:
                  db.cursor.execute("SELECT grade FROM grades, student WHERE student.Lab"+str(labNumber)+"URL = grades.URL AND student.wID = ?",[wID])
                  responses = [stringToList(str(d[0])) for d in db.cursor.fetchall()]
                  if len(responses) > 0:
                        peerComments = []
                        for response in responses:
                              comments = [str(item).replace('"',"'") for item in response if typeDict[response.index(item) +1] == 'freeResponse'] # Everything in the database is 1-indexed
                              peerComments.append(comments)
                        i = 0
                        # Construct the string of all comments for this wID
                        perlString = ''
                        for comments in peerComments:
                              perlString += "Item "+str(i+1)+": "+comments[i]
                              # for comment in comments:
                              #       perlString += "Item "+str(comments.index(comment)+1)+": "+comment+"<br>"
                              perlString += '<br><br>'

                        output.write( '"' + perlPerson(wID) + '"=>{ "comments"=>"'+perlString+'"},\n' )

            output.write(');\n\n')

            output.write('# END link DB definition\n'
                        '#==============================\n'

                        'sub get_comments{\n'
                        'my ($stu) = @_;\n'
                        "return $comments_db{$stu}{'comments'};\n"
                        '}\n'

                        '$this_student = $STUDENT; #we need to strip out the @\n'
                        '$this_student =~ s/@/_/g; #cause that breaks hash lookup\n'
                        "''; #make sure the output of this expression is blank\n"
                        '</eqn>\n'

                        '<EQN get_comments($this_student);>')