[LON-CAPA-cvs] cvs: loncom /publisher lonretrieve.pm

[albertel]

albertel		Fri Nov 10 13:01:10 2006 EDT

  Modified files:              
    /loncom/publisher	lonretrieve.pm 
  Log:
  - bug5014 let them know that the retrieve doesn't als retrieve the metadata
  
  
Index: loncom/publisher/lonretrieve.pm
diff -u loncom/publisher/lonretrieve.pm:1.32 loncom/publisher/lonretrieve.pm:1.33
--- loncom/publisher/lonretrieve.pm:1.32	Tue Sep 19 17:47:29 2006
+++ loncom/publisher/lonretrieve.pm	Fri Nov 10 13:01:08 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.32 2006/09/19 21:47:29 albertel Exp $
+# $Id: lonretrieve.pm,v 1.33 2006/11/10 18:01:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -125,10 +125,14 @@
 	}
 	$r->print(&Apache::loncommon::end_data_table_row().
 		  &Apache::loncommon::end_data_table().
-		  '<p>'.
-		  '<span class="LC_error">'.
-		  &mt('Retrieval of an old version will overwrite the file currently in construction space').'</span><p>'.
-		  '<input type="submit" value="'.&mt('Retrieve version').'" /></form>');
+		  '<p>'.'<span class="LC_warning">'.
+		  &mt('Retrieval of an old version will overwrite the file currently in construction space').'</span></p>');
+	if (!$is_meta) {
+	    $r->print('<p>'.'<span class="LC_warning">'.
+		      &mt('This will only retrieve the resource, if you want to retrieve the metadata you will need to do that separately.').
+		      '</span></p>');
+	}
+	$r->print('<input type="submit" value="'.&mt('Retrieve version').'" /></form>');
     } else {
 	$r->print('<h3>'.&mt('No previous versions published.').'</h3>');
     }