Gallery2: Clean up remnants of archiving

[gallery.git] / gal2 / UCW / Gallery / Web.pm

diff --git a/gal2/UCW/Gallery/Web.pm b/gal2/UCW/Gallery/Web.pm
index 2d6de1d42dafd4b2b804d51d411d0f235f5e7364..d2a718ad372d277a644b8b3cc3fced5fe9aa6ba8 100644 (file)
--- 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;
 use File::Spec;
 
 my $show_img;

-my $send_archive;

 
 my %args = (
        'i'     => { 'var' => \$show_img, 'check' => '\d+' },
 
 my %args = (
        'i'     => { 'var' => \$show_img, 'check' => '\d+' },

-       'a'     => { 'var' => \$send_archive }

 );
 
 our $meta;
 our $num_photos;
 
 );
 
 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";
 sub error($) {
        print "<p style='color:red'>Bad luck, the script is broken. Sorry.\n<p>$_[0]\n";
        print "</body></html>\n";