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

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <address@hidden> 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" => address@hidden,
+#                                              "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" => address@hidden,
+                                               "nbstatements" => 
$nbstatements);
+
 }
 else {
        ($template, $loggedinuser, $cookie)
@@ -153,6 +242,12 @@
 }
 
 $template->param(authtypesloop => address@hidden,
+                               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