[LON-CAPA-cvs] cvs: loncom(GCI_2) /homework inputtags.pm

[gci]

gci		Wed Sep 23 03:15:18 2009 EDT

  Modified files:              (Branch: GCI_2)
    /loncom/homework	inputtags.pm 
  Log:
  - Customization for GCI_2.
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.259 loncom/homework/inputtags.pm:1.259.2.1
--- loncom/homework/inputtags.pm:1.259	Wed Jul  8 10:53:08 2009
+++ loncom/homework/inputtags.pm	Wed Sep 23 03:15:18 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.259 2009/07/08 10:53:08 onken Exp $
+# $Id: inputtags.pm,v 1.259.2.1 2009/09/23 03:15:18 gci Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -869,7 +869,11 @@
 	$css_class=$possible_class{'charged_try'};
 	$button=1;
     } elsif ($award eq 'SUBMITTED') {
-	$message = &mt("Your submission has been recorded.");
+        if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
+            if ($target eq 'web') {
+                $message .= '<br />'.&mt('Thank you for making a submission to the Geosciences Concept Inventory via the GCI Web Center.');
+            }
+        }
 	$css_class=$possible_class{'no_grade'};
 	$button=1;
     } elsif ($award eq 'DRAFT') {
@@ -922,9 +926,16 @@
     if (&Apache::lonhomework::hide_problem_status()
 	&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'
 	&& &hide_award($award)) {
-	$message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
-	$css_class=$possible_class{'no_grade'};
-	$button=1;
+        if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
+            if ($target eq 'web') {
+                $message = &mt("Your submission has been recorded.").'<br />'.
+                           &mt('Thank you for making a submission to the Geosciences Concept Inventory via the GCI Web Center.');
+            }
+        } else {
+            $message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
+        }
+        $css_class=$possible_class{'no_grade'};
+        $button=1;
     }
     if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' && 
 	!$added_computer_text && $target ne 'tex') {
@@ -1237,16 +1248,20 @@
 		$trystr = '\vskip 0 mm ';
 	    }
 	} else {
-	    $trystr = '<td><span class="LC_nobreak">'.$tries_text." $tries";
-	    if ($Apache::lonhomework::parsing_a_task) {
-	    } elsif($env{'request.state'} ne 'construct') {
-		$trystr.="/$maxtries";
-	    } else {
-		if (defined($Apache::inputtags::params{'maxtries'})) {
-		    $trystr.="/".$Apache::inputtags::params{'maxtries'};
-		}
-	    }
-	    $trystr.="</span></td>";
+            $trystr = '<td><span class="LC_nobreak">';
+            my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
+            if ($parmhash{'suppress_tries'} ne 'yes') {
+                $trystr .= "$tries_text $tries";
+                if ($Apache::lonhomework::parsing_a_task) {
+                } elsif($env{'request.state'} ne 'construct') {
+                    $trystr.="/$maxtries";
+                } else {
+                    if (defined($Apache::inputtags::params{'maxtries'})) {
+                        $trystr.="/".$Apache::inputtags::params{'maxtries'};
+                    }
+                }
+            }
+            $trystr.="</span></td>";
 	}
     }
 
@@ -1287,13 +1302,17 @@
 	    undef($previousmsg);
 	}
 	if ( $showbutton ) { 
-	    if ($target ne 'tex') {
+            if ($target ne 'tex') {
+                my $submit_text = &mt('Submit Answer');
+                if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
+                    $submit_text = &mt('Submit Questions');
+                }
 		$button = 
 		    '<input 
                           onmouseup="javascript:setSubmittedPart(\''.$id.'\')"
                            onsubmit="javascript:setSubmittedPart(\''.$id.'\')"
                         type="submit" name="submit_'.$id.'"
-                         value="'.&mt('Submit Answer').'" />';
+                         value="'.$submit_text.'" />';
 	    }
 	}
 
@@ -1401,11 +1420,15 @@
     $prefix =~ tr{.}{_};
     my $function_name = "LONCAPA_previous_tries_".$prefix.
 	$Apache::lonxml::curdepth.'_'.$env{'form.counter'};
+    my $triestext = &mt('Previous Tries');
+    if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {
+        $triestext = &mt('Submission History');
+    }
     my $result ="<script type=\"text/javascript\">
 // <![CDATA[
     function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page $output $end_page');newWindow.document.close();newWindow.focus()}
 // ]]>
-</script><a href=\"javascript:$function_name();void(0);\">".&mt("Previous Tries")."</a><br />";
+</script><a href=\"javascript:$function_name();void(0);\">".$triestext."</a><br />";
     #use Data::Dumper;
     #&Apache::lonnet::logthis(&Dumper(\%Apache::inputtags::submission_display));
     return $result;