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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.134 and 1.135

version 1.134, 2009/11/18 19:15:44 version 1.135, 2010/03/15 17:27:40
Line 859  sub print_creation_logs { Line 859  sub print_creation_logs {
             $curr{$key} = $defaults{$key};              $curr{$key} = $defaults{$key};
         }          }
     }      }
     my (%whodunit,$version);      my %whodunit;
     ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);      $r->print(&creation_display_filter($formname,\%curr));
     $r->print(&creation_display_filter($formname,\%curr,$version));  
     my $showntablehdr = 0;      my $showntablehdr = 0;
     my $tablehdr = &Apache::loncommon::start_data_table().      my $tablehdr = &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().                     &Apache::loncommon::start_data_table_header_row().
Line 1045  ENDSCRIPT Line 1044  ENDSCRIPT
 }  }
   
 sub creation_display_filter {  sub creation_display_filter {
     my ($formname,$curr,$version) = @_;      my ($formname,$curr) = @_;
     my $nolink = 1;      my $nolink = 1;
     my ($contexts,$contextnames) = &context_names();      my ($contexts,$contextnames) = &context_names();
     my $output = '<table><tr><td valign="top">'.      my $output = '<table><tr><td valign="top">'.
Line 1116  sub creation_display_filter { Line 1115  sub creation_display_filter {
     # Update Display button      # Update Display button
     $output .= '<p>'.      $output .= '<p>'.
                '<input type="submit" value="'.&mt('Update Display').'" />'.                 '<input type="submit" value="'.&mt('Update Display').'" />'.
                '</p>';                 '</p><hr />';
   
     # Server version info  
     $output .= '<p class="LC_info">'.  
                &mt('Only courses and communities created from servers running LON-CAPA [_1] or later are displayed.','2.9.0');  
     if ($version) {  
         $output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);  
     }  
     $output .= '</p><hr />';  
     return $output;      return $output;
 }  }
   
Removed from v.1.134  
changed lines
  Added in v.1.135

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