[Koha-cvs] koha/opac opac-authorities-home.pl [rel_2_2]
Joshua Ferraro
jmf at kados.org
Mon Apr 10 22:08:43 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <kados at savannah.gnu.org> 06/04/10 20:08:43
Modified files:
opac : opac-authorities-home.pl
Log message:
A few fixes for marc21 authorities.
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.5&tr2=1.1.2.6&r1=text&r2=text
Patches:
Index: koha/opac/opac-authorities-home.pl
diff -u koha/opac/opac-authorities-home.pl:1.1.2.5 koha/opac/opac-authorities-home.pl:1.1.2.6
--- koha/opac/opac-authorities-home.pl:1.1.2.5 Tue Apr 4 14:07:03 2006
+++ koha/opac/opac-authorities-home.pl Mon Apr 10 20:08:43 2006
@@ -140,6 +140,95 @@
authtypecode=>$authtypecode,
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)
@@ -153,6 +242,12 @@
}
$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
More information about the Koha-cvs
mailing list