Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

synch'ing 2.2 and head

Browse source
This commit is contained in:
tipaul 2005-08-04 14:10:52 +00:00
parent e905da9945
commit c52e5b61dd
21 changed files with 641 additions and 117 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
koha-tmpl/opac-tmpl/css/en/includes/opac-top.inc
View file

@ -32,7 +32,7 @@
<!-- MENUS -->
<div id="title">
<!-- TMPL_IF name="opacsmallimage" -->
<img src="<!-- TMPL_VAR name="opacsmallimage"-->" height="50" alt="koha logo"/>
<img src="<!-- TMPL_VAR name="opacsmallimage"-->" height="65" alt="koha logo"/>
<!-- TMPL_ELSE -->
<img src="<!-- TMPL_VAR name="themelang" -->/images/front-background-small.gif" height="50" alt="koha logo"/>
<!-- /TMPL_IF -->

20
koha-tmpl/opac-tmpl/css/en/opac-MARCdetail.tmpl
View file

@ -76,7 +76,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -100,7 +100,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -124,7 +124,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -148,7 +148,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -172,7 +172,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -196,7 +196,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -220,7 +220,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -244,7 +244,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -268,7 +268,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->
@ -292,7 +292,7 @@
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
<a href="search.marc/search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<a href="opac-search.pl?op=do_search&amp;marclist=<!-- TMPL_VAR NAME="link" -->&amp;operator==&amp;type=intranet&amp;value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
<img border="0" src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR NAME="theme" -->/<!-- TMPL_VAR NAME="lang" -->/images/filefind.png" height="15" title="Search on <!-- TMPL_VAR name="marc_value" -->">
</a>
<!-- /TMPL_IF -->

125
koha-tmpl/opac-tmpl/css/en/opac-detail.tmpl
View file

