<!-- 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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
</label>
<!-- TMPL_VAR name="marc_value" -->
<!-- TMPL_IF name="link" -->
- <a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&value=<!-- TMPL_VAR NAME="marc_value" ESCAPE=URL -->">
+ <a href="opac-search.pl?op=do_search&marclist=<!-- TMPL_VAR NAME="link" -->&operator==&type=intranet&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 -->
<!-- /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> </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>
+ <!-- /TMPL_LOOP -->
+ </p>
+ <!-- /TMPL_IF -->
<p><label><b>Item type : </b></label>
<!-- TMPL_IF name="description" -->
<!-- TMPL_VAR name="description" -->
<!-- /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 -->
<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>
<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
--- /dev/null
+<!-- 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" -->
+
my %row = (
background => $background,
- count => $i + 1,
+ count => $i+1,
borrowernumber => $results->[$i]{'borrowernumber'},
cardnumber => $results->[$i]{'cardnumber'},
surname => $results->[$i]{'surname'},
$template->param(
member => $member,
- numresults => $count,
+ numresults => $count,
resultsloop => \@resultsdata );
output_html_with_http_headers $input, $cookie, $template->output;
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') {
}
}
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);
} 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 {
-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) {
# 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'});
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,
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,
SAMPLES :
./buildLANG -d -s "('101a','101b')"
EOF
-;#
+;#/
exit;
}
'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',
'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',
+ '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',
- 'cze' => 'tchèque',
+ 'tib' => 'tibétain',
'tur' => 'turc',
+ 'uga' => 'ougaritique',
'ukr' => 'ukraine',
- 'slo' => 'slovène',
- 'scr' => 'serbo-croate',
+ 'wel' => 'gallois',
+ 'yid' => 'yiddish',
) if $language eq 'fr';
my $dbh = C4::Context->dbh;
## 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() ) {
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
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'};
}
$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;
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
## 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,);
## End of Amazon Stuff
=cut
output_html_with_http_headers $query, $cookie, $template->output;
+
--- /dev/null
+#!/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; }
+}
use C4::Auth;
use C4::Koha;
use C4::Circulation::Circ2;
+use C4::Date;
use C4::Search;
use HTML::Template;
use C4::Interface::CGI::Output;
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;
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"),
$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.
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',
+ },
],
);
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...
#
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...
#
--- /dev/null
+#!/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;
--- /dev/null
+#!/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;