--- loncom/homework/inputtags.pm	2014/12/22 17:04:03	1.329
+++ loncom/homework/inputtags.pm	2015/03/19 08:40:38	1.333.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.329 2014/12/22 17:04:03 raeburn Exp $
+# $Id: inputtags.pm,v 1.333.2.1 2015/03/19 08:40:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -464,12 +464,11 @@ sub start_textline {
 		    $name = "none";
 		}
 		$result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"'
-		     . ' type="text" '
-		     . $readonly.' name="'. $name . '"'
+		     . ' onfocus="javascript:disableAutoComplete(\''.$itemid.'\');"'
+		     . ' type="text" '.$readonly.' name="'. $name . '"'
 		     . ' id="' . $itemid . '"'
 		     . ' value="'.  $oldresponse.'"'
-		     . ' class="LC_textline spellchecked"  size="'.$size.'"'.$maxlength
-		     . ' autocomplete="off" />';
+		     . ' class="LC_textline spellchecked"  size="'.$size.'"'.$maxlength.' />';
 
 		$result .= &spellcheck_onblur($itemid, $spellcheck);
 	    }
@@ -641,7 +640,7 @@ sub file_selector {
     my $current_files_display = &current_file_submissions($part,$id);
     my $addfiles;
     if ($current_files_display) {
-        $result .= &Apache::lonhtmlcommon::row_title(&mt('Files currently selected for submission')).
+        $result .= &Apache::lonhtmlcommon::row_title(&mt('Currently submitted files')).
                    $current_files_display.
                    &Apache::lonhtmlcommon::row_closure();
         $addfiles = &mt('Submit other file(s)');
@@ -699,15 +698,6 @@ 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 @unversioned;
-    foreach my $file (split(/\s*,\s*/,&unescape($portfiles))) {
-        my ($path,$name) = ($file =~ m{^(.*/)([^/]+)$});
-        my ($origname,$version,$ext) = &Apache::lonnet::file_name_version_ext($name);
-        unless ($version) {
-            push(@unversioned,$file);
-        }    
-    }
-    return if (!@unversioned);
     my $header = &portpath_popup_js().
                  &Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row();
@@ -718,7 +708,7 @@ sub current_file_submissions {
                  '<th>'.&mt('Size (MB)').'</th>'.
                  '<th>'.&mt('Last Modified').'</th>'.
                  &Apache::loncommon::end_data_table_header_row();
-    my ($symb,$crsid,$udom,$uname)=&Apache::lonnet::whichuser();
+    my (undef,$crsid,$udom,$uname)=&Apache::lonnet::whichuser();
     my ($cdom,$cnum) = ($crsid =~ /^($LONCAPA::match_domain)_($LONCAPA::match_courseid)$/);
     my ($result,$header_shown,%okfiles,%rows,%legacy,@bad_file_list);
     if ($uploadedfile) {
@@ -737,9 +727,9 @@ sub current_file_submissions {
             push(@bad_file_list,$error);
         }
     }
-    if (@unversioned > 0) {
+    if ($portfiles =~ /[^\s]/) {
         my $prefix = "/uploaded/$udom/$uname/portfolio";
-        foreach my $file (@unversioned) {
+        foreach my $file (split(/\s*,\s*/,&unescape($portfiles))) {
             my ($path,$name) = ($file =~ m{^(.*/)([^/]+)$});
             my $url = $prefix.$path.$name;
             my $uploadedfile = &HTML::Entities::encode($url,'<>&"');
@@ -1512,7 +1502,8 @@ sub setgradedata {
     $Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;
     $Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate");
     $Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries");
-    $Apache::lonhomework::results{"resourse.$id.version"} = &Apache::lonnet::usedversion(); 
+    $Apache::lonhomework::results{"resource.$id.version"} = &Apache::lonnet::usedversion();
+    $Apache::lonhomework::results{"resource.$id.maxtries"} = &Apache::lonnet::EXT("resource.$id.maxtries");
 }
 
 sub find_which_previous {
@@ -1739,15 +1730,15 @@ sub previous_tries {
 
     my $count;
     my %count_lookup;
-    my $lastrndseed;
+    my ($lastrndseed,$lasttype);
     my $numstamps = 0;
 
     foreach my $i (1..$Apache::lonhomework::history{'version'}) {
 	my $prefix = $i.":resource.$id";
-        my $is_anon; 
+        my $is_anon;
+        my $curr_type = $Apache::lonhomework::history{"$prefix.type"};    
         if (defined($env{'form.grade_symb'})) {
-            if (($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurvey') || 
-                ($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurveycred')) {
+            if (($curr_type eq 'anonsurvey') || ($curr_type eq 'anonsurveycred')) {
                 $is_anon = 1;
             }
         }
@@ -1786,8 +1777,9 @@ sub previous_tries {
                              {$1 <strong>$txt_correct</strong>. $3}s;
 	    }
             my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";
-            if (($curr_rndseed || $lastrndseed) && ($i > 1)) {
-                if ($curr_rndseed ne $lastrndseed) {
+            if (($curr_rndseed ne '') &&  ($lastrndseed ne '')) {
+                if (($curr_rndseed ne $lastrndseed) && 
+                    (($curr_type eq 'randomizetry') || ($lasttype eq 'randomizetry'))) {
                     $trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>';
                 }
             } 
@@ -1828,6 +1820,7 @@ sub previous_tries {
 	}
 	$output.=&Apache::loncommon::end_data_table_row()."\n";
         $lastrndseed = $curr_rndseed;
+        $lasttype = $curr_type;
     }
     return if ($output eq '');
     my $headers = '<tr>'.