[BACK]Return to londefdef.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.426 and 1.428

version 1.426, 2010/11/18 17:42:15 version 1.428, 2011/04/05 10:02:57
Line 47  use Image::Magick; Line 47  use Image::Magick;
 use Apache::lonmenu();  use Apache::lonmenu();
 use Apache::lonmeta();  use Apache::lonmeta();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::loncommon();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use File::Basename;  use File::Basename;
 use LONCAPA();  use LONCAPA();
Line 588  sub start_body { Line 589  sub start_body {
 sub edit_controls {  sub edit_controls {
     my ($nochgview) = @_;      my ($nochgview) = @_;
     my $result .= '      my $result .= '
 <form method="post">  <form method="post" action="">
 <div class="LC_edit_problem_header">';  <div class="LC_edit_problem_header">';
     unless ($nochgview) {      unless ($nochgview) {
         $result .= '          $result .= '
Line 600  sub edit_controls { Line 601  sub edit_controls {
     $result .= '      $result .= '
 <div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />';  <div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />';
     if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {      if (($env{'request.course.id'}) && ($env{'form.forceedit'})) {
         $result .= ('&nbsp;' x 3).'<input type="button" value="'.&mt('Course View').'" onclick="javascript:location.href=currentURL" />';          my $viewtext = &mt('Course View');
           if (&Apache::loncommon::course_type() eq 'Community') {
               $viewtext = &mt('Community View');
           }
           $result .= ('&nbsp;' x 3).'<input type="button" value="'.
                      $viewtext.'" onclick="javascript:location.href=currentURL" />';
     }      }
     $result .= '</div>      $result .= '</div>
 </div>  </div>
Line 2057  sub start_table { Line 2063  sub start_table {
  if ((defined $border) && ($border > 0)) {   if ((defined $border) && ($border > 0)) {
  #    &Apache::lonnet::logthis("Turning on table borders: $border");   #    &Apache::lonnet::logthis("Turning on table borders: $border");
     $table->table_border(1);      $table->table_border(1);
     if ($cell_border ne 'none') {      if (!defined $cell_border) {
  $table->cell_border(1); # html specs that border turns on both...unless rules='none'.   $table->cell_border(1); # Default for rules is all if rules not defined.
     }      }
  }   }
  # Only all or nothing for cell borders for now:   # Only all or nothing for cell borders for now:
   
  if ((defined $cell_border) && ($cell_border ne 'none')) {   if ((defined $cell_border)) {
  #    &Apache::lonnet::logthis("Turning on cell borders: $cell_border");      if ($cell_border eq 'all') {
     $table->cell_border(1);   $table->cell_border(1);
       } elsif ($cell_border eq 'rows') {
    $table->cell_border(2);
       } elsif ($cell_border eq 'cols') {
    $table->cell_border(3);
       } else {
    $table->cell_border(0);
       }
  }   }
  if (defined $theme) {   if (defined $theme) {
     $table->theme($theme);      $table->theme($theme);
Removed from v.1.426  
changed lines
  Added in v.1.428

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>