loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.286, 2007/11/20 17:53:22
+version 1.287, 2007/12/24 06:35:18
  Line 1082  sub get_template_list {
  		     '/templates/*.'.$glob_extension);
      @files = map {[$_,&mt(&Apache::lonnet::metadata($_, 'title'))]} (@files);
      @files = sort {$a->[1] cmp $b->[1]} (@files);
+     my ($midpoint,$seconddiv,$numfiles);
+     $numfiles = 0;
+     foreach my $file (@files) {
+         next if ($file->[1] !~ /\S/);
+         $numfiles ++;
+     }
+     if ($numfiles > 0) {
+         $result = '<div class="LC_left_float">';
+         $midpoint = int($numfiles/2);
+         if ($numfiles%2) {
+             $midpoint ++;
+         }
+     }
+     my $count = 0;
      foreach my $file (@files) {
  	next if ($file->[1] !~ /\S/);
  	$result .=
  	    '<label><input type="radio" name="template" value="'.$file->[0].'" />'.
- 	    $file->[1].'</label><br />';
+ 	    $file->[1].'</label><br />'."\n";
+         $count ++;
+         if ((!$seconddiv) && ($count >= $midpoint)) {
+             $result .= '</div>'."\n".'<div class="LC_left_float">'."\n";
+             $seconddiv = 1;
+         }
+     }
+     if ($numfiles > 0) {
+         $result .= '</div>'."\n".'<div class="LC_clear_float_footer"></div>'."\n";
      }
      return $result;
  }