pugins to manage leader in MARC21 and in UNIMARC.

UNIMARC needs some tweaking but works, MARC21 still buggy, i'll fix it on monday, dont try it yet pls ;-)
This commit is contained in:
tipaul 2005-07-29 09:57:28 +00:00
parent 9f449a44db
commit b5f442cf46
4 changed files with 801 additions and 0 deletions

View File

@ -0,0 +1,351 @@
<html>
<head>
<title>Leader builder</title>
</head>
<body>
<form name="f_pop" onSubmit="javascript:report()">
<table>
<tr>
<td>1-4 Record size</td>
<td>(auto-filled)</td>
</tr>
<tr>
<td>5- Record status</td>
<td>
<select name="f5" size="1">
<!-- TMPL_IF name="f5a" -->
<option value=" " SELECTED>a- Increase in encoding level (MARC21 specific)</option>
<!-- TMPL_ELSE -->
<option value=" ">a- Increase in encoding level (MARC21 specific)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5c" -->
<option value="c" SELECTED>c- Corrected or revised</option>
<!-- TMPL_ELSE -->
<option value="c">c- Corrected or revised</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5d" -->
<option value="d" SELECTED>d- Deleted</option>
<!-- TMPL_ELSE -->
<option value="d">d- Deleted</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5n" -->
<option value="n" SELECTED>n- New</option>
<!-- TMPL_ELSE -->
<option value="n">n- New</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5o" -->
<option value="o" SELECTED>o- "daughter" biblio (UNIMARC specific)</option>
<!-- TMPL_ELSE -->
<option value="o">o- daughter biblio (UNIMARC specific)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5p" -->
<option value="p" SELECTED>p- Increase in encoding level from prepublication</option>
<!-- TMPL_ELSE -->
<option value="p">p- Increase in encoding level from prepublication</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>6- Type of record</td>
<td>
<select name="f6" size="1">
<!-- TMPL_IF name="f6a" -->
<option value="a" SELECTED>a- Language material (monography)</option>
<!-- TMPL_ELSE -->
<option value="a">a- Language material (monography)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6b" -->
<option value="b" SELECTED>b- Manuscript Language material(UNIMARC)</option>
<!-- TMPL_ELSE -->
<option value="b">b- Manuscript Language material (UNIMARC)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6c" -->
<option value="c" SELECTED>c- Notated music</option>
<!-- TMPL_ELSE -->
<option value="c">c- Notated music</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6d" -->
<option value="d" SELECTED>d- Manuscript notated music</option>
<!-- TMPL_ELSE -->
<option value="d">d- Manuscript notated music</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6e" -->
<option value="e" SELECTED>e- Cartographic material</option>
<!-- TMPL_ELSE -->
<option value="e">e- Cartographic material</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6f" -->
<option value="f" SELECTED>f - Manuscript cartographic material</option>
<!-- TMPL_ELSE -->
<option value="f">f - Manuscript cartographic material</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6g" -->
<option value="g" SELECTED>g - Projected medium</option>
<!-- TMPL_ELSE -->
<option value="g">g - Projected medium</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6i" -->
<option value="i" SELECTED>i - Nonmusical sound recording</option>
<!-- TMPL_ELSE -->
<option value="i">i - Nonmusical sound recording</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6j" -->
<option value="j" SELECTED>j - Musical sound recording</option>
<!-- TMPL_ELSE -->
<option value="j">j - Musical sound recording</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6k" -->
<option value="k" SELECTED>k - Two-dimensional nonprojectable graphic</option>
<!-- TMPL_ELSE -->
<option value="k">k - Two-dimensional nonprojectable graphic</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6m" -->
<option value="m" SELECTED>m - Computer file</option>
<!-- TMPL_ELSE -->
<option value="m">m - Computer file</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6o" -->
<option value="o" SELECTED>o - Kit (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="o">o - Kit (MARC21)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6p" -->
<option value="p" SELECTED>p - Mixed material (UNIMARC)</option>
<!-- TMPL_ELSE -->
<option value="p">p - Mixed material (UNIMARC)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6r" -->
<option value="r" SELECTED>r - Three-dimensional artifact or naturally occurring object</option>
<!-- TMPL_ELSE -->
<option value="r">r - Three-dimensional artifact or naturally occurring object</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6t" -->
<option value="t" SELECTED>t - Manuscript language material (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="t">t - Manuscript language material (MARC21)</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>7- Bibliographic level</td>
<td>
<select name="f7" size="1">
<!-- TMPL_IF name="f7a" -->
<option value="a" SELECTED>a- Monographic component part</option>
<!-- TMPL_ELSE -->
<option value="a">a- Monographic component part</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7b" -->
<option value="b" SELECTED>b- Serial component part (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="b">a- Serial component part (MARC21)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7c" -->
<option value="c" SELECTED>c- Collection (MARC21) / Factice (UNIMARC)</option>
<!-- TMPL_ELSE -->
<option value="c">c- Collection (MARC21) / Factice (UNIMARC)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7d" -->
<option value="d" SELECTED>d- Subunit (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="d">d- Subunit (MARC21)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7i" -->
<option value="i" SELECTED>i- Integrating resource (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="i">i- Integrating resource (MARC21)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7m" -->
<option value="m" SELECTED>m- Monograph/item</option>
<!-- TMPL_ELSE -->
<option value="m">m- Monograph/item</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7s" -->
<option value="s" SELECTED>s- Serial</option>
<!-- TMPL_ELSE -->
<option value="s">s- Serial</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>8- Hierarchic level</td>
<td>
<select name="f8" size="1">
<!-- TMPL_IF name="f8 " -->
<option value=" " SELECTED>No specific type</option>
<!-- TMPL_ELSE -->
<option value=" ">No specific type</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f8a" -->
<option value="a" SELECTED>a- Archival (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="a">a- Archival (MARC21)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f81" -->
<option value="1" SELECTED>1- None (UNIMARC)</option>
<!-- TMPL_ELSE -->
<option value="1">1- None (UNIMARC)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f82" -->
<option value="2" SELECTED>2- Upper level (UNIMARC)</option>
<!-- TMPL_ELSE -->
<option value="2">a- Upper level (UNIMARC)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f83" -->
<option value="3" SELECTED>3- Daughter level (UNIMARC)</option>
<!-- TMPL_ELSE -->
<option value="3">3- Daughter level (UNIMARC)</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>9- Encoding</td>
<td>
<select name="f9" size="1">
<!-- TMPL_IF name="f9 " -->
<option value=" " SELECTED>MARC-8 (MARC21)</option>
<!-- TMPL_ELSE -->
<option value=" ">MARC-8</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f9a" -->
<option value="a" SELECTED>a- UCS/Unicode (MARC21)</option>
<!-- TMPL_ELSE -->
<option value="a">a- UCS/Unicode (MARC21)</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>10-16 indicator/subfields/size</td>
<td>(auto-filled)</td>
<tr>
<td>17- Encoding</td>
<td>
<select name="f17" size="1">
<!-- TMPL_IF name="f17 " -->
<option value=" " SELECTED>full level</option>
<!-- TMPL_ELSE -->
<option value=" ">Full level</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f171" -->
<option value="1" SELECTED>1- Full level, material not examined</option>
<!-- TMPL_ELSE -->
<option value="1">1- Full level, material not examined</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f172" -->
<option value="2" SELECTED>2 - Less-than-full level, material not examined</option>
<!-- TMPL_ELSE -->
<option value="2">2 - Less-than-full level, material not examined</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f173" -->
<option value="3" SELECTED>3- Abbreviated level</option>
<!-- TMPL_ELSE -->
<option value="3">3- Abbreviated level</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f174" -->
<option value="4" SELECTED>4- Core level</option>
<!-- TMPL_ELSE -->
<option value="4">4- Core level</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f175" -->
<option value="5" SELECTED>5- Partial (preliminary) level</option>
<!-- TMPL_ELSE -->
<option value="5">5- Partial (preliminary) level</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f177" -->
<option value="7" SELECTED>7- Minimal level</option>
<!-- TMPL_ELSE -->
<option value="7">7- Minimal level</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f178" -->
<option value="8" SELECTED>8- Prepublication level</option>
<!-- TMPL_ELSE -->
<option value="8">8- Prepublication level</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f17u" -->
<option value="u" SELECTED>u - Unknown</option>
<!-- TMPL_ELSE -->
<option value="u">u - Unknown</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f17z" -->
<option value="z" SELECTED>z- Not applicable</option>
<!-- TMPL_ELSE -->
<option value="z">z- Not applicableFull level</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>18 - Descriptive cataloging form</td>
<td>
<select name="f18" size="1">
<!-- TMPL_IF name="f18 " -->
<option value=" " SELECTED>Non-ISBD</option>
<!-- TMPL_ELSE -->
<option value=" ">Non-ISBD</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f18a" -->
<option value="a" SELECTED>a- AACR 2</option>
<!-- TMPL_ELSE -->
<option value="a">a- AACR 2</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f18i" -->
<option value="i" SELECTED>i- ISBD</option>
<!-- TMPL_ELSE -->
<option value="i">i- ISBD</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f18u" -->
<option value="u" SELECTED>u- Unknown</option>
<!-- TMPL_ELSE -->
<option value="u">u- Unknown</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>19 - Linked record requirement</td>
<td>
<select name="f19" size="1">
<!-- TMPL_IF name="f19 " -->
<option value=" " SELECTED>Related record not required</option>
<!-- TMPL_ELSE -->
<option value=" ">Related record not required</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f18r" -->
<option value="r" SELECTED>r- Related record required</option>
<!-- TMPL_ELSE -->
<option value="r">r- Related record required</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>20-24 entry map & lengths</td>
<td>(auto-filled)</td>
<tr>
<tr><td colspan=2><input type="submit" value="OK"></td></tr>
</table>
</form>
<script>
function report() {
opener.document.f.field_value[<!-- TMPL_VAR name="index" -->].value =
' '+document.f_pop.f5.value +
document.f_pop.f6.value+ document.f_pop.f7.value+
document.f_pop.f8.value+ document.f_pop.f9.value+ ' '+
document.f_pop.f17.value+ document.f_pop.f18.value+ document.f_pop.f19.value+' ';
self.close();
return false;
}
</script>
</body>
</html>

View File

@ -0,0 +1,241 @@
<html>
<head>
<title>Construction du leader</title>
</head>
<body>
<form name="f_pop" onSubmit="javascript:report()">
<table>
<tr>
<td>1-4 Taille</td>
<td>(auto-calculé)</td>
</tr>
<tr>
<td>5- Etat de la notice</td>
<td>
<select name="f5" size="1">
<!-- TMPL_IF name="f5c" -->
<option value="c" SELECTED>c- Notice corrigée</option>
<!-- TMPL_ELSE -->
<option value="c">c- Notice corrigée</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5d" -->
<option value="d" SELECTED>d- Notice détruite</option>
<!-- TMPL_ELSE -->
<option value="d">d- Notice détruite</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5n" -->
<option value="n" SELECTED>n- Nouvelle notice</option>
<!-- TMPL_ELSE -->
<option value="n">n- Nouvelle notice</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5o" -->
<option value="o" SELECTED>o- Notice fille</option>
<!-- TMPL_ELSE -->
<option value="o">o- Notice fille</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f5p" -->
<option value="p" SELECTED>p- Notice incomplète ou pré-publi</option>
<!-- TMPL_ELSE -->
<option value="p">p- Notice incomplète ou pré-publi</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>6- Type de document</td>
<td>
<select name="f6" size="1">
<!-- TMPL_IF name="f6a" -->
<option value="a" SELECTED>a- Texte imprimé</option>
<!-- TMPL_ELSE -->
<option value="a">a- Texte imprimé</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6b" -->
<option value="b" SELECTED>b- Texte manuscrit</option>
<!-- TMPL_ELSE -->
<option value="b">b- Texte manuscrit</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6c" -->
<option value="c" SELECTED>c- Partition musicale imprimée</option>
<!-- TMPL_ELSE -->
<option value="c">c- Partition musicale imprimée</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6d" -->
<option value="d" SELECTED>d- Partition musicale manuscrite</option>
<!-- TMPL_ELSE -->
<option value="d">d- Partition musicale manuscrite</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6e" -->
<option value="e" SELECTED>e- doc cartographique imprimé</option>
<!-- TMPL_ELSE -->
<option value="e">e- doc cartographique imprimé</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6f" -->
<option value="f" SELECTED>f - doc cartographique manuscrit</option>
<!-- TMPL_ELSE -->
<option value="f">f - doc cartographique manuscrit</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6g" -->
<option value="g" SELECTED>g - doc projeté ou vidéo</option>
<!-- TMPL_ELSE -->
<option value="g">g - doc projeté ou vidéo</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6i" -->
<option value="i" SELECTED>i - enreg sonore non musical</option>
<!-- TMPL_ELSE -->
<option value="i">i - enreg sonore non musical</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6j" -->
<option value="j" SELECTED>j - enreg sonore musical</option>
<!-- TMPL_ELSE -->
<option value="j">j - enreg sonore musical</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6k" -->
<option value="k" SELECTED>k - doc graphique 2 dimensions</option>
<!-- TMPL_ELSE -->
<option value="k">k - doc graphique 2 dimensions</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6m" -->
<option value="m" SELECTED>m - doc multimédia</option>
<!-- TMPL_ELSE -->
<option value="m">m - doc multimédia</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f6r" -->
<option value="r" SELECTED>r - Objet à 3 dimension, artefact</option>
<!-- TMPL_ELSE -->
<option value="r">r - Objet à 3 dimension, artefact</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>7- Type de la notice</td>
<td>
<select name="f7" size="1">
<!-- TMPL_IF name="f7a" -->
<option value="a" SELECTED>a- Analytique (partie composante)</option>
<!-- TMPL_ELSE -->
<option value="a">a- Analytique (partie composante)</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7c" -->
<option value="c" SELECTED>c- Recueil factice</option>
<!-- TMPL_ELSE -->
<option value="c">c- Recueil factice</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7m" -->
<option value="m" SELECTED>m- Monographie</option>
<!-- TMPL_ELSE -->
<option value="m">m- Monographie</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f7s" -->
<option value="s" SELECTED>s- Publication en série</option>
<!-- TMPL_ELSE -->
<option value="s">s- Publication en série</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>8- Niveau hiérarchique</td>
<td>
<select name="f8" size="1">
<!-- TMPL_IF name="f8 " -->
<option value=" " SELECTED>Non défini</option>
<!-- TMPL_ELSE -->
<option value=" ">Non défini</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f81" -->
<option value="1" SELECTED>1- Pas de relation hiérarchique</option>
<!-- TMPL_ELSE -->
<option value="1">1- Pas de relation hiérarchique</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f82" -->
<option value="2" SELECTED>2- Notice de niveau le + élevé</option>
<!-- TMPL_ELSE -->
<option value="2">a- Notice de niveau le + élevé</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f83" -->
<option value="3" SELECTED>3- Notice fille</option>
<!-- TMPL_ELSE -->
<option value="3">3- Notice fille</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>9-16 indicator/subfields/size</td>
<td>(auto-filled)</td>
<tr>
<td>17- Niveau de catalogage</td>
<td>
<select name="f17" size="1">
<!-- TMPL_IF name="f17 " -->
<option value=" " SELECTED>Rédigée "document en mains"</option>
<!-- TMPL_ELSE -->
<option value=" ">Rédigée "document en mains"</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f171" -->
<option value="1" SELECTED>1- Non rédigée "document en mains"</option>
<!-- TMPL_ELSE -->
<option value="1">1- Non rédigée "document en mains"</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f172" -->
<option value="2" SELECTED>2 - Rédigée sur un doc avant publi</option>
<!-- TMPL_ELSE -->
<option value="2">2 - Rédigée sur un doc avant publi</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f173" -->
<option value="3" SELECTED>3- Notice incomplète</option>
<!-- TMPL_ELSE -->
<option value="3">3- Notice incomplète</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>18 - Descriptive cataloging form</td>
<td>
<select name="f18" size="1">
<!-- TMPL_IF name="f18 " -->
<option value=" " SELECTED> conforme ISBD</option>
<!-- TMPL_ELSE -->
<option value=" "> conforme ISBD</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f18i" -->
<option value="i" SELECTED>i- partiellement conforme ISBD</option>
<!-- TMPL_ELSE -->
<option value="i">i- partiellement conforme ISBD</option>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="f18n" -->
<option value="n" SELECTED>n- Non conforme ISBD</option>
<!-- TMPL_ELSE -->
<option value="n">n- Non conforme ISBD</option>
<!-- /TMPL_IF -->
</select>
</td>
</tr>
<tr>
<td>19-24 entry map & lengths</td>
<td>(auto-filled)</td>
<tr>
<tr><td colspan=2><input type="submit" value="OK"></td></tr>
</table>
</form>
<script>
function report() {
opener.document.f.field_value[<!-- TMPL_VAR name="index" -->].value =
' '+document.f_pop.f5.value +
document.f_pop.f6.value+ document.f_pop.f7.value+
document.f_pop.f8.value+ document.f_pop.f9.value+ ' '+
document.f_pop.f17.value+ document.f_pop.f18.value+' 450 ';
self.close();
return false;
}
</script>
</body>
</html>

View File

@ -0,0 +1,104 @@
#!/usr/bin/perl
# $Id$
# 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=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/leader.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => {parameters => 1},
debug => 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 $f17 = substr($result,16,1);
my $f18 = substr($result,17,1);
my $f19 = substr($result,18,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;

View File

@ -0,0 +1,105 @@
#!/usr/bin/perl
# $Id$
# 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 => {parameters => 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;