[Koha-cvs] koha/opac opac-authorities-home.pl [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	06/03/08 14:39:59

Modified files:
	opac           : opac-authorities-home.pl 

Log message:
	removing useless code (copy-paste from intranet, useless in OPAC)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/opac/opac-authorities-home.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.3&tr2=1.1.2.4&r1=text&r2=text

Patches:
Index: koha/opac/opac-authorities-home.pl
diff -u koha/opac/opac-authorities-home.pl:1.1.2.3 koha/opac/opac-authorities-home.pl:1.1.2.4
--- koha/opac/opac-authorities-home.pl:1.1.2.3	Mon Mar  6 19:44:08 2006
+++ koha/opac/opac-authorities-home.pl	Wed Mar  8 14:39:59 2006
@@ -141,94 +141,6 @@
 							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 @@
 }
 
 $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