--- loncom/interface/lonprintout.pm	2005/12/13 19:13:51	1.404
+++ loncom/interface/lonprintout.pm	2005/12/15 19:08:14	1.407
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.404 2005/12/13 19:13:51 albertel Exp $
+# $Id: lonprintout.pm,v 1.407 2005/12/15 19:08:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1257,11 +1257,11 @@ ENDPART
 		    $result.="\\newpage\n";
 		}
 	    }
-	    my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
+	    my ($sequence,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
 	    $urlp=&Apache::lonnet::clutter($urlp);
 	    $form{'symb'}=$master_seq[$i];
-	    my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]);
-	    my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem
+
+	    my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #title of the assignment which contains this problem
 	    if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
 	    if ($i==0) {$prevassignment=$assignment;}
 	    my $texversion='';
@@ -1294,7 +1294,7 @@ ENDPART
 		    } else {
 			if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
 			    $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
-			    $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($urlp).'}\vskip 0 mm ';
+			    $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($master_seq[$i]).'}\vskip 0 mm ';
 			    $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
 			    $texversion.='\vskip 1 mm '.$answer;
 			} else {
@@ -2172,16 +2172,16 @@ CHOOSE_STUDENTS
         my %all_codes = &Apache::lonnet::get('CODEs',
 					     \@names, $cdom,$cnum);
 	my %code_values;
-	my @all_code_array;
-	foreach my $key (keys %all_codes) {
+	my %codes_to_print;
+	foreach my $key (keys(%all_codes)) {
 	    %code_values = &Apache::grades::get_codes($key, $cdom, $cnum);
-	    foreach my $key (keys %code_values) {
-		push (@all_code_array, "$key");
+	    foreach my $key (keys(%code_values)) {
+		$codes_to_print{$key} = 1;
 	    }
 	}
 
 	my $code_selection = "<choice></choice>\n";
-	foreach my $code (sort {uc($a) cmp uc($b)} @all_code_array) {
+	foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) {
 	    my $choice  = $code;
 	    if ($code =~ /^[A-Z]+$/) { # Alpha code
 		$choice = &letters_to_num($code);
@@ -2397,7 +2397,6 @@ CHOOSE_FROM_SUBDIR
       <valuefunc>return $urlValue;</valuefunc>
       <choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);
 	</choicefunc>
-      <option text='Newpage' variable='FINISHPAGE' />
       </resource>
     </state>
   <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">