From 417d5927975b2524136cdedb2f5115fa20c6a32e Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 8 Mar 2006 14:39:59 +0000
Subject: [PATCH] removing useless code (copy-paste from intranet, useless in
 OPAC)

---
 opac/opac-authorities-home.pl | 94 -----------------------------------
 1 file changed, 94 deletions(-)

diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl
index b5f9967e4c..07a371fe40 100755
--- a/opac/opac-authorities-home.pl
+++ b/opac/opac-authorities-home.pl
@@ -141,94 +141,6 @@ if ($op eq "do_search") {
 							isEDITORS => $authtypecode eq 'EDITORS',
 							);
 
-} elsif ($op eq "delete") {
-
-	&AUTHdelauthority($dbh,$authid, 1);
-
-	($template, $loggedinuser, $cookie)
-		= get_template_and_user({template_name => "authorities/authorities-home.tmpl",
-				query => $query,
-				type => 'intranet',
-				authnotrequired => 0,
-				flagsrequired => {catalogue => 1},
-				debug => 1,
-				});
-# 	$template->param("statements" => \@statements,
-# 						"nbstatements" => $nbstatements);
-}
-elsif ($op eq "AddStatement") {
-
-	($template, $loggedinuser, $cookie)
-		= get_template_and_user({template_name => "authorities/authorities-home.tmpl",
-				query => $query,
-				type => 'intranet',
-				authnotrequired => 0,
-				flagsrequired => {catalogue => 1},
-				debug => 1,
-				});
-
-	# Gets the entered information
-	my @marcfields = $query->param('marclist');
-	my @and_or = $query->param('and_or');
-	my @excluding = $query->param('excluding');
-	my @operator = $query->param('operator');
-	my @value = $query->param('value');
-
-	my @statements = ();
-
-	# List of the marc tags to display
-	my $marcarray = create_marclist();
-
-	my $nbstatements = $query->param('nbstatements');
-	$nbstatements = 1 if(!defined $nbstatements);
-
-	for(my $i = 0 ; $i < $nbstatements ; $i++)
-	{
-		my %fields = ();
-
-		# Recreates the old scrolling lists with the previously selected values
-		my $marclist = create_scrolling_list({name=>"marclist",
-					values=> $marcarray,
-					size=> 1,
-					default=>$marcfields[$i],
-					onChange => "sql_update()"}
-					);
-
-		$fields{'marclist'} = $marclist;
-		$fields{'first'} = 1 if($i == 0);
-
-		# Restores the and/or parameters (no need to test the 'and' for activation because it's the default value)
-		$fields{'or'} = 1 if($and_or[$i] eq "or");
-
-		#Restores the "not" parameters
-		$fields{'not'} = 1 if($excluding[$i]);
-
-		#Restores the operators (most common operators first);
-		if($operator[$i] eq "=") { $fields{'eq'} = 1; }
-		elsif($operator[$i] eq "contains") { $fields{'contains'} = 1; }
-		elsif($operator[$i] eq "start") { $fields{'start'} = 1; }
-		elsif($operator[$i] eq ">") { $fields{'gt'} = 1; }	#greater than
-		elsif($operator[$i] eq ">=") { $fields{'ge'} = 1; } #greater or equal
-		elsif($operator[$i] eq "<") { $fields{'lt'} = 1; } #lower than
-		elsif($operator[$i] eq "<=") { $fields{'le'} = 1; } #lower or equal
-
-		#Restores the value
-		$fields{'value'} = $value[$i];
-
-		push @statements, \%fields;
-	}
-	$nbstatements++;
-
-	# The new scrolling list
-	my $marclist = create_scrolling_list({name=>"marclist",
-				values=> $marcarray,
-				size=>1,
-				onChange => "sql_update()"});
-	push @statements, {"marclist" => $marclist };
-
-	$template->param("statements" => \@statements,
-						"nbstatements" => $nbstatements);
-
 }
 else {
 	($template, $loggedinuser, $cookie)
@@ -242,12 +154,6 @@ else {
 }
 
 $template->param(authtypesloop => \@authtypesloop,
-		                LibraryName => C4::Context->preference("LibraryName"),
-                                OpacNav => C4::Context->preference("OpacNav"),
-                                opaccredits => C4::Context->preference("opaccredits"),
-                                opacsmallimage => C4::Context->preference("opacsmallimage"),
-                                opaclayoutstylesheet => C4::Context->preference("opaclayoutstylesheet"),
-                                opaccolorstylesheet => C4::Context->preference("opaccolorstylesheet"),
 		);
 
 # Print the page
-- 
2.39.5