@ -53,24 +53,54 @@
<!-- /TMPL_IF -->
<!-- TMPL_IF name="author" --><p><label><b>Author:</b> </label><!-- TMPL_VAR NAME="author" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="additional" --><p><label><b>Additional Author:</b></label><!-- TMPL_VAR NAME="additional" --></p><!-- /TMPL_IF -->
<p><!-- TMPL_IF name="publishercode" --><label><b>Published by :</b></label><!-- /TMPL_IF --> <!-- TMPL_VAR NAME="publishercode" --></p>
<!-- TMPL_IF name="illus" --><p><label><b>Illus:</b></label><!-- TMPL_VAR name="illus" --></p><!-- /TMPL_IF -->
<p>
<!-- TMPL_IF name="publicationyear" --><label><b>in </b></label><!-- /TMPL_IF --><!-- TMPL_VAR NAME="publicationyear" -->
<!-- TMPL_IF name="pages" -->, <!-- /TMPL_IF --><!-- TMPL_VAR name="pages" -->
<!-- TMPL_IF name="publishercode" --><label><b>Published by :</b></label><!-- /TMPL_IF --> <!-- TMPL_VAR NAME="publishercode" -->
</p>
<!-- TMPL_IF name="publicationyear" --><p><label><b>in </b></label><!-- TMPL_VAR NAME="publicationyear" --></p><!-- /TMPL_IF -->
<p>
<label>&nbsp;</label><!-- TMPL_IF name="pages" --> <!-- /TMPL_IF --><!-- TMPL_VAR name="pages" -->
<!-- TMPL_IF name="size" -->, <!-- /TMPL_IF --><!-- TMPL_VAR name="size" -->
</p>
<!-- TMPL_IF name="isbn" --><p><label><b>ISBN:</b> </label><!-- TMPL_VAR NAME="isbn" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="issn" --><p><label><b>ISSN:</b> </label><!-- TMPL_VAR NAME="issn" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="seriestitle" --><p><label><b>Collection:</b> </label><!-- TMPL_VAR NAME="seriestitle" --> <!-- TMPL_IF name="volume" -->vol. <!-- TMPL_VAR name="volume" --><!-- /TMPL_IF --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="subjects" --><p><label><b>Subject(s):</b> </label></p>
<!-- TMPL_LOOP name="subjects" -->
<p><a href="/cgi-bin/koha/opac-search.pl?op=do_search&marclist=bibliosubject.subject&and_or=and&operator==&value=<!-- TMPL_VAR NAME="subject" escape="HTML"-->"><!-- TMPL_VAR NAME="subject" --></a>, </p> <!-- /TMPL_LOOP -->
<!-- TMPL_IF name="seriestitle" --><p><label><b>Collection:</b> </label><!-- TMPL_VAR NAME="seriestitle" --> <!-- TMPL_IF name="volume" -->vol. <!-- TMPL_VAR name="volume" --> <!-- TMPL_VAR name="volumedate" --><!-- /TMPL_IF --><!-- TMPL_VAR name="volumedesc" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="MARCSUBJCTS" -->
<p><label><b>Subjects:</b></label></p>
<p>
<!-- TMPL_LOOP NAME="MARCSUBJCTS" -->
<label>-</label><a href="/cgi-bin/koha/opac-searchresults.pl?subjectitems=<!-- TMPL_VAR NAME="marcsubjct" ESCAPE="URL"-->">
<!-- TMPL_VAR NAME="marcsubjct" -->
</a><br>
<!-- /TMPL_LOOP -->
</p>
<!-- TMPL_ELSE -->
<!-- TMPL_IF name="subjects" --><p><label><b>Subject(s):</b> </label></p>
<!-- TMPL_LOOP name="subjects" -->
<p><a href="/cgi-bin/koha/opac-search.pl?op=do_search&marclist=bibliosubject.subject&and_or=and&operator==&value=<!-- TMPL_VAR NAME="subject" escape="HTML"-->"><!-- TMPL_VAR NAME="subject" --></a>, </p> <!-- /TMPL_LOOP -->
<!-- /TMPL_IF -->
<!-- /TMPL_IF -->
<!-- TMPL_IF name="copyrightdate" --><p><label><b>Year :</b> </label><!-- TMPL_VAR NAME="copyrightdate" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="notes" --><p><label><b>Notes:</b> </label><!-- TMPL_VAR NAME="notes" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="MARCNOTES" -->
<p><label><b>Notes:</b> </label></p>
<p>
<!-- TMPL_LOOP NAME="MARCNOTES" -->
<p>- <!-- TMPL_VAR NAME="marcnote" --></p>
<!-- /TMPL_LOOP -->
</p>
<!-- TMPL_ELSE -->
<!-- TMPL_IF name="notes" --><p><label><b>Notes:</b> </label><!-- TMPL_VAR NAME="notes" --></p><!-- /TMPL_IF -->
<!-- /TMPL_IF -->
<!-- TMPL_IF name="unititle" --><p><label><b>Alt title:</b> </label><!-- TMPL_VAR NAME="unititle" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="classification" --><p><label><b>classification:</b></label><!-- TMPL_VAR name="subclass" --><!-- TMPL_VAR name="classification" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="dewey" --><p><label><b>Dewey:</b></label><!-- TMPL_VAR name="dewey" --></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="url" --><p><label><b>URL:</b> </label><a href="<!-- TMPL_VAR name="url" -->"><!-- TMPL_VAR NAME="url" --></a></p><!-- /TMPL_IF -->
<!-- TMPL_IF name="URLS" -->
<p><label><b>URL:</b> </label>
<!-- TMPL_LOOP name="URLS" -->
<a href="<!-- TMPL_VAR name="url" -->"><!-- TMPL_VAR NAME="url" --></a>&nbsp;
<!-- /TMPL_LOOP -->
</p>
<!-- /TMPL_IF -->
<p><label><b>Item type : </b></label>
<!-- TMPL_IF name="description" -->
<!-- TMPL_VAR name="description" -->
@ -79,38 +109,12 @@
<!-- /TMPL_IF -->
</p>
<!-- TMPL_IF name="count" -->
<p><b>Total Number of Items:</b> <!-- TMPL_VAR NAME="count" --></p>
<p><b>Total Number of Items:</b> <!-- TMPL_VAR NAME="count" --></p>
<!-- /TMPL_IF -->
</td>
</tr>
</table>
<table>
<!-- TMPL_IF name="MARCNOTES" -->
<tr>
<th><i>Detailed notes:</i></th>
<td>
<ul>
<!-- TMPL_LOOP NAME="MARCNOTES" -->
<i>- <!-- TMPL_VAR NAME="marcnote" --></i><br>
<!-- /TMPL_LOOP -->
</ul>
</td>
</tr>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="MARCSUBJCTS" -->
<tr>
<th>Related links:</th>
<td>
<ul>
<!-- TMPL_LOOP NAME="MARCSUBJCTS" -->
- <a href="/cgi-bin/koha/opac-searchresults.pl?subjectitems=<!-- TMPL_VAR NAME="marcsubjct" ESCAPE="URL"-->">
<!-- TMPL_VAR NAME="marcsubjct" -->
</a><br>
<!-- /TMPL_LOOP -->
</ul>
</td>
</tr>
<!-- /TMPL_IF -->
</table>
</div>
<!-- /TMPL_LOOP -->
@ -157,15 +161,50 @@
<td><!-- TMPL_VAR NAME="url" --></td>
</tr>
<!-- /TMPL_LOOP -->
</table>
<!-- TMPL_IF name="subscriptionsnumber" -->
<p>
This is a serial subscription (we have <!-- TMPL_VAR name="subscriptionsnumber" --> subscriptions). You can see which
<a href="opac-serial-issues.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" class="button catalogue" title="Serial issues">
Issues
</a> we have and don't have
</p>
<!-- /TMPL_IF -->
<div id="bloc25">
<p>This is a serial subscription (we have <!-- TMPL_VAR name="subscriptionsnumber" --> subscription(s) associated with this title).</p>
<p>Below is a list of the three latest issues related to those subscription(s) :</p>
<!-- TMPL_LOOP Name="subscriptions" -->
<h2> Subscription #<!--TMPL_VAR Name="subscriptionid"--> </h2>
<p><!--TMPL_VAR Name="subscriptionnotes"--> </p>
<!--TMPL_IF Name="latestserials"-->
<table>
<tr><th>Issue number</th><th>Date</th><th>Status</th></tr>
<!--TMPL_LOOP Name="latestserials"-->
<tr>
<td>
<!--TMPL_VAR Name="serialseq"-->
</td>
<td>
<!--TMPL_VAR Name="planneddate"-->
</td>
<td>
<!--TMPL_IF Name="status1"-->Waited
<!--TMPL_ELSE -->
<!-- TMPL_IF Name="status2"-->Arrived
<!--TMPL_ELSE -->
<!-- TMPL_IF Name="status3"-->Late
<!--TMPL_ELSE -->
<!-- TMPL_IF Name="status4"-->Missing
<!--TMPL_ELSE -->
<!-- TMPL_IF Name="status5"-->Not Issued
<!--/TMPL_IF-->
<!--/TMPL_IF-->
<!--/TMPL_IF-->
<!--/TMPL_IF-->
<!--/TMPL_IF-->
</td>
</tr>
<!--/TMPL_LOOP -->
</table>
<!-- /TMPL_IF -->
<!-- /TMPL_LOOP -->
<p><a href="/cgi-bin/koha/opac-serial-issues.pl?biblionumber=<!-- TMPL_VAR NAME="biblionumber" -->" title="Serial issues">Click here</a> for more information on subscription(s) history</p>
</div>
<!-- /TMPL_IF -->
</div>
</div>
</div>

