--- loncom/homework/inputtags.pm	2012/12/19 17:35:34	1.312
+++ loncom/homework/inputtags.pm	2013/08/20 00:46:35	1.320
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.312 2012/12/19 17:35:34 raeburn Exp $
+# $Id: inputtags.pm,v 1.320 2013/08/20 00:46:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -216,7 +216,16 @@ sub start_textfield {
             }
         }
         unless ($newvariation) {
-	    $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
+            if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
+                (($env{'form.grade_username'} eq $env{'user.name'}) &&
+                 ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
+                $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
+            } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||
+                    ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {
+                $oldresponse = '* '.&mt('only shown to submitter').' *';
+            } else {
+                $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
+            }
         }
 	if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
 	    my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
@@ -266,8 +275,9 @@ sub start_textfield {
 	my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
 						   $style);
 	$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);
+        my $spell_langs = &spelling_languages();
 	$result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
-					     ['none', 'en', 'de', 'fr'], $token);
+					     $spell_langs, $token);
     } elsif ($target eq 'modified') {
 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
 						     $safeeval,'rows','cols',
@@ -286,12 +296,18 @@ sub start_textfield {
 	    for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
 	    $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
 	} else {
-	    my $fieldname = $env{'request.symb'}.
-                    '&part_'. $Apache::inputtags::part.
-                    '&textresponse'.
-                    '&HWVAL_' . $Apache::inputtags::response['-1'];
-            $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85
-                .85 .85}]\\';
+            if ($env{'form.pdfFormFields'} eq 'yes') {
+                my $fieldname = $env{'request.symb'}.
+                                '&part_'. $Apache::inputtags::part.
+                                '&textresponse'.
+                                '&HWVAL_' . $Apache::inputtags::response['-1'];
+                $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85 .85 .85}]\\';
+            } else {
+                my $TeXwidth=$width_of_box/80;
+                $result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
+                for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
+                $result.='}}}\vskip 2 mm ';
+            }
 	}
     }
     return $result;
