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

[sakharuk]

sakharuk		Thu Aug  1 15:48:18 2002 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Corrections necessary to print Ray's course.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.43 loncom/interface/lonprintout.pm:1.44
--- loncom/interface/lonprintout.pm:1.43	Fri Jul 26 14:40:43 2002
+++ loncom/interface/lonprintout.pm	Thu Aug  1 15:48:18 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.43 2002/07/26 18:40:43 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.44 2002/08/01 19:48:18 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,6 +79,7 @@
 <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence">  All problems from the top level sequence<br />
 <br />
 ENDMENUOUT2
+    }
       my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
       $subdirtoprint =~ s/\/[^\/]+$//;
       if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {
@@ -86,7 +87,6 @@
   <input type="radio" name="choice" value="Subdirectory print">  All problems from current subdirectory (where this particular problem is)<br />
 ENDMENUOUT4
       }
-    }
     $r->print(<<ENDMENUOUT5);
 <br /><hr /><br />
 <h1>And what page format do you prefer?</h1>
@@ -98,7 +98,17 @@
    </td>
    <td>&nbsp;</td>
    <td rawspan="2">
-     Number of columns: <input type="text" size="2" name="numberofcolumns" value="2"> 
+     Number of columns: <select name="numberofcolumns">
+                         <option selected> 1 </option>
+                         <option> 2 </option>
+                         <option> 3 </option>
+                         <option> 4 </option>
+                         <option> 5 </option>
+                         <option> 6 </option>
+                         <option> 7 </option>
+                         <option> 8 </option>
+                         <option> 9 </option>
+                        </select> 
    </td>
  </tr>
 </table>
@@ -157,6 +167,11 @@
 	my $sequence_file=&Apache::lonnet::filelocation("",$primary_sequence);
 	my $sequencefilecontents=&Apache::lonnet::getfile($sequence_file);
 	my @master_seq = &content_map($sequencefilecontents);
+#
+#	for (my $iu=0;$iu<=$#master_seq;$iu++) {
+#	    $result .= ' '.$master_seq[$iu].'    ';
+#	}
+#
         #-- produce an output string
 	for (my $i=0;$i<=$#master_seq;$i++) {
 	    $_ = $master_seq[$i];
@@ -687,7 +702,7 @@
 	$_ = $chunk;
         m/to=\"(\d+)\"/;
 	push @number_seq,$1;
-	$startlink = index($map_string,'from="'.$1.'"',$startlink);
+	$startlink = index($map_string,'from="'.$1.'"',0);
 	$startlink = rindex($map_string,'<link ',$startlink);
     }
     my $stalink = index($map_string,' to="'.$number_seq[0].'"',$startlink);