--- loncom/homework/structuretags.pm	2011/02/06 18:43:10	1.487
+++ loncom/homework/structuretags.pm	2011/07/26 17:14:51	1.493
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.487 2011/02/06 18:43:10 www Exp $
+# $Id: structuretags.pm,v 1.493 2011/07/26 17:14:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -170,37 +170,154 @@ sub file_delchk_js {
     return <<"ENDSCRIPT";
 <script type="text/javascript">
 // <![CDATA[
-function file_deletion_check(formname) {
+function file_deletion_check(formname,uploadid) {
     var elemnum = formname.elements.length;
     if (elemnum == 0) {
         return true;
     }
-    var str = new RegExp("^HWFILE.+_delete\$");
-    var delboxes = new Array();
+    var alluploads = new Array();
+    if ((uploadid != '') && (uploadid != undefined)) {
+        alluploads.push(uploadid);
+    } else {
+        var uploadstr = /^HWFILE.+\$/;
+        for (var i=0; i<formname.elements.length; i++) {
+            var id = formname.elements[i].id;
+            if (id != '') {
+                if (uploadstr.test(id)) {
+                    if (formname.elements[i].type == 'file') {
+                        alluploads.push(id);
+                    }
+                }
+            }
+        }
+    }
+    for (var i=0; i<alluploads.length; i++) {
+        var delstr = new RegExp('^'+alluploads[i]+'_\\\\d+_delete\$');
+        var delboxes = new Array();
+        for (var j=0; j<formname.elements.length; j++) {
+            var id = formname.elements[j].id;
+            if (id != '') {
+                if (delstr.test(id)) {
+                    if (formname.elements[j].type == 'checkbox') {
+                        if (formname.elements[j].checked) {
+                            delboxes.push(id);
+                        }
+                    }
+                }
+            }
+        }
+        if (delboxes.length > 0) {
+            if (!confirm("$delfilewarn")) {
+                for (var j=0; j<delboxes.length; j++) {
+                    formname.elements[delboxes[j]].checked = false;
+                }
+                return false;
+            }
+        }
+    }
+    return true;
+}
+// ]]>
+</script>
+ENDSCRIPT
+}
+
+sub file_overwritechk_js {
+    my $overwritewarn = &mt('File(s) you uploaded for your submission will overwrite existing file(s) submitted for this item').'\\n'.
+                      &mt('Continue submission and overwrite the file(s)?');
+    return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+function file_overwrite_check(formname,path,multiresp) {
+    var elemnum = formname.elements.length;
+    if (elemnum == 0) {
+        return true;
+    }
+    var alluploads = new Array();
+    var uploaded = new Array();
+    var uploadstr = /^HWFILE.+\$/;
+    var fnametrim = /[^\\/\\\\]+\$/;
     for (var i=0; i<formname.elements.length; i++) {
         var id = formname.elements[i].id;
         if (id != '') {
-            if (str.test(id)) {
-                if (formname.elements[i].type == 'checkbox') {
-                    if (formname.elements[i].checked) {
-                        delboxes.push(id);
+            if (uploadstr.test(id)) {
+                if (formname.elements[i].type == 'file') {
+                    alluploads.push(id);
+                    if ((formname.elements[i].value != undefined) &&
+                        (formname.elements[i].value != '')) {
+                        uploaded.push(id);
                     }
                 }
             }
         }
     }
-    if (delboxes.length > 0) {
-        if (confirm("$delfilewarn")) {
-            return true;
-        } else {
-            for (var j=0; j<delboxes.length; j++) {
-                formname.elements[delboxes[j]].checked = false;
+    for (var i=0; i<alluploads.length; i++) {
+        var delstr = new RegExp("^"+alluploads[i]+"_\\\\d+_delete\$");
+        var delboxes = new Array();
+        for (var j=0; j<formname.elements.length; j++) {
+            var id = formname.elements[j].id;
+            if (id != '') {
+                if (delstr.test(id)) {
+                    if (formname.elements[j].type == 'checkbox') {
+                        delboxes.push(id);
+                    }
+                }
+            }
+        }
+        var overwrites = new Array();
+        if (delboxes.length > 0) {
+            if ((formname.elements[alluploads[i]].value != undefined) &&
+                (formname.elements[alluploads[i]].value != '')) {
+                var filepath = formname.elements[alluploads[i]].value;
+                var newfilename = fnametrim.exec(filepath);
+                if (newfilename != null) {
+                    var filename = String(newfilename);
+                    var nospaces = filename.replace(/\\s+/g,'_');
+                    var nospecials = nospaces.replace(/[^\\/\\w\\.\\-]/g,'');
+                    var cleanfilename = nospecials.replace(/\\.(\\d+\\.)/g,"_\$1");
+                    if (cleanfilename != '') {
+                        var fullpath = path+"/"+cleanfilename;
+                        if (multiresp == 1) {
+                            var partid = String(alluploads[i]);
+                            var subdir = partid.replace(/^HWFILE/,'');
+                            if (subdir != "" && subdir != undefined) {
+                                fullpath = path+"/"+subdir+"/"+cleanfilename;
+                            }
+                        }
+                        for (var k=0; k<delboxes.length; k++) {
+                            if (fullpath == formname.elements[delboxes[k]].value) {
+                                var id = formname.elements[delboxes[k]].id;
+                                if (id != '') {
+                                    if (!formname.elements[delboxes[k]].checked) {
+                                        overwrites.push(id);
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            if (overwrites.length > 0) {
+                if (confirm("$overwritewarn")) {
+                    var delcheck = file_deletion_check(formname,alluploads[i]);
+                    if (delcheck == false) {
+                        return false;
+                    }
+                } else {
+                    for (var n=0; n<overwrites.length; n++) {
+                        formname.elements[overwrites[n]].value = "";
+                    }
+                    return false;
+                }
+            } else {
+                var delcheck = file_deletion_check(formname);
+                if (delcheck == false) {
+                    return false;
+                }
             }
-            return false;
         }
-    } else {
-        return true;
     }
+    return true;
 }
 // ]]>
 </script>
@@ -232,8 +349,43 @@ sub page_start {
         $extra_head .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
     }
     my $is_task = ($env{'request.uri'} =~ /\.task$/);
+    my $needs_upload;
     if ($is_task) {
         $extra_head .= &file_delchk_js();
+    } else {
+        if (&Apache::lonnet::EXT("resource.$Apache::inputtags::part.uploadedfiletypes") ne '') {
+            $needs_upload = 1;
+        } else {
+            unless ($env{'request.state'} eq 'construct') {
+                my ($symb)= &Apache::lonnet::whichuser();
+                my $navmap = Apache::lonnavmaps::navmap->new();
+                if (ref($navmap)) {
+                    my $res = $navmap->getBySymb($symb);
+                    if (ref($res)) {
+                        my $partlist = $res->parts();
+                        if (ref($partlist) eq 'ARRAY') {
+                            foreach my $part (@{$partlist}) {
+                                my @types = $res->responseType($part);
+                                my @ids = $res->responseIds($part);
+                                for (my $i=0; $i < scalar(@ids); $i++) {
+                                    if ($types[$i] eq 'essay') {
+                                        my $partid = $part.'_'.$ids[$i];
+                                        if (&Apache::lonnet::EXT("resource.$partid.uploadedfiletypes") ne '') {
+                                            $needs_upload = 1;
+                                            last;
+                                        }
+                                    }
+                                }
+                            }
+                        } 
+                    }
+                }
+            }
+        }
+    }
+    if ($needs_upload) {
+        $extra_head .= &file_overwritechk_js()."\n".
+                       &file_delchk_js();
     }
 
     my %body_args;
@@ -316,7 +468,6 @@ sub page_start {
     if (!defined($found{'body'}) && $env{'request.state'} ne 'construct') {
 	$page_start .= &Apache::lonxml::message_location();
     }
-    
     my $form_tag_start;
     if (!defined($found{'form'})) {
 	$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="post" action="';
@@ -327,8 +478,13 @@ sub page_start {
 	if ($target eq 'edit') {
 	    $form_tag_start.=&Apache::edit::form_change_detection();
 	}
+        my ($symb,$courseid,$udom,$uname)=&Apache::lonnet::whichuser();
+        my ($path,$multiresp) = 
+            &Apache::loncommon::get_turnedin_filepath($symb,$uname,$udom);
         if ($is_task) {
             $form_tag_start .= ' onsubmit="return file_deletion_check(this);"';
+        } elsif ($needs_upload) {
+            $form_tag_start .= ' onsubmit="return file_overwrite_check(this,'."'$path','$multiresp'".');"';
         }
 	$form_tag_start.='>'."\n";
 
@@ -411,8 +567,14 @@ sub setup_rndseed {
 	    delete($env{'form.resetdata'});
 	    delete($env{'form.newrandomization'});
 	}
-	if (defined($rndseed) && $rndseed ne int($rndseed)) {
-	    $rndseed=join(':',&Apache::lonnet::digest($rndseed));
+        $rndseed=~s/\,/\:/g;
+        $rndseed=~s/[^\w\d\:\-]//g;
+	if (defined($rndseed)) {
+            my ($c1,$c2)=split(/\:/,$rndseed);
+            unless ($c2) { $c2=0; }
+            unless (($c1==int($c1)) && ($c2==int($c2))) {
+	       $rndseed=join(':',&Apache::lonnet::digest($rndseed));
+            }
         }
         if ($Apache::lonhomework::history{'resource.CODE'}) {
 	   $rndseed=&Apache::lonnet::rndseed();
@@ -642,7 +804,7 @@ $show_all
    <div class="LC_edit_problem_header_randomize_row">
      <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
      <input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
-     <input type="text" name="rndseed" size="10" value="'.
+     <input type="text" name="rndseed" size="24" value="'.
 	       $rndseed.'"
              onchange="javascript:document.lonhomework.changerandseed.click()" />';
 
@@ -1177,6 +1339,9 @@ sub start_problem {
                     }
                 }
 	    }
+            if ($env{'form.grade_imsexport'}) {
+                $result = '';
+            }
 	} elsif ($target eq 'tex') {
 	    $result .= 'INSERTTEXFRONTMATTERHERE';
 
@@ -1281,7 +1446,7 @@ sub end_problem {
 		} else {
 		    $frontmatter.= $begin_doc.$toc_line;
 		    if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { 
-			$frontmatter .= '\fbox{\textit{'.$weight.' pt}}';
+			$frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
 		    }
 		}
 	    } else {
@@ -1291,7 +1456,7 @@ sub end_problem {
 	    if (not $env{'request.symb'} =~ m/\.page_/) {
 		$frontmatter .= $begin_doc.$toc_line;
 		if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { 
-		    $frontmatter .= '\fbox{\textit{'.$weight.' pt}}';
+		    $frontmatter .= '\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
 		}
 	    } else {
 		$frontmatter .= '\vskip 1mm \\\\\\\\'.$startminipage;
@@ -1315,7 +1480,8 @@ sub end_problem {
 	    }
 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
 		  $Apache::inputtags::part eq '0' &&
-		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED') {
+		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED'
+                  && !$env{'form.grade_imsexport'}) {
 	    # if part is zero, no <part>s existed, so we need show the current
 	    # grading status
 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
@@ -1325,8 +1491,9 @@ sub end_problem {
 	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
 	    ($target eq 'answer') || ($target eq 'tex')
 	   ) {
-	    if ($target ne 'tex' &&
-		$env{'form.answer_output_mode'} ne 'tex') {
+	    if (($target ne 'tex') &&
+		($env{'form.answer_output_mode'} ne 'tex') && 
+                (!$env{'form.grade_imsexport'})) {
 		$result.="</form>";
 	    }
 	    if ($target eq 'web') {
@@ -1980,7 +2147,7 @@ sub start_part {
 			$allow_print_points=0;
 		    }
 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { 
-			$result .= '\vskip 10mm\fbox{\textit{'.$weight.' pt}}';
+			$result .= '\vskip 10mm\fbox{\textit{'.&mt('[quant,_1,pt,pt]',$weight ).'}}';
 
 		    }
 		} elsif ($target eq 'web') {
@@ -2049,7 +2216,8 @@ sub end_part {
 	     !$hidden && $in_order_show) {
 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
 							$target);
-	if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {
+	if (($Apache::lonhomework::type eq 'exam' && $target eq 'tex') ||
+             ($env{'form.grade_imsexport'})) {
 	    $gradestatus='';
 	}
 	$result.=$gradestatus;