@@ -400,7 +416,18 @@ sub start_textline {
                 }
             }
             unless ($newvariation) {
-	        $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
+                if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
+                    (($env{'form.grade_username'} eq $env{'user.name'}) &&
+                     ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
+                    $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
+                } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||
+                        ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') ||
+                        ($Apache::lonhomework::type eq 'anonsurvey') ||
+                        ($Apache::lonhomework::type eq 'anonsurveycred')) {
+                        $oldresponse = '* '.&mt('only shown to submitter').' *';
+                } else {
+                    $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
+                }
 	        &Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));
 	        if (ref($oldresponse) eq 'ARRAY') {
 		    $oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
@@ -455,8 +482,9 @@ sub start_textline {
 				    'addchars',$token,10);
         $result.=&Apache::edit::select_arg('Readonly:','readonly',
 					   ['no','yes'],$token);
-	$result.=&Apache::edit::select_arg("Spellcheck for: ", 'spellcheck',
-					   ['none', 'en', 'de', 'fr'], $token);
+        my $spell_langs = &spelling_languages();
+	$result.=&Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
+					   $spell_langs, $token);
 	$result.=&Apache::edit::end_row();
 	$result.=&Apache::edit::end_table();
     } elsif ($target eq 'modified') {
@@ -619,7 +647,7 @@ sub file_selector {
 	    &mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';
     }
     if ($maxfilesize) {
-        $constraints .= &mt('Combined size of all files not to exceed: [_1] MB[_2].',
+        $constraints .= &mt('Combined size of all files not to exceed: [_1] MB.',
                         '<b>'.$maxfilesize.'</b>').'<br />';
     }
     if ($constraints) {
@@ -663,7 +691,8 @@ sub current_file_submissions {
     my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"};
     my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"};
     return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/));
-    my $header = &Apache::loncommon::start_data_table().
+    my $header = &portpath_popup_js().
+                 &Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row();
     if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
         $header .= '<th>'.&mt('Delete?').'</th>';
@@ -729,13 +758,24 @@ sub current_file_submissions {
                                  ' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";
                             $num ++;
                         }
-                        my $showname = $rows{$url}{path}.$name;
+                        my $pathid = 'HWFILE'.$jspart.'_'.$id.'_'.$num.'_path';
+                        my $pathidtext = $pathid.'text';
+                        my ($showname,$showpath);
                         if ($legacy{$url}) {
                             $showname = $name.' '.&mt('not in portfolio');
+                        } else {
+                            $showname = $name;
+                            $showpath = '<br />'. 
+                                        '<span id="'.$pathidtext.'" class="LC_cusr_subheading">'.
+                                        '<a href="javascript:showPortPath('."'$pathid','$pathidtext'".');" '.
+                                        'class="LC_menubuttons_link">'.
+                                        &mt('(Show path)').'</a></span>'.
+                                        '<div id="'.$pathid.'" class="LC_dccid">'.$rows{$url}{path}.$name.
+'</div>';
                         }
                         $result .= 
                             '<td><a href="'.$link.'"><img src="'.$icon.
-                            '" border="0" alt="" />'.$showname.'</a></td>'."\n".
+                            '" border="0" alt="" />'.$showname.'</a>'.$showpath.'</td>'."\n".
                             '<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".
                             '<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".
                             &Apache::loncommon::end_data_table_row();
@@ -790,6 +830,43 @@ sub current_file_info {
     return ($status,\%info,$error);
 }
 
+sub portpath_popup_js {
+    my %lt = &Apache::lonlocal::texthash(
+                                          show => '(Show path)',
+                                          hide => '(Hide)',
+                                        );
+    return <<"END";
+<script type="text/javascript"> 
+// <![CDATA[
+
+function showPortPath(id,idtext) {
+    document.getElementById(id).style.display='block';
+    document.getElementById(id).style.textAlign='left';
+    document.getElementById(id).style.textFace='normal';
+    if (document.getElementById(idtext)) {
+        document.getElementById(idtext).innerHTML ='<a href="javascript:hidePortPath(\\''+id+'\\',\\''+idtext+'\\'); '+
+                                                   '"class="LC_menubuttons_link">$lt{'hide'}</a>&nbsp;';
+    }
+    return;
+}
+
+function hidePortPath(id,idtext) {
+    if (document.getElementById(id)) {
+        document.getElementById(id).style.display='none';
+    }
+    if (document.getElementById(idtext)) {
+        document.getElementById(idtext).innerHTML ='<a href="javascript:showPortPath(\\''+id+'\\',\\''+idtext+'\\');" '+
+                                                   'class="LC_menubuttons_link">$lt{'show'}</a>';
+    }
+    return;
+}
+
+// ]]>
+</script>
+
+END
+}
+
 sub valid_award {
     my ($award) =@_;
     foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR',
@@ -1070,7 +1147,7 @@ sub decideoutput {
         } else {
             $message .= '<br />';
         }
-        $message .= &mt('Please use a different file name.');
+        $message .= &mt('Please use a different filename.');
         $css_class=$possible_class{'not_charged_try'};
         $button=1;
     } elsif ($award eq 'INVALID_FILETYPE') {
@@ -1630,6 +1707,7 @@ sub previous_tries {
     my $count;
     my %count_lookup;
     my $lastrndseed;
+    my $numstamps = 0;
 
     foreach my $i (1..$Apache::lonhomework::history{'version'}) {
 	my $prefix = $i.":resource.$id";
@@ -1686,10 +1764,17 @@ sub previous_tries {
 	$message =~ s{(<td.*?>)}{<td>};
 	
 
-	$output.='<tr class="'.$class.'">';
-	$output.='<td align="center">'.$count.'</td>';
-	$output.=$message;
-
+	$output .= '<tr class="'.$class.'">'.
+	           '<td align="center">'.$count.'</td>'.$message;
+        if ((!$is_anon) && ($Apache::lonhomework::history{"$prefix.tries"}) &&
+            ($Apache::lonhomework::history{"$prefix.award"} ne 'ASSIGNED_SCORE') &&
+            ($Apache::lonhomework::history{$i.':timestamp'})) {
+            $output .= '<td>'.&Apache::lonlocal::locallocaltime(
+                             $Apache::lonhomework::history{$i.':timestamp'}).'</td>';
+            $numstamps ++;
+        } else {
+            $output .= '<td></td>';
+        }
 	foreach my $resid (@Apache::inputtags::response) {
 	    my $prefix = $prefix.".$resid";
 	    if (exists($Apache::lonhomework::history{"$prefix.submission"})) {
@@ -1712,10 +1797,20 @@ sub previous_tries {
         $lastrndseed = $curr_rndseed;
     }
     return if ($output eq '');
-    my $headers = 
-	'<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').
-	'</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.
-	&mt('Submitted Answer').'</th>';
+    my $headers = '<tr>'.
+                  '<th>'.&mt('Submission #').'</th>'.
+                  '<th>'.&mt('Try').'</th><th>';
+    if ($numstamps) {
+        $headers .= &mt('When');
+    }
+    $headers .= '</th>';
+    my $colspan = scalar(@Apache::inputtags::response);
+    if ($colspan > 1) {
+        $headers .= '<th colspan="'.$colspan.'">';
+    } else {
+        $headers .= '<th>';
+    }
+    $headers .= &mt('Submitted Answer').'</th></tr>';
     $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';
 
     my $tries_text = &get_tries_text('link');
@@ -1749,6 +1844,21 @@ sub get_tries_text {
     return $tries_text;
 }
 
+sub spelling_languages {
+    my %langchoices;
+    foreach my $id (&Apache::loncommon::languageids()) {
+        my $code = &Apache::loncommon::supportedlanguagecode($id);
+        if ($code ne '') {
+            $langchoices{$code} =  &Apache::loncommon::plainlanguagedescription($id);
+        }
+    }
+    my @spelllangs = ('none');
+    foreach my $code ('en','de','he','es','fr','pt','tr') {
+        push(@spelllangs,[$code,$langchoices{$code}]);
+    }
+    return \@spelllangs;
+}
+
 1;
 __END__