[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