3
koha-tmpl/opac-tmpl/css/en/opac-main.tmpl
View file

@ -63,8 +63,9 @@
<a href="opac-suggestions.pl" class="button">View & manage suggestions</a>
<!-- /TMPL_IF -->
<a href="/cgi-bin/koha/opac-user.pl" class="button">
<!-- TMPL_VAR NAME="loggedinusername" --> home
My personnal details
</a>
<a href="/cgi-bin/koha/opac-readingrecord.pl" class="button">My reading history</a>
<a href="/cgi-bin/koha/opac-main.pl?logout.x=1" class="button">
Log Out

40
koha-tmpl/opac-tmpl/css/en/opac-passwd.tmpl Normal file
View file

@ -0,0 +1,40 @@
<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
<div id="mainbloc">
<!-- TMPL_IF NAME= "Error_messages" -->
<h3>There was a problem with your submission</h3>
<p class="error">
<!-- TMPL_IF NAME= "PassMismatch" -->
Passwords do not match. Please re-type your new password.
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME= "ShortPass" -->
Your new password must be at least 6 characters long
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME= "WrongPass" -->
Your current password was entered incorrectly. If this problem persists, please ask a librarian to re-set your password for you.
<!-- /TMPL_IF --></p>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME= "Ask_data" -->
<h1>Change your Password</h1>
<form action="/cgi-bin/koha/opac-passwd.pl" name="mainform" id="mainform" method="get">
<p><label for="password">Current Password:</label><input type="password" id="Oldkey" size="25" name="Oldkey" /></p>
<p><label for="Newkey">New Password:</label><input type="password" id="Newkey" size="25" name="Newkey" /></p>
<p><label for="Confirm">Re-Type New Password:</label><input type="password" id="Confirm" size="25" name="Confirm" /></p>
<p><input type="submit" value="Submit Changes" class="button" /></p>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME= "password_updated" -->
<h1>Password Updated</h1>
Your password has been changed
<form action="/cgi-bin/koha/opac-user.pl" method="post">
<input type="hidden" name="borrowernumber" value="<!-- TMPL_VAR NAME="borrowernumber" -->" />
<p><input type="submit" class="button" value="Return to Your Record" /></p>
</form>
<!-- /TMPL_IF -->
</form>
<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->

