[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[albertel]

albertel		Tue Mar 21 13:43:50 2006 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - restore the 'pick a specific code that I had used before' drop down (but its faster now)
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.431 loncom/interface/lonprintout.pm:1.432
--- loncom/interface/lonprintout.pm:1.431	Wed Mar 15 17:11:04 2006
+++ loncom/interface/lonprintout.pm	Tue Mar 21 13:43:49 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.431 2006/03/15 22:11:04 albertel Exp $
+# $Id: lonprintout.pm,v 1.432 2006/03/21 18:43:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2302,8 +2302,16 @@
 	    if ($code =~ /^[A-Z]+$/) { # Alpha code
 		$choice = &letters_to_num($code);
 	    }
-	    $code_selection .= '   <choice computer="'.$choice.'">'.$code."</choice>\n";
+	    push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
 	}
+	$code_selection .=
+'   
+      <exec>
+        push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
+      </exec>
+    '.$/;
+
+	
 	open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
 	my $codechoice='';
 	foreach my $line (<FH>) {
@@ -2358,6 +2366,12 @@
         </validator>
     </string>
     <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
+    <message><b>Choose single code from list</b></message>
+    <message></td><td></message>
+    <choices variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
+        $code_selection
+    </choices>
+    <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
     <message><b>Reprint a set of saved CODEs:</b></message>
     <message></td><td></message>
     <dropdown variable="REUSE_OLD_CODES">
@@ -2464,6 +2478,12 @@
         </validator>
     </string>
     <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
+    <message><b>Choose single code from list</b></message>
+    <message></td><td></message>
+    <dropdown variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
+        $code_selection
+    </dropdown>
+    <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
     <message><b>Reprint a set of saved CODEs:</b></message>
     <message></td><td></message>
     <dropdown variable="REUSE_OLD_CODES">