--- loncom/interface/lonpdfupload.pm	2011/11/02 15:14:21	1.21
+++ loncom/interface/lonpdfupload.pm	2012/09/14 11:24:06	1.22
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # PDF Form Upload Handler
 #
-# $Id: lonpdfupload.pm,v 1.21 2011/11/02 15:14:21 bisitz Exp $
+# $Id: lonpdfupload.pm,v 1.22 2012/09/14 11:24:06 goltermann Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -299,10 +299,12 @@ sub grade_pdf {
             $result .= '<td><a href="/res/'.$problem{'resource'}.
                        '?symb='.
                        &HTML::Entities::encode($problem{'symb'},'"&<>').
-                       '">'.$problemname.'</a></td><td class="';
+                       '">'.$problemname.'</a></td><td><span class="';
             if ($grade eq "EXACT_ANS" || $grade eq "APPROX_ANS") {
                 $result .= 'LC_answer_correct';
-            } else { 
+            } elsif ($grade eq "DRAFT") {
+                $result .= 'LC_answer_not_charged_try';
+            } else {
                 $result .= 'LC_answer_charged_try';
             }
             $result .= '">';
@@ -375,6 +377,7 @@ sub parse_grade_answer {
      my %answerhash = ('EXACT_ANS' => &mt('You are correct.'),
                        'APPROX_ANS' => &mt('You are correct.'),
                        'INCORRECT' => &mt('You are incorrect'),
+                       'DRAFT' => &mt('Copy saved but not submitted.'),
      );
 
     foreach my $key (keys %answerhash) {