4
members/member.pl
View file

@ -89,7 +89,7 @@ for (my $i=0; $i < $count; $i++){
my %row = (
background => $background,
count => $i + 1,
count => $i+1,
borrowernumber => $results->[$i]{'borrowernumber'},
cardnumber => $results->[$i]{'cardnumber'},
surname => $results->[$i]{'surname'},
@ -106,7 +106,7 @@ for (my $i=0; $i < $count; $i++){
$template->param(
member => $member,
numresults => $count,
numresults => $count,
resultsloop => \@resultsdata );
output_html_with_http_headers $input, $cookie, $template->output;

47
members/memberentry.pl
View file

@ -60,8 +60,6 @@ my $op=$input->param('op');
my $categorycode=$input->param('categorycode');
my $destination=$input->param('destination');
my $nok;
# if a add or modify is requested => check validity of data.
if ($op eq 'add' or $op eq 'modify') {
@ -143,25 +141,7 @@ if ($op eq 'add' or $op eq 'modify') {
}
}
if ($delete){
my @errors;
my $nok;
my $branch =$input->param('branchcode');
if (C4::Context->preference("IndependantBranches")) {
my $userenv = C4::Context->userenv;
if ($userenv->{flags} == 1){
if ($userenv->{branch} eq $branch){
print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
} else {
push @errors, "ERROR_branch";
$nok=1;
print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber");
}
} else {
print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
}
} else {
print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
}
print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
} else { # this else goes down the whole script
if ($actionType eq 'Add'){
$template->param( addAction => 1);
@ -178,16 +158,6 @@ if ($delete){
} else {
$data=borrdata('',$borrowernumber);
}
if (C4::Context->preference("IndependantBranches")) {
my $userenv = C4::Context->userenv;
unless ($userenv->{flags} == 1){
warn "userenv=".$userenv->{'branch'}." member branch :".$data->{'branchcode'};
unless ($userenv->{'branch'} eq $data->{'branchcode'}){
print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber");
exit 1;
}
}
}
if ($actionType eq 'Add'){
$template->param( updtype => 'I');
} else {
@ -288,7 +258,20 @@ if ($delete){
-labels => \%select_branches,
-size => 1,
-multiple => 0 );
my $CGIsort1 = buildCGIsort("Bsort1","sort1",$data->{'sort1'});
if ($CGIsort1) {
$template->param(CGIsort1 => $CGIsort1);
} else {
$template->param( sort1 => $data->{'sort1'});
}
my $CGIsort2 = buildCGIsort("Bsort2","sort2",$data->{'sort2'});
if ($CGIsort2) {
$template->param(CGIsort2 =>$CGIsort2);
} else {
$template->param( sort2 => $data->{'sort2'});
}
my $CGIsort1 = buildCGIsort("Bsort1","sort1",$data->{'sort1'});
if ($CGIsort1) {

2
members/moremember.pl
View file

@ -175,7 +175,7 @@ for (my $i=0;$i<$count;$i++){
# charge, for that matter).
my ($charge,$itemtype)=calc_charges($dbh,$issue->[$i]{'itemnumber'},$bornum);
$row{'itemtype'}=&ItemType($itemtype);
$row{'charge'}=$charge;
$row{'charge'}= sprintf("%.2f",$charge);
#check item is not reserved
my ($restype,$reserves)=CheckReserves($issue->[$i]{'itemnumber'});

4
misc/koha.mysql
View file

@ -365,7 +365,7 @@ CREATE TABLE biblioitems (
itemtype varchar(4) default NULL,
isbn varchar(14) default NULL,
issn varchar(9) default NULL,
dewey varchar(14) default NULL,
dewey varchar(50) default NULL,
subclass char(3) default NULL,
publicationyear smallint(6) default NULL,
publishercode varchar(255) default NULL,
@ -641,7 +641,7 @@ CREATE TABLE deletedbiblioitems (
itemtype varchar(4) default NULL,
isbn varchar(14) default NULL,
issn varchar(9) default NULL,
dewey double(8,6) default NULL,
dewey varchar(50) default NULL,
subclass char(3) default NULL,
publicationyear smallint(6) default NULL,
publishercode varchar(255) default NULL,

50
misc/migration_tools/buildLANG.pl
View file

@ -42,7 +42,7 @@ If the complete language name is unknown, the code is used instead and you will
SAMPLES :
./buildLANG -d -s "('101a','101b')"
EOF
;#
;#/
exit;
}
@ -59,6 +59,11 @@ my %codesiso;
'mul' => 'multilingue',
'ger' => 'allemand',
'eng' => 'anglais',
'afr' => 'afrikaans',
'akk' => 'akkadien',
'amh' => 'amharique',
'ang' => 'anglo-saxon (ca. 450-1100)',
'arc' => 'araméen',
'ara' => 'arabe',
'arm' => 'arménien',
'baq' => 'basque',
@ -67,34 +72,61 @@ my %codesiso;
'bul' => 'bulgare',
'cat' => 'catalan',
'chi' => 'chinois',
'cop' => 'copte',
'cro' => 'croate',
'cze' => 'tchèque',
'dan' => 'danois',
'dum' => 'néerlandais moyen (ca. 1050-1350)',
'dut' => 'néerlandais',
'spa' => 'espagnol',
'egy' => 'egyptien',
'esp' => 'espéranto',
'fin' => 'finnois',
'fra' => 'français ancien',
'fre' => 'français',
'wel' => 'gallois',
'frm' => 'français moyen (ca. 1400-1600)',
'fro' => 'français ancien (842-ca. 1400)',
'gmh' => 'allemand, moyen haut (ca. 1050-1500)',
'got' => 'gothique',
'grc' => 'grec classique',
'gre' => 'grec moderne',
'heb' => 'hébreu',
'hin' => 'hindi',
'hun' => 'hongrois',
'ind' => 'indonésien',
'ine' => 'indo-européennes, autres',
'ita' => 'italien',
'jap' => 'japonais',
'jpn' => 'japonais',
'kor' => 'coréen',
'lan' => 'occitan (post 1500)',
'lat' => 'latin',
'dut' => 'néerlandais',
'map' => 'malayo-polynésiennes, autres',
'mla' => 'malgache',
'nic' => 'nigéro-congolaises, autres',
'nor' => 'norvégien',
'per' => 'persan',
'pro' => 'provencal ancien (jusqu\'à 1500)',
'pol' => 'polonais',
'por' => 'portugais',
'rom' => 'tzigane',
'rum' => 'roumain',
'rus' => 'russe',
'ser' => 'serbe',
'swe' => 'suedois',
'cze' => 'tchèque',
'tur' => 'turc',
'ukr' => 'ukraine',
'slo' => 'slovène',
'sam' => 'samaritain',
'san' => 'sanskrit',
'scr' => 'serbo-croate',
'sem' => 'sémitique, autres langues',
'ser' => 'serbe',
'sla' => 'slave, autres langues',
'slo' => 'slovène',
'syr' => 'syriaque',
'swe' => 'suedois',
'tib' => 'tibétain',
'tur' => 'turc',
'uga' => 'ougaritique',
'ukr' => 'ukraine',
'wel' => 'gallois',
'yid' => 'yiddish',
) if $language eq 'fr';
my $dbh = C4::Context->dbh;

1
misc/migration_tools/bulkmarcimport.pl
View file

@ -82,6 +82,7 @@ while ( my $record = $batch->next() ) {
## create an empty record object to populate
my $newRecord = MARC::Record->new();
$newRecord->leader($record->leader());
# go through each field in the existing record
foreach my $oldField ( $record->fields() ) {

2
opac/opac-ISBDdetail.pl
View file

@ -114,7 +114,7 @@ my $res;
my $subfieldcode = $subf[$i][0];
my $subfieldvalue = get_authorised_value_desc($tag, $subf[$i][0], $subf[$i][1], '', $dbh);
my $tagsubf = $tag.$subfieldcode;
$calculated =~ s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue\{$1$tagsubf$2\}$2/g;
$calculated =~ s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g;
}
# field builded, store the result
if ($calculated && !$hasputtextbefore) { # put textbefore if not done

15
opac/opac-account.pl
View file

@ -36,8 +36,15 @@ $template->param( BORROWER_INFO => \@bordat );
my ($numaccts,$accts,$total) = getboracctrecord(undef,$borr);
for (my $i=0;$i<$numaccts;$i++){
$accts->[$i]{'amount'}+=0.00;
$accts->[$i]{'amountoutstanding'}+=0.00;
$accts->[$i]{'date'} = format_date($accts->[$i]{'date'});
$accts->[$i]{'amount'} = sprintf("%.2f", $accts->[$i]{'amount'});
if($accts->[$i]{'amount'} >= 0){
$accts->[$i]{'amountcredit'} = 1;
}
$accts->[$i]{'amountoutstanding'} =sprintf("%.2f", $accts->[$i]{'amountoutstanding'});
if($accts->[$i]{'amountoutstanding'} >= 0){
$accts->[$i]{'amountoutstandingcredit'} = 1;
}
if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 'FU'){
$accts->[$i]{'print_title'};
}
@ -54,9 +61,11 @@ foreach my $row (@$accts) {
$template->param( ACCOUNT_LINES => $accts,
LibraryName => C4::Context->preference("LibraryName"),
suggestion => C4::Context->preference("suggestion"),
virtualshelves => C4::Context->preference("virtualshelves")
);
$template->param( total => $total );
$template->param( total => sprintf("%.2f",$total) );
#$template->param(loggeninuser => $loggedinuser);
output_html_with_http_headers $query, $cookie, $template->output;

2
opac/opac-addbookbybiblionumber.pl
View file

@ -83,7 +83,7 @@ if ($shelfnumber) {
output_html_with_http_headers $query, $cookie, $template->output;
}
# $Log$
# Revision 1.2 2005/05/04 09:02:38 tipaul
# Revision 1.3 2005/08/04 14:19:50 tipaul
# synch'ing 2.2 and head
#
# Revision 1.1.2.2 2005/03/25 17:04:27 tipaul

11
opac/opac-detail.pl
View file

@ -75,15 +75,17 @@ $template->param(norequests => $norequests);
## get notes and subjects from MARC record
my $marc = C4::Context->preference("marc");
if ($marc eq "yes") {
my @results = ($dat,);
if (C4::Boolean::true_p($marc)) {
my $dbh = C4::Context->dbh;
my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
my $marcflavour = C4::Context->preference("marcflavour");
my $marcnotesarray = &getMARCnotes($dbh,$bibid,$marcflavour);
$results[0]->{MARCNOTES} = $marcnotesarray;
my $marcsubjctsarray = &getMARCsubjects($dbh,$bibid,$marcflavour);
$template->param(MARCNOTES => $marcnotesarray);
$template->param(MARCSUBJCTS => $marcsubjctsarray);
$results[0]->{MARCSUBJCTS} = $marcsubjctsarray;
# $template->param(MARCNOTES => $marcnotesarray);
# $template->param(MARCSUBJCTS => $marcsubjctsarray);
}
my @results = ($dat,);
@ -157,3 +159,4 @@ $template->param( REVIEWS => \@reviews );
## End of Amazon Stuff
=cut
output_html_with_http_headers $query, $cookie, $template->output;

88
opac/opac-passwd.pl Executable file
View file

@ -0,0 +1,88 @@
#!/usr/bin/perl
# This script lets the users change the passwords by themselves.
#
# (c) 2005 Universidad ORT Uruguay.
#
# This file is part of the extensions and enhacments made to koha by Universidad ORT Uruguay
#
# 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 C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use Digest::MD5 qw(md5_base64);
use C4::Circulation::Circ2;
use HTML::Template;
use C4::Interface::CGI::Output;
my $query = new CGI;
my $dbh = C4::Context->dbh;
my ($template, $borrowernumber, $cookie)
= get_template_and_user({template_name => "opac-passwd.tmpl",
query => $query,
type => "opac",
authnotrequired => 0,
flagsrequired => {borrow => 1},
debug => 1,
});
# get borrower information ....
my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
my $sth = $dbh->prepare("UPDATE borrowers SET password = ? WHERE borrowernumber=?");
if ( $query->param('Oldkey') && $query->param('Newkey') && $query->param('Confirm') ){
if ( goodkey($dbh,$borrowernumber, $query->param('Oldkey')) ){
if ( $query->param('Newkey') eq $query->param('Confirm') &&
length($query->param('Confirm')) > 5 ){ # Record password
my $clave = md5_base64($query->param('Newkey'));
$sth->execute($clave,$borrowernumber);
$template->param('password_updated' => '1');
$template->param('borrowernumber' => $borrowernumber);
}elsif ( $query->param('Newkey') ne $query->param('Confirm') ){
$template->param('Ask_data' => '1');
$template->param('Error_messages' => '1');
$template->param('PassMismatch' => '1');
}elsif (length($query->param('Confirm')) <= 5 ){
$template->param('Ask_data' => '1');
$template->param('Error_messages' => '1');
$template->param('ShortPass' => '1');
}else{
$template->param('Error_messages' => '1');
}
}else{
$template->param('Ask_data' => '1');
$template->param('Error_messages' => '1');
$template->param('WrongPass' => '1');
}
}else {
# Called Empty, Ask for data.
$template->param('Ask_data' => '1');
}
output_html_with_http_headers $query, $cookie, $template->output;
sub goodkey {
my ($dbh, $borrowernumber, $key) = @_;
my $sth=$dbh->prepare("SELECT password FROM borrowers WHERE borrowernumber=?");
$sth->execute($borrowernumber);
if ($sth->rows){
my ($md5password) = $sth->fetchrow;
if (md5_base64($key) eq $md5password) { return 1; } else { return 0; }
}else{ return 0; }
}

43
opac/opac-readingrecord.pl
View file

@ -6,6 +6,7 @@ use CGI;
use C4::Auth;
use C4::Koha;
use C4::Circulation::Circ2;
use C4::Date;
use C4::Search;
use HTML::Template;
use C4::Interface::CGI::Output;
@ -31,7 +32,17 @@ my $order=$query->param('order');
my $order2=$order;
if ($order2 eq ''){
$order2="date_due desc";
$template->param(orderbydate => 1);
}
if($order2 eq 'title'){
$template->param(orderbytitle => 1);
}
if($order2 eq 'author'){
$template->param(orderbyauthor => 1);
}
my $limit=$query->param('limit');
if ($limit eq 'full'){
$limit=0;
@ -41,15 +52,35 @@ if ($limit eq 'full'){
my ($count,$issues)=allissues($borrowernumber,$order2,$limit);
# add the row parity
my $num = 0;
foreach my $row (@$issues) {
$row->{'even'} = 1 if $num % 2 == 0;
$row->{'odd'} = 1 if $num % 2 == 1;
$num++;
#my $num = 0;
#foreach my $row (@$issues) {
# $row->{'even'} = 1 if $num % 2 == 0;
# $row->{'odd'} = 1 if $num % 2 == 1;
# $num++;
#}
my @loop_reading;
for (my $i=0;$i<$count;$i++){
my %line;
if($i%2){
$line{'toggle'} = 1;
}
$line{biblionumber}=$issues->[$i]->{'biblionumber'};
$line{title}=$issues->[$i]->{'title'};
$line{author}=$issues->[$i]->{'author'};
$line{classification} = $issues->[$i]->{'classification'};
$line{date_due}=format_date($issues->[$i]->{'date_due'});
$line{returndate}=format_date($issues->[$i]->{'returndate'});
$line{volumeddesc}=$issues->[$i]->{'volumeddesc'};
$line{counter} = $i + 1;
push(@loop_reading,\%line);
}
$template->param(count => $count);
$template->param(READING_RECORD => $issues,
$template->param(READING_RECORD => \@loop_reading,
limit => $limit,
showfulllink => ($count > 50),
LibraryName => C4::Context->preference("LibraryName"),
suggestion => C4::Context->preference("suggestion"),
virtualshelves => C4::Context->preference("virtualshelves"),

5
opac/opac-reserve.pl
View file

@ -211,10 +211,13 @@ if ($query->param('item_types_selected')) {
$fee = sprintf "%.02f", $fee;
$template->param(fee => $fee,istherefee => $fee>0?1:0);
$template->param(item_types_selected => 1);
warn "Branch is ==$branch==";
$template->param(no_branch_selected => 1) unless ($branch!='');
} else {
$template->param(message => 1);
$template->param(no_items_selected => 1) unless ($proceed);
$template->param(no_branch_selected =>1) unless ($branch);
$template->param(no_branch_selected => 1) unless ($branch);
warn "Branch is ==$branch==";
}
} elsif ($query->param('place_reserve')) {
# here we actually do the reserveration. Stage 3.

84
updater/updatedatabase
View file

@ -140,6 +140,84 @@ my %tabledata = (
explanation => 'If Yes, Returndate on issuing can\'t be after borrower card expiry',
type => 'YesNo',
},
{
uniquefieldrequired => 'variable',
variable => 'opacstylesheet',
value => '',
forceupdate => { 'explanation' => 1,
'type' => 1},
explanation => 'Enter a complete URL to use an alternate stylesheet in OPAC',
type => 'free',
},
{
uniquefieldrequired => 'variable',
variable => 'opacsmallimage',
value => '',
forceupdate => { 'explanation' => 1,
'type' => 1},
explanation => 'Enter a complete URL to an image, will be on top/left instead of the Koha logo',
type => 'free',
},
{
uniquefieldrequired => 'variable',
variable => 'opaclargeimage',
value => '',
forceupdate => { 'explanation' => 1,
'type' => 1},
explanation => 'Enter a complete URL to an image, will be on the main page, instead of the Koha logo',
type => 'free',
},
{
uniquefieldrequired => 'variable',
variable => 'delimiter',
value => ';',
forceupdate => { 'explanation' => 1,
'type' => 1},
explanation => 'separator for reports exported to spreadsheet',
type => 'free',
},
{
uniquefieldrequired => 'variable',
variable => 'MIME',
value => 'OPENOFFICE.ORG',
forceupdate => { 'explanation' => 1,
'type' => 1,
'options' => 1},
explanation => 'Define the default application for report exportations into files',
type => 'Choice',
options => 'EXCEL|OPENOFFICE.ORG'
},
{
uniquefieldrequired => 'variable',
variable => 'Delimiter',
value => ';',
forceupdate => { 'explanation' => 1,
'type' => 1,
'options' => 1},
explanation => 'Define the default separator character for report exportations into files',
type => 'Choice',
options => ';|tabulation|,|/|\|#'
},
{
uniquefieldrequired => 'variable',
variable => 'SubscriptionHistory',
value => ';',
forceupdate => { 'explanation' => 1,
'type' => 1,
'options' => 1},
explanation => 'Define the information level for serials history in OPAC',
type => 'Choice',
options => 'simplified|full'
},
{
uniquefieldrequired => 'variable',
variable => 'hidelostitems',
value => 'No',
forceupdate => { 'explanation' => 1,
'type' => 1},
explanation => 'show or hide "lost" items in OPAC.',
type => 'YesNo',
},
],
);
@ -368,6 +446,9 @@ $sth->finish;
exit;
# $Log$
# Revision 1.117 2005/08/04 14:24:39 tipaul
# synch'ing 2.2 and head
#
# Revision 1.116 2005/08/04 08:55:54 tipaul
# Letters / alert system, continuing...
#
@ -765,6 +846,9 @@ $sth->finish;
exit;
# $Log$
# Revision 1.117 2005/08/04 14:24:39 tipaul
# synch'ing 2.2 and head
#
# Revision 1.116 2005/08/04 08:55:54 tipaul
# Letters / alert system, continuing...
#

105
value_builder/marc21_leader.pl Normal file
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=marc21_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/marc21_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;

105
value_builder/unimarc_leader.pl Normal file
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;