[interchange-cvs] interchange - heins modified dist/lib/UI/pages/admin/transfer_catalog.html
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu Apr 10 14:40:00 2003
User: heins
Date: 2003-04-10 18:39:51 GMT
Modified: dist/lib/UI/pages/admin transfer_catalog.html
Log:
* Add a download link for the created transfer file.
Revision Changes Path
1.2 +17 -3 interchange/dist/lib/UI/pages/admin/transfer_catalog.html
rev 1.2, prev_rev 1.1
Index: transfer_catalog.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/transfer_catalog.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- transfer_catalog.html 10 Apr 2003 18:04:24 -0000 1.1
+++ transfer_catalog.html 10 Apr 2003 18:39:51 -0000 1.2
@@ -7,8 +7,8 @@
[set icon_name]icon_config.gif[/set]
[calc]
+ my $old = $Scratch->{xfer_catname} = $Config->{CatalogName};
return if $CGI->{do_xfer};
- my $old = $Config->{CatalogName};
my $new = $CGI->{rename};
return unless $old and $new;
$new =~ s/[^-\w]+//g;
@@ -47,9 +47,23 @@
<!-- ----- BEGIN REAL STUFF ----- -->
+<span class=cmessage>
[if scratch xfer_success]
-<span class=cmessage>Catalog output successfully.</span>
+Catalog output successfully.
[/if]
+
+[if type=file term="[scratch xfer_catname].tar.gz"]
+<p>
+ [calc] $Scratch->{mv_deliver} .= " $Scratch->{xfer_catname}.tar.gz" ; return; [/calc]
+ [page add_dot_html=0 href="ui/[scratch xfer_catname].tar.gz"
+ form="
+ mv_data_file=[scratch xfer_catname].tar.gz
+ mv_content_type=application/x-gzip
+ mv_todo=deliver
+ "][L]Download transfer file[/L] ([file-info name="[scratch xfer_catname].tar.gz"])</A><BR>
+</p>
+[/if]
+</span>
<table __UI_T_PROPERTIES__>
<tr>
<td colspan=2 class=rborder><img src="bg.gif" width=__UI_MAIN_WIDTH__ height=1></td>
@@ -169,4 +183,4 @@
<!-- ----- END REAL STUFF ----- -->
@_UI_STD_FOOTER_@
-<!-- page: @@MV_PAGE@@ version: $Revision: 1.1 $ -->
+<!-- page: @@MV_PAGE@@ version: $Revision: 1.2 $ -->