X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=gal2%2FUCW%2FGallery%2FWeb.pm;h=d2a718ad372d277a644b8b3cc3fced5fe9aa6ba8;hb=f9921003cf92c6e31af784bdf0e3f0e42d6fc25d;hp=2d6de1d42dafd4b2b804d51d411d0f235f5e7364;hpb=af6a110cfa2e84b53328488f70e23a316bececfd;p=gallery.git

diff --git a/gal2/UCW/Gallery/Web.pm b/gal2/UCW/Gallery/Web.pm
index 2d6de1d..d2a718a 100644
--- a/gal2/UCW/Gallery/Web.pm
+++ b/gal2/UCW/Gallery/Web.pm
@@ -8,26 +8,14 @@ use UCW::CGI;
 use File::Spec;
 
 my $show_img;
-my $send_archive;
 
 my %args = (
 	'i'	=> { 'var' => \$show_img, 'check' => '\d+' },
-	'a'	=> { 'var' => \$send_archive }
 );
 
 our $meta;
 our $num_photos;
 
-sub new() {
-	if ($send_archive && $CF{'AllowArchives'}) {
-		# FIXME?
-		require UCW::Gallery::Archive;
-		return new UCW::Gallery::Archive($send_archive);
-	} else {
-		return bless {};
-	}
-}
-
 sub error($) {
 	print "<p style='color:red'>Bad luck, the script is broken. Sorry.\n<p>$_[0]\n";
 	print "</body></html>\n";