[Koha-cvs] koha sec/writeoff.pl serials/alt_subscription-a...
paul poulain
paul at koha-fr.org
Fri Mar 9 16:26:13 CET 2007
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/03/09 15:26:12
Removed files:
sec : writeoff.pl
serials : alt_subscription-add.pl
alt_subscription-detail.pl lateissues.pl
printlist.pl serials-receive.pl
t : format.t require.t Shelf.t
value_builder : labs_theses.pl marc21_008_holdings.pl
marc21_field_003.pl marc21_field_005.pl
marc21_field_006.pl marc21_field_007.pl
marc21_field_008.pl
marc21_leader_authorities.pl
marc21_leader_holdings.pl marc21_leader.pl
unimarc_field_100.pl unimarc_field_105.pl
unimarc_field_106.pl unimarc_field_110.pl
unimarc_field_115a.pl unimarc_field_115b.pl
unimarc_field_116.pl unimarc_field_117.pl
unimarc_field_120.pl unimarc_field_121a.pl
unimarc_field_121b.pl unimarc_field_122.pl
unimarc_field_123a.pl unimarc_field_123d.pl
unimarc_field_123e.pl unimarc_field_123f.pl
unimarc_field_123g.pl unimarc_field_123i.pl
unimarc_field_123j.pl unimarc_field_124a.pl
unimarc_field_124b.pl unimarc_field_124c.pl
unimarc_field_124d.pl unimarc_field_124e.pl
unimarc_field_124f.pl unimarc_field_124g.pl
unimarc_field_124.pl unimarc_field_125a.pl
unimarc_field_125b.pl unimarc_field_125.pl
unimarc_field_126a.pl unimarc_field_126b.pl
unimarc_field_126.pl unimarc_field_127.pl
unimarc_field_128a.pl unimarc_field_128b.pl
unimarc_field_128c.pl unimarc_field_130.pl
unimarc_field_135a.pl unimarc_field_140.pl
unimarc_field_141.pl unimarc_field_210c.pl
unimarc_field_225a.pl unimarc_field_4XX.pl
unimarc_field_60X.pl unimarc_field_700-4.pl
unimarc_field_700_701_702.pl unimarc_leader.pl
usmarc_field_952v.pl
Log message:
rel_3_0 moved to HEAD (removing useless file)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/sec/writeoff.pl?cvsroot=koha&r1=1.7&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/serials/alt_subscription-add.pl?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/serials/alt_subscription-detail.pl?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/serials/lateissues.pl?cvsroot=koha&r1=1.11&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/serials/printlist.pl?cvsroot=koha&r1=1.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serials-receive.pl?cvsroot=koha&r1=1.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/t/format.t?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/t/require.t?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/t/Shelf.t?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/labs_theses.pl?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_008_holdings.pl?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_003.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_005.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_006.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_007.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_008.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_leader_authorities.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_leader_holdings.pl?cvsroot=koha&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_leader.pl?cvsroot=koha&r1=1.6&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_100.pl?cvsroot=koha&r1=1.10&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_105.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_106.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_110.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_115a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_115b.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_116.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_117.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_120.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_121a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_121b.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_122.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123d.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123e.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123f.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123g.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123i.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_123j.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124b.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124c.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124d.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124e.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124f.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124g.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_124.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_125a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_125b.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_125.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_126a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_126b.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_126.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_127.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_128a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_128b.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_128c.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_130.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_135a.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_140.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_141.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_210c.pl?cvsroot=koha&r1=1.9&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_225a.pl?cvsroot=koha&r1=1.10&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_4XX.pl?cvsroot=koha&r1=1.9&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_60X.pl?cvsroot=koha&r1=1.5&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_700-4.pl?cvsroot=koha&r1=1.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_700_701_702.pl?cvsroot=koha&r1=1.7&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_leader.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/usmarc_field_952v.pl?cvsroot=koha&r1=1.2&r2=0
Patches:
Index: sec/writeoff.pl
===================================================================
RCS file: sec/writeoff.pl
diff -N sec/writeoff.pl
--- sec/writeoff.pl 11 Feb 2004 08:44:30 -0000 1.7
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,91 +0,0 @@
-#!/usr/bin/perl
-
-#written 11/1/2000 by chris at katipo.co.nz
-#script to write off accounts
-
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use CGI;
-use C4::Context;
-use C4::Stats;
-my $input=new CGI;
-
-#print $input->header;
-#print $input->dump;
-
-my%inp;
-
-my @name=$input->param;
-for (my $i=0;$i<@name;$i++){
- my $test=$input->param($name[$i]);
- if ($test eq 'wo'){
- my $temp=$name[$i];
- $temp=~ s/payfine//;
- $inp{$name[$i]}=$temp;
- }
-}
-my $bornum;
-while ( my ($key, $value) = each %inp){
-# print $key,$value;
- my $accounttype=$input->param("accounttype$value");
- $bornum=$input->param("bornum$value");
- my $itemno=$input->param("itemnumber$value");
- my $amount=$input->param("amount$value");
- if ($accounttype eq 'Res'){
- my $accountno=$input->param("accountno$value");
- writeoff($bornum,$accountno,$itemno,$accounttype,$amount);
- } else {
- writeoff($bornum,'',$itemno,$accounttype,$amount);
- }
-}
-#print $input->header;
-$bornum=$input->param('bornum');
-print $input->redirect("/cgi-bin/koha/pay.pl?bornum=$bornum");
-
-#needs to be shifted to a module when time permits
-sub writeoff{
- my ($bornum,$accountnum,$itemnum,$accounttype,$amount)=@_;
- my $user=$input->remote_user;
- $user=~ s/Levin/C/;
- $user=~ s/Foxton/F/;
- $user=~ s/Shannon/S/;
- my $dbh = C4::Context->dbh;
- my $env;
- my $sth;
- if ($accounttype eq 'Res'){
- $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where accounttype='Res' and accountno=? and borrowernumber=?");
- $sth->execute($accountnum,$bornum);
- } else {
- $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where accounttype=? and itemnumber=? and borrowernumber=?");
- $sth->execute($accounttype,$itemnum,$bornum);
- }
- $sth->finish;
- $sth=$dbh->prepare("select max(accountno) from accountlines");
- $sth->execute;
- my $account=$sth->fetchrow_hashref;
- $sth->finish;
- $account->{'max(accountno)'}++;
- $sth=$dbh->prepare("insert into accountlines (borrowernumber,accountno,itemnumber,date,amount,description,accounttype)
- values (?,?,?,now(),?,'Writeoff','W')");
- $sth->execute($bornum,$account->{'max(accountno)'},$itemnum,$amount);
- $sth->finish;
-# print $query;
- UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum);
-}
Index: serials/alt_subscription-add.pl
===================================================================
RCS file: serials/alt_subscription-add.pl
diff -N serials/alt_subscription-add.pl
--- serials/alt_subscription-add.pl 11 Aug 2006 16:33:53 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,260 +0,0 @@
-#!/usr/bin/perl
-
-
-use strict;
-use CGI;
-use C4::Koha;
-use C4::Auth;
-use C4::Date;
-use C4::Output;
-use C4::Acquisition;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use HTML::Template;
-use C4::Serials;
-use Date::Manip;
-
-my $query = new CGI;
-my $op = $query->param('op');
-my $dbh = C4::Context->dbh;
-my ($subscriptionid,$auser,$librarian,$cost,$aqbooksellerid, $aqbooksellername,$aqbudgetid, $bookfundid, $startdate, $periodicity,
- $firstacquidate, $dow, $irregularity, $numberpattern, $numberlength, $weeklength, $monthlength, $sublength,
- $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
- $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
- $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
- $numberingmethod, $status, $biblionumber,
- $bibliotitle, $callnumber, $notes, $hemisphere);
-
- my @budgets;
-my ($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "serials/alt_subscription-add.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
-
-my $weekarrayjs='';
-my $count = 0;
-my ($year, $month, $day) = UnixDate("today", "%Y", "%m", "%d");
-my $firstday = Date_DayOfYear($month,$day,$year);
-my $wkno = Date_WeekOfYear($month,$day,$year,1); # week starting monday
-my $weekno = $wkno;
-for(my $i=$firstday;$i<($firstday+365);$i=$i+7){
- $count = $i;
- if($wkno > 52){$year++; $wkno=1;}
- if($count>365){$count=$i-365;}
- my ($y,$m,$d) = Date_NthDayOfYear($year,$count);
- my $output = "$y-$m-$d";
- $weekarrayjs .= "'Wk $wkno: ".format_date($output)."',";
- $wkno++;
-}
-chop($weekarrayjs);
-# warn $weekarrayjs;
-
-my $sub_on;
-my @subscription_types = (
- 'issues', 'weeks', 'months'
- );
-my @sub_type_data;
-if ($op eq 'mod') {
- my $subscriptionid = $query->param('subscriptionid');
- my $subs = &GetSubscription($subscriptionid);
- $auser = $subs->{'user'};
- $librarian => $subs->{'librarian'},
- $cost = $subs->{'cost'};
- $aqbooksellerid = $subs->{'aqbooksellerid'};
- $aqbooksellername = $subs->{'aqbooksellername'};
- $startdate = $subs->{'startdate'};
- $firstacquidate = $subs->{'firstacquidate'};
- $periodicity = $subs->{'periodicity'};
- $dow = $subs->{'dow'};
- $irregularity = $subs->{'irregularity'};
- $numberpattern = $subs->{'numberpattern'};
- $numberlength = $subs->{'numberlength'};
- $weeklength = $subs->{'weeklength'};
- $monthlength = $subs->{'monthlength'};
-
- if($monthlength > 0){
- $sublength = $monthlength;
- $sub_on = $subscription_types[2];
- } elsif ($weeklength>0){
- $sublength = $weeklength;
- $sub_on = $subscription_types[1];
- } else {
- $sublength = $numberlength;
- $sub_on = $subscription_types[0];
- }
-
-
- while (@subscription_types) {
- my $sub_type = shift @subscription_types;
- my %row = ( 'name' => $sub_type );
- if ( $sub_on eq $sub_type ) {
- $row{'selected'} = ' selected';
- } else {
- $row{'selected'} = '';
- }
- push( @sub_type_data, \%row );
- }
-
- $add1 = $subs->{'add1'};
- $every1 = $subs->{'every1'};
- $whenmorethan1 = $subs->{'whenmorethan1'};
- $setto1 = $subs->{'setto1'};
- $lastvalue1 = $subs->{'lastvalue1'};
- $innerloop1 = $subs->{'innerloop1'};
- $add2 = $subs->{'add2'};
- $every2 = $subs->{'every2'};
- $whenmorethan2 = $subs->{'whenmorethan2'};
- $setto2 = $subs->{'setto2'};
- $lastvalue2 = $subs->{'lastvalue2'};
- $innerloop2 = $subs->{'innerloop2'};
- $add3 = $subs->{'add3'};
- $every3 = $subs->{'every3'};
- $whenmorethan3 = $subs->{'whenmorethan3'};
- $setto3 = $subs->{'setto3'};
- $lastvalue3 = $subs->{'lastvalue3'};
- $innerloop3 = $subs->{'innerloop3'};
- $numberingmethod = $subs->{'numberingmethod'};
- $status = $subs->{status};
- $biblionumber = $subs->{'biblionumber'};
- $bibliotitle = $subs->{'bibliotitle'};
- $callnumber = $subs->{'callnumber'};
- $notes = $subs->{'notes'};
- $hemisphere = $subs->{'hemisphere'};
- $template->param(
- $op => 1,
- user => $auser,
- librarian => $librarian,
- aqbooksellerid => $aqbooksellerid,
- aqbooksellername => $aqbooksellername,
- cost => $cost,
- aqbudgetid => $aqbudgetid,
- bookfundid => $bookfundid,
- startdate => format_date($startdate),
- firstacquidate => format_date($firstacquidate),
- periodicity => $periodicity,
- dow => $dow,
- irregularity => $irregularity,
- numberpattern => $numberpattern,
- sublength => $sublength,
- subtype => \@sub_type_data,
- add1 => $add1,
- every1 => $every1,
- whenmorethan1 => $whenmorethan1,
- setto1 => $setto1,
- lastvalue1 => $lastvalue1,
- innerloop1 => $innerloop1,
- add2 => $add2,
- every2 => $every2,
- whenmorethan2 => $whenmorethan2,
- setto2 => $setto2,
- lastvalue2 => $lastvalue2,
- innerloop2 => $innerloop2,
- add3 => $add3,
- every3 => $every3,
- whenmorethan3 => $whenmorethan3,
- setto3 => $setto3,
- lastvalue3 => $lastvalue3,
- innerloop3 => $innerloop3,
- numberingmethod => $numberingmethod,
- status => $status,
- biblionumber => $biblionumber,
- bibliotitle => $bibliotitle,
- callnumber => $callnumber,
- notes => $notes,
- subscriptionid => $subscriptionid,
- weekarrayjs => $weekarrayjs,
- weekno => $weekno,
- hemisphere => $hemisphere,
- );
-
- $template->param(
- "periodicity$periodicity" => 1,
- "dow$dow" => 1,
- "numberpattern$numberpattern" => 1,
- );
-}
-
-if ($op eq 'addsubscription') {
- my @irregular = $query->param('irregular');
- my $irregular_count = @irregular;
- for(my $i =0;$i<$irregular_count;$i++){
- $irregularity .=$irregular[$i]."|";
- }
- $irregularity =~ s/\|$//;
-
- my $auser = $query->param('user');
- my $aqbooksellerid = $query->param('aqbooksellerid');
- my $cost = $query->param('cost');
- my $aqbudgetid = $query->param('aqbudgetid');
- my $startdate = $query->param('startdate');
- my $firstacquidate = $query->param('firstacquidate');
- my $periodicity = $query->param('periodicity');
- my $dow = $query->param('dow');
- # my $irregularity = $query->param('irregularity');
- my $numberlength = 0;
- my $weeklength = 0;
- my $monthlength = 0;
- my $numberpattern = $query->param('numbering_pattern');
- my $sublength = $query->param('sublength');
- my $subtype = $query->param('subtype');
- if ($subtype eq 'months'){
- $monthlength = $sublength;
- } elsif ($subtype eq 'weeks'){
- $weeklength = $sublength;
- } else {
- $numberlength = $sublength;
- }
-
- my $add1 = $query->param('add1');
- my $every1 = $query->param('every1');
- my $whenmorethan1 = $query->param('whenmorethan1');
- my $setto1 = $query->param('setto1');
- my $lastvalue1 = $query->param('lastvalue1');
- my $add2 = $query->param('add2');
- my $every2 = $query->param('every2');
- my $whenmorethan2 = $query->param('whenmorethan2');
- my $setto2 = $query->param('setto2');
- my $lastvalue2 = $query->param('lastvalue2');
- my $add3 = $query->param('add3');
- my $every3 = $query->param('every3');
- my $whenmorethan3 = $query->param('whenmorethan3');
- my $setto3 = $query->param('setto3');
- my $lastvalue3 = $query->param('lastvalue3');
- my $numberingmethod = $query->param('numberingmethod');
- my $status = 1;
- my $biblionumber = $query->param('biblionumber');
- my $callnumber = $query->param('callnumber');
- my $notes = $query->param('notes');
- my $hemisphere = $query->param('hemisphere') || 1;
-
- my $subscriptionid = old_newsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber,
- $startdate,$periodicity,$firstacquidate,$dow,$irregularity,$numberpattern,$numberlength,$weeklength,$monthlength,
- $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,
- $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,
- $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,
- $numberingmethod, $status, $callnumber, $notes, $hemisphere
- );
- print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
-} else {
-
- while (@subscription_types) {
- my $sub_type = shift @subscription_types;
- my %row = ( 'name' => $sub_type );
- if ( $sub_on eq $sub_type ) {
- $row{'selected'} = ' selected';
- } else {
- $row{'selected'} = '';
- }
- push( @sub_type_data, \%row );
- }
- $template->param(subtype => \@sub_type_data,
- weekarrayjs => $weekarrayjs,
- weekno => $weekno,
- );
- output_html_with_http_headers $query, $cookie, $template->output;
-}
Index: serials/alt_subscription-detail.pl
===================================================================
RCS file: serials/alt_subscription-detail.pl
diff -N serials/alt_subscription-detail.pl
--- serials/alt_subscription-detail.pl 20 Jul 2006 04:08:47 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,189 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Koha;
-use C4::Date;
-use C4::Serials;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use HTML::Template;
-use Date::Manip;
-
-my $query = new CGI;
-my $op = $query->param('op');
-my $dbh = C4::Context->dbh;
-my $sth;
-# my $id;
-my ($template, $loggedinuser, $cookie, $subs);
-my ($subscriptionid,$auser,$librarian,$cost,$aqbooksellerid, $aqbooksellername,$aqbudgetid, $bookfundid, $startdate, $periodicity,
- $firstacquidate, $dow, $irregularity, $sublength, $subtype, $numberpattern, $numberlength, $weeklength, $monthlength,
- $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
- $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
- $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
- $numberingmethod, $status, $biblionumber, $bibliotitle, $callnumber, $notes, $hemisphere);
-
-$subscriptionid = $query->param('subscriptionid');
-
-if ($op eq 'modsubscription') {
- my @irregular = $query->param('irregular');
- my $irregular_count = @irregular;
- for(my $i =0;$i<$irregular_count;$i++){
- $irregularity .=$irregular[$i]."|";
- }
- $irregularity =~ s/\|$//;
-
-
- $auser = $query->param('user');
- $librarian => $query->param('librarian'),
- $cost = $query->param('cost');
- $aqbooksellerid = $query->param('aqbooksellerid');
- $biblionumber = $query->param('biblionumber');
- $aqbudgetid = $query->param('aqbudgetid');
- $startdate = format_date_in_iso($query->param('startdate'));
- $firstacquidate = format_date_in_iso($query->param('firstacquidate'));
- $periodicity = $query->param('periodicity');
- $dow = $query->param('dow');
- $sublength = $query->param('sublength');
- $subtype = $query->param('subtype');
-
- if($subtype eq 'months'){
- $monthlength = $sublength;
- } elsif ($subtype eq 'weeks'){
- $weeklength = $sublength;
- } else {
- $numberlength = $sublength;
- }
- $numberpattern = $query->param('numbering_pattern');
- $add1 = $query->param('add1');
- $every1 = $query->param('every1');
- $whenmorethan1 = $query->param('whenmorethan1');
- $setto1 = $query->param('setto1');
- $lastvalue1 = $query->param('lastvalue1');
- $innerloop1 = $query->param('innerloop1');
- $add2 = $query->param('add2');
- $every2 = $query->param('every2');
- $whenmorethan2 = $query->param('whenmorethan2');
- $setto2 = $query->param('setto2');
- $lastvalue2 = $query->param('lastvalue2');
- $innerloop2 = $query->param('innerloop2');
- $add3 = $query->param('add3');
- $every3 = $query->param('every3');
- $whenmorethan3 = $query->param('whenmorethan3');
- $setto3 = $query->param('setto3');
- $lastvalue3 = $query->param('lastvalue3');
- $innerloop3 = $query->param('innerloop3');
- $numberingmethod = $query->param('numberingmethod');
- $status = 1;
- $callnumber = $query->param('callnumber');
- $notes = $query->param('notes');
- $hemisphere = $query->param('hemisphere');
-
- &ModSubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate,
- $periodicity,$firstacquidate,$dow,$irregularity,$numberpattern,$numberlength,$weeklength,$monthlength,
- $add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
- $add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
- $add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
- $numberingmethod, $status, $biblionumber, $callnumber, $notes, $hemisphere, $subscriptionid);
-}
-
-if ($op eq 'del') {
- &DelSubscription($subscriptionid);
- print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=serials-home.pl\"></html>";
- exit;
-
-}
-my $subs = &GetSubscription($subscriptionid);
-my ($routing, @routinglist) = getroutinglist($subscriptionid);
-my ($totalissues, at serialslist) = old_getserials($subscriptionid);
-$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue)
-# the subscription must be deletable if there is NO issues for a reason or another (should not happend, but...)
-
-($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "serials/alt_subscription-detail.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
-my ($user, $cookie, $sessionID, $flags)
- = checkauth($query, 0, {catalogue => 1}, "intranet");
-
-my $weekarrayjs='';
-my $count = 0;
-my ($year, $month, $day) = UnixDate("today", "%Y", "%m", "%d");
-my $firstday = Date_DayOfYear($month,$day,$year);
-my $wkno = Date_WeekOfYear($month,$day,$year,1); # week starting monday
-my $weekno = $wkno;
-for(my $i=$firstday;$i<($firstday+365);$i=$i+7){
- $count = $i;
- if($wkno > 52){$year++; $wkno=1;}
- if($count>365){$count=$i-365;}
- my ($y,$m,$d) = Date_NthDayOfYear($year,$count);
- my $output = "$y-$m-$d";
- $weekarrayjs .= "'Wk $wkno: ".format_date($output)."',";
- $wkno++;
- }
-chop($weekarrayjs);
-
-$template->param(
- routing => $routing,
- user => $subs->{auser},
- librarian => $subs->{librarian},
- aqbooksellerid => $subs->{aqbooksellerid},
- aqbooksellername => $subs->{aqbooksellername},
- cost => $subs->{cost},
- aqbudgetid => $subs->{aqbudgetid},
- bookfundid => $subs->{bookfundid},
- startdate => format_date($subs->{startdate}),
- firstacquidate => format_date($subs->{firstacquidate}),
- periodicity => $subs->{periodicity},
- dow => $subs->{dow},
- irregularity => $subs->{irregularity},
- numberlength => $subs->{numberlength},
- weeklength => $subs->{weeklength},
- monthlength => $subs->{monthlength},
- numberpattern => $subs->{numberpattern},
- add1 => $subs->{add1},
- every1 => $subs->{every1},
- whenmorethan1 => $subs->{whenmorethan1},
- innerloop1 => $subs->{innerloop1},
- setto1 => $subs->{setto1},
- lastvalue1 => $subs->{lastvalue1},
- add2 => $subs->{add2},
- every2 => $subs->{every2},
- whenmorethan2 => $subs->{whenmorethan2},
- setto2 => $subs->{setto2},
- lastvalue2 => $subs->{lastvalue2},
- innerloop2 => $subs->{innerloop2},
- add3 => $subs->{add3},
- every3 => $subs->{every3},
- whenmorethan3 => $subs->{whenmorethan3},
- setto3 => $subs->{setto3},
- lastvalue3 => $subs->{lastvalue3},
- innerloop3 => $subs->{innerloop3},
- weekarrayjs => $weekarrayjs,
- numberingmethod => $subs->{numberingmethod},
- status => $subs->{status},
- biblionumber => $subs->{biblionumber},
- bibliotitle => $subs->{bibliotitle},
- callnumber => $subs->{callnumber},
- notes => $subs->{notes},
- subscriptionid => $subs->{subscriptionid},
- serialslist => \@serialslist,
- totalissues => $totalissues,
- hemisphere => $hemisphere,
- );
-$template->param(
- "periodicity$subs->{periodicity}" => 1,
- "arrival$subs->{dow}" => 1,
- "numberpattern$subs->{numberpattern}" => 1,
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- );
-
-output_html_with_http_headers $query, $cookie, $template->output;
Index: serials/lateissues.pl
===================================================================
RCS file: serials/lateissues.pl
diff -N serials/lateissues.pl
--- serials/lateissues.pl 15 Nov 2006 01:38:26 -0000 1.11
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,90 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-# $Id: lateissues.pl,v 1.11 2006/11/15 01:38:26 tgarip1957 Exp $
-
-=head1 NAME
-
-lateissues
-
-=head1 DESCRIPTION
-
-this script display late issue by types.
-
-=head1 PARAMETERS
-
-=over 4
-
-=item supplierid
-the id of the supplier this script has to search late issues.
-
-=back
-
-=cut
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Serials;
-use C4::Acquisition;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use C4::Bookseller;
-
-my $query = new CGI;
-# my $title = $query->param('title');
-# my $ISSN = $query->param('ISSN');
-# my @subscriptions = GetSubscriptions($title,$ISSN);
-
-my $supplierid = $query->param('supplierid');
-my %supplierlist = GetSuppliersWithLateIssues;
-my @select_supplier;
-push @select_supplier,"";
-foreach my $supplier (keys %supplierlist){
- push @select_supplier, $supplier
-}
-my $CGIsupplier=CGI::scrolling_list(
- -name => 'supplierid',
- -values => \@select_supplier,
- -default => $supplierid,
- -labels => \%supplierlist,
- -size => 1,
- -multiple => 0 );
-
-my ($count, at lateissues);
-($count, at lateissues) = GetLateIssues($supplierid) ;
-my @supplierinfo=GetBookSeller($supplierid) if $supplierid;
-
-my ($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "serials/lateissues.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
-$template->param(
- CGIsupplier => $CGIsupplier,
- lateissues => \@lateissues,
- phone => $supplierinfo[0]->{phone},
- booksellerfax => $supplierinfo[0]->{booksellerfax},
- bookselleremail => $supplierinfo[0]->{bookselleremail},
- );
-output_html_with_http_headers $query, $cookie, $template->output;
Index: serials/printlist.pl
===================================================================
RCS file: serials/printlist.pl
diff -N serials/printlist.pl
--- serials/printlist.pl 27 Sep 2006 21:19:22 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,83 +0,0 @@
-#!/usr/bin/perl
-# NOTE: Use standard 8-space tabs for this file (indents are 4 spaces)
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-#
-# $Id: printlist.pl,v 1.4 2006/09/27 21:19:22 tgarip1957 Exp $
-
-=head1 NAME
-
-printlist.pl
-
-=head1 DESCRIPTION
-
-this script print the list of members who have reserved the subscription given on input arg.
-
-=head1 PARAMETERS
-
-=over 4
-
-=item serialseq
-
-=item subscriptionid
-
-=back
-
-=cut
-
-
-use strict;
-require Exporter;
-use C4::Context;
-use CGI;
-use C4::Auth;
-use C4::Serials;
-use C4::Interface::CGI::Output;
-use C4::Koha;
-
-my $query=new CGI;
-
-my $serialseq=$query->param('serialseq');
-my $subscriptionid=$query->param('subscriptionid');
-my $subscription = GetSubscription($subscriptionid);
-$subscription->{'distributedto'} =~ s/\n/<br\/>/g;
-
-my ($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "serials/printlist.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-$template->param(serialseq => $serialseq,
- title => $subscription->{bibliotitle},
- branchname => getbranchdetail(C4::Context->userenv->{'branch'})->{branchname},
- branchaddress1 => getbranchdetail(C4::Context->userenv->{'branch'})->{address1},
- branchaddress2 => getbranchdetail(C4::Context->userenv->{'branch'})->{address2},
- branchaddress3 => getbranchdetail(C4::Context->userenv->{'branch'})->{address3},
- branchphone => getbranchdetail(C4::Context->userenv->{'branch'})->{branchphone},
- branchemail => getbranchdetail(C4::Context->userenv->{'branch'})->{branchemail},
- distributedto => $subscription->{'distributedto'},
- );
-output_html_with_http_headers $query, $cookie, $template->output;
-
-
-# Local Variables:
-# tab-width: 8
-# End:
Index: serials/serials-receive.pl
===================================================================
RCS file: serials/serials-receive.pl
diff -N serials/serials-receive.pl
--- serials/serials-receive.pl 15 Nov 2006 01:38:26 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,223 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-# $Id: serials-receive.pl,v 1.4 2006/11/15 01:38:26 tgarip1957 Exp $
-
-=head1 NAME
-
-serials-receive.pl
-
-=head1 Parameters
-
-=over 4
-
-=item op
- op can be :
- * modsubscriptionhistory :to modify the subscription history
- * serialchangestatus :to modify the status of this subscription
-
-=item subscriptionid
-
-=item user
-
-=item histstartdate
-
-=item enddate
-
-=item receivedlist
-
-=item missinglist
-
-=item opacnote
-
-=item librariannote
-
-=item serialid
-
-=item serialseq
-
-=item planneddate
-
-=item notes
-
-=item status
-
-=back
-
-=cut
-
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Date;
-use C4::Biblio;
-use C4::Koha;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use C4::Serials;
-
-my $query = new CGI;
-my $op = $query->param('op');
-my $dbh = C4::Context->dbh;
-my $subscriptionid = $query->param('subscriptionid');
-my $histstartdate = format_date_in_iso($query->param('histstartdate'));
-my $enddate = format_date_in_iso($query->param('enddate'));
-my $receivedlist = $query->param('receivedlist');
-my $missinglist = $query->param('missinglist');
-my $opacnote = $query->param('opacnote');
-my $librariannote = $query->param('librariannote');
-my @serialids = $query->param('serialid');
-my @serialseqs = $query->param('serialseq');
-my @planneddates = $query->param('planneddate');
-my @publisheddates = $query->param('publisheddate');
-my @status = $query->param('status');
-my @notes = $query->param('notes');
-my @barcodes = $query->param('barcode');
-my @itemcallnumbers = $query->param('itemcallnumber');
-my @locations = $query->param('location');
-my @itemstatus = $query->param('itemstatus');
-my @holdingbranches = $query->param('holdingbranch');
-my $hassubscriptionexpired = HasSubscriptionExpired($subscriptionid);
-my $abouttoexpire = abouttoexpire($subscriptionid);
-my @itemnumbers=$query->param('itemnumber');
-my $subscription=GetSubscription($subscriptionid);
-
-my $auser = $subscription->{'librarian'}; # bob
-my $routing = check_routing($subscriptionid); # to see if routing list exists
-my $manualdate ='';
-my $manualissue ='';
-my $manualstatus =0;
-my $manualid ='';
-if ($op eq 'found'){
- $manualdate = $query->param('planneddate');
- $manualissue = $query->param('missingissue');
- $manualstatus = 1;
- my $sth = $dbh->prepare("select serialid from serial where subscriptionid = ? AND serialseq = ? AND planneddate = ?");
- $sth->execute($subscriptionid,$manualissue,format_date_in_iso($manualdate));
- $manualid = $sth->fetchrow;
-}
-if ($op eq 'modsubscriptionhistory') {
- ModSubscriptionHistory($subscriptionid,$histstartdate,$enddate,$receivedlist,$missinglist,$opacnote,$librariannote);
-}
-
-# change status except, if subscription has expired, for the "waited" issue.
-if ($op eq 'serialchangestatus') {
- my $sth = $dbh->prepare("select status from serial where serialid=?");
- for (my $i=0;$i<=$#serialids;$i++) {
- $sth->execute($serialids[$i]);
- my $today=get_today();
- my ($oldstatus) = $sth->fetchrow;
- if ($serialids[$i]) {
- my $planneddate = ($planneddates[$i]?format_date_in_iso($planneddates[$i]):$today) if ($status[$i]==2);
- ModSerialStatus($serialids[$i],$serialseqs[$i],format_date_in_iso($publisheddates[$i]),format_date_in_iso($planneddates[$i]),$status[$i],$notes[$i],$itemnumbers[$i]) unless ($hassubscriptionexpired && $oldstatus ==1 );
- if (($status[$i]==2) && $itemnumbers[$i]){
- my %info;
- my $status2;
- my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
- $sth2->execute($holdingbranches[$i],$subscriptionid);
- $sth2->finish;
- # remove from missing list if item being checked in is on it
- removeMissingIssue($serialseqs[$i],$subscriptionid);
- }
- } else {
- # add a special issue
- if ($serialseqs[$i]) {
- NewIssue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i],format_date_in_iso($publisheddates[$i]), format_date_in_iso($planneddates[$i]),$itemnumbers[$i]);
- }
- if (($status[$i]==2) && $itemnumbers[$i] && !$hassubscriptionexpired){
- my %info;
- my $status2;
- my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
- $sth2->execute($holdingbranches[$i],$subscriptionid);
- $sth2->finish;
- # remove from missing list if item being checked in is on it
-
- removeMissingIssue($serialseqs[$i],$subscriptionid);
-
- }
-
- }
- }
-
-}
-my ($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "serials/serials-receive.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
-my $subs = &GetSubscription($subscriptionid);
-my ($totalissues, at serialslist) = GetSerials($subscriptionid);
-my $count = @serialslist;
-for(my $i=0;$i<$count;$i++){
- $serialslist[$i]->{'callnumber'} = $subscription->{'callnumber'};
- my $temp = rand(10000000);
- $serialslist[$i]->{'barcode'} = "TEMP" . sprintf("%.0f",$temp);
-}
-# use Data::Dumper;
-# warn Dumper(@serialslist);
-
-my $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
-
-$sth->execute($subscriptionid);
-my $solhistory = $sth->fetchrow_hashref;
-
-my $subs = &GetSubscription($subscriptionid);
-my ($totalissues, at serialslist) = GetSerials($subscriptionid);
-
-if (C4::Context->preference("serialsadditems")){
- $template->param(scriptaddserials=>"/cgi-bin/koha/cataloguing/additem.pl?biblionumber= $serialslist[0]->{'biblionumber'}&fromserials=1&serialid=",
- serialsadditems=>1 ) ;
-}
-
-my $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
-$sth->execute($subscriptionid);
-my $solhistory = $sth->fetchrow_hashref;
-
-
-$template->param(
- user => $auser,
- serialslist => \@serialslist,
- count => $count,
- biblionumber => $subscription->{biblionumber},
- histstartdate => format_date($solhistory->{'histstartdate'}),
- enddate => format_date($solhistory->{'enddate'}),
- receivedlist => $solhistory->{'receivedlist'},
- missinglist => $solhistory->{'missinglist'},
- opacnote => $solhistory->{'opacnote'},
- librariannote => $solhistory->{'librariannote'},
- subscriptionid => $subscriptionid,
- bibliotitle => $subs->{bibliotitle},
- biblionumber => $subs->{biblionumber},
- hassubscriptionexpired =>$hassubscriptionexpired,
- abouttoexpire =>$abouttoexpire,
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- routing => $routing,
- missingseq => $manualissue,
- frommissing => $manualstatus,
- missingdate => $manualdate,
- missingid => $manualid,
- );
-output_html_with_http_headers $query, $cookie, $template->output;
Index: t/format.t
===================================================================
RCS file: t/format.t
diff -N t/format.t
--- t/format.t 20 Jun 2002 18:18:12 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,37 +0,0 @@
-BEGIN { $| = 1; print "1..5\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use C4::Format;
-$loaded = 1;
-print "ok 1\n";
-
-#
-# ensure &startint returns a reasonable value
-#
-
-# try right formatting
-if (" foo" eq fmtstr('','foo','R5')) {
- print "ok 2\n";
-} else {
- print "not ok 2\n";
-}
-
-# try left formatting
-if ("foo " eq fmtstr('','foo','L5')) {
- print "ok 3\n";
-} else {
- print "not ok 3\n";
-}
-
-# try centering with even spacing
-if (" foo " eq fmtstr('','foo','C5')) {
- print "ok 4\n";
-} else {
- print "not ok 4\n";
-}
-
-# try centering with uneven spacing
-if ("foo " eq fmtstr('','foo','C4')) {
- print "ok 5\n";
-} else {
- print "not ok 5\n";
-}
Index: t/require.t
===================================================================
RCS file: t/require.t
diff -N t/require.t
--- t/require.t 12 Oct 2002 06:09:10 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,6 +0,0 @@
-BEGIN { $| = 1; print "1..4\n"; }
-
-my $i = 1;
-eval { require Date::Manip; } || print "not "; print "ok ",$i++,"\n";
-eval { require DBI; } || print "not "; print "ok ",$i++,"\n";
-eval { require DBD::mysql; } || print "not "; print "ok ",$i++,"\n";
Index: t/Shelf.t
===================================================================
RCS file: t/Shelf.t
diff -N t/Shelf.t
--- t/Shelf.t 24 Oct 2002 04:12:10 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,66 +0,0 @@
-BEGIN { $| = 1; print "1..25\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use C4::Shelf;
-use C4::Context;
-$loaded = 1;
-print "ok 1\n";
-
-
-
-# Load some sample data from the items table
-my $itemdata;
-my $dbh=C4::Context->dbh();
-my $sth=$dbh->prepare("select biblionumber,biblioitemnumber,itemnumber from items limit 30");
-$sth->execute;
-while (my ($biblionumber, $biblioitemnumber, $itemnumber) = $sth->fetchrow) {
- push @$itemdata, { biblionumber=>$biblionumber, biblioitemnumber=>$biblioitemnumber, itemnumber=>$itemnumber };
-}
-
-if ($itemdata=~/^ARRAY/) {
- print "ok 2\n";
-} else {
- print "not ok 2\n";
-}
-
-
-
-# Create a couple of new shelves
-
-my $shelf=Shelf->new('Shelf1', -1);
-my $shelf2=Shelf->new('Shelf2', -1);
-
-if (defined $shelf) {
- print "ok 3\n";
-} else {
- print "not ok 3\n";
-}
-
-
-# Add some items to the shelves
-
-
-for ($i=0; $i<20; $i++) {
- $shelf->addtoshelf( -add => [[ $$itemdata[$i]->{biblionumber},
- $$itemdata[$i]->{biblioitemnumber},
- $$itemdata[$i]->{itemnumber} ]]);
-}
-for ($i=20; $i<30; $i++) {
- $shelf2->addtoshelf( -add => [[ $$itemdata[$i]->{biblionumber},
- $$itemdata[$i]->{biblioitemnumber},
- $$itemdata[$i]->{itemnumber} ]]);
-}
-
-if ($shelf->itemcounter() == 20 && $shelf2->itemcounter() == 10 ) {
- print "ok 4\n";
-} else {
- print "not ok 4\n";
-}
-
-$shelf->attribute('testattribute1', 'testvalue1');
-$shelf->attribute('testattribute2', 'testvalue2');
-
-if ($shelf->attribute('testattribute1') eq 'testvalue1' && $shelf->attribute('testattribute2') eq 'testvalue2') {
- print "ok 5\n";
-} else {
- print "not ok 5\n";
-}
Index: value_builder/labs_theses.pl
===================================================================
RCS file: value_builder/labs_theses.pl
diff -N value_builder/labs_theses.pl
--- value_builder/labs_theses.pl 26 Oct 2005 09:13:37 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,186 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-require Exporter;
-use CGI;
-use HTML::Template;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Database;
-use C4::Koha;
-
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "328".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.f.field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=labs_theses.pl&cat_auth=LABTHE&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 328\",'width=700,height=700,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-
-sub plugin {
- my ($input) = @_;
- my %env;
-
-
- my $dbh=C4::Context->dbh;
- my $query = new CGI;
- my $op = $query->param('op');
- my $cat_auth=$query->param('cat_auth');
-
- my $startfrom=$query->param('startfrom');
- $startfrom=0 if(!defined $startfrom);
- my ($template, $loggedinuser, $cookie);
- my $resultsperpage;
- my $search = $query->param('search');
-
- if ($op eq "do_search") {
-
- $resultsperpage= $query->param('resultsperpage');
- $resultsperpage = 19 if(!defined $resultsperpage);
-# my $upperlimit=$startfrom+$resultsperpage;
- # builds tag and subfield arrays
- my $strquery = "SELECT authorised_value, lib from authorised_values where category = ? and lib like ?";
-# $strquery .= " LIMIT $startfrom,$upperlimit";
-
- warn 'category : '.$cat_auth.' recherche :'.$search;
- warn "$strquery";
- $search=~s/\*/%/g;
- my $sth = $dbh->prepare($strquery);
- $sth->execute($cat_auth,$search);
- $search=~s/%/\*/g;
-
-
- my @results;
- my $total;
- while (my $data = $sth->fetchrow_hashref){
- my $libjs=$data->{'lib'};
- $libjs=~s#\'#\\\'#g;
- my $authjs=$data->{'authorised_value'};
- $authjs=~s#\'#\\\'#g;
- push @results, {'libjs'=>$libjs,
- 'lib'=>$data->{'lib'},
- 'authjs'=>$authjs,
- 'auth_value'=>$data->{'authorised_value'}}
- unless (($total<$startfrom) or ($total>$startfrom+$resultsperpage));
- $total++;
- }
-
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/labs_theses.tmpl",
- query => $query,
- type => 'intranet',
- authnotrequired => 1,
- debug => 1,
- });
-
- # multi page display gestion
- my $displaynext=0;
- my $displayprev=$startfrom;
- if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){
- $displaynext = 1;
- }
-
- my @numbers = ();
-
- if ($total>$resultsperpage)
- {
- for (my $i=1; (($i<$total/$resultsperpage+1) && ($i<16)); $i++)
- {
- my $highlight=0;
- ($startfrom==($i-1)) && ($highlight=1);
- push @numbers, { number => $i,
- highlight => $highlight ,
- search=> $search,
- startfrom => $resultsperpage*($i-1)};
- }
- }
-
- my $from = $startfrom+1;
- my $to;
-
- if($total < (($startfrom+1)*$resultsperpage))
- {
- $to = $total;
- } else {
- $to = (($startfrom+1)*$resultsperpage);
- }
- $template->param(catresult => \@results,
- cat_auth=>$cat_auth,
- index => $query->param('index')."",
- startfrom=> $startfrom,
- displaynext=> $displaynext,
- displayprev=> $displayprev,
- resultsperpage => $resultsperpage,
- startfromnext => $startfrom+$resultsperpage,
- startfromprev => $startfrom-$resultsperpage,
- search=>$search,
- total=>$total,
- from=>$from,
- to=>$to,
- numbers=>\@numbers,
- resultlist=>1
- );
-
- } else {
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/labs_theses.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 1,
- });
-
- $template->param(
- 'search'=>$query->param('search'),
- );
- $template->param(
- 'index'=>''.$query->param('index')
- ) if ($query->param('index'));
- warn 'index : '.$query->param('index');
- $template->param(
- 'cat_auth'=>$cat_auth
- ) if ($cat_auth);
- }
- output_html_with_http_headers $query, $cookie, $template->output ;
-}
-
-1;
Index: value_builder/marc21_008_holdings.pl
===================================================================
RCS file: value_builder/marc21_008_holdings.pl
diff -N value_builder/marc21_008_holdings.pl
--- value_builder/marc21_008_holdings.pl 11 Sep 2006 17:41:56 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,139 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_008_holdings.pl,v 1.2 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-# find today's date
-my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
-
-$year +=1900; $mon +=1;
-my $dateentered = substr($year,2,2).sprintf ("%0.2d", $mon).sprintf ("%0.2d",$mday);
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '008') {
- if (!document.f.field_value[i].value) {
- document.f.field_value[i].value = '$dateentered' + '1p||||8|||401ab|||0000000';
- }
- }
- }
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
-return;
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_008_holdings.pl&index=\"+i+\"&result=\"+defaultvalue,\"008\",'width=400,height=600,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_008_holdings.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = '$dateentered' + '1p||||8|||401ab|||0000000';
- my $f1 = substr($result,0,6);
- my $f6 = substr($result,6,1);
- my $f710 = substr($result,7,4);
- my $f1114 = substr($result,11,4);
- my $f1517 = substr($result,15,3);
- my $f1821 = substr($result,18,4);
- my $f22 = substr($result,22,1);
- my $f23 = substr($result,23,1);
- my $f2427 = substr($result,24,4);
- my $f28 = substr($result,28,1);
- my $f29 = substr($result,29,1);
- my $f30 = substr($result,30,1);
-
-if (!$f1){
- $f1=$dateentered
-}
-
- $template->param( index => $index,
- f1 => $f1,
- f6 => $f6,
- "f6$f6" => $f6,
- f710 => $f710,
- f1114 => $f1114,
- f1517 => $f1517,
- f1821 => $f1821,
- f22 => $f22,
- "f22$f22" => $f22,
- f23 => $f23,
- "f23$f23" => $f23,
- f2427 => $f2427,
- "f24$f2427" => $f2427,
- f28 => $f28,
- "f28$f28" => $f28,
- f29 => $f29,
- "f29$f29" => $f29,
- f30 => $f30,
- "f30$f30" => $f30,
-
-
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/marc21_field_003.pl
===================================================================
RCS file: value_builder/marc21_field_003.pl
diff -N value_builder/marc21_field_003.pl
--- value_builder/marc21_field_003.pl 11 Sep 2006 17:41:56 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,97 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_field_003.pl,v 1.3 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-require Exporter;
-use C4::AuthoritiesMarc;
-use C4::Auth;
-use C4::Context;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use CGI;
-use C4::Search;
-use MARC::Record;
-use C4::Koha;
-use HTML::Template;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-=head1
-
-plugin_javascript : the javascript function called when the user enters the subfield.
-contain 3 javascript functions :
-* one called when the field is entered (OnFocus). Named FocusXXX
-* one called when the field is leaved (onBlur). Named BlurXXX
-* one called when the ... link is clicked (<a href="javascript:function">) named ClicXXX
-
-returns :
-* XXX
-* a variable containing the 3 scripts.
-the 3 scripts are inserted after the <input> in the html code
-
-=cut
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "003".(int(rand(100000))+1);
-
-# find today's date
-my $org = C4::Context->preference('MARCOrgCode');
-my $res = "
-<script>
-function Blur$function_name(index) {
-//need this?
-}
-
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '003') {
- document.f.field_value[i].value = '$org';
- }
- }
-return 0;
-}
-
-function Clic$function_name(subfield_managed) {
-}
-</script>
-";
-return ($function_name,$res);
-}
-
-=head1
-
-plugin : the true value_builded. The screen that is open in the popup window.
-
-=cut
-
-sub plugin {
-my ($input) = @_;
-return "";
-}
-
-1;
Index: value_builder/marc21_field_005.pl
===================================================================
RCS file: value_builder/marc21_field_005.pl
diff -N value_builder/marc21_field_005.pl
--- value_builder/marc21_field_005.pl 11 Sep 2006 17:41:56 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_field_005.pl,v 1.3 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-require Exporter;
-use C4::Auth;
-use C4::Context;
-use C4::Interface::CGI::Output;
-use CGI;
-
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-=head1
-
-plugin_javascript : the javascript function called when the user enters the subfield.
-contain 3 javascript functions :
-* one called when the field is entered (OnFocus). Named FocusXXX
-* one called when the field is leaved (onBlur). Named BlurXXX
-* one called when the ... link is clicked (<a href="javascript:function">) named ClicXXX
-
-returns :
-* XXX
-* a variable containing the 3 scripts.
-the 3 scripts are inserted after the <input> in the html code
-
-=cut
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "005".(int(rand(100000))+1);
-
-# find today's date
-my ($sec,$min,$hour,$mday,$mon,$year) = localtime();
- $year += 1900;
- $mon += 1;
- my $timestamp = sprintf("%4d%02d%02d%02d%02d%02d.0",
- $year,$mon,$mday,$hour,$min,$sec);
-
-
-
-my $res = "
-<script>
-function Blur$function_name(index) {
-//need this?
-}
-
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '005') {
- document.f.field_value[i].value = '$timestamp';
- }
- }
-return 0;
-}
-
-function Clic$function_name(subfield_managed) {
-
-}
-</script>
-";
-return ($function_name,$res);
-}
-
-=head1
-
-plugin : the true value_builded. The screen that is open in the popup window.
-
-=cut
-
-sub plugin {
-my ($input) = @_;
-return "";
-}
-
-1;
Index: value_builder/marc21_field_006.pl
===================================================================
RCS file: value_builder/marc21_field_006.pl
diff -N value_builder/marc21_field_006.pl
--- value_builder/marc21_field_006.pl 11 Sep 2006 17:41:56 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,126 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_field_006.pl,v 1.3 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_field_006.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=1000,height=600,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_field_006.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = "a|||||r|||| 00| 0 " unless $result;
-# $result = "a r 00 0 " unless $result;
- my $f0 = substr($result,0,1);
- my $f014 = substr($result,1,4);
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f710 = substr($result,7,4);
- my $f11 = substr($result,11,1);
- my $f12 = substr($result,12,1);
- my $f13 = substr($result,13,1);
- my $f14 = substr($result,14,1);
- my $f15 = substr($result,15,1);
- my $f16 = substr($result,16,1);
- my $f17 = substr($result,17,1);
-
- $template->param( index => $index,
- f0 => $f0,
- "f0$f0" => $f0,
- f014 => $f014,
- "f014$f014" => $f014,
- f5 => $f5,
- "f5$f5" => $f5,
- f6 => $f6,
- "f6$f6" => $f6,
- f710 => $f710,
- "f710$f710" => $f710,
- f11 => $f11,
- "f11$f11" => $f11,
- f12 => $f12,
- "f12$f12" => $f12,
- f13 => $f13,
- "f13$f13" => $f13,
- f14 => $f14,
- "f14$f14" => $f14,
- f15 => $f15,
- "f15$f15" => $f15,
- f16 => $f16,
- "f16$f16" => $f16,
- f17 => $f17,
- "f17$f17" => $f17,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/marc21_field_007.pl
===================================================================
RCS file: value_builder/marc21_field_007.pl
diff -N value_builder/marc21_field_007.pl
--- value_builder/marc21_field_007.pl 11 Sep 2006 17:41:56 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,95 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_field_007.pl,v 1.3 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_field_007.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=1000,height=600,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_field_007.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = "ta" unless $result;
- my $f0 = substr($result,0,1);
- my $f1 = substr($result,1,4);
-
- $template->param( index => $index,
- f0 => $f0,
- "f0$f0" => $f0,
- f1 => $f1,
- "f1$f1" => $f1,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/marc21_field_008.pl
===================================================================
RCS file: value_builder/marc21_field_008.pl
diff -N value_builder/marc21_field_008.pl
--- value_builder/marc21_field_008.pl 11 Sep 2006 17:41:56 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,154 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_field_008.pl,v 1.3 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-# find today's date
-my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
-
-$year +=1900; $mon +=1;
-my $dateentered = substr($year,2,2).sprintf ("%0.2d", $mon).sprintf ("%0.2d",$mday);
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '008') {
- if (!document.f.field_value[i].value) {
- document.f.field_value[i].value = '$dateentered' + 's xxu||||| |||| 00| 0 ||| d';
- }
- }
- }
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_field_008.pl&index=\"+i+\"&result=\"+defaultvalue,\"008\",'width=400,height=600,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_field_008.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
-# $result = " t xxu 00 0 eng d" unless $result;
- $result = "$dateentered"."t xxu||||| |||| 00| 0 ||| d" unless $result;
- my $f1 = substr($result,0,6);
- my $f6 = substr($result,6,1);
- my $f710 = substr($result,7,4);
- my $f1114 = substr($result,11,4);
- my $f1517 = substr($result,15,3);
- my $f1821 = substr($result,18,4);
- my $f22 = substr($result,22,1);
- my $f23 = substr($result,23,1);
- my $f2427 = substr($result,24,4);
- my $f28 = substr($result,28,1);
- my $f29 = substr($result,29,1);
- my $f30 = substr($result,30,1);
- my $f31 = substr($result,31,1);
- my $f33 = substr($result,33,1);
- my $f34 = substr($result,34,1);
- my $f3537 = substr($result,35,3);
- my $f38 = substr($result,38,1);
- my $f39 = substr($result,39,1);
-
-if (!$f1){
- $f1=$dateentered
-}
-
- $template->param( index => $index,
- f1 => $f1,
- f6 => $f6,
- "f6$f6" => $f6,
- f710 => $f710,
- f1114 => $f1114,
- f1517 => $f1517,
- f1821 => $f1821,
- f22 => $f22,
- "f22$f22" => $f22,
- f23 => $f23,
- "f23$f23" => $f23,
- f2427 => $f2427,
- "f24$f2427" => $f2427,
- f28 => $f28,
- "f28$f28" => $f28,
- f29 => $f29,
- "f29$f29" => $f29,
- f30 => $f30,
- "f230$f30" => $f30,
- f31 => $f31,
- "f31$f31" => $f31,
- f33 => $f33,
- "f33$f33" => $f33,
- f34 => $f34,
- "f34$f34" => $f34,
- f3537 => $f3537,
- f38 => $f38,
- "f38$f38" => $f38,
- f39 => $f39,
- "f39$f39" => $f39,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/marc21_leader_authorities.pl
===================================================================
RCS file: value_builder/marc21_leader_authorities.pl
diff -N value_builder/marc21_leader_authorities.pl
--- value_builder/marc21_leader_authorities.pl 11 Sep 2006 17:41:56 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,111 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_leader_authorities.pl,v 1.3 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '000') {
- if (!document.f.field_value[i].value) {
- document.f.field_value[i].value = ' nz||a22 o||4500';
- }
- }
- }
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_leader_authorities.pl&index=\"+i+\"&result=\"+defaultvalue,\"\",'width=400,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_leader_authorities.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = " nz||a22 o||4500" unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
-
-
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
-
-
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
-
- "f9$f9" => 1,
- "f17$f17" => 1,
-
-
-
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/marc21_leader_holdings.pl
===================================================================
RCS file: value_builder/marc21_leader_holdings.pl
diff -N value_builder/marc21_leader_holdings.pl
--- value_builder/marc21_leader_holdings.pl 11 Sep 2006 17:41:56 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,111 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_leader_holdings.pl,v 1.2 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '000') {
- if (!document.f.field_value[i].value) {
- document.f.field_value[i].value = ' nx||a22 1i|4500';
- }
- }
- }
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_leader_holdings.pl&index=\"+i+\"&result=\"+defaultvalue,\"\",'width=400,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_leader_holdings.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = " nx||a22 1i|4500" unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
-
-
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
-
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
-
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
-
-
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/marc21_leader.pl
===================================================================
RCS file: value_builder/marc21_leader.pl
diff -N value_builder/marc21_leader.pl
--- value_builder/marc21_leader.pl 11 Sep 2006 17:41:56 -0000 1.6
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,111 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: marc21_leader.pl,v 1.6 2006/09/11 17:41:56 tgarip1957 Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '000') {
- if (!document.f.field_value[i].value) {
- document.f.field_value[i].value = ' naa a22 7ar4500';
- }
- }
- }
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms['f'].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=marc21_leader.pl&index=\"+i+\"&result=\"+defaultvalue,\"\",'width=400,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/marc21_leader.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = " naa a22 7ar4500" unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
- my $f2023 = substr($result,20,4);
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- "f2023" => $f2023,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_100.pl
===================================================================
RCS file: value_builder/unimarc_field_100.pl
diff -N value_builder/unimarc_field_100.pl
--- value_builder/unimarc_field_100.pl 6 Jan 2006 16:39:43 -0000 1.10
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,120 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_100.pl,v 1.10 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_100.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_100.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result=' d u y0frey03 ba' unless $result;
- my $f1 = substr($result,0,8);
- my $f2 = substr($result,8,1);
- my $f3 = substr($result,9,4);
- my $f4 = substr($result,13,4);
- my $f5 = substr($result,17,1);
- my $f6 = substr($result,18,1);
- my $f7 = substr($result,19,1);
- my $f8 = substr($result,20,1);
- my $f9 = substr($result,21,1);
- my $f10 = substr($result,22,3);
- my $f11 = substr($result,25,1);
- my $f12 = substr($result,26,2);
- my $f13 = substr($result,28,2);
- my $f14 = substr($result,30,4);
- my $f15 = substr($result,34,2);
-
-
- $template->param(index => $index,
- f1 => $f1,
- f3 => $f3,
- "f2$f2" => 1,
- f4 => $f4,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10" => $f10,
- "f11$f11" => 1,
- "f12$f12" => 1,
- "f13$f13" => 1,
- "f14" => $f14,
- "f15$f15" => 1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_105.pl
===================================================================
RCS file: value_builder/unimarc_field_105.pl
diff -N value_builder/unimarc_field_105.pl
--- value_builder/unimarc_field_105.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,114 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_105.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "105".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_105.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 105\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_105.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
-
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
- my $f8 = substr($result,7,1);
-
- my $f9 = substr($result,8,1);
- my $f10 = substr($result,9,1);
- my $f11 = substr($result,10,1);
- my $f12 = substr($result,11,1);
- my $f13 = substr($result,12,1);
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10$f10" => 1,
- "f11$f11" => 1,
- "f12$f12" => 1,
- "f13$f13" => 1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_106.pl
===================================================================
RCS file: value_builder/unimarc_field_106.pl
diff -N value_builder/unimarc_field_106.pl
--- value_builder/unimarc_field_106.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_106.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "106".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_106.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 106\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-warn ("Je suis quand meme ici\n");
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_106.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => $f1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_110.pl
===================================================================
RCS file: value_builder/unimarc_field_110.pl
diff -N value_builder/unimarc_field_110.pl
--- value_builder/unimarc_field_110.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,104 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_110.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "110".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_110.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 110\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_110.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,3);
- my $f6 = substr($result,7,1);
- my $f7 = substr($result,8,1);
- my $f8 = substr($result,9,1);
- my $f9 = substr($result,10,1);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- f5 => $f5,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_115a.pl
===================================================================
RCS file: value_builder/unimarc_field_115a.pl
diff -N value_builder/unimarc_field_115a.pl
--- value_builder/unimarc_field_115a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_115a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "115a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_115a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 115a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_115a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,1);
- my $f4 = substr($result,5,1);
- my $f5 = substr($result,6,1);
- my $f6 = substr($result,7,1);
- my $f7 = substr($result,8,1);
- my $f8 = substr($result,9,1);
- my $f9 = substr($result,10,1);
- my $f10 = substr($result,11,1);
- my $f11 = substr($result,12,1);
- my $f12 = substr($result,13,1);
- my $f13 = substr($result,14,1);
- my $f14 = substr($result,15,1);
- my $f15 = substr($result,16,1);
- my $f16 = substr($result,17,1);
- my $f17 = substr($result,18,1);
- my $f18 = substr($result,19,1);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2" => $f2,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10$f10" => 1,
- "f11$f11" => 1,
- "f12$f12" => 1,
- "f13$f13" => 1,
- "f14$f14" => 1,
- "f15$f15" => 1,
- "f16$f16" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_115b.pl
===================================================================
RCS file: value_builder/unimarc_field_115b.pl
diff -N value_builder/unimarc_field_115b.pl
--- value_builder/unimarc_field_115b.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,108 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_115b.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "115b".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_115b.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 115b\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_115b.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
- my $f8 = substr($result,7,1);
- my $f9 = substr($result,8,1);
- my $f10 = substr($result,9,4);
- my $f11 = substr($result,13,2);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10" => $f10,
- "f11" => $f11
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_116.pl
===================================================================
RCS file: value_builder/unimarc_field_116.pl
diff -N value_builder/unimarc_field_116.pl
--- value_builder/unimarc_field_116.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,111 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_116.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "116".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_116.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 116\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_116.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
-
- my $f5 = substr($result,4,2);
- my $f6 = substr($result,6,2);
- my $f7 = substr($result,8,2);
-
- my $f8 = substr($result,10,2);
- my $f9 = substr($result,12,2);
- my $f10 = substr($result,14,2);
-
- my $f11 = substr($result,16,2);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10$f10" => 1,
- "f11$f11" => 1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_117.pl
===================================================================
RCS file: value_builder/unimarc_field_117.pl
diff -N value_builder/unimarc_field_117.pl
--- value_builder/unimarc_field_117.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,97 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_117.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "117".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_117.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 117\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
- my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_117.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- my $f2 = substr($result,2,2);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
-
- my $f5 = substr($result,8,1);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_120.pl
===================================================================
RCS file: value_builder/unimarc_field_120.pl
diff -N value_builder/unimarc_field_120.pl
--- value_builder/unimarc_field_120.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,106 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_120.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "120".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_120.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 120\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_120.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
- my $f8 = substr($result,7,2);
- my $f9 = substr($result,9,2);
- my $f10 = substr($result,11,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10$f10" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_121a.pl
===================================================================
RCS file: value_builder/unimarc_field_121a.pl
diff -N value_builder/unimarc_field_121a.pl
--- value_builder/unimarc_field_121a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,102 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_121a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "121a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_121a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 121a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_121a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,2);
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => $f8);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_121b.pl
===================================================================
RCS file: value_builder/unimarc_field_121b.pl
diff -N value_builder/unimarc_field_121b.pl
--- value_builder/unimarc_field_121b.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_121b.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "121b".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_121b.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 121b\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_121b.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,2);
- my $f4 = substr($result,4,1);
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- f3 => $f3,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_122.pl
===================================================================
RCS file: value_builder/unimarc_field_122.pl
diff -N value_builder/unimarc_field_122.pl
--- value_builder/unimarc_field_122.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,96 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_122.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "122".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_122.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 122\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_122.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,4);
- my $f3 = substr($result,5,2);
- my $f4 = substr($result,7,2);
- my $f5 = substr($result,9,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4,
- f5 => $f5);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123a.pl
===================================================================
RCS file: value_builder/unimarc_field_123a.pl
diff -N value_builder/unimarc_field_123a.pl
--- value_builder/unimarc_field_123a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => $f1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123d.pl
===================================================================
RCS file: value_builder/unimarc_field_123d.pl
diff -N value_builder/unimarc_field_123d.pl
--- value_builder/unimarc_field_123d.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123d.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123d".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123d.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123d\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123d.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123e.pl
===================================================================
RCS file: value_builder/unimarc_field_123e.pl
diff -N value_builder/unimarc_field_123e.pl
--- value_builder/unimarc_field_123e.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123e.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123e".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123e.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123e\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123e.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123f.pl
===================================================================
RCS file: value_builder/unimarc_field_123f.pl
diff -N value_builder/unimarc_field_123f.pl
--- value_builder/unimarc_field_123f.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123f.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123f".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123f.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123f\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123f.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123g.pl
===================================================================
RCS file: value_builder/unimarc_field_123g.pl
diff -N value_builder/unimarc_field_123g.pl
--- value_builder/unimarc_field_123g.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123g.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123g".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123g.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123g\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123g.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123i.pl
===================================================================
RCS file: value_builder/unimarc_field_123i.pl
diff -N value_builder/unimarc_field_123i.pl
--- value_builder/unimarc_field_123i.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123i.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123i".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123i.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123i\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123i.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_123j.pl
===================================================================
RCS file: value_builder/unimarc_field_123j.pl
diff -N value_builder/unimarc_field_123j.pl
--- value_builder/unimarc_field_123j.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_123j.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "123j".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_123j.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 123j\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_123j.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,3);
- my $f3 = substr($result,4,2);
- my $f4 = substr($result,6,2);
- $template->param(index => $index,
- "f1$f1" => 1,
- f2 => $f2,
- f3 => $f3,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124a.pl
===================================================================
RCS file: value_builder/unimarc_field_124a.pl
diff -N value_builder/unimarc_field_124a.pl
--- value_builder/unimarc_field_124a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124b.pl
===================================================================
RCS file: value_builder/unimarc_field_124b.pl
diff -N value_builder/unimarc_field_124b.pl
--- value_builder/unimarc_field_124b.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124b.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124b".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124b.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124b\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124b.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124c.pl
===================================================================
RCS file: value_builder/unimarc_field_124c.pl
diff -N value_builder/unimarc_field_124c.pl
--- value_builder/unimarc_field_124c.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124c.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124c".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124c.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124c\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124c.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124d.pl
===================================================================
RCS file: value_builder/unimarc_field_124d.pl
diff -N value_builder/unimarc_field_124d.pl
--- value_builder/unimarc_field_124d.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124d.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124d".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124d.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124d\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124d.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124e.pl
===================================================================
RCS file: value_builder/unimarc_field_124e.pl
diff -N value_builder/unimarc_field_124e.pl
--- value_builder/unimarc_field_124e.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124e.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124e".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124e.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124e\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124e.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124f.pl
===================================================================
RCS file: value_builder/unimarc_field_124f.pl
diff -N value_builder/unimarc_field_124f.pl
--- value_builder/unimarc_field_124f.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124f.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124f".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124f.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124f\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124f.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124g.pl
===================================================================
RCS file: value_builder/unimarc_field_124g.pl
diff -N value_builder/unimarc_field_124g.pl
--- value_builder/unimarc_field_124g.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124g.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "124g".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_124g.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 124g\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_124g.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_124.pl
===================================================================
RCS file: value_builder/unimarc_field_124.pl
diff -N value_builder/unimarc_field_124.pl
--- value_builder/unimarc_field_124.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_124.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_100.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_100.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,8);
- my $f2 = substr($result,8,1);
- my $f3 = substr($result,9,4);
- my $f4 = substr($result,13,4);
- $template->param(index => $index,
- f1 => $f1,
- f3 => $f3,
- "f2$f2" => 1,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_125a.pl
===================================================================
RCS file: value_builder/unimarc_field_125a.pl
diff -N value_builder/unimarc_field_125a.pl
--- value_builder/unimarc_field_125a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,89 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_125a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "125a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_125a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 125a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_125a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- $template->param(index => $index,
- "f1$f1" => 1,"f2$f2" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_125b.pl
===================================================================
RCS file: value_builder/unimarc_field_125b.pl
diff -N value_builder/unimarc_field_125b.pl
--- value_builder/unimarc_field_125b.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_125b.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "125b".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_125b.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 125b\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_125b.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_125.pl
===================================================================
RCS file: value_builder/unimarc_field_125.pl
diff -N value_builder/unimarc_field_125.pl
--- value_builder/unimarc_field_125.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_125.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_100.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_100.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,8);
- my $f2 = substr($result,8,1);
- my $f3 = substr($result,9,4);
- my $f4 = substr($result,13,4);
- $template->param(index => $index,
- f1 => $f1,
- f3 => $f3,
- "f2$f2" => 1,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_126a.pl
===================================================================
RCS file: value_builder/unimarc_field_126a.pl
diff -N value_builder/unimarc_field_126a.pl
--- value_builder/unimarc_field_126a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,117 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_126a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "126a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_126a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 126a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_126a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
- my $f8 = substr($result,7,1);
- my $f9 = substr($result,8,1);
- my $f10 = substr($result,9,1);
- my $f11 = substr($result,10,1);
- my $f12 = substr($result,11,1);
- my $f13 = substr($result,12,1);
- my $f14 = substr($result,13,1);
- my $f15 = substr($result,14,1);
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10$f10" => 1,
- "f11$f11" => 1,
- "f12$f12" => 1,
- "f13$f13" => 1,
- "f14$f14" => 1,
- "f15$f15" => 1
-);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_126b.pl
===================================================================
RCS file: value_builder/unimarc_field_126b.pl
diff -N value_builder/unimarc_field_126b.pl
--- value_builder/unimarc_field_126b.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,93 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_126b.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "126b".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_126b.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 126b\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_126b.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1
-);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_126.pl
===================================================================
RCS file: value_builder/unimarc_field_126.pl
diff -N value_builder/unimarc_field_126.pl
--- value_builder/unimarc_field_126.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,94 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_126.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_100.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_100.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,8);
- my $f2 = substr($result,8,1);
- my $f3 = substr($result,9,4);
- my $f4 = substr($result,13,4);
- $template->param(index => $index,
- f1 => $f1,
- f3 => $f3,
- "f2$f2" => 1,
- f4 => $f4);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_127.pl
===================================================================
RCS file: value_builder/unimarc_field_127.pl
diff -N value_builder/unimarc_field_127.pl
--- value_builder/unimarc_field_127.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,92 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_127.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "127".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_127.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 127\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_127.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- my $f2 = substr($result,2,2);
- my $f3 = substr($result,4,2);
- $template->param(index => $index,
- "f1" => $f1,
- f2 => $f2,
- f3 => $f3);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_128a.pl
===================================================================
RCS file: value_builder/unimarc_field_128a.pl
diff -N value_builder/unimarc_field_128a.pl
--- value_builder/unimarc_field_128a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_128a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "128a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_128a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 128a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_128a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_128b.pl
===================================================================
RCS file: value_builder/unimarc_field_128b.pl
diff -N value_builder/unimarc_field_128b.pl
--- value_builder/unimarc_field_128b.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,89 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_128b.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "128b".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_128b.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 128b\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_128b.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- my $f2 = substr($result,2,2);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_128c.pl
===================================================================
RCS file: value_builder/unimarc_field_128c.pl
diff -N value_builder/unimarc_field_128c.pl
--- value_builder/unimarc_field_128c.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,89 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_128c.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "128c".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_128c.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 128c\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_128c.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,2);
- my $f2 = substr($result,2,2);
- $template->param(index => $index,
- "f1$f1" => 1);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_130.pl
===================================================================
RCS file: value_builder/unimarc_field_130.pl
diff -N value_builder/unimarc_field_130.pl
--- value_builder/unimarc_field_130.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,107 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_130.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "130".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_130.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 130\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_130.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,3);
- my $f6 = substr($result,7,1);
- my $f7 = substr($result,8,1);
- my $f8 = substr($result,9,1);
- my $f9 = substr($result,10,1);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5" => $f5,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1
-
-);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_135a.pl
===================================================================
RCS file: value_builder/unimarc_field_135a.pl
diff -N value_builder/unimarc_field_135a.pl
--- value_builder/unimarc_field_135a.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,109 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_135a.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-135a7 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "135a".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_135a.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 135a\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_135a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,3);
- my $f7 = substr($result,8,1);
- my $f8 = substr($result,9,1);
- my $f9 = substr($result,10,1);
- my $f10 = substr($result,11,1);
- my $f11 = substr($result,12,1);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5" => $f5,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1
-
-);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_140.pl
===================================================================
RCS file: value_builder/unimarc_field_140.pl
diff -N value_builder/unimarc_field_140.pl
--- value_builder/unimarc_field_140.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,132 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_140.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1407 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "140".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_140.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 140\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_140.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
- my $f8 = substr($result,7,1);
- my $f9 = substr($result,8,1);
- my $f10 = substr($result,9,2);
- my $f11 = substr($result,11,2);
- my $f12 = substr($result,13,2);
- my $f13 = substr($result,15,2);
- my $f14 = substr($result,17,2);
- my $f15 = substr($result,19,1);
- my $f16 = substr($result,20,1);
- my $f17 = substr($result,21,1);
- my $f18 = substr($result,22,1);
- my $f19 = substr($result,23,1);
- my $f20 = substr($result,24,1);
- my $f21 = substr($result,25 ,1);
-
-warn "Dans ce cas clea nous fait un f17 => $f17\n";
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f10$f10" => 1,
- "f11$f11" => 1,
- "f12$f12" => 1,
- "f13$f13" => 1,
- "f14$f14" => 1,
- "f15$f15" => 1,
- "f16$f16" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- "f20$f20" => 1,
- "f21$f21" => 1
-);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_141.pl
===================================================================
RCS file: value_builder/unimarc_field_141.pl
diff -N value_builder/unimarc_field_141.pl
--- value_builder/unimarc_field_141.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,104 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_141.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1417 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "141".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_141.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 141\",'width=800,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_141.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- my $f1 = substr($result,0,1);
- my $f2 = substr($result,1,1);
- my $f3 = substr($result,2,1);
- my $f4 = substr($result,3,1);
- my $f5 = substr($result,4,1);
- my $f6 = substr($result,5,1);
- my $f7 = substr($result,6,1);
- my $f8 = substr($result,7,1);
-
- $template->param(index => $index,
- "f1$f1" => 1,
- "f2$f2" => 1,
- "f3$f3" => 1,
- "f4$f4" => 1,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1
-);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_210c.pl
===================================================================
RCS file: value_builder/unimarc_field_210c.pl
diff -N value_builder/unimarc_field_210c.pl
--- value_builder/unimarc_field_210c.pl 6 Jan 2006 16:39:43 -0000 1.9
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,246 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_210c.pl,v 1.9 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-require Exporter;
-use C4::AuthoritiesMarc;
-use C4::Auth;
-use C4::Context;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use CGI;
-use C4::Search;
-use MARC::Record;
-use C4::Koha;
-use HTML::Template;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-=head1
-
-plugin_javascript : the javascript function called when the user enters the subfield.
-contain 3 javascript functions :
-* one called when the field is entered (OnFocus). Named FocusXXX
-* one called when the field is leaved (onBlur). Named BlurXXX
-* one called when the ... link is clicked (<a href="javascript:function">) named ClicXXX
-
-returns :
-* XXX
-* a variable containing the 3 scripts.
-the 3 scripts are inserted after the <input> in the html code
-
-=cut
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "210c".(int(rand(100000))+1);
-#---- build editors list.
-#---- the editor list is built from the "EDITORS" thesaurus
-#---- this thesaurus category must be filled as follow :
-#---- 200$a for isbn
-#---- 200$b for editor
-#---- 200$c (repeated) for collections
-my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table
- left join auth_header on auth_subfield_table.authid=auth_header.authid
- where authtypecode='EDITORS' and tag='200' and subfieldcode='a'");
-my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='b' and authid=?");
-$sth->execute;
-my @editors;
-my $authoritysep = C4::Context->preference("authoritysep");
-while (my ($authid,$isbn) = $sth->fetchrow) {
- $sth2->execute($authid);
- my ($editor) = $sth2->fetchrow;
- push(@editors,"$isbn $authoritysep $editor");
-}
-my $res = "
-<script>
-function Focus$function_name(index) {
-var isbn_array = [ ";
-foreach my $editor (@editors) {
- my @arr = split (/ $authoritysep /,$editor);
- $res .='["'.$arr[0].'","'.$arr[1].'","'.$arr[2].'"],';
-}
-chop $res;
-$res .= "
-];
- // search isbn subfield. it''s 010a
- var isbn_found;
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '010' && document.f.subfield[i].value == 'a') {
- isbn_found=document.f.field_value[i].value;
- }
- }
- for (i=0;i<=isbn_array.length;i++) {
- if (isbn_found.substr(0,isbn_array[i][0].length) == isbn_array[i][0]) {
- document.f.field_value[index].value =isbn_array[i][1];
- }
- }
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(subfield_managed) {
- defaultvalue=escape(document.forms[0].field_value[subfield_managed].value);
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&index=\"+subfield_managed,\"unimarc 225a\",'width=500,height=600,toolbar=false,scrollbars=yes');
-}
-</script>
-";
-return ($function_name,$res);
-}
-
-=head1
-
-plugin : the true value_builded. The screen that is open in the popup window.
-
-=cut
-
-sub plugin {
-my ($input) = @_;
- my $index = $input->param("index");
- my $result = $input->param("result");
-
- my $query=new CGI;
- my $op = $query->param('op');
- my $authtypecode = $query->param('authtypecode');
- my $index = $query->param('index');
- my $category = $query->param('category');
- my $resultstring = $query->param('result');
- my $dbh = C4::Context->dbh;
-
- my $startfrom=$query->param('startfrom');
- $startfrom=0 if(!defined $startfrom);
- my ($template, $loggedinuser, $cookie);
- my $resultsperpage;
-
- my $authtypes = getauthtypes;
- my @authtypesloop;
- foreach my $thisauthtype (keys %$authtypes) {
- my $selected = 1 if $thisauthtype eq $authtypecode;
- my %row =(value => $thisauthtype,
- selected => $selected,
- authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
- index => $index,
- );
- push @authtypesloop, \%row;
- }
-
- if ($op eq "do_search") {
- my @marclist = $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');
-
- $resultsperpage= $query->param('resultsperpage');
- $resultsperpage = 19 if(!defined $resultsperpage);
-
- # builds tag and subfield arrays
- my @tags;
-
- my ($results,$total) = authoritysearch($dbh, \@tags,\@and_or,
- \@excluding, \@operator, \@value,
- $startfrom*$resultsperpage, $resultsperpage,$authtypecode);# $orderby);
-
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_210c.tmpl",
- query => $query,
- type => 'intranet',
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
-
- # multi page display gestion
- my $displaynext=0;
- my $displayprev=$startfrom;
- if(($total - (($startfrom+1)*($resultsperpage))) > 0 ) {
- $displaynext = 1;
- }
-
- my @numbers = ();
-
- if ($total>$resultsperpage) {
- for (my $i=1; $i<$total/$resultsperpage+1; $i++) {
- if ($i<16) {
- my $highlight=0;
- ($startfrom==($i-1)) && ($highlight=1);
- push @numbers, { number => $i,
- highlight => $highlight ,
- startfrom => ($i-1)};
- }
- }
- }
-
- my $from = $startfrom*$resultsperpage+1;
- my $to;
-
- if($total < (($startfrom+1)*$resultsperpage)) {
- $to = $total;
- } else {
- $to = (($startfrom+1)*$resultsperpage);
- }
- $template->param(result => $results) if $results;
- $template->param(index => $query->param('index'));
- $template->param(startfrom=> $startfrom,
- displaynext=> $displaynext,
- displayprev=> $displayprev,
- resultsperpage => $resultsperpage,
- startfromnext => $startfrom+1,
- startfromprev => $startfrom-1,
- index => $index,
- total=>$total,
- from=>$from,
- to=>$to,
- numbers=>\@numbers,
- authtypecode =>$authtypecode,
- resultstring =>$value[0],
- );
- } else {
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_210c.tmpl",
- query => $query,
- type => 'intranet',
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
-
- $template->param(index => $index,
- resultstring => $resultstring
- );
- }
-
- $template->param(authtypesloop => \@authtypesloop);
- $template->param(category => $category);
-
- # Print the page
- output_html_with_http_headers $query, $cookie, $template->output;
-}
-
-1;
Index: value_builder/unimarc_field_225a.pl
===================================================================
RCS file: value_builder/unimarc_field_225a.pl
diff -N value_builder/unimarc_field_225a.pl
--- value_builder/unimarc_field_225a.pl 6 Jan 2006 16:39:43 -0000 1.10
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,161 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_225a.pl,v 1.10 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-=head1 SYNOPSIS
-
-This plugin is used to map isbn/editor with collection.
-It need :
- in thesaurus, a category named EDITORS
- in this category, datas must be entered like following :
- isbn separator editor separator collection.
- for example :
- 2204 -- Cerf -- Cogitatio fidei
- 2204 -- Cerf -- Le Magistère de l'Eglise
- 2204 -- Cerf -- Lectio divina
- 2204 -- Cerf -- Lire la Bible
- 2204 -- Cerf -- Pour lire
- 2204 -- Cerf -- Sources chrétiennes
-
- when the user clic on ... on 225a line, the popup shows the list of collections from the selected editor
- if the biblio has no isbn, then the search if done on editor only
- If the biblio ha an isbn, the search is done on isbn and editor. It's faster.
-
-=over 2
-
-=cut
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(index) {
-// find the 010a value and the 210c. it will be used in the popup to find possibles collections
- var isbn_found;
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '010' && document.f.subfield[i].value == 'a') {
- isbn_found=document.f.field_value[i].value;
- }
- }
- var editor_found;
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '210' && document.f.subfield[i].value == 'c') {
- editor_found=document.f.field_value[i].value;
- }
- }
-
- defaultvalue=document.f.field_value[index].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_225a.pl&index=\"+index+\"&result=\"+defaultvalue+\"&isbn_found=\"+isbn_found+\"&editor_found=\"+editor_found,\"unimarc 225a\",'width=500,height=200,toolbar=false,scrollbars=no');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
- my $editor_found = $input->param('editor_found');
- my $isbn_found = $input->param('isbn_found');
- my $dbh = C4::Context->dbh;
- my $authoritysep = C4::Context->preference("authoritysep");
- my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_225a.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
-# builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
- # if there is an isbn, complete search
- my @collections;
- if ($isbn_found) {
- my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table
- left join auth_header on auth_subfield_table.authid=auth_header.authid
- where authtypecode='EDITORS' and tag='200' and subfieldcode='a' and subfieldvalue=?");
- my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='c' and authid=? order by subfieldvalue");
- my @splited = split //, $isbn_found;
- my $isbn_rebuild='';
- foreach my $x (@splited) {
- $isbn_rebuild.=$x;
- $sth->execute($isbn_rebuild);
- my ($authid) = $sth->fetchrow;
- $sth2->execute($authid);
- while (my ($line)= $sth2->fetchrow) {
- push @collections,$line;
- }
- }
- } else {
- my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table
- left join auth_header on auth_subfield_table.authid=auth_header.authid
- where authtypecode='EDITORS' and tag='200' and subfieldcode='b' and subfieldvalue=?");
- my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='c' and authid=? order by subfieldvalue");
- $sth->execute($editor_found);
- my ($authid) = $sth->fetchrow;
- $sth2->execute($authid);
- while (my ($line)= $sth2->fetchrow) {
- push @collections,$line;
- }
- }
-# my @collections = ["test"];
- my $collection =CGI::scrolling_list(-name=>'f1',
- -values=> \@collections,
- -default=>"$result",
- -size=>1,
- -multiple=>0,
- );
- $template->param(index => $index,
- collection => $collection);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_4XX.pl
===================================================================
RCS file: value_builder/unimarc_field_4XX.pl
diff -N value_builder/unimarc_field_4XX.pl
--- value_builder/unimarc_field_4XX.pl 19 Jul 2006 08:58:38 -0000 1.9
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,405 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-require Exporter;
-use CGI;
-use HTML::Template;
-use C4::Interface::CGI::Output;
-use C4::Context;
-use C4::Search;
-use C4::Auth;
-use C4::Output;
-use C4::Database;
-use C4::Biblio;
-#use C4::SimpleMarc;
-use C4::SearchMarc;
-use C4::Acquisition;
-use C4::Koha;
-use MARC::Record;
-
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "4XX".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.f.field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_4XX.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 4\"+i+\"\",'width=700,height=700,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-
-sub plugin {
- my ($input) = @_;
- my %env;
-
-
- my $dbh=C4::Context->dbh;
- my $query = new CGI;
- my $op = $query->param('op');
- my $type=$query->param('type');
-# warn "operation ".$op;
- my $startfrom=$query->param('startfrom');
- $startfrom=0 if(!defined $startfrom);
- my ($template, $loggedinuser, $cookie);
- my $resultsperpage;
- my $searchdesc;
-
- if ($op eq "fillinput"){
- my $bibnum = $query->param('bibnum');
- my $index = $query->param('index');
- my $marcrecord;
-# open template
- ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => "value_builder/unimarc_field_4XX.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- #get bibid
- my $bibid;
- my $req= $dbh->prepare("SELECT distinctrow bibid,biblionumber FROM `marc_biblio` WHERE biblionumber= ?");
- $req->execute($bibnum);
- ($bibid,$bibnum) = $req->fetchrow;
- #warn "bibid :".$bibid;
- #get marc record
- $marcrecord = MARCgetbiblio($dbh,$bibid);
-# warn "record : ".$marcrecord->as_formatted;
-
- my $subfield_value_9=$bibid;
- my $subfield_value_0;
- $subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field('001');
- my $subfield_value_a;
- if ($marcrecord->field('700')){
- $subfield_value_a=$marcrecord->field('700')->subfield("a");
- $subfield_value_a.=", ".$marcrecord->field('700')->subfield("b") if ($marcrecord->field('700')->subfield("b"));
- $subfield_value_a.=" ".$marcrecord->field('700')->subfield("d") if ($marcrecord->field('700')->subfield("d"));
- $subfield_value_a.=" (".$marcrecord->field('700')->subfield("c")." - " if ($marcrecord->field('700')->subfield("c"));
- $subfield_value_a.=" (" if (($marcrecord->field('700')->subfield("f")) and not( $marcrecord->field('700')->subfield("c")));
- $subfield_value_a.=$marcrecord->field('700')->subfield("f") if ($marcrecord->field('700')->subfield("f"));
- $subfield_value_a.=")" if ($marcrecord->field('700')->subfield("f")) or ($marcrecord->field('700')->subfield("c"));
- } elsif ($marcrecord->field('702')){
- $subfield_value_a=$marcrecord->field('702')->subfield("a");
- $subfield_value_a.=", ".$marcrecord->field('702')->subfield("b") if ($marcrecord->field('702')->subfield("b"));
- $subfield_value_a.=" ".$marcrecord->field('702')->subfield("d") if ($marcrecord->field('702')->subfield("d"));
- $subfield_value_a.=" (".$marcrecord->field('702')->subfield("c")."; " if ($marcrecord->field('702')->subfield("c"));
- $subfield_value_a.=" (" if (($marcrecord->field('702')->subfield("f")) and not($marcrecord->field('702')->subfield("c")) );
- $subfield_value_a.=$marcrecord->field('702')->subfield("f") if ($marcrecord->field('702')->subfield("f"));
- $subfield_value_a.=")" if ($marcrecord->field('702')->subfield("f")) or ($marcrecord->field('702')->subfield("c"));
- } elsif ($marcrecord->field('710')){
- $subfield_value_a=$marcrecord->field('710')->subfield("d")."° " if ($marcrecord->field('710')->subfield("d"));
- $subfield_value_a.=$marcrecord->field('710')->subfield("a") if ($marcrecord->field('710')->subfield("a"));
- $subfield_value_a.=", ".$marcrecord->field('710')->subfield("b") if ($marcrecord->field('710')->subfield("b"));
- $subfield_value_a.=" (".$marcrecord->field('710')->subfield("f")." - " if ($marcrecord->field('710')->subfield("f"));
- $subfield_value_a.=" (" if (($marcrecord->field('710')->subfield("e")) and not( $marcrecord->field('710')->subfield("f")));
- $subfield_value_a.=$marcrecord->field('710')->subfield("e") if ($marcrecord->field('710')->subfield("e"));
- $subfield_value_a.=")" if (($marcrecord->field('710')->subfield("e")) or ($marcrecord->field('710')->subfield("f")));
- } elsif ($marcrecord->field('701')){
- $subfield_value_a=$marcrecord->field('701')->subfield("a");
- $subfield_value_a.=", ".$marcrecord->field('701')->subfield("b") if ($marcrecord->field('701')->subfield("b"));
- $subfield_value_a.=" ".$marcrecord->field('701')->subfield("d") if ($marcrecord->field('701')->subfield("d"));
- $subfield_value_a.=" (".$marcrecord->field('701')->subfield("c")." - " if ($marcrecord->field('701')->subfield("c"));
- $subfield_value_a.=" (" if (($marcrecord->field('701')->subfield("f")) and not( $marcrecord->field('701')->subfield("c")));
- $subfield_value_a.=$marcrecord->field('701')->subfield("f") if ($marcrecord->field('701')->subfield("f"));
- $subfield_value_a.=")" if ($marcrecord->field('701')->subfield("f")) or ($marcrecord->field('701')->subfield("c"));
- } elsif ($marcrecord->field('712')){
- $subfield_value_a=$marcrecord->field('712')->subfield("d")."° " if ($marcrecord->field('712')->subfield("d"));
- $subfield_value_a.=$marcrecord->field('712')->subfield("a") if ($marcrecord->field('712')->subfield("a"));
- $subfield_value_a.=", ".$marcrecord->field('712')->subfield("b") if ($marcrecord->field('712')->subfield("b"));
- $subfield_value_a.=" (".$marcrecord->field('712')->subfield("f")." - " if ($marcrecord->field('712')->subfield("f"));
- $subfield_value_a.=" (" if (($marcrecord->field('712')->subfield("e")) and not( $marcrecord->field('712')->subfield("f")));
- $subfield_value_a.=$marcrecord->field('712')->subfield("e") if ($marcrecord->field('712')->subfield("e"));
- $subfield_value_a.=")" if (($marcrecord->field('712')->subfield("e")) or ($marcrecord->field('712')->subfield("f")));
- } elsif ($marcrecord->field('200')){
- $subfield_value_a=$marcrecord->field('200')->subfield("f");
- }
- my $subfield_value_c = $marcrecord->field('210')->subfield("a") if ($marcrecord->field('210'));
- my $subfield_value_d = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210'));
-
- my $subfield_value_e= $marcrecord->field('205')->subfield("a") if ($marcrecord->field('205'));
-
- my $subfield_value_h;
- if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("h"))){
- $subfield_value_h = $marcrecord->field('200')->subfield("h") ;
- } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("h"))) {
- $subfield_value_h = $marcrecord->field('225')->subfield("h") ;
- } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("h"))) {
- $subfield_value_h = $marcrecord->field('500')->subfield("h") ;
- }
-
- my $subfield_value_i;
- if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("i"))){
- $subfield_value_i = $marcrecord->field('200')->subfield("i") ;
- } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("i"))) {
- $subfield_value_i = $marcrecord->field('225')->subfield("i") ;
- } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("i"))) {
- $subfield_value_i = $marcrecord->field('500')->subfield("i") ;
- }
-
- my $subfield_value_p = $marcrecord->field('215')->subfield("a") if ($marcrecord->field('215'));
-
- my $subfield_value_t;
- if (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("a"))){
- $subfield_value_t = $marcrecord->field('200')->subfield("a") ;
- } elsif (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("a"))) {
- $subfield_value_t = $marcrecord->field('225')->subfield("a") ;
- } elsif (($marcrecord->field('500')) && ($marcrecord->field('500')->subfield("a"))) {
- $subfield_value_t = $marcrecord->field('500')->subfield("a") ;
- }
-
- my $subfield_value_u = $marcrecord->field('856')->subfield("u") if ($marcrecord->field('856'));
-
- my $subfield_value_v;
- if (($marcrecord->field('225')) && ($marcrecord->field('225')->subfield("v"))){
- $subfield_value_v = $marcrecord->field('225')->subfield("v") ;
- } elsif (($marcrecord->field('200')) && ($marcrecord->field('200')->subfield("h"))) {
- $subfield_value_v = $marcrecord->field('200')->subfield("h") ;
- }
- my $subfield_value_x = $marcrecord->field('011')->subfield("a") if ($marcrecord->field('011') and not (($marcrecord->field('011')->subfield("y")) or ($marcrecord->field('011')->subfield("z"))));
- my $subfield_value_y = $marcrecord->field('013')->subfield("a") if ($marcrecord->field('013'));
- if ($marcrecord->field('010')){
- $subfield_value_y = $marcrecord->field('010')->subfield("a");
- }
- $template->param(fillinput => 1,
- index => $query->param('index')."",
- bibid=>$bibid?$bibid:"",
- subfield_value_9=>$subfield_value_9,
- subfield_value_0=>$subfield_value_0,
- subfield_value_a=>$subfield_value_a,
- subfield_value_c=>$subfield_value_c,
- subfield_value_d=>$subfield_value_d,
- subfield_value_e=>$subfield_value_e,
- subfield_value_h=>$subfield_value_h,
- subfield_value_i=>$subfield_value_i,
- subfield_value_p=>$subfield_value_p,
- subfield_value_t=>$subfield_value_t,
- subfield_value_u=>$subfield_value_u,
- subfield_value_v=>$subfield_value_v,
- subfield_value_x=>$subfield_value_x,
- subfield_value_y=>$subfield_value_y,
- );
-###############################################################
- }elsif ($op eq "do_search") {
- my @marclist = $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');
-
- for (my $i=0;$i<=$#marclist;$i++) {
- if ($searchdesc) { # don't put the and_or on the 1st search term
- $searchdesc .= $and_or[$i]." ".$excluding[$i]." ".($marclist[$i]?$marclist[$i]:"*")." ".$operator[$i]." ".$value[$i]." " if ($value[$i]);
- } else {
- $searchdesc = $excluding[$i]." ".($marclist[$i]?$marclist[$i]:"*")." ".$operator[$i]." ".$value[$i]." " if ($value[$i]);
- }
- }
- $resultsperpage= $query->param('resultsperpage');
- $resultsperpage = 19 if(!defined $resultsperpage);
- my $orderby = $query->param('orderby');
- my $desc_or_asc = $query->param('desc_or_asc');
-
- # builds tag and subfield arrays
- my @tags;
- foreach my $marc (@marclist) {
- if ($marc) {
- my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc,'');
- if ($tag) {
- push @tags,$dbh->quote("$tag$subfield");
- } else {
- push @tags, $dbh->quote(substr($marc,0,4));
- }
- } else {
- push @tags, "";
- }
- }
-
- my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,
- \@excluding, \@operator, \@value,
- $startfrom*$resultsperpage, $resultsperpage,$orderby, $desc_or_asc);
-# warn " biblio count : ".$total;
-
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_4XX.tmpl",
- query => $query,
- type => 'intranet',
- authnotrequired => 1,
- debug => 1,
- });
-
- # multi page display gestion
- my $displaynext=0;
- my $displayprev=$startfrom;
- if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){
- $displaynext = 1;
- }
-
- my @field_data = ();
-
-
- for(my $i = 0 ; $i <= $#marclist ; $i++)
- {
- push @field_data, { term => "marclist", val=>$marclist[$i] };
- push @field_data, { term => "and_or", val=>$and_or[$i] };
- push @field_data, { term => "excluding", val=>$excluding[$i] };
- push @field_data, { term => "operator", val=>$operator[$i] };
- push @field_data, { term => "value", val=>$value[$i] };
- }
-
- my @numbers = ();
-
- if ($total>$resultsperpage)
- {
- for (my $i=1; $i<$total/$resultsperpage+1; $i++)
- {
- if ($i<16)
- {
- my $highlight=0;
- ($startfrom==($i-1)) && ($highlight=1);
- push @numbers, { number => $i,
- highlight => $highlight ,
- searchdata=> \@field_data,
- startfrom => ($i-1)};
- }
- }
- }
-
- my $from = $startfrom*$resultsperpage+1;
- my $to;
-
- if($total < (($startfrom+1)*$resultsperpage))
- {
- $to = $total;
- } else {
- $to = (($startfrom+1)*$resultsperpage);
- }
- my $defaultview = 'BiblioDefaultView'.C4::Context->preference('BiblioDefaultView');
- $template->param(result => $results,
- index => $query->param('index')."",
- startfrom=> $startfrom,
- displaynext=> $displaynext,
- displayprev=> $displayprev,
- resultsperpage => $resultsperpage,
- orderby => $orderby,
- startfromnext => $startfrom+1,
- startfromprev => $startfrom-1,
- searchdata=>\@field_data,
- total=>$total,
- from=>$from,
- to=>$to,
- numbers=>\@numbers,
- searchdesc=> $searchdesc,
- $defaultview => 1,
- Search =>0
- );
-
- } else {
- ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_4XX.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 1,
- });
-
-
- my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description");
- $sth->execute;
- my @itemtype;
- my %itemtypes;
- push @itemtype, "";
- $itemtypes{''} = "";
- while (my ($value,$lib) = $sth->fetchrow_array) {
- push @itemtype, $value;
- $itemtypes{$value}=$lib;
- }
-
- my $CGIitemtype=CGI::scrolling_list( -name => 'value',
- -values => \@itemtype,
- -labels => \%itemtypes,
- -size => 1,
- -multiple => 0 );
- $sth->finish;
-
- my @branchloop;
- my @select_branch;
- my %select_branches;
- my $branches=GetBranches;
- push @select_branch, "";
- $select_branches{''} = "";
- foreach my $thisbranch (keys %$branches){
- push @select_branch, $branches->{$thisbranch}->{'branchcode'};
- $select_branches{$branches->{$thisbranch}->{'branchcode'}} = $branches->{$thisbranch}->{'branchname'};
- }
- my $CGIbranch=CGI::scrolling_list( -name => 'value',
- -values => \@select_branch,
- -labels => \%select_branches,
- -size => 1,
- -multiple => 0 );
- $sth->finish;
-
- my $req = $dbh->prepare("select distinctrow left(publishercode,45) from biblioitems order by publishercode");
- $req->execute;
- my @select;
- push @select,"";
- while (my ($value) =$req->fetchrow) {
- push @select, $value;
- }
- my $CGIpublisher=CGI::scrolling_list( -name => 'value',
- -id => 'publisher',
- -values => \@select,
- -size => 1,
- -multiple => 0 );
-
-# my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
-# $sth->execute;
-# while (my ($description,$itemtype) = $sth->fetchrow) {
-# $classlist.="<option value=\"$itemtype\">$description</option>\n";
-# }
-# $sth->finish;
-
- $template->param(#classlist => $classlist,
- CGIitemtype => $CGIitemtype,
- CGIbranch => $CGIbranch,
- CGIPublisher => $CGIpublisher,
- index=>$query->param('index'),
- Search =>1,
- );
- }
- output_html_with_http_headers $query, $cookie, $template->output ;
-}
-
-1;
Index: value_builder/unimarc_field_60X.pl
===================================================================
RCS file: value_builder/unimarc_field_60X.pl
diff -N value_builder/unimarc_field_60X.pl
--- value_builder/unimarc_field_60X.pl 6 Jan 2006 16:39:43 -0000 1.5
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,118 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_60X.pl,v 1.5 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-use C4::Authorities;
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(index) {
- defaultvalue=document.f.field_value[index].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_60X.pl&index=\"+index+\"&result=\"+defaultvalue,\"unimarc 700\",'width=700,height=300,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
- my ($input) = @_;
- my %env;
- my $dbh = C4::Context->dbh;
- my $index= $input->param('index');
- my $result= $input->param('result');
- my $search_string= $input->param('search_string');
- my $op = $input->param('op');
- my $id = $input->param('id');
- my $insert = $input->param('insert');
- my %stdlib;
- my $select_list;
- if ($op eq "add") {
- newauthority($dbh,'NC',$insert,$insert,'',1,'');
- $search_string=$insert;
- }
- if ($op eq "select") {
- my $sti = $dbh->prepare("select stdlib from bibliothesaurus where id=?");
- $sti->execute($id);
- my ($freelib_text) = $sti->fetchrow_array;
- $result = $freelib_text;
- }
- my $Rsearch_string="$search_string%";
- my $authoritysep = C4::Context->preference('authoritysep');
- my @splitted = /$authoritysep/,$search_string;
- my $level = $#splitted+1;
- my $sti;
- if ($search_string) { # if no search pattern, returns only the 50 1st top level values
- $sti=$dbh->prepare("select distinct freelib,father,level from bibliothesaurus where category='NC' and freelib like ? order by father,freelib");
- } else {
- $sti=$dbh->prepare("select distinct freelib,father,level from bibliothesaurus where category='NC' and level=0 and freelib like ? order by father,freelib limit 0,50");
- }
- $sti->execute($Rsearch_string);
- my @results;
- while (my ($freelib,$father,$level)=$sti->fetchrow) {
- my %line;
- if ($father) {
- $line{value} = "$father $freelib";
- } else {
- $line{value} = "$freelib";
- }
- $line{level} = $level+1;
- $line{father} = $father;
- push @results, \%line;
- }
- my @DeeperResults = SearchDeeper('NC',$search_string);
- my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_60X.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
-# builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
- $template->param(index => $index,
- result =>$result,
- search_string => $search_string?$search_string:$result,
- results => \@results,
- deeper => \@DeeperResults,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_700-4.pl
===================================================================
RCS file: value_builder/unimarc_field_700-4.pl
diff -N value_builder/unimarc_field_700-4.pl
--- value_builder/unimarc_field_700-4.pl 20 Dec 2002 14:02:39 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,98 +0,0 @@
-#!/usr/bin/perl
-
-# written 10/5/2002 by Paul
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1 NAME
-
-plugin unimarc_field_700-4
-
-=head1 SYNOPSIS
-
-This plug-in deals with unimarc field 700-4 (
-
-=head1 DESCRIPTION
-
-=head1 FUNCTIONS
-
-=over 2
-
-=cut
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "7004".(int(rand(100000))+1);
-my $res = "
-<script>
-function Focus$function_name(index) {
- return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(subfield_managed) {
- defaultvalue=document.forms[0].field_value[1].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_700-4.pl&result=\"+defaultvalue+\"&index=$field_number\",\"value builder\",'width=500,height=400,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $index2= $input->param('index2');
- $index2=-1 unless($index2);
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
- my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_700-4.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {parameters => 1},
- debug => 1,
- });
- $template->param(index => $index,
- index2 => $index2,
- "f1_$result" => "f1_".$result,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_field_700_701_702.pl
===================================================================
RCS file: value_builder/unimarc_field_700_701_702.pl
diff -N value_builder/unimarc_field_700_701_702.pl
--- value_builder/unimarc_field_700_701_702.pl 8 Nov 2004 19:58:38 -0000 1.7
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,158 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_field_700_701_702.pl,v 1.7 2004/11/08 19:58:38 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-use C4::Authorities;
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(index) {
- defaultvalue=document.f.field_value[index].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_700_701_702.pl&index=\"+index+\"&result=\"+defaultvalue,\"unimarc 700\",'width=700,height=300,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
- my ($input) = @_;
- my %env;
- my $dbh = C4::Context->dbh;
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
- my $search_string= $input->param('search_string');
- my $op = $input->param('op');
- my $id = $input->param('id');
- my $insert = $input->param('insert');
- my @freelib;
- my %stdlib;
- my $select_list;
- my ($a,$b,$c,$f) ; # the 4 managed subfields.
- if ($op eq "add") {
- newauthority($dbh,'NP',$insert,$insert,'',1,'');
- $search_string=$insert;
- }
- if ($op eq "select") {
- my $sti = $dbh->prepare("select stdlib from bibliothesaurus where id=?");
- $sti->execute($id);
- my ($freelib_text) = $sti->fetchrow_array;
- $result = $freelib_text;
- # fill the 4 managed subfields
- my @arr = split //,$result;
- my $where = 1;
- foreach my $x (@arr) {
- next if ($x eq ')');
- if ($x eq ',') {
- $where=2;
- next;
- }
- if ($x eq '(') {
- if ($result =~ /.*;.*/) {
- $where=3;
- } else {
- $where=4;
- }
- next;
- }
- if ($x eq ';') {
- $where=4;
- next;
- }
- if ($where eq 1) {
- $a.=$x;
- }
- if ($where eq 2) {
- $b.=$x;
- }
- if ($where eq 3) {
- $c.=$x;
- }
- if ($where eq 4) {
- $f.=$x;
- }
- }
-# remove trailing blanks
- $a=~ s/^\s+//g;
- $b=~ s/^\s+//g;
- $c=~ s/^\s+//g;
- $f=~ s/^\s+//g;
- $a=~ s/\s+$//g;
- $b=~ s/\s+$//g;
- $c=~ s/\s+$//g;
- $f=~ s/^s+$//g;
- }
- if ($search_string) {
- # my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where freelib like '".$search_string."%' and category ='$category'");
- my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where match (category,freelib) AGAINST (?) and category ='NP'");
- $sti->execute($search_string);
- while (my $line=$sti->fetchrow_hashref) {
- $stdlib{$line->{'id'}} = "$line->{'freelib'}";
- push(@freelib,$line->{'id'});
- }
- $select_list= CGI::scrolling_list( -name=>'id',
- -values=> \@freelib,
- -default=> "",
- -size=>1,
- -multiple=>0,
- -labels=> \%stdlib
- );
- }
- my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_field_700_701_702.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {parameters => 1},
- debug => 1,
- });
-# builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
- $template->param(index => $index,
- result =>$result,
- select_list => $select_list,
- search_string => $search_string?$search_string:$result,
- a => $a,
- b => $b,
- c => $c,
- f => $f,);
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/unimarc_leader.pl
===================================================================
RCS file: value_builder/unimarc_leader.pl
diff -N value_builder/unimarc_leader.pl
--- value_builder/unimarc_leader.pl 6 Jan 2006 16:39:43 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,105 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: unimarc_leader.pl,v 1.3 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-use strict;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "100".(int(rand(100000))+1);
-my $res="
-<script>
-function Focus$function_name(subfield_managed) {
-return 1;
-}
-
-function Blur$function_name(subfield_managed) {
- return 1;
-}
-
-function Clic$function_name(i) {
- defaultvalue=document.forms[0].field_value[i].value;
- newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_leader.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc field 100\",'width=1000,height=600,toolbar=false,scrollbars=yes');
-
-}
-</script>
-";
-
-return ($function_name,$res);
-}
-sub plugin {
-my ($input) = @_;
- my %env;
-
-# my $input = new CGI;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "value_builder/unimarc_leader.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
- $result = " nam " unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
-
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- );
- print $input->header(-cookie => $cookie),$template->output;
-}
-
-1;
Index: value_builder/usmarc_field_952v.pl
===================================================================
RCS file: value_builder/usmarc_field_952v.pl
diff -N value_builder/usmarc_field_952v.pl
--- value_builder/usmarc_field_952v.pl 6 Jan 2006 16:39:43 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,101 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: usmarc_field_952v.pl,v 1.2 2006/01/06 16:39:43 tipaul Exp $
-
-# Copyright 2000-2002 Katipo Communications
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
-#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
-
-require Exporter;
-use C4::AuthoritiesMarc;
-use C4::Auth;
-use C4::Context;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use CGI;
-use C4::Search;
-use MARC::Record;
-use C4::Koha;
-use HTML::Template;
-
-=head1
-
-plugin_parameters : other parameters added when the plugin is called by the dopop function
-
-=cut
-sub plugin_parameters {
-my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
-return "";
-}
-
-=head1
-
-plugin_javascript : the javascript function called when the user enters the subfield.
-contain 3 javascript functions :
-* one called when the field is entered (OnFocus). Named FocusXXX
-* one called when the field is leaved (onBlur). Named BlurXXX
-* one called when the ... link is clicked (<a href="javascript:function">) named ClicXXX
-
-returns :
-* XXX
-* a variable containing the 3 scripts.
-the 3 scripts are inserted after the <input> in the html code
-
-=cut
-sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= "210c".(int(rand(100000))+1);
-
-# find today's date
-my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
- localtime(time);
-$year +=1900;
-$mon +=1;
-my $date = "$year-$mon-$mday";
-my $res = "
-<script>
-function Blur$function_name(index) {
-//need this?
-}
-
-function Focus$function_name(subfield_managed) {
- for (i=0 ; i<document.f.field_value.length ; i++) {
- if (document.f.tag[i].value == '952' && document.f.subfield[i].value == 'v') {
- document.f.field_value[i].value = '$date';
- }
- }
-return 0;
-}
-
-function Clic$function_name(subfield_managed) {
-}
-</script>
-";
-return ($function_name,$res);
-}
-
-=head1
-
-plugin : the true value_builded. The screen that is open in the popup window.
-
-=cut
-
-sub plugin {
-my ($input) = @_;
-return "";
-}
-
-1;
More information about the Koha-cvs
mailing list