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

raeburn raeburn@source.lon-capa.org
Mon, 15 Mar 2010 17:27:40 -0000


raeburn		Mon Mar 15 17:27:40 2010 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  - Warning about LON-CAPA version eliminated - no longer needed.
    - First run of refresh_courseids_db.pl will store creation date etc. for old courses originally created without this data prior to 2.9.
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.134 loncom/interface/loncreatecourse.pm:1.135
--- loncom/interface/loncreatecourse.pm:1.134	Wed Nov 18 19:15:44 2009
+++ loncom/interface/loncreatecourse.pm	Mon Mar 15 17:27:40 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.134 2009/11/18 19:15:44 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.135 2010/03/15 17:27:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -859,9 +859,8 @@
             $curr{$key} = $defaults{$key};
         }
     }
-    my (%whodunit,$version);
-    ($version) = ($r->dir_config('lonVersion') =~ /^([\d\.]+)\-/);
-    $r->print(&creation_display_filter($formname,\%curr,$version));
+    my %whodunit;
+    $r->print(&creation_display_filter($formname,\%curr));
     my $showntablehdr = 0;
     my $tablehdr = &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().
@@ -1045,7 +1044,7 @@
 }
 
 sub creation_display_filter {
-    my ($formname,$curr,$version) = @_;
+    my ($formname,$curr) = @_;
     my $nolink = 1;
     my ($contexts,$contextnames) = &context_names();
     my $output = '<table><tr><td valign="top">'.
@@ -1116,15 +1115,7 @@
     # Update Display button
     $output .= '<p>'.
                '<input type="submit" value="'.&mt('Update Display').'" />'.
-               '</p>';
-
-    # 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 />';
+               '</p><hr />';
     return $output;
 }