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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 02 Jul 2004 09:41:07 -0000


albertel		Fri Jul  2 05:41:07 2004 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm lonretrieve.pm 
  Log:
  BUG#3061, retreive doesn't need it's own indow.
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.61 loncom/publisher/lonpubdir.pm:1.62
--- loncom/publisher/lonpubdir.pm:1.61	Fri Jun 18 12:52:19 2004
+++ loncom/publisher/lonpubdir.pm	Fri Jul  2 05:41:07 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.61 2004/06/18 16:52:19 www Exp $
+# $Id: lonpubdir.pm,v 1.62 2004/07/02 09:41:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -352,7 +352,7 @@
 	$title.='<br /><a href="/~'.$uname.$thisdisfn.'/'.$filename.'.meta">'. 
 	    ($$bombs{$targetdir.'/'.$filename}?'<img src="/adm/lonMisc/bomb.gif" border="0" />':'Edit Metadata').'</a>';
 	$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.
-	    $thisdisfn.'/'.$filename.'" target=cat>'.&mt('Retrieve').'</a>';
+	    $thisdisfn.'/'.$filename.'" target="_top">'.&mt('Retrieve').'</a>';
     }
     my $editlink='';
     my $editlink2='';
Index: loncom/publisher/lonretrieve.pm
diff -u loncom/publisher/lonretrieve.pm:1.24 loncom/publisher/lonretrieve.pm:1.25
--- loncom/publisher/lonretrieve.pm:1.24	Thu Mar 11 17:45:06 2004
+++ loncom/publisher/lonretrieve.pm	Fri Jul  2 05:41:07 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.24 2004/03/11 22:45:06 albertel Exp $
+# $Id: lonretrieve.pm,v 1.25 2004/07/02 09:41:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -123,6 +123,8 @@
 } else {
     $r->print('<h3>'.&mt('No previous versions published.').'</h3>');
 }
+    $r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn.
+	      '</a></p>'); 
 }
 
 # ---------------------------------- Interface for presenting specified version