[interchange-cvs] interchange - racke modified code/UserTag/capture_page.tag

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2003-08-04 22:10:10 GMT
Modified:  code/UserTag capture_page.tag
Log:
hide option added

Revision  Changes    Path
1.5       +2 -1      interchange/code/UserTag/capture_page.tag


rev 1.5, prev_rev 1.4
Index: capture_page.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/capture_page.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- capture_page.tag	9 Jul 2003 09:40:58 -0000	1.4
+++ capture_page.tag	4 Aug 2003 22:10:10 -0000	1.5
@@ -33,8 +33,9 @@
 	my $pageref = Vend::Page::display_page($page,{return => 1});
 	Vend::Interpolate::substitute_image($pageref);
 
-	return Vend::File::writefile (">$file", $pageref, 
+	my $retval = Vend::File::writefile (">$file", $pageref, 
         {auto_create_dir => $opt->{auto_create_dir},
 		umask => $opt->{umask}});
+	return $opt->{hide} ? '' : $retval;
 }
 EOR