[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha koha-tmpl/opac-tmpl/css/tr/includes/opac-t... [rel_TG]
|
From: |
Tumer Garip |
|
Subject: |
[Koha-cvs] koha koha-tmpl/opac-tmpl/css/tr/includes/opac-t... [rel_TG] |
|
Date: |
Mon, 26 Mar 2007 00:07:55 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_TG
Changes by: Tumer Garip <tgarip1957> 07/03/26 00:07:53
Added files:
koha-tmpl/opac-tmpl/css/tr/includes: opac-top.inc opac.css
popup-bottom.inc
popup-top.inc
koha-tmpl/opac-tmpl/css/tr: kohaerror.tmpl livesearch.tmpl
opac-MARCdetail.tmpl
opac-account.tmpl
opac-addbookbybiblionumber.tmpl
opac-all-issues.tmpl opac-auth.tmpl
opac-basket.tmpl
opac-borrowercards.tmpl
opac-changepass.tmpl
opac-detail.tmpl
opac-detailprint.tmpl
opac-dictionary.tmpl
opac-dvdsearch.tmpl
opac-dvdsearchresults.tmpl
opac-electronic.tmpl
opac-full-serial-issues.tmpl
opac-index.tmpl
opac-infrastructure.tmpl
opac-main.tmpl opac-news.tmpl
opac-recentlyquerys.tmpl
opac-reglamentation.tmpl
opac-reserve.tmpl opac-search.tmpl
opac-searchresults.tmpl
opac-sendbasket.tmpl
opac-sendbasketform.tmpl
opac-sendpwd.tmpl
opac-sendpwdmail.tmpl
opac-serial-issues.tmpl
opac-shelves.tmpl
opac-suggestions.tmpl opac-user.tmpl
opac-userupdate-mail.tmpl
opac-userupdate.tmpl
opac-view-channel.tmpl
opac-view-penalties.tmpl
union-searchresult.tmpl
koha-tmpl/opac-tmpl: index.html
koha-tmpl : opac.html templates.readme
members : boraccount.pl borrowers_details.pl deletemem.pl
guarantor_search.pl mancredit.pl maninvoice.pl
manualcredit.pl member-flags.pl
member-password.pl member-picupload.pl
member.pl memberentry.pl members-home.pl
moremember.pl pay.pl payprint.pl readingrec.pl
setdebar.pl
opac/catalogue : cyprus-search.pl newsdetail.pl
opac : changelanguage.pl livesearch.pl logout.pl
opac-MARCdetail.pl opac-account.pl
opac-add-biblios-to-shelves.pl
opac-addbookbybiblionumber.pl
opac-all-issues.pl opac-basket.pl
opac-changepass.pl opac-detail.pl
opac-detailprint.pl opac-dictionary.pl
opac-dvdsearch.pl opac-electronic.pl
opac-help.pl opac-index.pl
opac-infrastructure.pl opac-links.pl
opac-location.pl opac-logout.pl opac-main.pl
opac-membership.pl opac-news.pl
opac-pdfViewer.pl opac-readingrecord.pl
opac-recentlyquerys.pl opac-reglamentation.pl
opac-renew-items.pl opac-renew.pl
opac-reserve.pl opac-rules.pl opac-search.pl
opac-sendbasket.pl opac-sendpwd.pl
opac-serial-issues.pl opac-shelves.pl
opac-show-image.pl opac-suggestions.pl
opac-user.pl opac-userdetails.pl
opac-userupdate.pl opac-view-channel.pl
opac_help.pl union-search.pl wap-changepass.pl
wap-detail.pl wap-search.pl
reports : accounts.pl acquisitions_stats.pl
bor_issues_top.pl borrowers_out.pl
borrowers_stats.pl borrowers_stats.plugin
cat_issues_top.pl catalogue_out.pl
catalogue_stats.pl contact_history.pl
inventory.pl issues_avg_stats.pl
issues_by_borrower_category.plugin
issues_stats.pl itemtypes.plugin manager.pl
onloan.pl overdue.pl printnote.pl
reports-home.pl reservereport.pl
reserves_by_biblios.pl resonloan.pl shelf.pl
shelforder.pl sms_history.pl stats.csv.pl
stats.pl stats.print.pl stats.screen.pl
stats2.pl stock.pl transfers.plugin
reserve : modrequest.pl placerequest.pl request.pl
Log message:
Recommitting everything
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/includes/opac-top.inc?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/includes/opac.css?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/includes/popup-bottom.inc?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/includes/popup-top.inc?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/kohaerror.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/livesearch.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-MARCdetail.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-account.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-addbookbybiblionumber.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-all-issues.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-auth.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-basket.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-borrowercards.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-changepass.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-detail.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-detailprint.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-dictionary.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-dvdsearch.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-dvdsearchresults.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-electronic.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-full-serial-issues.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-index.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-infrastructure.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-main.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-news.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-recentlyquerys.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-reglamentation.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-reserve.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-search.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-searchresults.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-sendbasket.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-sendbasketform.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-sendpwd.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-sendpwdmail.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-serial-issues.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-shelves.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-suggestions.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-user.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-userupdate-mail.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-userupdate.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-view-channel.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/opac-view-penalties.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/css/tr/union-searchresult.tmpl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/index.html?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac.html?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.14.2
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/templates.readme?cvsroot=koha&only_with_tag=rel_TG&rev=1.5.14.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/boraccount.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/borrowers_details.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/deletemem.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.9.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/guarantor_search.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/mancredit.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/maninvoice.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/manualcredit.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-flags.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.5.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-password.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-picupload.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/member.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.13.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.39.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/members-home.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.3.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/moremember.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.29.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/pay.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.6.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/payprint.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/readingrec.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/members/setdebar.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.3.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/catalogue/cyprus-search.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/catalogue/newsdetail.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/changelanguage.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.12.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/livesearch.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.4.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/logout.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-MARCdetail.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.14.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-account.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.11.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-add-biblios-to-shelves.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-addbookbybiblionumber.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.5.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-all-issues.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-basket.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.8.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-changepass.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-detail.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.32.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-detailprint.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.3.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-dictionary.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-dvdsearch.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-electronic.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-help.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-index.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-infrastructure.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-links.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-location.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-logout.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.5.14.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-main.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.23.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-membership.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.5.8.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-news.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-pdfViewer.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-readingrecord.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.10.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-recentlyquerys.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-reglamentation.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-renew-items.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-renew.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.3.12.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-reserve.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.29.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-rules.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-search.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.38.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-sendbasket.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.10.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-sendpwd.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-serial-issues.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.8.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-shelves.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.8.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-show-image.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-suggestions.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.6.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-user.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.23.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-userdetails.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.12.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-userupdate.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.14.4.2
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-view-channel.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac_help.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/union-search.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/wap-changepass.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/wap-detail.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/opac/wap-search.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/accounts.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/acquisitions_stats.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.12.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/bor_issues_top.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.9.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_out.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.7.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_stats.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.11.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_stats.plugin?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/cat_issues_top.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.11.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/catalogue_out.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.6.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/catalogue_stats.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.18.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/contact_history.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/inventory.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.3.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/issues_avg_stats.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.6.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/issues_by_borrower_category.plugin?cvsroot=koha&only_with_tag=rel_TG&rev=1.5.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/issues_stats.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.14.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/itemtypes.plugin?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/manager.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/onloan.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/overdue.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/printnote.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/reports-home.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/reservereport.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.10.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/reserves_by_biblios.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/resonloan.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/shelf.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/shelforder.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/sms_history.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stats.csv.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stats.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stats.print.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stats.screen.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.2.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stats2.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/stock.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/transfers.plugin?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/modrequest.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.3.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/placerequest.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.4.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/request.pl?cvsroot=koha&only_with_tag=rel_TG&rev=1.7.2.2
Patches:
Index: koha-tmpl/opac-tmpl/css/tr/includes/opac-top.inc
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/includes/opac-top.inc
diff -N koha-tmpl/opac-tmpl/css/tr/includes/opac-top.inc
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/includes/opac-top.inc 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,236 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
+<html xmlns="http://www.w3.org/1999/xhtml";>
+<head>
+<title><!--TMPL_VAR NAME='LibraryName'--></title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+ <link rel="stylesheet" type="text/css" href='<!-- TMPL_VAR
name="themelang"-->/includes/opac.css'/>
+ <link rel="stylesheet" type="text/css" href='<!-- TMPL_VAR
name="themelang" -->/includes/calendar/calendar-system.css'/>
+ <title><!--TMPL_VAR name="LibraryName"--></title>
+
+ <!-- *********** This links are to manage the calendar. *********** -->
+ <script type="text/javascript" src='<!-- TMPL_VAR NAME="themelang"
-->/includes/calendar/calendar.js'></script>
+ <script type="text/javascript" src='<!-- TMPL_VAR NAME="themelang"
-->/includes/calendar/calendar-en.js'></script>
+ <script type="text/javascript" src='<!-- TMPL_VAR NAME="themelang"
-->/includes/calendar/calendar-setup.js'></script>
+ <!-- ************************************************************** -->
+
+ <script type="text/javascript" language="javascript" src='<!-- TMPL_VAR
NAME="themelang" -->/includes/basket.js'></script>
+ <script type="text/javascript" language="javascript">
+ var MSG_BASKET_EMPTY = "Sepette hiçbirÅey yoktur.";
+ var MSG_RECORD_IN_BASKET = "Bu kayıt sepette vardır.";
+ var MSG_RECORD_ADDED = "Sepete eklendi.";
+ var MSG_NRECORDS_ADDED = " adet eklendi";
+ var MSG_NRECORDS_IN_BASKET = " adet sepette vardır.";
+ var MSG_NO_RECORD_SELECTED = "BirÅey seçmediniz.";
+ var MSG_NO_RECORD_ADDED = "HiçbirÅey eklenmedi.";
+
+ /* Creates all the structures to deal with all diferents kinds
of holidays */
+ var week_days = new Array();
+ var holidays = new Array();
+ var exception_holidays = new Array();
+ var day_month_holidays = new Array();
+
+ <!-- TMPL_LOOP NAME="WEEK_DAYS_LOOP" -->
+ week_days['<!-- TMPL_VAR NAME="KEY" -->'] =
{title:'<!-- TMPL_VAR NAME="TITLE" -->',
+
description:'<!-- TMPL_VAR NAME="DESCRIPTION" -->'};
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP NAME="HOLIDAYS_LOOP" -->
+ holidays['<!-- TMPL_VAR NAME="KEY" -->'] = {title:'<!--
TMPL_VAR NAME="TITLE" -->',
+
description:'<!-- TMPL_VAR NAME="DESCRIPTION" -->'};
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP NAME="EXCEPTION_HOLIDAYS_LOOP" -->
+ exception_holidays['<!-- TMPL_VAR NAME="KEY" -->'] =
{title:'<!-- TMPL_VAR NAME="TITLE" -->',
+
description:'<!-- TMPL_VAR NAME="DESCRIPTION" -->'};
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP NAME="DAY_MONTH_HOLIDAYS_LOOP" -->
+ day_month_holidays['<!-- TMPL_VAR NAME="KEY" -->'] =
{title:'<!-- TMPL_VAR NAME="TITLE" -->',
+
description:'<!-- TMPL_VAR NAME="DESCRIPTION" -->'};
+ <!-- /TMPL_LOOP -->
+
+ var dateToday = new Date();
+ var dayToday = dateToday.getDate();
+ var monthToday = dateToday.getMonth() + 1;
+ var yearToday = dateToday.getFullYear();
+
+
+
+
+ function openDictionary(dict, search, target) {
+ if ((dict == 'all') || (dict == 'itemnotes') || (dict ==
'identifier-standard')) {
+ alert("Bu alan sözlük taramasına uygun deÄildir.");
+ } else {
+ var dict_window =
window.open('/cgi-bin/koha/opac-dictionary.pl?dictionary=' + dict + '&search='
+ search + '&target=' +
target,'_blanck','height=325,width=550,status=no,toolbar=no,menubar=no,location=no,resizable=no,top=100,left=100');
+ dict_window.focus();
+ }
+ }
+
+ function openPenaltyEx(barcode, branchcode, overdue_days) {
+ var p_window =
window.open('/cgi-bin/koha/opac-penalties-examples.pl?barcode=' + barcode +
'&branchcode=' + branchcode + '&overdue_days=' +
overdue_days,'_blanck','height=300,width=550,status=no,toolbar=no,menubar=no,location=no,resizable=no,top=100,left=100');
+ p_window.focus();
+ }
+
+ function openPrintDetail(biblionumber) {
+ var detail_window = window.open('/cgi-bin/koha/opac-detail.pl?bib=' +
biblionumber +
'&print_detail=1','_blanck','height=300,width=775,status=no,toolbar=yes,menubar=no,location=no,resizable=yes,top=100,left=100');
+ detail_window.focus();
+
+
+ }
+
+ more = new Image();
+ more.src = '<!-- TMPL_VAR NAME="themelang" -->/../images/plus.gif';
+ less = new Image();
+ less.src = '<!-- TMPL_VAR NAME="themelang" -->/../images/minus.gif';
+ function show(element, img) {
+ var block = document.getElementById(element);
+ if (block.style.display == 'none') {
+ block.style.display = 'inline';
+ img.src = less.src;
+ } else {
+ block.style.display = 'none';
+ img.src = more.src;
+ }
+ }
+
+ function confirmRenews(myForm) {
+ var inputs = myForm.elements;
+ var some = false;
+ for (i=0; i < inputs.length; i++) {
+ if ((inputs[i].type == "checkbox") &&
(inputs[i].checked)) {
+ some = true;
+ break;
+ }
+ }
+
+ if (!some) {
+ alert("Düzgün seçilmedi.");
+ return false;
+ }
+ if (confirm("Onaylıyor musunuz?")) {
+ return true;
+ } else {
+ return false;
+ }
+ }
+
+ function help(help_topic) {
+ var help_window =
window.open('/cgi-bin/koha/opac_help.pl?help_template=' + help_topic
,'_blanck','height=400,width=400,status=no,toolbar=yes,menubar=no,location=no,resizable=yes,top=0,left=0,scrollbars=1');
+ help_window.focus();
+ }
+function locationonly(locationc,lib) {
+ var help_window =
window.open('/cgi-bin/koha/opac-location.pl?location=' + locationc
+'&lib='+lib,'_blanck','height=300,width=640,status=no,toolbar=no,menubar=no,location=no,resizable=no,top=0,left=0,scrollbars=1');
+ help_window.focus();
+ }
+
+ </script>
+
+<style type="text/css">
+body {
+ background-color: #F2F0E9;
+ margin-left: 0px;
+ margin-top: 0px;
+ margin-right: 0px;
+ margin-bottom: 0px;
+}
+body, td, th {
+ font-family: Verdana;
+ font-size: 9px;
+ color: #333333;
+}
+ .searchtype {
+ height: 20px;
+ font-size: 9px;
+ text-align: center;
+ padding: 3px, 8px, 3px, 8px;
+ border:0px solid black;
+ text-decoration: none;
+ color: white;
+ border-radius: 6px;
+ -moz-border-radius: 6px;
+ background-color: #006699;
+ margin : 3px;
+ vertical-align: middle;
+ }
+
+ .emptyCell {
+ background-color: transparent;
+ color:#FFFFFF;
+ background-image: none;
+ border: 0px solid;
+ }
+
+ .searchtypeselected {
+ height: 20px;
+ font-size: 9px;
+ text-align: center;
+ padding: 3px, 8px, 3px, 8px;
+ border:0px solid black;
+ text-decoration: none;
+ color: white;
+ border-radius: 6px;
+ -moz-border-radius: 6px;
+ background-color: #3399FF;
+ margin : 3px;
+ vertical-align: middle;
+ }
+</style>
+
+
+</head>
+<body >
+
+<script language="JavaScript" >
+
+function dynAnimation() {}
+function clickSwapImg() {}
+var no_biblios_selected = "Sanal raflara ekleyecek bir eser seçiniz";
+var no_shelves_selected = "Sanal raf seçiniz";
+
+/*Add the selected biblionumber to the seleted virtual shelves*/
+function addBibliosToShelves(){
+ shelf_frm = document.shelf_form;
+ //check for at least one shelf seleted
+ shelf_sel = false;
+ for (var i=0; i < shelf_frm.shelfnumber.length; i++) {
+ if (shelf_frm.shelfnumber[i].checked) {
+ shelf_sel = true;
+ break;
+ }
+ }
+ if (shelf_sel) {
+ shelf_frm.biblios.value = '';
+ for (var i=0; i < document.myform.bibid.length; i++) {
+ if (document.myform.bibid[i].checked) {
+ shelf_frm.biblios.value =
shelf_frm.biblios.value + document.myform.bibid[i].value + ",";
+ }
+ }
+ if (shelf_frm.biblios.value == '') {
+ alert(no_biblios_selected);
+ } else {
+ shelf_frm.submit();
+ }
+ } else {
+ alert(no_shelves_selected);
+ }
+}
+
+function show_shelfPanel() {
+ if (document.getElementById('shelf_panel').style.display == 'block') {
+
+ document.getElementById('shelf_panel').style.display = 'none';
+ } else {
+ document.getElementById('shelf_panel').style.display = 'block';
+
+ }
+}
+ function checkLogin() {
+ if (document.auth_form.userid.value == '') {
+ alert("Kullanıcı adınızı giriniz");
+ return false;
+ }
+ if (document.auth_form.password.value == '') {
+ alert("Åifrenizi giriniz");
+ return false;
+ }
+ return true;
+ }
+</script>
Index: koha-tmpl/opac-tmpl/css/tr/includes/opac.css
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/includes/opac.css
diff -N koha-tmpl/opac-tmpl/css/tr/includes/opac.css
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/includes/opac.css 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,198 @@
+html {
+ scrollbar-arrow-color: #F9F8F4;
+ scrollbar-base-color: #F9F8F4;
+ scrollbar-face-color: #06B4D2;
+ scrollbar-track-color: #F9F8F4;
+ scrollbar-highlight-color: #F9F8F4;
+ scrollbar-3dlight-color: #F9F8F4;
+ scrollbar-shadow-color: #F9F8F4;
+ scrollbar-darkshadow-color: #F9F8F4;
+}
+.style1 {
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #333333;
+}
+.style2 {
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #666666;
+}
+.style3 {
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #0599B4;
+}
+.style4 {
+ font-family: Verdana;
+ font-size: 13px;
+ font-weight: normal;
+ color: #0599B4;
+}
+.style5 {
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #FFFFFF;
+}
+.style6 {
+ font-family: Arial;
+ font-size: 11px;
+ font-weight: normal;
+ color: #666666;
+}
+.style7 {
+
+ font-family: Arial;
+ font-size: 11px;
+ font-weight: normal;
+ color: #0599B4;
+}
+.style8 {
+
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #666666;
+}
+.style9 {
+
+ font-family: Verdana;
+ font-size: 18px;
+ font-weight: bold;
+ color: #FFFFFF;
+}
+.style10 {
+
+
+ font-family: Verdana;
+ font-size: 14px;
+ font-weight: normal;
+ color: #FFFFFF;
+}
+.style11 {
+
+ font-family: Arial;
+ font-size: 11px;
+ font-weight: normal;
+ color: #37849D;
+}
+.style12 {
+
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #006699;
+}
+.style13 {
+
+ font-family: Arial;
+ font-size: 11px;
+ font-weight: normal;
+ color: #FF3333;
+}
+.style14 {
+
+ font-family: Arial;
+ font-size: 11px;
+ font-weight: normal;
+ color: #F2F0E9;
+}.style15 {
+
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: normal;
+ color: #663300;
+}
+.style16 {
+ font-family: Tahoma;
+ font-size: 13px;
+ font-weight: bold;
+ color: #666666;
+}
+.style17 {
+ font-family: Verdana;
+ font-size: 14px;
+ font-weight: normal;
+ color: #666666;
+}
+.style18 {
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: bold;
+ color: #FFFFFF;
+}
+.style19 {
+ font-family: Verdana;
+ font-size: 13px;
+ font-weight: normal;
+ color: #333333;
+}
+.style20 {
+ font-family: Verdana;
+ font-size: 14px;
+ font-weight: normal;
+ color: #FFFFFF;
+}
+.style21 {
+ font-family: Verdana;
+ font-size: 14px;
+ font-weight: bold;
+ color: #4589A0;
+}
+.style22 {
+
+
+ font-family: Verdana;
+ font-size: 16px;
+ font-weight: bold;
+ color: #666666;
+}
+.style23{
+ font-family: Verdana;
+ font-size: 11px;
+ font-weight: bold;
+ color: green;
+}
+.style24{
+ font-family: Verdana;
+ font-size: 10px;
+ font-weight: normal;
+ margin-left:3px;
+ color: #0599B4;
+}
+.style25{
+ font-family: Verdana;
+ font-size: 12px;
+ font-weight: normal;
+ margin-left:1px;
+ color: #0599B4;
+}
+#facets_panel {
+ display:block;
+ float:left;
+ position:absolute;
+ background-color: white;
+ border: 1px groove #DCD9CF;
+ text-align: left;
+ padding: 1px;
+ width: 120px;
+ cell-align:top;
+ margin-top: 1% ;
+ margin-left:0px;
+}
+.shelf_panel {
+ position:absolute;
+ background-color: white;
+ border: 2px groove #DCD9CF;
+ text-align: left;
+ padding: 3px;
+ width: 210px;
+ margin: 1px 0px 2px 0px;
+}
+
+
+
Index: koha-tmpl/opac-tmpl/css/tr/includes/popup-bottom.inc
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/includes/popup-bottom.inc
diff -N koha-tmpl/opac-tmpl/css/tr/includes/popup-bottom.inc
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/includes/popup-bottom.inc 26 Mar 2007
00:07:52 -0000 1.1.2.1
@@ -0,0 +1,2 @@
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/includes/popup-top.inc
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/includes/popup-top.inc
diff -N koha-tmpl/opac-tmpl/css/tr/includes/popup-top.inc
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/includes/popup-top.inc 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,15 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+
+<html>
+<head>
+ <title>popup</title>
+ <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+ <!-- TMPL_IF name="opacstylesheet" -->
+ <link rel="stylesheet" type="text/css" href="<!-- TMPL_VAR
name="opacstylesheet"-->" />
+ <!-- TMPL_ELSE -->
+ <link rel="stylesheet" type="text/css" href="<!-- TMPL_VAR
name="themelang"-->/includes/opac.css" />
+ <!-- /TMPL_IF -->
+</head>
+
+<body>
+<!-- NO MENUS for popup-top -->
Index: koha-tmpl/opac-tmpl/css/tr/kohaerror.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/kohaerror.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/kohaerror.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/kohaerror.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,17 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+
+<center>
+<table border=1 cellspacing=5 bgcolor="red">
+<tr><td>
+<table border=0 bgcolor="#dddddd">
+<tr><th>An Error has Occurred</th></tr>
+<tr><td><!-- TMPL_VAR NAME="errormessage" --></td></tr>
+</table>
+</td></tr>
+</table>
+</center>
+
+
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/livesearch.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/livesearch.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/livesearch.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/livesearch.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1 @@
+<div class="LSRes"><!-- TMPL_LOOP name="results" --><div class="LSRow"
onmouseover="liveSearchHover(this)" onclick="liveSearchClicked(this)"><a
href="/cgi-bin/koha/opac-search.pl?op=do_search&search_type=keyword&ttype=exact&keyword=<!--
TMPL_VAR name="description" -->"></a><table><tr><td width="140px"><!--
TMPL_VAR name="description" --><!-- TMPL_IF name="cuted" --> ...<!-- /TMPL_IF
--></td><td align="left" class="LSResRight"><!-- TMPL_VAR name="num_results"
--> results</td><tr></table></div><!-- /TMPL_LOOP --></div>
Index: koha-tmpl/opac-tmpl/css/tr/opac-MARCdetail.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-MARCdetail.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-MARCdetail.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-MARCdetail.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,424 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5"><table width="100%" border="0"
align="center" cellpadding="0" cellspacing="0">
+ <tr valign="bottom" bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"><table
border="0" align="right" bgcolor="#F9F8F4">
+ <tr>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/print.gif" width="18" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:openPrintDetail('<!-- TMPL_VAR
name="biblionumber" -->')">
+ Yazdır
+ </a>
+ </div></td>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/basket.gif" width="19" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:addRecord('<!-- TMPL_VAR NAME="biblionumber"
ESCAPE=URL -->')">
+ Sepete
ekle
+ </a>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr valign="bottom" bgcolor="#F2F0E9">
+ <td height="40" bgcolor="#F2F0E9"><table height="20"
border="0" align="center" cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style2">
+ <a
href='opac-detail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->' class="style2">
+ Katalog
kartı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style5">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style5">
+ MARC Kaydı
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- TMPL_UNLESS NAME="norequests"
-->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
class="style2"
+
href="/cgi-bin/koha/opac-reserve.pl?bib=<!-- TMPL_VAR NAME="biblionumber"
ESCAPE=URL -->">
+
Ayırt
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_UNLESS -->
+
+ <!-- TMPL_IF
name="subscriptionid" -->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
href="opac-serial-issues.pl?subscriptionid=<!-- TMPL_VAR NAME="subscriptionid"
-->"
+
class="style19" title="Serial issues">
+
Sayı
+ </a>
+ </td>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td height="25" bgcolor="#06B4D2" class="style5"><div
align="center" class="style10">
+ <table width="100%" border="0">
+ <tr>
+ <td class="style10">
+ <div align="center"
class="style9">
+ <!-- TMPL_VAR
NAME="title" --> (<!-- TMPL_VAR NAME="author" -->)
+ </div></td>
+ </tr>
+ </table>
+ </div> </td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td><table width="600%" border="0">
+ <tr>
+ <td valign="top"><table width="100%" border="0"
cellpadding="2" cellspacing="2" bordercolor="#DCD9CF" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF"
class="style2">LEADER</td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td bgcolor="#F9F8F4" class="style3">
+ <div align="left"
class="style19"><!-- TMPL_VAR NAME="LDR" --></div></td>
+ </tr>
+ </table>
+ <hr size="1" class="style6">
+ <table width="100%" border="0" cellpadding="2"
cellspacing="2" bordercolor="#DCD9CF" bgcolor="#F2F0E9">
+ <!-- TMPL_LOOP name="0XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="1XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="2XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="3XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="4XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="5XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="6XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="7XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="8XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP name="9XX" -->
+ <tr bgcolor="#DCD9CF">
+ <td height="20" bgcolor="#DCD9CF" class="style2">
+ <!-- TMPL_VAR
name="tag" -->
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td class="style3">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="0">
+ <!-- TMPL_LOOP
name="subfield" -->
+ <tr>
+ <td
bgcolor="#F9F8F4" class="style12">
+
<p align="left">
+
<span class="style4">
+
<!-- TMPL_VAR name="marc_subfield" -->
+
<!-- TMPL_VAR name="marc_lib" -->
+
</span>
+
<span class="style19">
+
<!-- TMPL_VAR name="marc_value" -->
+
</span>
+
</p>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ <!-- TMPL_IF NAME="item_loop" -->
+ <hr size="1" class="style6">
+ <tr bgcolor="#DCD9CF">
+ <td height="20" colspan="6"
class="style2">Items</td>
+ </tr>
+ <table width="100%" border="0" cellpadding="2"
cellspacing="2" bordercolor="#DCD9CF" bgcolor="#F2F0E9">
+
+ <tr bgcolor="#F2F0E9" >
+ <!-- TMPL_LOOP NAME="item_header_loop" -->
+ <td class="style1">
+ <div align="left"
class="style19">
+ <!-- TMPL_VAR NAME="header_value" -->
+ </div></td>
+ <!-- /TMPL_LOOP -->
+ </tr>
+
+
+ <!-- TMPL_LOOP NAME="item_loop" -->
+ <tr bgcolor="#F9F8F4" >
+
+ <div
align='left' class='style19'>
+ <!-- TMPL_VAR NAME="item_value"
-->
+
+ </div></tr>
+ <!-- /TMPL_LOOP -->
+
+ </table>
+ <!-- /TMPL_IF -->
+ </td>
+ </tr>
+ </table>
+ <!--TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-account.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-account.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-account.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-account.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,55 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">
+ <!-- TMPL_LOOP NAME="BORROWER_INFO" -->
+ <span class="style18"> Sn. <!--
TMPL_VAR NAME="firstname" --> <!-- TMPL_VAR NAME="surname" --></span>- hesap
durumunuz
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <tr>
+ <td><table width="98%" border="0" cellpadding="0"
cellspacing="0" bgcolor="#F2F0E9">
+ <tr>
+ <td width="34" valign="top">
+ <div align="center">
+ <img src='<!-- TMPL_VAR
NAME="themelang" -->/../images/money.gif' width="32" height="32">
+ </div>
+ </td>
+ <td><table width="100%" border="0" align="center"
cellpadding="2" cellspacing="2">
+ <tr bgcolor="#DCD9CF">
+ <td class="style19"><div align="center">Tarih</div></td>
+ <td class="style19"><div
align="center">Açıklama</div></td>
+ <td class="style19"><div align="center">Miktar</div></td>
+ <td class="style19"><div align="center">Borç </div></td>
+ </tr>
+ <!-- TMPL_LOOP NAME="ACCOUNT_LINES" -->
+ <tr bgcolor="#F9F8F4">
+ <td class="style2" width="100"><div align="center"><!--
TMPL_VAR NAME="date" --></div></td>
+ <td class="style2">
+ <div align="center">
+ <!-- TMPL_VAR
NAME="description" -->
+ <!-- TMPL_IF
NAME="print_title" --><!-- TMPL_VAR NAME="title" --><!-- /TMPL_IF -->
+ </div>
+ </td>
+ <td class="style2"><div align="right"><!-- TMPL_VAR
NAME="amount" --></div></td>
+ <td class="style2"><div align="right"><!-- TMPL_VAR
NAME="amountoutstanding" --></div></td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <tr bgcolor="#F2F0E9">
+ <td colspan="2" bgcolor="#F2F0E9" class="style2"><div
align="right"><b<Toplam borç (YTL)</b></div></td>
+ <td class="style2"> </td>
+ <td bgcolor="#F2F0E9" class="style2"><div
align="right"><b><!-- TMPL_VAR NAME="total" --></b></div></td>
+
+ </tr>
+ </table></td>
+ </tr>
+ </table> <div
align="center"></div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-addbookbybiblionumber.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-addbookbybiblionumber.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-addbookbybiblionumber.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-addbookbybiblionumber.tmpl 26 Mar 2007
00:07:52 -0000 1.1.2.1
@@ -0,0 +1,20 @@
+<!-- TMPL_INCLUDE Name="popup-top.inc" -->
+<div id="mainbloc">
+<h1>Add book to bookshelf</h1>
+<p><label>Title</label><!-- TMPL_VAR NAME="title" --></p>
+<p><label>Author</label><!-- TMPL_VAR NAME="author" --></p>
+<h2>Select bookshelf</h2>
+<form>
+ <p><label>Add to virtual shelf</label><!-- TMPL_VAR
NAME="CGIbookshelves" --></p>
+<h2>or add to a new bookshelf</h2>
+ <p><input type="text" name="newbookshelf" maxlength=40 size=40>
+ <input type="hidden" name="biblionumber" value="<!-- TMPL_VAR
NAME="biblionumber" -->">
+ <select name="category">
+ <option value="1">Private</option>
+ <option value="2">Public</option>
+ <option value="3">Free</option>
+ </select>
+ </p>
+ <input type="submit" value="Add to virtual shelf" class="button
catalogue">
+</form>
+<!-- TMPL_INCLUDE Name="popup-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-all-issues.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-all-issues.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-all-issues.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-all-issues.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,139 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style24">
+ <!-- TMPL_LOOP NAME="BORROWER_INFO" -->
+ <span class="style1">Sn. <!-- TMPL_VAR
NAME="firstname" --> <!-- TMPL_VAR NAME="surname" --> Åu ana dek
aldıÄınız yayınlar</span>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <tr>
+ <td><div align="center">
+ <!-- TMPL_IF NAME="loop_reading" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td width="25%">
+ <div align="center"
class="style1">
+ <a
class="style1" href="/cgi-bin/koha/opac-all-issues.pl?bornum=<!-- TMPL_VAR
NAME="bornum" -->&order=title&limit=<!-- TMPL_VAR NAME="limit" -->">
+ Eser
adı
+ </a>
+ </div>
+ </td>
+ <td width="25%">
+ <div align="center"
class="style1">
+ <a class="style1"
href="/cgi-bin/koha/opac-all-issues.pl?bornum=<!-- TMPL_VAR NAME="bornum"
-->&order=author&limit=<!-- TMPL_VAR NAME="limit" -->">
+ yazar
+ </a>
+ </div>
+ </td>
+ <td width="10%">
+ <div align="center"
class="style1">
+ <a class="style1"
href="/cgi-bin/koha/opac-all-issues.pl?bornum=<!-- TMPL_VAR NAME="bornum"
-->&order=issue_date&limit=<!-- TMPL_VAR NAME="limit" -->">
+
Ãdünç alma tarihi
+ </a>
+ </div>
+ </td>
+ <td width="10%">
+ <div align="center"
class="style1">
+ <a class="style1"
href="/cgi-bin/koha/opac-all-issues.pl?bornum=<!-- TMPL_VAR NAME="bornum"
-->&order=date_due&limit=<!-- TMPL_VAR NAME="limit" -->">
+ Geri
gelmesi gereken tarih
+ </a>
+ </div>
+ </td>
+ <td width="10%">
+ <div align="center"
class="style1">
+ <a class="style1"
href="/cgi-bin/koha/opac-all-issues.pl?bornum=<!-- TMPL_VAR NAME="bornum"
-->&order=returndate&limit=<!-- TMPL_VAR NAME="limit" -->">
+ Geri
geldiÄi tarih
+ </a>
+ </div>
+ </td>
+ <td width="10%">
+ <div align="center"
class="style1">
+ <a class="style1"
href="/cgi-bin/koha/opac-all-issues.pl?bornum=<!-- TMPL_VAR NAME="bornum"
-->&order=lastreneweddate&limit=<!-- TMPL_VAR NAME="limit" -->">
+ Son
yenileme tarihi
+ </a>
+ </div>
+ </td>
+ <td width="10%">
+ <div align="center"
class="style1">
+ Yenileme
+ </div>
+ </td>
+ </tr>
+ </table>
+ <!-- TMPL_LOOP NAME="loop_reading" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td wrap="nowrap"
valign="top" width="25%" class="style2">
+ <div
align="left">
+ <!--
TMPL_VAR NAME="barcode" --><br>
+ <a
href='/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->'
+
class="style3">
+
<!-- TMPL_VAR NAME="title" -->
+ </a>
+ </div>
+ </td>
+ <td wrap="nowrap"
valign="top" width="25%" class="style2">
+ <div
align="left"><!-- TMPL_VAR NAME="author" --> </div>
+ </td>
+
+
+ <td align="center" wrap="nowrap" valign="top"
width="10%" class="style2">
+ <div
align="center"><!-- TMPL_VAR NAME="issue_date" --> </div>
+ </td>
+ <td align="center"
wrap="nowrap" valign="top" width="10%" class="style2">
+ <div
align="center"><!-- TMPL_VAR NAME="date_due" --> </div>
+ </td>
+ <td align="center"
wrap="nowrap" valign="top" width="10%" class="style2">
+ <div
align="center">
+ <!--
TMPL_IF NAME="returndate" -->
+ <!-- TMPL_VAR NAME="returndate" -->
+ <!--
TMPL_ELSE -->
+
-
+ <!--
/TMPL_IF -->
+ </div>
+ </td>
+ <td align="center"
wrap="nowrap" valign="top" width="10%" class="style2">
+ <div
align="center">
+ <!--
TMPL_IF NAME="lastreneweddate" -->
+ <!-- TMPL_VAR NAME="lastreneweddate"
-->
+ <!--
TMPL_ELSE -->
+
-
+ <!--
/TMPL_IF -->
+
+ </div>
+ </td>
+ <td align="center"
wrap="nowrap" valign="top" width="10%" class="style2">
+ <div
align="center">
+ <!--
TMPL_IF NAME="renewals" -->
+ <!-- TMPL_VAR NAME="renewals" -->
+ <!--
TMPL_ELSE -->
+
-
+ <!--
/TMPL_IF -->
+ </div>
+ </td>
+
+ </tr>
+ </table>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_ELSE -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td align="center">
+ <div align="center"
class="style2">
+ Hiçbir yayın
ödünç almadınız.
+ </div>
+ </td>
+ </tr>
+ </table>
+ <!-- /TMPL_IF -->
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-auth.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-auth.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-auth.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-auth.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,75 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5"><div align="right" class="style19">
+ <div align="center" id="loginbloc">
+ <p class="style8">
+ <!-- TMPL_IF
NAME="nopermission" -->
+ <!-- This is what is
displayed if user doesnt have permission -->
+ <span
class="style4">
+ Bu
sayfayı görme yetkiniz yok.
+ </span><br>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF
NAME="timed_out" -->
+ <!-- This is what is
displayed if login has timed out -->
+ <span
class="style4">Süreniz doldu, lütfen yeniden LOGIN iÅlemi
yapınız.</span><br>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF
NAME="different_ip" -->
+ <!-- This is what is
displayed if user doesnt have permission -->
+ <span
class="style4">Farklı bir IP adresinden giriŠyapıyorsunuz, güvenlik
gereÄi lütfen yeniden giriÅ yapınız.</span><br>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF
NAME="invalid_username_or_password" -->
+ <!-- This is what is
displayed if user doesnt have permission -->
+ <span
class="style4">YanlıŠnumara/isim veya Åifre girdiniz. Lütfen yeniden
deneyiniz. (Küçük veya büyük harf farkı vardır!).</span><br>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF
NAME="loginprompt" -->
+ <!-- login prompt
time-->
+ LOGIN yapmadan bu
sayfayı göremezsiniz!.
+ </p>
+ <form action="<!-- TMPL_VAR
NAME="url" -->" method="post" name="auth_form">
+ <table border="0"
cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr>
+ <td
class="style8"><div align="right">Kullanıcı:</div></td>
+ <td><input
name="userid" type="text" class="style8"></td>
+ </tr>
+ <tr>
+ <td class="style8">
+ <div
align="right">Åifre:</div>
+ </td>
+ <td>
+ <input
name="password" type="password" class="style8">
+ </td>
+ </tr>
+ <tr>
+ <td colspan="2"
class="style8"><div align="center">
+ <input
name="Submit" type="submit" class="style8" value="Log in">
+ </div></td>
+ </tr>
+ </table>
+ <a href=""
class="style1"
+ onclick="if
(document.auth_form.userid.value == '') {alert('Kullanıcı adınızı
girmelisiniz'); return false;} else
{this.href='/cgi-bin/koha/opac-sendpwd.pl?userid=' +
document.auth_form.userid.value}" >
+ Åifremi unuttum
+ </a>
+ <!-- TMPL_LOOP
NAME="INPUTS" -->
+ <input
type="hidden" name='<!-- TMPL_VAR NAME="name" -->' value='<!-- TMPL_VAR
NAME="value" -->' />
+ <!-- /TMPL_LOOP -->
+ </form>
+ <p class="style8">Åifreniz
yok mu? İlk fırsatta kütüphane<span class="style3"> enformasyon</span>
masasına baÅvurunuz. Åifrenizi verelim.</p>
+ <!-- /TMPL_IF -->
+ </div>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-basket.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-basket.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-basket.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-basket.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,119 @@
+<!-- TMPL_INCLUDE NAME="opac-basket-top.inc" -->
+ <!-- TMPL_IF NAME="print_basket" -->
+ <body onload='print()' style="padding-bottom:20px;">
+ <!-- TMPL_ELSE -->
+ <body style="padding-bottom:20px;" >
+ <!-- /TMPL_IF -->
+ <table width="620" border="0" align="center">
+ <tr>
+ <td valign="top"><table width="600" border="0"
align="center" cellpadding="4" cellspacing="2" bgcolor="#F9F8F4">
+ <tr>
+ <td class="style5"><table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <!-- TMPL_UNLESS NAME="print_basket" -->
+ <tr>
+ <td align="right"><table
height="20" border="0" cellpadding="0" cellspacing="0" class="style5">
+ <tr>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B3"
class="style5">
+ <A
href='javascript:delBasket()' class="style5">
+ BoÅalt
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"> </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B3"
class="style5">
+ <A
href='javascript:delSelRecords()' class="style5">
+
Seçilenleri Sil
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"> </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B3"
class="style5">
+ <A
href='javascript:sendBasket()' class="style5">
+ Gönder
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"> </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B3"
class="style5">
+ <A
href='javascript:printBasket()' class="style5">
+ Yazdır
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"> </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B3"
class="style5">
+ <A
href='javascript:quit()' class="style5">
+ Kapat
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"> </td>
+ </tr>
+ </table></td>
+ </tr>
+ <!-- /TMPL_UNLESS -->
+ <tr>
+ <td height="20"
bgcolor="#0599B4"><table border="0">
+ <tr>
+ <td bgcolor="#F2F0E9">
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/basket.gif" width="19" height="16"></td>
+ <td class="style10">Kitap
Sepeti </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td align="center">
+ <table width="570" border="0" align="center"
cellpadding="2" cellspacing="1" bordercolor="#DCD9CF" bgcolor="#DCD9CF">
+ <!-- TMPL_LOOP NAME="BIBLIO_RESULTS" -->
+ <tr bgcolor="#F2F0E9">
+ <!-- TMPL_UNLESS
NAME="print_basket" -->
+ <td width="10"
align="center" valign="middle">
+
<form> <input type='checkbox' value='<!-- TMPL_VAR NAME="biblionumber"
-->' onClick='selRecord(value,checked)'> </form>
+ </td>
+ <!-- /TMPL_UNLESS -->
+ <td align="center">
+ <div align="center"
class="style19">
+ <span
class="style4"><!-- TMPL_VAR NAME="title" --> (recordno: <!-- TMPL_VAR
NAME="biblionumber" -->)</span><br>
+ <!-- TMPL_IF
name="isbn" -->ISBN:<!-- TMPL_VAR NAME="ISBN" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="subtitle" --> AltbaÅlık: <!-- TMPL_VAR NAME="subtitle" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="author" --> Yazar: <!-- TMPL_VAR NAME="author" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="additional" --> DiÄer yazarlar: <!-- TMPL_VAR NAME="additional"
--><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="publishercode" --> Yayınevi : <!-- TMPL_VAR NAME="publishercode" --><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="publicationyear" --> Yılı: <!-- TMPL_VAR NAME="publicationyear"
--><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="pages" -->Sayfa: <!-- /TMPL_IF --><!-- TMPL_VAR name="pages" -->
+ <!-- TMPL_IF
name="size" -->, <!-- /TMPL_IF --><!-- TMPL_VAR name="size" --><br>
+ <!-- TMPL_IF
name="collection" --> Seri adı: <!-- TMPL_VAR NAME="seriestitle" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="subject" --> Konular: <!-- TMPL_VAR NAME="subject" --><br><!-- /TMPL_IF
-->
+ <!-- TMPL_IF
name="copyrightdate" --> Telif yılı: <!-- TMPL_VAR NAME="copyrightdate"
--><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="notes" --> Notlar: <!-- TMPL_VAR NAME="notes" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="unititle" --> Uniform Title: <!-- TMPL_VAR NAME="unititle" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="serial" --> Süreli yayın: <!-- TMPL_VAR NAME="serial" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="dewey" --> Dewey: <!-- TMPL_VAR name="dewey" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="classification" --> LC : <!-- TMPL_VAR name="classification" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="lccn" --> LCCN: <!-- TMPL_VAR name="lccn" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="url" --> URL: <!-- TMPL_VAR NAME="url" --><br><!-- /TMPL_IF -->
+ </div>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div align="center">
+ <input name="Submit22"
type="button" class="style2" value="Kapat"
+ onclick="javascript:
window.close()">
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+
+<!-- TMPL_UNLESS NAME="print_basket" -->
+ <FORM name='myform'><INPUT type='hidden' name='records'></FORM>
+<!-- /TMPL_UNLESS -->
+<!-- TMPL_INCLUDE NAME="opac-basket-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-borrowercards.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-borrowercards.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-borrowercards.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-borrowercards.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,136 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+ <!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style24">
+ <!-- TMPL_LOOP NAME="BORROWER_INFO" -->
+ Borrower-cards history for <span
class="style18"><!-- TMPL_VAR NAME="surname" -->, <!-- TMPL_VAR
NAME="firstname" --></span>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <tr>
+ <td><div align="center">
+ <!-- TMPL_IF NAME="cardsexists" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td width="20%"><div
align="center" class="style2">Validity from </div></td>
+ <td width="20%"><div
align="center" class="style2">Validity to </div></td>
+ <td width="20%"><div
align="center" class="style2">Copy </div></td>
+ <td width="20%"><div
align="center" class="style2">Payment</div></td>
+ <td width="20%"><div
align="center" class="style2">Observations</div></td>
+ </tr>
+ </table>
+ <!-- TMPL_IF NAME="lastcard" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="validityfrom" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="validityto" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="copynumber" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="payment" --></div></td>
+ <td width="20%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="observationItem"
-->");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="observationItem" -->'>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <div id='<!-- TMPL_VAR
NAME="observationItem" -->'
+
style="display:none;position:relative;margin:0px:padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Observations
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="5"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="observation" -->
+
<!-- TMPL_VAR NAME="observation" -->
+
<!-- TMPL_ELSE -->
+
No observations.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_LOOP NAME="loop" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="validityfrom" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="validityto" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="copynumber" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="payment" --></div></td>
+ <td width="20%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="observationItem"
-->");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="observationItem" -->'>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <div id='<!-- TMPL_VAR
NAME="observationItem" -->'
+
style="display:none;position:relative:margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Observations
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="5"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="observation" -->
+
<!-- TMPL_VAR NAME="observation" -->
+
<!-- TMPL_ELSE -->
+
No observations.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_ELSE -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td align="center">
+ <div align="center"
class="style2">
+ You don't have
a borrower-card yet.
+ </div>
+ </td>
+ </tr>
+ </table>
+ <!-- /TMPL_IF -->
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <hr width="760" size="1" class="style5"> <table width="760"
height="20" border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#F9F8F4"> <div align="center" class="style6">The
software used for this library is based on <a href="http://www.koha.org";
class="style3">Koha </a> OSS Integrated Library System, and it is under
international standars of web information. </div>
+ <div align="center" class="style6">
+ <br>Visitor: <span class="style3"><!-- TMPL_VAR
NAME='opac_counter' --></span>
+ </div></td>
+ </tr>
+ </table> </td>
+ </tr>
+</table>
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-changepass.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-changepass.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-changepass.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-changepass.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,114 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<script language="JavaScript" >
+
+
+var INV_USERNAME = "Kullanıcı adı boÅ";
+var DIFF_PASS = "Åifreler aynı deÄil.";
+var INV_PASS = "Åifre yanlıÅ.";
+
+//this functions trim the leading spaces of a string.
+function trim(s) {
+ while (s.substring(0,1) == ' ') {
+ s = s.substring(1,s.length);
+ }
+ while (s.substring(s.length-1,s.length) == ' ') {
+ s = s.substring(0,s.length-1);
+ }
+ return s;
+}
+
+function check_userpass() {
+ var frm = document.changepass;
+ frm.userid.value = trim(frm.userid.value);
+ if ( trim(frm.userid.value) == '' ) {
+ alert(INV_USERNAME);
+ frm.userid.focus();
+ return false;
+ }
+ if ( trim(frm.newpassword1.value) == '' ) {
+ alert(INV_PASS);
+ frm.newpassword1.focus();
+ return false;
+ }
+ if (frm.newpassword1.value != frm.newpassword2.value) {
+ alert(DIFF_PASS);
+ frm.newpassword1.focus();
+ return false;
+ }
+ return true;
+}
+
+
+</script>
+ <!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5">
+ <div align="right" class="style19">
+ <div align="center" id="loginbloc">
+
+ <!-- TMPL_IF NAME="done" -->
+ <p class="style8">
+ <span
class="style4">
+
Kullanıcı adınız ve Åifreniz yenilendi.
+ </span><br>
+ <form
action='/cgi-bin/koha/opac-user.pl'
+
method="post">
+ <input
type="hidden" name="change_psw" value="1">
+ <input
type="hidden" name="new_userid" value='<!-- TMPL_VAR NAME="new_userid" -->'>
+ <input
class="style8" type="submit" value="Accept">
+ </form>
+ </p>
+
+ <!-- TMPL_ELSE -->
+ <form
action="/cgi-bin/koha/opac-changepass.pl" method="post" name="changepass"
onsubmit="return check_userpass()">
+ <input
type="hidden" value="update" name="op">
+ <!-- TMPL_IF
NAME="userid_in_use" -->
+ <p
class="style8">
+
<span class="style4">
+
SeçtiÄiniz kullanıcı adı kullanılıyor.
+
</span><br>
+ </p>
+ <!-- /TMPL_IF
-->
+
+ <table
border="0" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr>
+
<td class="style8"><div align="right">Kullanıcı adı:</div></td>
+
<td><input maxlength="12" name="userid" type="text" class="style8" value="<!--
TMPL_VAR NAME="userid" -->" ></td>
+ </tr>
+ <tr>
+
<td class="style8">
+
<div align="right">Åifre:</div>
+
</td>
+
<td>
+
<input maxlength="12" name="newpassword1" type="password"
class="style8">
+
</td>
+ </tr>
+ <tr>
+
<td class="style8">
+
<div align="right">Yeniden Åifre:</div>
+
</td>
+
<td>
+
<input maxlength="12" name="newpassword2" type="password"
class="style8">
+
</td>
+ </tr>
+ <tr>
+
<td colspan="2" class="style8">
+
<div align="center"><input name="Submit" type="submit" class="style8"
value="Kaydet"></div>
+
</td>
+ </tr>
+ </table>
+ </form>
+ <!-- /TMPL_IF -->
+ </div>
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-detail.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-detail.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-detail.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-detail.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,563 @@
+<!-- TMPL_IF name="print_detail" -->
+ <!-- TMPL_INCLUDE NAME="opac-print-detail-top.inc" -->
+<!-- TMPL_ELSE -->
+ <!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- /TMPL_IF -->
+<script language="JavaScript" >
+
+var no_shelves_selected = "Eklenecek sanal rafları seçiniz.";
+
+/*Add the biblionumber to the seleted virtual shelves*/
+function addBiblioToShelves(){
+ shelf_frm = document.shelf_form;
+ //check for at least one shelf seleted
+ shelf_sel = false;
+ for (var i=0; i < shelf_frm.shelfnumber.length; i++) {
+ if (shelf_frm.shelfnumber[i].checked) {
+ shelf_sel = true;
+ break;
+ }
+ }
+ if (shelf_sel) {
+ shelf_frm.submit();
+ } else {
+ alert(no_shelves_selected);
+ }
+}
+
+function show_shelfPanel() {
+
+ if (document.getElementById('shelf_panel').style.display == 'block') {
+ document.getElementById('shelf_panel').style.display = 'none';
+ } else {
+ document.getElementById('shelf_panel').style.display = 'block';
+ }
+}
+</script>
+
+<!-- TMPL_UNLESS name="print_detail" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <!-- /TMPL_UNLESS -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5"><table width="100%" border="0"
align="center" cellpadding="0" cellspacing="0">
+ <!-- TMPL_UNLESS name="print_detail" -->
+ <tr>
+ <td bgcolor="#F2F0E9"><table
border="0" align="right" bgcolor="#F9F8F4">
+ <tr>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/print.gif" width="18" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:openPrintDetail('<!-- TMPL_VAR
name="biblionumber" -->')" >
+ Yazdır
+ </a>
+ </div></td>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/basket.gif" width="19" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:addRecord('<!-- TMPL_VAR NAME="biblionumber"
ESCAPE=URL -->')">
+ Sepete
ekle
+ </a>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr valign="bottom" bgcolor="#F2F0E9">
+ <td height="40"
bgcolor="#F2F0E9"><table height="20" border="0" align="center" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style5">
+ Katalog kartı
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style5">
+
+ </td>
+
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style5">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style2">
+ <a
href='opac-MARCdetail.pl?bib=<!-- TMPL_VAR name="biblionumber" ESCAPE="URL"
--><!-- TMPL_LOOP NAME="BIBLIO_RESULTS" -->&author=<!-- TMPL_VAR
name="author"-->&title=<!-- TMPL_VAR name="title" -->&norequests=<!-- TMPL_VAR
name="norequests" --><!-- /TMPL_LOOP -->' class="style2">
+ MARC21
Kaydı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- TMPL_UNLESS NAME="norequests"
-->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
class="style2"
+
href="/cgi-bin/koha/opac-reserve.pl?bib=<!-- TMPL_VAR NAME="biblionumber"
ESCAPE=URL -->">
+
Ayırt
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_UNLESS -->
+
+ <!-- TMPL_IF
name="subscriptionsnumber" -->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
href="opac-serial-issues.pl?subscriptionid=<!-- TMPL_VAR
NAME="subscriptionsnumber" -->"
+
class="style19" title="Serial issues">
+
Süreli yayın
+ </a>
+ </td>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_UNLESS -->
+ <!-- TMPL_LOOP NAME="BIBLIO_RESULTS" -->
+ <tr>
+ <td height="25" bgcolor="#06B4D2" class="style5">
+ <div align="center" class="style9">
+ <table width="100%" border="0">
+ <tr>
+ <td class="style9"><div align="center"><!-- TMPL_VAR
NAME="title" --><!-- TMPL_IF name="author" -->
+ (<!-- TMPL_VAR NAME="author" -->)<!-- /TMPL_IF --></div></td>
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td width="20" height="20" bgcolor="#06B4D2"><div
align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2" class="style5">Bibliografik kayıt
(no: <!-- TMPL_VAR NAME="biblionumber" -->)</td>
+ <td width="21" height="20" bgcolor="#06B4D2">
+ <div align="right">
+ <img src='<!-- TMPL_VAR
NAME="themelang" -->/../images/help.gif'
+ width="21" height="21"
alt="Help"
+ onclick="javascript:
help('biblio_detail_help')"
+ style="cursor:pointer">
+ </div>
+ </td>
+ </tr>
+ </table>
+ <table width="100%" border="0" cellpadding="2"
cellspacing="1" bordercolor="#DCD9CF" bgcolor="#DCD9CF">
+ <tr bgcolor="#DCD9CF">
+ <td colspan="2" class="style19"><div align="center"><!--
TMPL_VAR NAME="title" --></div></td>
+ </tr>
+ <!-- TMPL_IF name="subtitle" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">AltbaÅlık:</div></td>
+ <td class="style19"><!--
TMPL_VAR NAME="subtitle" --></td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+ <table width="100%" border="0" cellpadding="2" cellspacing="1"
bordercolor="#DCD9CF" bgcolor="#DCD9CF">
+ <tr><td><table width="100%" border="0" cellpadding="2" cellspacing="1"
bordercolor="#DCD9CF" bgcolor="#DCD9CF">
+ <!-- TMPL_IF name="author" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200" class="style4">
+ <div
align="right">Yazar:</div>
+ </td>
+ <td class="style19"
valign="top">
+ <a class="style19"
href="/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1&search_type=loose;startfrom=0;field_value1=<!--
TMPL_VAR NAME="author" -->;kohafield=author">
+ <!-- TMPL_VAR
NAME="author" -->
+ </a>
+ <a class="style"
style="margin-left:5px" target="_blank"
href="http://search3.webfeat.org/cgi-bin/webfeat.dll?Command=Search&BypassSessData=yes&noserial=1&Databases=wf_sirsdiscover,wf_elibrary2_e,wf_ebonline,wf_masterfileprem,wf_newspapersource&wf_cat=0&Client_ID=oplin&wf_all_years=yes&wf_field1=wf_keyword&wf_term1=<!--
TMPL_VAR NAME="author"
-->&rurl=http%3A//www.library.neu.edu.tr/&wut_code=OH0156">
+ <img src="<!--
TMPL_VAR NAME="themelang" -->/../images/world2.gif"
+
style="border:0px"> Bu kiÅiyi elektronik veritabanlarında ara
+ </a>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="additional" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">DiÄer yazarlar: </div></td>
+ <td class="style19">
+ |<a class="style19"
href="/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1&search_type=loose;startfrom=0;field_value1=<!--
TMPL_VAR NAME="additional" -->;kohafield=author">
+
+ <!-- TMPL_VAR
NAME="additional" --></a><a class="style" style="margin-left:5px"
target="_blank"
href="http://search3.webfeat.org/cgi-bin/webfeat.dll?Command=Search&BypassSessData=yes&noserial=1&Databases=wf_sirsdiscover,wf_elibrary2_e,wf_ebonline,wf_masterfileprem,wf_newspapersource&wf_cat=0&Client_ID=oplin&wf_all_years=yes&wf_field1=wf_keyword&wf_term1=<!--
TMPL_VAR NAME="additional"
-->&rurl=http%3A//www.library.neu.edu.tr/&wut_code=OH0156"><img src="<!--
TMPL_VAR NAME="themelang" -->/../images/world2.gif"
style="border:0px"></a> |
+
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="publishercode" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
bgcolor="#F2F0E9" class="style4"><div align="right">Yayınevi: </div></td>
+ <td class="style19">
+ <!-- TMPL_VAR
NAME="publishercode" -->
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+
<!-- TMPL_IF name="pages" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">sayfa:</div></td>
+ <td
class="style19"><!-- TMPL_VAR NAME="pages" --></td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="size" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200" class="style4"><div
align="right">Size:</div></td>
+ <td class="style19">
+ <!-- TMPL_VAR NAME="size"
-->
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200" class="style4"> <!-- TMPL_IF
name="ISBN" --><div align="right">ISBN:</div> <!-- /TMPL_IF --></td>
+ <td class="style19">
+ <!-- TMPL_VAR NAME="isbn"
-->
+
+ <a ><img src="<!-- TMPL_VAR NAME="Coverphoto"
-->" alt="Book Cover Image" /></a></td>
+ </tr>
+
+ <!-- TMPL_IF name="seriestitle" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200" class="style4"><div
align="right">Seri adı:</div></td>
+ <td class="style19">
+ <!-- TMPL_VAR
NAME="seriestitle" -->
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="subjects" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200" class="style4"><div
align="right">Konu(lar):</div></td>
+ <!-- TMPL_IF
name="print_detail" -->
+ <td class="style19">
+ |
+ <!-- TMPL_LOOP
name="subjects" -->
+ <span
class="style12">
+ <!--
TMPL_VAR NAME="subject" -->
+
</span>|
+ <!-- /TMPL_LOOP
-->
+ </td>
+ <!-- TMPL_ELSE -->
+ <td class="style19">
+ | <!--
TMPL_LOOP name="subjects" -->
+ <a
class="style19"
href="/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1&search_type=loose;startfrom=0;field_value1=<!--
TMPL_VAR NAME="subject" -->;kohafield=subject">
+ <span
class="style12"><!-- TMPL_VAR NAME="subject" --></span></a> |
+ <!-- /TMPL_LOOP
-->
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="copyrightdate" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200" class="style4"><div
align="right">Basım:</div></td>
+ <td class="style19">
+ <!-- TMPL_VAR
name="copyrightdate" -->
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="notes" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">Notlar:</div></td>
+ <td class="style19"><!--
TMPL_VAR name="notes" --></td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="unititle" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">Toplu adı:</div></td>
+ <td class="style19"><!--
TMPL_VAR name="unititle" --></td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF name="classification" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">Klasifikasyon:</div></td>
+ <td class="style19"><!--
TMPL_VAR name="classification" --></td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF name="dewey" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">Dewey:</div></td>
+ <td class="style19"><!--
TMPL_VAR name="dewey" --></td>
+ </tr>
+ <!-- /TMPL_IF -->
+<!-- /TMPL_LOOP -->
+ <!-- TMPL_IF NAME="MARCURLS" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">URL:</div></td>
+ <td class="style19">
+ <!-- TMPL_LOOP
NAME="MARCURLS" -->
+ <a class="style19"
href="<!-- TMPL_VAR name="MARCURL" -->" target="_blank">
+ <!-- TMPL_VAR
NAME="MARCURL" -->
+ </a>
+ <!-- /TMPL_LOOP
-->
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ </table>
+
+</td><!-- TMPL_IF NAME="image2" --><td>
+
+<img src="<!-- TMPL_VAR NAME="image" -->">
+</td><!-- /TMPL_IF --></tr>
+
+ </table>
+ </td>
+ </tr> <!-- TMPL_IF name="MARCAUTHORS" -->
+ <tr>
+ <td height="20"><table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="20" height="20"
bgcolor="#06B4D2"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2"><span
class="style5">Ä°lgili isimler </span></td>
+ </tr>
+ </table>
+ <table width="100%" border="0"
align="center" cellpadding="2" cellspacing="1" bgcolor="#DCD9CF">
+ <tr bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"
class="style19">
+ <ul>
+ <!-- TMPL_LOOP
NAME="MARCAUTHORS" -->
+ - <a
href="/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1&search_type=loose;startfrom=0;field_value=<!--
TMPL_VAR NAME="MARCAUTHOR" -->;kohafield=author">
+ <!--
TMPL_VAR NAME="MARCAUTHOR" -->
+ </a><br>
+ <!-- /TMPL_LOOP
-->
+ </ul>
+ </td>
+
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="MARCNOTES" -->
+ <tr>
+ <td height="20"><table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="20" height="20"
bgcolor="#06B4D2"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2"><span
class="style5">DiÄer notlar </span></td>
+ </tr>
+ </table>
+ <table width="100%" border="0"
align="center" cellpadding="2" cellspacing="1" bgcolor="#DCD9CF">
+ <tr bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"
class="style19">
+ <ul>
+ <!-- TMPL_LOOP
NAME="MARCNOTES" -->
+ <i>-
<!-- TMPL_VAR NAME="MARCNOTE" --></i><br>
+ <!-- /TMPL_LOOP
-->
+ </ul>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="MARCSUBJCTS" -->
+ <tr>
+ <td height="20"><table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="20" height="20"
bgcolor="#06B4D2"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2"><span
class="style5">Konu(lar)</span></td>
+ </tr>
+ </table>
+ <table width="100%" border="0"
align="center" cellpadding="2" cellspacing="1" bgcolor="#DCD9CF">
+ <tr bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"
class="style19">
+ <ul>
+ <!-- TMPL_LOOP
NAME="MARCSUBJCTS" -->
+ - <a
href="/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1search_type=loose;startfrom=0;field_value=<!--
TMPL_VAR NAME="MARCSUBJCT" -->;kohafield=subject">
+ <!--
TMPL_VAR NAME="MARCSUBJCT" -->
+ </a><br>
+ <!-- /TMPL_LOOP -->
+ </ul>
+ </td>
+ </tr>
+ <!-- TMPL_IF NAME="item_description" -->
+ <tr bgcolor="#F2F0E9" valign="top">
+ <td width="200"
class="style4"><div align="right">Ãzet:</div></td>
+ <td class="style19">
+ <!-- TMPL_VAR
NAME="item_description" -->
+ </a>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+
+ <!-- TMPL_IF name="holdings_count" -->
+ <tr>
+ <td height="20"><table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="20" height="20"
bgcolor="#06B4D2"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2"><span
class="style5">Existences</span></td>
+ </tr>
+ </table>
+ <table width="100%" border="0"
cellpadding="2" cellspacing="1" bgcolor="#DCD9CF">
+ <tr valign="middle" class="style19">
+ <td class="style19"> </td>
+ <td class="style19"><div
align="center">Notlar</div></td>
+ </tr>
+ <!-- TMPL_LOOP NAME="holdings"
-->
+ <tr valign="middle"
bgcolor="#F2F0E9" class="style19">
+ <td><div
align="center">
+ <!--
TMPL_VAR NAME="existences" -->
+ </td>
+ <td><div
align="center">
+ <!--
TMPL_VAR NAME="public_note" -->
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="ITEM_RESULTS" -->
+ <tr>
+ <td height="20"><table width="100%" border="0" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td width="20" height="20" bgcolor="#06B4D2"><div
align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2"><span class="style5">Kopya (<!--
TMPL_VAR name="total" -->) </span></td>
+ </tr>
+ </table>
+ <table width="100%" border="0" cellpadding="2"
cellspacing="1" bgcolor="#DCD9CF">
+ <tr valign="middle" class="style19">
+ <td class="style19"><div align="center">Barkot</div></td>
+ <td class="style19"><div align="center">Durumu</div></td>
+ <td class="style19"><div
align="center">Yeri</div></td>
+ <td class="style19"><div align="center">Bölüm</div></td>
+ <!-- TMPL_IF NAME="itemnotes" --> <td class="style19"><div
align="center">Notlar</div></td><!--/TMPL_IF-->
+
+ </tr>
+ <!-- TMPL_LOOP NAME="ITEM_RESULTS" -->
+ <tr valign="top" bgcolor="#F2F0E9" class="style19">
+ <td>
+ <div align="center">
+ <!-- TMPL_IF
NAME="pending" -->
+ <img src="<!--
TMPL_VAR NAME="themelang" -->/../images/warning.gif" width="16" height="16">
+ <a href='#'
+
onclick='javascript: document.getElementById("transfer<!-- TMPL_VAR
NAME="barcode" -->").style.display = "inline"'
+
style="color:red;vertical-align:top">
+ <!--
TMPL_VAR NAME="barcode" -->
+ </a>
+ <div
id='transfer<!-- TMPL_VAR NAME="barcode" -->'
+
name='transfer<!-- TMPL_VAR NAME="barcode" -->'
+
style="display:none;position:absolute;width:200px;height:20px"
+
onclick='javascript: document.getElementById("transfer<!-- TMPL_VAR
NAME="barcode" -->").style.display = "none"'>
+ <table
style="border-width:1px;width:100%;background-color:#D8F1C0">
+
<tr>
+
<th style="padding:5px;font-size:8pt;font-weight:bold" align ="center">
+
Gönderilmeyi bekliyor
+
</th>
+
</tr>
+
<tr>
+
<td style="padding:5px;" align ="center">
+
Raf yerleri Åu sıralar deÄiÅebilir. Kütüphaneden kontrol
ediniz.
+
</td>
+
</tr>
+ </table>
+ </div>
+ <!-- TMPL_ELSE -->
+ <!-- TMPL_VAR
NAME="barcode" -->
+ <!-- /TMPL_IF -->
+ </div>
+ </td>
+ <td>
+ <div align="center">
+ <!-- TMPL_IF
name="datedue" -->
+ dönüÅü:<!--
TMPL_VAR NAME="datedue" -->
+ <!-- TMPL_ELSE --><!--
TMPL_IF NAME="itemnotforloan" -->
+ Ãdünç
verilmez<!-- TMPL_ELSE -->
+ <!-- TMPL_IF
name="count_reserves" -->Ayırtıldı: <!-- TMPL_VAR NAME="count_reserves"
--><br><!-- TMPL_ELSE --><!--TMPL_If NAME="itemlost"-->Kayıp<!--TMPL_ELSE-->
+ Kütüphanede <!-- /TMPL_IF
--><!-- /TMPL_IF --><!-- /TMPL_IF --><!--/TMPL_IF-->
+ </div>
+ </td>
+ <td>
+ <div align="center">
+ <!-- TMPL_VAR
NAME="branchname" --> <!-- TMPL_VAR NAME="location" --> <!-- TMPL_IF
name="itemcallnumber" -->(<!-- TMPL_VAR NAME="itemcallnumber" -->)<!-- /TMPL_IF
-->
+
</div>
+ </td>
+ <td><div align="center"><!-- TMPL_VAR
NAME="shelf" --></div></td>
+ <!-- TMPL_IF NAME="itemnotes" --> <td><div
align="center">Hediye eden:<!-- TMPL_VAR NAME="itemnotes"
--></div></td><!--/TMPL_IF -->
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_LOOP NAME="WEB_RESULTS" -->
+ <tr valign="middle" bgcolor="#F2F0E9" class="style19">
+ <td><!-- TMPL_VAR
NAME="itemtype" --></td>
+ <td>Website</td>
+ <td>On line</td>
+ <td>Available</td>
+ <td> </td>
+ <td><!-- TMPL_VAR NAME="url"
--></td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_UNLESS name="print_detail" -->
+ <!-- TMPL_IF Name="loggedinusername" -->
+ <!-- TMPL_IF name="shelvescount" -->
+
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/book1.gif" width="19" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:show_shelfPanel();" style="display:block">
+ sanal
rafa ekle
+ </a>
+ <div
class="shelf_panel" id="shelf_panel" style="display:none;">
+ <form
name="shelf_form" action="/cgi-bin/koha/opac-add-biblios-to-shelves.pl"
method="post">
+
<input type="checkbox" name="shelfnumber" value="-1"
style="display:none;">
+ <input
type="hidden" name="biblios" value="<!-- TMPL_VAR name="biblionumber" -->">
+ <input
type="hidden" name="return_url" value="/cgi-bin/koha/opac-detail.pl?bib=<!--
TMPL_VAR NAME="biblionumber" -->">
+ <span
class="style3">eklenecek sanal rafları seçin. </span>
+ <table>
+ <!--
TMPL_LOOP name="shelves" -->
+ <tr>
+
<td>
+
<input type="checkbox" name="shelfnumber" value="<!-- TMPL_VAR
name="shelfnumber" -->">
+
</td>
+
<td>
+
<a class="style12"
href="/cgi-bin/koha/opac-shelves.pl?op=viewcontent&shelfnumber=<!-- TMPL_VAR
name="shelfnumber" -->"><!-- TMPL_VAR name="shelfname" --></a>
+
</td>
+
<td>
+
<!-- TMPL_VAR name="shelfbookcount" --> doküman
+
</td>
+
</tr>
+ <!--
/TMPL_LOOP -->
+ </table>
+
<div align="right" class="style5">
+
<input type="button" onclick="addBiblioToShelves()" value="Add"
class="style5" style="border:0px;background-color:#4898B0;height:20px;">
+
</div>
+
+ </form>
+ </div>
+ </td>
+ <!-- /TMPL_IF -->
+ <!-- /TMPL_IF -->
+
+ <!-- /TMPL_UNLESS -->
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_UNLESS name="print_detail" -->
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+ <!-- /TMPL_UNLESS -->
+<!-- TMPL_UNLESS name="print_detail" -->
+ </td>
+ </tr>
+</table>
+<!-- /TMPL_UNLESS -->
+<!-- TMPL_IF name="print_detail" -->
+ <SCRIPT LANGUAGE="JavaScript">
+ window.print();
+ </SCRIPT>
+ <!-- TMPL_INCLUDE NAME="opac-print-detail-bottom.inc" -->
+<!-- TMPL_ELSE -->
+ <!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+<!-- /TMPL_IF -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-detailprint.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-detailprint.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-detailprint.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-detailprint.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,53 @@
+<html>
+<body onLoad="window.print();self.close();">
+<!-- TMPL_LOOP NAME="BIBLIO_RESULTS" -->
+ <table cellspacing="0" cellpadding="1" border="1" width=500>
+ <tr valign="top">
+ <td bgcolor="#cccc99"
background="/../images/background-mem.gif">
+ <b>BIBLIO RECORD <!-- TMPL_VAR NAME="biblionumber"
--></b>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td>
+ <!-- TMPL_VAR NAME="author" --><br>
+ <b><!-- TMPL_VAR NAME="title" --></b><!-- TMPL_VAR
NAME="subtitle" --><br>
+ <!-- TMPL_IF name="additional" --> DiÄer yazarlar:
<!-- TMPL_VAR NAME="additional" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="publishercode" --> Yayınevi : <!-- TMPL_VAR NAME="publishercode" --><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="publicationyear" --> Yılı: <!-- TMPL_VAR NAME="publicationyear"
--><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="pages" -->Sayfa: <!-- /TMPL_IF --><!-- TMPL_VAR name="pages" -->
+ <!-- TMPL_IF
name="size" -->, <!-- /TMPL_IF --><!-- TMPL_VAR name="size" --><br>
+ <!-- TMPL_IF
name="collection" --> Seri adı: <!-- TMPL_VAR NAME="seriestitle" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="subject" --> Konular: <!-- TMPL_VAR NAME="subject" --><br><!-- /TMPL_IF
-->
+ <!-- TMPL_IF
name="copyrightdate" --> Telif yılı: <!-- TMPL_VAR NAME="copyrightdate"
--><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="notes" --> Notlar: <!-- TMPL_VAR NAME="notes" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="unititle" --> Uniform Title: <!-- TMPL_VAR NAME="unititle" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="serial" --> Süreli yayın: <!-- TMPL_VAR NAME="serial" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="dewey" --> Dewey: <!-- TMPL_VAR name="dewey" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="classification" --> LC : <!-- TMPL_VAR name="classification" --><br><!--
/TMPL_IF -->
+ <!-- TMPL_IF
name="lccn" --> LCCN: <!-- TMPL_VAR name="lccn" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="url" --> URL: <!-- TMPL_VAR NAME="url" --><br><!-- /TMPL_IF -->
+ <b>ISBN:</b><!-- TMPL_VAR NAME="ISBN" --><br>
+ </font>
+ </td>
+ </tr>
+ </table>
+<!-- /TMPL_LOOP -->
+
+<table border="0" cellspacing="0" cellpadding="2">
+ <!-- TMPL_LOOP NAME="ITEM_RESULTS" -->
+ <tr>
+ <td><!-- TMPL_VAR NAME="description" --></td>
+ <td><!-- TMPL_VAR NAME="branchname" -->, <!-- TMPL_VAR
NAME="itemcallnumber" --></td>
+ <td><!-- TMPL_VAR NAME="barcode" --></td>
+ <td><!-- TMPL_VAR NAME="volumeddesc" --></td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+</table>
+<script language="javascript" type="text/javascript">
+function docprint() {
+ window.print();
+ window.close();
+}
+</script>
+</body>
+</html>
\ No newline at end of file
Index: koha-tmpl/opac-tmpl/css/tr/opac-dictionary.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-dictionary.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-dictionary.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-dictionary.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,65 @@
+<!-- TMPL_INCLUDE NAME="opac-dictionary-top.inc" -->
+
+<script language="JavaScript1.2" >
+</script>
+<style type="text/css">
+<!--
+body {
+ padding:0px;
+ background-color:#E8E4D9;
+}
+a:link {
+ text-decoration: none;
+}
+a:visited {
+ text-decoration: none;
+}
+a:hover {
+ text-decoration: underline;
+}
+a:active {
+ text-decoration: none;
+}
+-->
+</style>
+<form name="dicc_form" style="margin:0px;padding:0px">
+<table border="0" align="center" bgcolor="#E8E4D9"
+ style="margin:0px;padding:0px;width:100%;height:100%">
+ <tr>
+ <td valign="middle"><table width="530" border="0" align="center"
cellpadding="4" cellspacing="2" bgcolor="#F9F8F4">
+ <tr>
+ <td bgcolor="#0599B4" class="style10">
+ Sözlük:
+ <!-- TMPL_IF name="authors" -->Yazarlar<!-- /TMPL_IF -->
+ <!-- TMPL_IF name="subjects" -->Konular<!-- /TMPL_IF -->
+ <!-- TMPL_IF name="titles" -->Eser adı<!-- /TMPL_IF -->
+ <!-- TMPL_IF name="publishers" -->Yayınevleri<!--
/TMPL_IF -->
+ </td>
+ </tr>
+ <tr>
+ <td align="center"> <p>
+ <select size="16" name="dicc_entry"
style="width:400px;border:0px" onDblClick='selectEntry(<!-- TMPL_VAR
name="target" -->)'
+ class="style1">
+ <!-- TMPL_LOOP name="values" -->
+ <!-- TMPL_IF name="summary" --> <option
value="<!-- TMPL_VAR name="summary" -->"><!-- TMPL_VAR name="summary"
--></b> <!-- TMPL_VAR name="used" --> eserde
var</option><!-- /TMPL_IF -->
+ <!-- TMPL_UNLESS name="publishers" --> <!--
TMPL_IF name="title" --> <option value="<!-- TMPL_VAR name="title"
-->"><b><!-- TMPL_VAR name="title" --></b></option><!-- /TMPL_IF
--><!--/TMPL_UNLESS-->
+ <!-- TMPL_IF name="publishers" -->
<option value="<!-- TMPL_VAR name="publishercode" -->"><b><!-- TMPL_VAR
name="publishercode" --></b></option><!-- /TMPL_IF -->
+
+ <!-- /TMPL_LOOP -->
+ </select>
+ </p>
+ <p class="style3"><!-- TMPL_VAR name="count" --> kayıt.<!-- TMPL_IF
name="count" --> Toplam daha fazla olabilir<!--/TMPL_IF--></p></td>
+ </tr>
+ <tr>
+ <td>
+ <div align="center">
+ <input class="style2" type="button" value="Seç"
onclick="selectEntry(<!-- TMPL_VAR name="target" -->)">
+ <input class="style2" type="button" value="Ä°ptal
et" onclick="window.close()">
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+</table>
+</form>
+<!-- TMPL_INCLUDE NAME="opac-dictionary-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-dvdsearch.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-dvdsearch.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-dvdsearch.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-dvdsearch.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,419 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+<table width="760" border="0" align="center" cellpadding="4" cellspacing="2">
+ <!-- TMPL_INCLUDE NAME="opac-login.inc" -->
+
+
+ <td align="right" class="style4">
+ <table height="20" border="0" align="right"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/opac-main.pl' title="Home">
+ Home
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/union-search.pl' title="union Search">
+ Union Catalogue
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+ <!-- TMPL_IF NAME="loggedinusername" -->
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"
class="style5"> </td>
+ <td bgcolor="#0599B4"
class="style5">
+ <a
style="width:100%" class="style5" href="/cgi-bin/koha/opac-user.pl"
title="Users Site">
+ User
Site
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"
class="style5"> </td>
+ <!-- /TMPL_IF -->
+
+ </tr>
+
+ </table>
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Advanced search</td>
+ </tr>
+ <tr>
+ <td>
+ <table width="100%" border="0" align="left"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td><div align="center" class="style3">
+
+ </div></td>
+ </tr>
+ <tr>
+ <td height="250" valign="top">
+ <div align="left">
+ <form name="loose_form"
+ id="loose_form"
+
action="/cgi-bin/koha/opac-dvdsearch.pl"
+ method='get' >
+
+
+ <input type="hidden" name="op"
value="do_search">
+ <input type="hidden"
name="search_type" value="loose">
+ <input type="hidden"
name="startfrom" value="0">
+
+ <table width="600" border="0" align="center"
bgcolor="#F2F0E9">
+ <tr><!--TMPL_LOOP NAME="SEARCHPARAMS"-->
+ <td><table height="20" border="0" align="left"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+
Term 1:
+ </td>
+ <td>
+ <input
name="field_value" type="text" class="style1" value="<!--
TMPL_VAR name="field_value1" -->">
+ </td>
+ <td>
+ <div
align="right" class="style5"> </div>
+ <select
type="text" name="kohafield"
+
class="style2">
+
<option value="any" <!-- TMPL_IF name="any1" -->selected<!-- /TMPL_IF
-->>All</option>
+
<option value="author" <!-- TMPL_IF name="author1" -->selected<!-- /TMPL_IF -->
>Author</option>
+
<option value="title" <!-- TMPL_IF name="title1" -->selected<!-- /TMPL_IF -->
>Title</option>
+
<option value="subject" <!-- TMPL_IF name="subject1" -->selected<!-- /TMPL_IF
--> >Subject</option>
+
<option value="publishercode" <!-- TMPL_IF name="publishercode1"
-->selected<!-- /TMPL_IF --> >Publisher</option>
+
<option value="identifier-standard" <!-- TMPL_IF name="identifier-standard1"
-->selected<!-- /TMPL_IF --> >ISBN & ISSN</option>
+
<option value="itemnotes" <!-- TMPL_IF name="itemnotes1" -->selected<!--
/TMPL_IF --> >Gifted By</option>
+
</select>
+ </td>
+ <td><table height="20" border="0"
align="center" cellpadding="3" cellspacing="0" class="background1">
+ <tr>
+ <td>
+
<div align="right" class="style5"></div>
+ <div align="right" class="style5">
+
<input type="button" class="style5"
+
value="Dictionary..."
+
onclick="openDictionary(document.loose_form.kohafield[0].value,
document.loose_form.field_value[0].value,
'opener.document.loose_form.field_value[0]')"
+
style="border:0px;background-color:#4898B0" >
+
</div>
+ </td>
+ </tr>
+ </table></td>
+ <td class="style1"><select type="text"
name="relation"
+
class="style2">
+
<option value="@attr 3=1 @attr 5=1" <!-- TMPL_IF name="@attr 3=1 @attr 5=11"
-->selected<!-- /TMPL_IF -->>Starts with
+
</option>
+
<option value="@attr 4=1 @attr 5=100" <!-- TMPL_IF name="@attr 4=1 @attr
5=1001" -->selected<!-- /TMPL_IF -->>Phrase
+
</option>
+
<option value="@attr 5=1 @attr 4=6" <!-- TMPL_IF name="@attr 5=1 @attr 4=61"
-->selected<!-- /TMPL_IF --> >All words
+
</option>
+
</select>
+
+ </td>
+ <td width="60">
+
+ <select
type="text" name="and_or"
+
class="style2">
+
<option value="@and" <!-- TMPL_IF name="@and1" -->selected<!-- /TMPL_IF -->>AND
+
</option>
+
<option value="@or" <!-- TMPL_IF name="@or1" -->selected<!-- /TMPL_IF --> >OR
+
</option>
+
</select>
+
+ </td>
+
+
+
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td><table height="20" border="0" align="left"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+
Term 2:
+ </td>
+ <td>
+ <input
name="field_value" type="text" class="style1" value='<!--
TMPL_VAR name="field_value2" -->'>
+ </td>
+ <td>
+ <div
align="right" class="style5"> </div>
+ <select
type="text" name="kohafield"
+
class="style2">
+
<option value="any" <!-- TMPL_IF name="any2" -->selected<!-- /TMPL_IF
-->>All</option>
+
<option value="author" <!-- TMPL_IF name="author2" -->selected<!-- /TMPL_IF -->
>Author</option>
+
<option value="title" <!-- TMPL_IF name="title2" -->selected<!-- /TMPL_IF -->
>Title</option>
+
<option value="subject" <!-- TMPL_IF name="subject2" -->selected<!-- /TMPL_IF
--> >Subject</option>
+
<option value="publishercode" <!-- TMPL_IF name="publishercode2"
-->selected<!-- /TMPL_IF --> >Publisher</option>
+
<option value="identifier-standard" <!-- TMPL_IF name="identifier-standard2"
-->selected<!-- /TMPL_IF --> >ISBN & ISSN</option>
+
<option value="itemnotes" <!-- TMPL_IF name="itemnotes2" -->selected<!--
/TMPL_IF --> >Gifted By</option>
+
</select>
+ </td>
+ <td><table height="20" border="0"
align="center" cellpadding="3" cellspacing="0" class="background1">
+ <tr>
+ <td>
+
<div align="right" class="style5"></div>
+ <div align="right" class="style5">
+
<input type="button" class="style5"
+
value="Dictionary..."
+
onclick="openDictionary(document.loose_form.kohafield[1].value,
document.loose_form.field_value[1].value,
'opener.document.loose_form.field_value[1]')"
+
style="border:0px;background-color:#4898B0">
+
</div>
+ </td>
+ </tr>
+ </table></td> <td
class="style1"><select type="text" name="relation"
+
class="style2">
+
<option value="@attr 3=1 @attr 5=1" <!-- TMPL_IF name="@attr 3=1 @attr 5=11"
-->selected<!-- /TMPL_IF -->>Starts with
+
</option>
+
<option value="@attr 4=1 @attr 5=100" <!-- TMPL_IF name="@attr 4=1 @attr
5=1001" -->selected<!-- /TMPL_IF -->>Phrase
+
</option>
+
<option value="@attr 5=1 @attr 4=6" <!-- TMPL_IF name="@attr 5=1 @attr 4=61"
-->selected<!-- /TMPL_IF --> >All words
+
</option>
+
</select>
+
+ </td>
+ <td width="60">
+
+ <select
type="text" name="and_or"
+
class="style2">
+
<option value="@and" <!-- TMPL_IF name="@and2" -->selected<!-- /TMPL_IF -->>AND
+
</option>
+
<option value="@or" <!-- TMPL_IF name="@or2" -->selected<!-- /TMPL_IF --> >OR
+
</option>
+
</select>
+
+ </td>
+ </tr>
+
+ </table></td>
+ </tr>
+ <tr>
+ <td><table height="20" border="0" align="left"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+
Term 3:
+ </td>
+ <td>
+ <input
name="field_value" type="text" class="style1" value='<!--
TMPL_VAR name="field_value3" -->'>
+ </td>
+ <td>
+ <div
align="right" class="style5"> </div>
+ <select
type="text" name="kohafield"
+
class="style2">
+
<option value="any" <!-- TMPL_IF name="any3" -->selected<!-- /TMPL_IF
-->>All</option>
+
<option value="author" <!-- TMPL_IF name="author3" -->selected<!-- /TMPL_IF -->
>Author</option>
+
<option value="title" <!-- TMPL_IF name="title3" -->selected<!-- /TMPL_IF -->
>Title</option>
+
<option value="subject" <!-- TMPL_IF name="subject3" -->selected<!-- /TMPL_IF
--> >Subject</option>
+
<option value="publishercode" <!-- TMPL_IF name="publishercode3"
-->selected<!-- /TMPL_IF --> >Publisher</option>
+
<option value="identifier-standard" <!-- TMPL_IF name="identifier-standard3"
-->selected<!-- /TMPL_IF --> >ISBN & ISSN</option>
+
<option value="itemnotes" <!-- TMPL_IF name="itemnotes3" -->selected<!--
/TMPL_IF --> >Gifted By</option>
+
</select>
+ </td>
+ <td><table height="20" border="0"
align="center" cellpadding="3" cellspacing="0" class="background1">
+ <tr>
+ <td>
+
<div align="right" class="style5"></div>
+ <div align="right" class="style5">
+
<input type="button" class="style5"
+
value="Dictionary..."
+
onclick="openDictionary(document.loose_form.kohafield[2].value,
document.loose_form.field_value[2].value,
'opener.document.loose_form.field_value[2]')"
+
style="border:0px;background-color:#4898B0">
+
</div>
+ </td>
+ </tr>
+ </table></td> <td
class="style1"><select type="text" name="relation"
+
class="style2">
+
<option value="@attr 3=1 @attr 5=1" <!-- TMPL_IF name="@attr 3=1 @attr 5=11"
-->selected<!-- /TMPL_IF -->>Starts with
+
</option>
+
<option value="@attr 4=1 @attr 5=100" <!-- TMPL_IF name="@attr 4=1 @attr
5=1001" -->selected<!-- /TMPL_IF -->>Phrase
+
</option>
+
<option value="@attr 5=1 @attr 4=6" <!-- TMPL_IF name="@attr 5=1 @attr 4=61"
-->selected<!-- /TMPL_IF --> >All words
+
</option>
+
</select>
+
+ </td>
+ <td width="60">
+
+ <select
type="text" name="and_or"
+
class="style2">
+
<option value="@and" <!-- TMPL_IF name="@and3" -->selected<!-- /TMPL_IF -->>AND
+
</option>
+
<option value="@or" <!-- TMPL_IF name="@or3" -->selected<!-- /TMPL_IF --> >OR
+
</option>
+
</select>
+
+ </td>
+ </tr>
+
+ </table></td>
+ </tr>
+
+ <tr>
+ <td bgcolor="#F2F0E9"><table width="100%" border="0"
align="center">
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Catalogue:</div></td>
+ <td width="50%">
+ <div
align="left">
+
+ <select
type="text" name="serverid"
+
class="style2">
+
<option value='-1' selected>NEU Library Catalogue</option>
+
<option value='7' >News archive on Cyprus</option>
+
<option value="0" >All databases</option>
+
+
</select>
+ </div>
+ </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Library:</div></td>
+ <td width="50%">
+ <div
align="left">
+ <input
type="hidden" name="kohafield" value="holdingbranch">
+ <input
type="hidden" name="and_or" value="@and">
+ <input
type="hidden" name="relation" value="@attr 2=3">
+ <select
type="text" name="field_value"
+
class="style2">
+
<option value='' selected>All</option>
+
<option value="MAIN" <!-- TMPL_IF name="MAIN4" -->selected<!-- /TMPL_IF -->
>NEU Grand Library</option>
+
<option value="COLL" <!-- TMPL_IF name="COLL4" -->selected<!-- /TMPL_IF
-->>NEU College</option>
+
<option value="MAR" <!-- TMPL_IF name="MAR4" -->selected<!-- /TMPL_IF --> >NEU
Maritime Studies</option>
+
<option value="YMK" <!-- TMPL_IF name="YMK4" -->selected<!-- /TMPL_IF -->>High
Court Library</option>
+
+
</select>
+ </div>
+ </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Item
type:</div></td><!--/TMPL_LOOP-->
+ <td><div align="left">
<input type="hidden" name="kohafield" value="itemtype">
+ <input
type="hidden" name="and_or" value="@and">
+ <input
type="hidden" name="relation" value="@attr 2=3">
+ <select
size="1" name="field_value" style="width:170px"
+
class="style2">
+ <option
value="DVD" selected>DVD</option>
+ <option
value="VCD" >VCD</option>
+ <option
value="CD" >Müzik CD</option>
+ </select>
+ </div></td><!--TMPL_LOOP NAME="SEARCHPARAMS"-->
+ </tr>
+ <tr
bgcolor="#F9F8F4">
+ <td><div
align="right">Publication year from:</div></td>
+ <td><input
type="hidden" name="kohafield" value="copyrightdate">
+ <input
type="hidden" name="relation" value="@attr 2=4 ">
+ <input
type="hidden" name="and_or" value="@and">
+ <div
align="left">
+
<input name="field_value"
+
type="text"
+
class="style1"
+
value='<!-- TMPL_VAR name="field_value6" -->'
+
size="10">
+
to:<input type="hidden" name="kohafield" value="copyrightdate">
+ <input
type="hidden" name="and_or" value="@and">
+ <input
type="hidden" name="relation" value="@attr 2=2 ">
+
<input name="field_value"
+
type="text"
+
class="style1"
+
value='<!-- TMPL_VAR name="field_value7" -->'
+
size="10">
+ </div>
+ </td>
+ </tr>
+ <tr
bgcolor="#F9F8F4">
+ <td ><div align="right">Sort Order</div></td>
+ <td colspan="2">
+ <select size="1" name="order" style="width:170px"
class="style2">
+ <option value="" selected>System Ranked</option>
+ <option value="title" >Title</option>
+ <option value="author" >Author</option>
+ <option value="lcsort" >LC classification</option>
+ </select>
+
+ <select size="1" name="asc" style="width:170px"
class="style2">
+ <option value=" i<" selected>Ascending</option>
+ <option value=" >i" >Descending</option>
+
+ </select>
+ </td>
+ </tr><!--/TMPL_LOOP-->
+ </table> </td>
+ </tr>
+ <tr>
+ <td><table height="20" border="0" align="center"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+ <table
height="20" border="0" align="center" cellpadding="3" cellspacing="0"
class="background1">
+ <tr valign="middle">
+
+ <td>
+
<div align="right" class="style5">
+
<input class="style5" type="submit"
+
value="Start search"
+
style="border:0px;background-color:#4898B0;height:18px">
+
</div>
+ </td>
+
+
+
+
+
<td>
+
<div align="right" class="style5">
+
<input class="style5"
+
type="button" value="Clear fields"
+
onclick="document.location.href =
'/cgi-bin/koha/opac-dvdsearch.pl?search_type=loose'"
+
style="border:0px;background-color:#4898B0;height:18px">
+
</div>
+
</td>
+
+ </form>
+
+ <td>
+ <div
align="right">
+ <img
src="<!-- TMPL_VAR NAME="themelang" -->/../images/help.gif" width="21"
height="21" alt="Help"
+
onclick="javascript: help('advanced_search_main_info')"
+
style="cursor:pointer">
+ </div>
+ </td>
+ </tr></table></td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ </div>
+
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+<table width="97%" border="0" align="center" cellspacing="0" cellpadding="0"
bgcolor="#F9F8F4">
+ <tr>
+ <td><table width="80%" border="0" align="center" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td><!--TMPL_INCLUDE NAME="opac-dvdcategory.inc" --><br><br></td>
+ </tr>
+ </table></td>
+ </tr>
+</table>
+
+ <!--TMPL_INCLUDE NAME="bottomline.inc" -->
+<div id="bottombloc">
+
+<br>
+</div>
+<script type="text/javascript">
+function openDictionary(dict, term, target) {
+
+
+ if ((dict == 'any') || (dict == 'itemnotes')|| (dict ==
'identifier-standard')) {
+ alert("The selected field is not valid to search in the
dictionary.");
+
+ } else {
+
+ var dict_window =
window.open('/cgi-bin/koha/opac-dictionary.pl?dictionary=' + dict +
'&search='+term+'&target=' +
target,'_blanck','height=325,width=550,status=no,toolbar=no,menubar=no,location=no,resizable=no,top=100,left=100');
+ dict_window.focus();
+ }
+ }
+</script>
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-dvdsearchresults.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-dvdsearchresults.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-dvdsearchresults.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-dvdsearchresults.tmpl 26 Mar 2007
00:07:52 -0000 1.1.2.1
@@ -0,0 +1,396 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-facets.inc" -->
+ <hr width="760" size="1" class="style5">
+<table width="760" height="20" border="0" align="center" cellpadding="0"
cellspacing="0" bgcolor="#F9F8F4">
+ <tr>
+ <td bgcolor="#E8E4D9">
+ <div align="right">
+ <form
action="/cgi-bin/koha/changelanguage.pl" method="post" name="language"
style="margin:0px">
+ <select name="language" class="style6"
+ onchange="javascript:
document.language.submit()">
+ <option
value='en'>English
+ </option>
+ <option value='tr'
selected >
+ Türkçe
+ </option>
+
+ </select>
+ </form>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="opac-dvdmenu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Arama Sonuçları</td>
+ </tr>
+
+ <!-- TMPL_IF name="error" --><tr> <td bgcolor="#09B4D2"
class="style5">The server is too busy TRY AGAIN!</td></tr>
+<!-- TMPL_ELSE -->
+ <tr>
+ <td><table width="100%" border="0" align="left">
+ <tr>
+ <td><div align="center">
+ <p style="margin-top: 0; margin-bottom: 0"></div>
+ <div align="center">
+ <p style="margin-top: 0">
+
+
+
+
+ <!-- TMPL_LOOP
NAME="searchdesc" -->
+ Taranan Alanlar:
+ <span
class="style3">
+ |
+ <!--
TMPL_IF name="any" -->Tüm alanlar = <!-- TMPL_VAR name="any"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="author" -->Author = <!-- TMPL_VAR name="author"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="title" -->Title = <!-- TMPL_VAR name="title" --> | <!--
/TMPL_IF -->
+ <!--
TMPL_IF name="subject" -->Subject = <!-- TMPL_VAR name="subject"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="subject-heading" -->Subject = <!-- TMPL_VAR
name="subject-heading" --> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="isbn" -->ISBN = <!-- TMPL_VAR name="isbn" --> | <!--
/TMPL_IF -->
+ <!--
TMPL_IF name="publishercode" -->Publisher = <!-- TMPL_VAR name="publishercode"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="itemtype" -->Item type = <!-- TMPL_VAR name="itemtype"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="itemnotes" -->Gifted By = <!-- TMPL_VAR name="itemnotes"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="holdingbranch" -->In branch:<!-- TMPL_VAR name="holdingbranch"
--> | <!-- /TMPL_IF -->
+
+ <!-- /TMPL_LOOP
-->
+ </span><br>
+ Sonuçlar:
+ <span
class="style3">
+ <!--
TMPL_VAR NAME="totalresults" --> adet, toplam süre:<!-- TMPL_VAR
NAME="timetaken" --> saniye
+ </span>
<br><!-- TMPL_INCLUDE NAME="opac-dvdcategory.inc" -->
+ <!-- TMPL_IF
NAME="SUGGESTION" -->
+ You may
try these:
+ <!--
TMPL_LOOP NAME="SUGGESTION" -->
+ <span
class="style3">
+
<a
href='/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&serverid=-1&kohafield=<!--
TMPL_VAR NAME="kohafield" -->&field_value=<!-- TMPL_VAR NAME="value"
ESCAPE="URL" -->'
+
class="style3">
+
<!-- TMPL_VAR NAME="value" -->
+
</a>
+ </span>
+ |
<!--/TMPL_LOOP-->
+
+ <!-- /TMPL_IF
-->
+ </p>
+ </div>
+ </div>
+
+
+
+ <div align="center" class="style2">
+ <table border="0" cellpadding="2" cellspacing="2"
class="style6">
+<!-- TMPL_IF name="onlineloop" -->
+ <tr bgcolor="#06B4D2" class="style5">
+ <td class="style5" align="center">Database</td>
+ <td class="style5" align="center">Results</td>
+ <td class="style5" align="center">View</td>
+</tr>
+<tr bgcolor="#99cccc" >
+ <td>NEU Library Catalogue</td>
+ <td><!-- TMPL_VAR NAME="numrecords" --></td>
+ <td><a href="opac-dvdsearch.pl?op=do_search&zoom=1&serverid=-1<!--
TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!--
TMPL_VAR NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP -->&serverid=-1">View
results</a></td>
+ </tr>
+ <!-- TMPL_LOOP name="onlineloop" -->
+ <tr <!-- TMPL_IF
NAME="even"-->bgcolor="DEE5E7"<!--TMPL_ELSE-->bgcolor="#F2F0E9"<!-- /TMPL_IF
-->>
+ <td><!-- TMPL_VAR NAME="server" --></td>
+ <td><!-- TMPL_VAR NAME="numresults" --></td>
+ <td><a href='<!-- TMPL_VAR NAME="search_string" -->'
target="_blank">Click to view</a></td>
+
+
+ </tr>
+ <!-- /TMPL_LOOP -->
+</table>
+<br>
+ <a class="style1"
href="/cgi-bin/koha/opac-dvdsearch.pl">
+ New search
+ </a>
+<!--TMPL_ELSE-->
+ <tr bgcolor="#06B4D2" class="style5">
+ <!-- TMPL_IF
NAME="displayprev" -->
+ <td class="style5" align="center">
+ <p style="margin-top: 0; margin-bottom:
0">
+ <a
style="color:white"
href='/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="prevstartfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&serverid=-1&reorder=<!-- TMPL_VAR NAME="reorder" -->'
+
class="style5">
+
<<
+ </a>
+ </p>
+ </td>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_LOOP
NAME="numbers" -->
+ <!-- TMPL_IF
NAME="highlight" -->
+ <td
bgcolor="#999999" class="style5" align="center">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<!-- TMPL_VAR NAME="number" -->
+ </p>
+ </td>
+ <!-- TMPL_ELSE
-->
+ <td
class="style5" align="center">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<a style="color:white"
+
href='/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="startfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&pg=<!-- TMPL_VAR NAME="pg" -->&serverid=-1&reorder=<!-- TMPL_VAR
NAME="reorder" -->'
+
class="style5">
+
<!-- TMPL_VAR NAME=number -->
+
</a>
+ </p>
+ </td>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_LOOP -->
+
+ <!-- TMPL_IF
NAME="displaynext" -->
+ <td class="style5" align="center">
+ <p style="margin-top: 0; margin-bottom:
0">
+ <a
href='/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&serverid=-1&startfrom=<!--
TMPL_VAR NAME="nextstartfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!--
TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" ESCAPE="URL" --><!--
/TMPL_LOOP -->&reorder=<!-- TMPL_VAR NAME="reorder" -->'
+
class="style5">
+
>>
+ </a>
+ </p>
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table>
+ </div> <div align="right">
</div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <!-- TMPL_IF NAME="numrecords" -->
+
+ <tr>
+ <td>
+ <table width="100%" border="0" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td bgcolor="#F2F0E9">
+ <table height="20"
border="0" align="center" cellpadding="0" cellspacing="1">
+ <tr class="style14">
+ <td class="style4" width="5%"
align="center">
+
<img src="<!-- TMPL_VAR NAME="themelang" -->/../images/basket.gif" width="19"
height="16">
+ </td>
+ <td class="style2"
align="center">
+ <input type="button"
class="style2" value="Sepete ekle" onclick="addMultiple()"
style="border:0px;background-color:#F2F0E9;text-align:left">
+ </td>
+
+ <!-- TMPL_IF
Name="loggedinusername" -->
+ <!-- TMPL_IF
name="shelvescount" -->
+
<td class="style4" width="5%" align="center">
+ <img src="<!-- TMPL_VAR
NAME='themelang' -->/../images/book1.gif" width="16" height="16">
+
</td>
+
<td class="style2" align="center">
+
+
<input type="button" value="Add to my virtual shelves" class="style2"
+
style="border:0px;background-color:#F2F0E9;text-align:left;display:block;"
+
onclick="show_shelfPanel();">
+
+
<div class="shelf_panel" id="shelf_panel" style="display:none;">
+
<form name="shelf_form"
action="/cgi-bin/koha/opac-add-biblios-to-shelves.pl" method="post">
+ <input
type="checkbox" name="shelfnumber" value="-1" style="display:none;">
+
<input type="hidden" name="biblios" value="">
+
<input type="hidden" name="return_url"
value="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="startfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&serverid=-1">
+
<span class="style3">Select the one or more documents and the
shelves you want to add them.</span>
+
<table>
+
<!-- TMPL_LOOP name="shelves" -->
+
<tr>
+
<td>
+
<input type="checkbox"
name="shelfnumber" value="<!-- TMPL_VAR name="shelfnumber" -->">
+
</td>
+
<td>
+
<a class="style12"
href="/cgi-bin/koha/opac_shelves.pl?op=viewcontent&shelfnumber=<!-- TMPL_VAR
name="shelfnumber" -->"><!-- TMPL_VAR name="shelfname" --></a>
+
</td>
+
<td>
+
<!-- TMPL_VAR name="bibliocount" -->
documents
+
</td>
+
</tr>
+
<!-- /TMPL_LOOP -->
+
</table>
+
<div align="right" class="style5">
+
<input type="button"
onclick="addBibliosToShelves()" value="Add" class="style5"
style="border:0px;background-color:#4898B0;height:20px;">
+
</div>
+
+
</form>
+
</div>
+
</td>
+
<!-- /TMPL_IF -->
+ <!-- /TMPL_IF
-->
+
+ <td
class="style4" width="5%" align="center">
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/erase.gif" width="15" height="15">
+ </td>
+ <td class="style2"
align="center" >
+
<input type="button" value="Tümünü temizle" class="style2"
onclick="document.myform.reset()"
style="border:0px;background-color:#F2F0E9;text-align:left">
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ <form name="myform" action="" style="margin:0px">
+ <table width="100%" border="0" cellpadding="2"
cellspacing="1" bordercolor="#DCD9CF" bgcolor="#DCD9CF">
+ <tr bgcolor="#DCD9CF">
+ <td width="18" bgcolor="#DCD9CF"><div
align="center"></div></td>
+ <td width="10" bgcolor="#DCD9CF"> </td>
+ <td bgcolor="#DCD9CF" class="style1"><div
align="center"><a href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search<!--
TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!--
TMPL_VAR NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&reorder=title,2&serverid=-1">â¼</a>Eser Adı <a
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&reorder=title,1&serverid=-1">â²</a></div></td>
+ <td align="center" class="style1"><div align="center"><a
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&reorder=author,2&serverid=-1 ">â¼</a>Yazar<a
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&reorder=author,1&serverid=-1">â²</a></div></td>
+ <td align="center">Yayınevi</td>
+ <td align="center">Basım</td>
+ <td align="center" class="style1"><div align="center"><a
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&reorder=local-number,2&serverid=-1 ">â¼</a>Raf<a
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&reorder=local-number,1&serverid=-1">â²</a></div></td>
+ <td align="center">Yeri</td>
+ <td align="center"><div align="center"></div></td>
+ </tr>
+ <input type="checkbox" name="bibid" value="0"
style="display:none">
+ <!-- TMPL_LOOP NAME="SEARCH_RESULTS" -->
+ <tr <!-- TMPL_IF NAME="even" --> bgcolor="DEE5E7"<!--
TMPL_ELSE -->bgcolor="#F2F0E9"<!-- /TMPL_IF -->>
+ <td width="18" align="center" valign="middle"><!-- TMPL_IF
NAME="totalissues" --><!--TMPL_VAR NAME="totalissue" --><!-- /TMPL_IF -->
+ <div align="center">
+ <a
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionumber"
ESCAPE="URL" -->"><img src='<!--TMPL_VAR NAME="coverphoto"-->' width="60"
height="90"></a>
+ </div>
+ </td>
+ <td width="10" align="center" valign="middle">
+ <input type="checkbox"
name="bibid" value='<!-- TMPL_VAR NAME="biblionumber" -->'>
+ </td>
+ <td width="220px">
+ <!-- TMPL_IF NAME="color-id" -->
+ <span style='color:<!--
TMPL_VAR NAME="color-id" -->'>
+ <!-- TMPL_ELSE -->
+ <span class="style3">
+ <!-- /TMPL_IF -->
+
+ </span>
+ <a class="style1"
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionumber"
ESCAPE="URL" -->">
+ <!-- TMPL_VAR
NAME="title" -->
+ </a>
+ <br>
+ <!-- TMPL_IF NAME="subtitle"
--><!-- TMPL_VAR NAME="subtitle" --><br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="isbn"
-->ISBN: <!-- TMPL_VAR NAME="isbn" --> <!-- /TMPL_IF -->
+ </td>
+ <td align="center" class="style2"
+ width="110px">
+ <div align="left">
+ <!-- TMPL_IF
NAME="author" -->
+ <a
class="style1"
+
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&kohafield=author&field_value=<!--
TMPL_VAR NAME="author" ESCAPE="URL" -->&serverid=-1">
+ <!--
TMPL_VAR NAME="author" -->
+ </a><br>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_LOOP
NAME="additionalauthors" -->
+ <a
class="style1"
href="/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&kohafield=author&field_value=<!--
TMPL_VAR NAME="value" ESCAPE="URL" -->&serverid=-1">
+ <!--
TMPL_VAR NAME="value" -->
+ </a><br>
+ <!-- /TMPL_LOOP -->
+ </div>
+ </td>
+ <td align="center" class="style2">
+ <!-- TMPL_VAR
NAME="publishercode" -->
+ </td>
+ <td align="center" class="style2">
+ <!-- TMPL_IF
NAME="publicationyear" -->
+ <!-- TMPL_VAR
NAME="publicationyear" -->
+ <!--TMPL_ELSE-->
+ <!-- TMPL_VAR
NAME="copyrightdate" -->
+ <!-- /TMPL_IF -->
+ </td>
+ <td align="center" class="style2">
+ <a href="javascript:
locationonly('<!-- TMPL_VAR NAME="classification" -->','<!-- TMPL_VAR
name="location-only" -->');"><!-- TMPL_IF NAME="classification" --> <!--
TMPL_VAR NAME="classification" --> <!-- TMPL_VAR NAME="subclass"
--><!--TMPL_ELSE-->?<!-- /TMPL_IF --></a>
+ </td>
+ <td align="center" class="style2">
+ <!-- TMPL_IF NAME="on-loan-p"
--> <!-- TMPL_VAR NAME="on-loan-p" --> - On loan <br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="lost-p" --> <!--
TMPL_VAR NAME="lost-p" --> - Lost <br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="not-available-p"
--> <!-- TMPL_VAR NAME="not-available-p" --> - Not for loan <br> <!-- /TMPL_IF
-->
+ <!-- TMPL_IF name="location-only" -->
+ <!-- TMPL_VAR
name="location" -->
+ <!-- TMPL_ELSE -->
+ -
+ <!-- /TMPL_IF -->
+ </td>
+ <td align="center" class="style2">
+ <div align="center">
+ <!-- TMPL_IF
NAME="noitems" -->
+ -
+ <!-- TMPL_ELSE -->
+ <!-- TMPL_IF
NAME="norequests" -->
+ Not for
loan
+ <!-- TMPL_ELSE
-->
+ <!--
TMPL_IF NAME="on-loan-p" -->
+ <a
class="style1"
+
href="/cgi-bin/koha/opac-reserve.pl?bib=<!-- TMPL_VAR NAME="biblionumber"
ESCAPE="URL" -->">
+
Reserve
+
<!--TMPL_ELSE-->
+ <!--
TMPL_UNLESS NAME="withdrawn-p" --> Available<!--TMPL_ELSE-->Under
repair<!--/TMPL_UNLESS-->
+ <!--
/TMPL_IF -->
+ </a>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_IF -->
+ </div>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </form>
+ </td>
+ </tr>
+
+
+ <tr>
+ <td> <table border="0" cellpadding="2"
cellspacing="2" class="style6"
+ align="center">
+ <tr bgcolor="#06B4D2" class="style5">
+
+ <!-- TMPL_LOOP
NAME="numbers" -->
+ <!-- TMPL_IF
NAME="highlight" -->
+ <td
bgcolor="#999999" class="style5">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<!-- TMPL_VAR NAME="number" -->
+ </p>
+ </td>
+ <!-- TMPL_ELSE
-->
+ <td
class="style5">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<a style="color:white"
+
href='/cgi-bin/koha/opac-dvdsearch.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="startfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" ESCAPE="URL" --><!-- /TMPL_LOOP
-->&pg=<!-- TMPL_VAR NAME="pg" -->&serverid=-1&reorder=<!-- TMPL_VAR
NAME="reorder" -->'
+
class="style5">
+
<!-- TMPL_VAR NAME=number -->
+
</a>
+ </p>
+ </td>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_LOOP -->
+
+ </tr>
+
+ </table>
+ <p align="center">
+ Sonuçlar
+ <span class="style3"><!-- TMPL_VAR
NAME="starting" --></span>
+ -
+ <span class="style3"><!-- TMPL_VAR
NAME="ending" --></span>
+ of <span class="style3"><!-- TMPL_VAR
NAME="numrecords" --></span>
+ records.<br>
+ <a class="style1"
href="/cgi-bin/koha/opac-dvdsearch.pl">
+ Yeni tarama
+ </a>
+ |
+ <a class="style1"
+
href="/cgi-bin/koha/opac-dvdsearch.pl?flags=1<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" ESCAPE="URL"
--><!-- /TMPL_LOOP -->">
+ Ãnceki taramaya dön
+ </a>
+ </p>
+
+
+
+
+ </td>
+ </tr>
+ <!-- TMPL_ELSE -->
+ <!-- /TMPL_IF -->
+
+ </table></td>
+<!-- /TMPL_IF -->
+
+ </tr>
+ </table>
+<!-- /TMPL_IF --><!--error-->
+</tr>
+</table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+
+<!-- TMPL_INCLUDE NAME="opac-dvdsearchbottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-electronic.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-electronic.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-electronic.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-electronic.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,427 @@
+<!--TMPL_INCLUDE NAME="opac-top.inc"-->
+<script language="JavaScript">
+ function showAbstract(bib) {
+ var win =
window.open('/cgi-bin/koha/opac-link-abstract.pl?biblionumber=' +
bib,'_blanck','height=325,width=550,status=no,toolbar=no,menubar=no,location=no,resizable=yes,top=100,left=100,scrollbars=yes');
+ win.focus();
+ }
+
+function oplin(topic) {
+ var oplin_window =
window.open('http://search3.webfeat.org/cgi-bin/webfeat.dll?Command=Search&BypassSessData=yes&noserial=1&Databases=wf_elibrary2_e,wf_ebonline,wf_masterfileprem,wf_newspapersource&wf_cat=0&Client_ID=oplin&wf_all_years=yes&wf_field1=wf_keyword&rurl=http%3A//www.library.neu.edu.tr/&wut_code=OH0156&wf_term1='
+ topic
,'_blanck','height=600,width=600,status=no,toolbar=yes,menubar=no,location=no,resizable=yes,top=0,left=0,scrollbars=1');
+ oplin_window.focus();
+ }
+</script>
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="menu.inc" -->
+ <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0"
align="center" cellpadding="0" cellspacing="4">
+ <tr>
+ <td height="50" valign="middle" background="<!-- TMPL_VAR
NAME="themelang" -->/../images/library5.jpg" class="style22"><div
align="center" class="style9">
+ <div align="left">
+ <table width="550" border="0" align="center"
cellpadding="1" cellspacing="0">
+ <tr>
+ <td class="style9">Elektronik veri tabanları</td>
+ </tr>
+ </table>
+ </div>
+ </div></td>
+ </tr>
+ <tr>
+ <td>
+ <table width="550" border="0" align="center"
cellpadding="1" cellspacing="0">
+ <tr>
+ <td class="style9">
+
+ <table width="550" border="0" align="center"
cellpadding="2" cellspacing="2" bgcolor="#F8F7F3">
+ <tr>
+ <td class="style4" bgcolor="#DCD9CF">Yabancı gazete ve
dergilerden <input type="text" name="wf_term1"><a href="#"
onclick="javascript:oplin(document.getElementById('wf_term1').value)">
Ara</a></td>
+ </tr>
+
+
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_affiliated"-->Abone olunan elektronik
veritabanları<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_affiliated" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+<tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_trial"-->Deneme Veritabanları<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_trial" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_social"-->Sosyal Bilimler<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_social" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_economy"-->Ekonomi & Politika<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_economy" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_computer"-->Bilgisayar Bilimleri<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_computer" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_maths"-->Matematik, Fizik, Kimya<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_maths" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_health"-->SaÄlık ve Tıp<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_health" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_general"-->Disiplinlerarası<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_general" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+ <tr>
+ <td class="style22" bgcolor="#DCD9CF"><!--TMPL_IF
NAME="opac_electronic_other"-->DiÄerleri<!--/TMPL_IF-->
+ <tr>
+
+
+ <td valign="top">
+ <!-- TMPL_LOOP name="opac_electronic_other" -->
+ <table width="100%" border="0"
align="center" cellpadding="0" cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td height="20"
colspan="2" <!-- TMPL_IF NAME="image" -->bgcolor="#DCD9CF"<!--/TMPL_IF-->>
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style5"><a class="style4" href="<!-- TMPL_VAR NAME="href" -->"
target="_blank"><!-- TMPL_VAR NAME="title" --></a></td>
+
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730" class="style8">
+ <!-- TMPL_VAR
NAME="edata" -->
+ </td>
+ <td width="10"
class="style5"><a href="<!-- TMPL_VAR NAME="href" -->" target="_blank"><!--
TMPL_IF NAME="image" --><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/<!-- TMPL_VAR NAME="image" -->"
border="0"><!--/TMPL_IF--></a></td>
+
+ </tr>
+
+ </table>
+
+ <!-- /TMPL_LOOP -->
+ </td></tr>
+
+
+
+
+
+ </td>
+
+ </tr>
+
+
+ </table>
+
+
+ <tr><td><a class="style8"><b>Åifre</b> bilgileri için
<b>dahili 526 & 536</b>'den kütüphaneye baÅvurunuz.</a></td></tr>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+</table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-full-serial-issues.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-full-serial-issues.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-full-serial-issues.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-full-serial-issues.tmpl 26 Mar 2007
00:07:52 -0000 1.1.2.1
@@ -0,0 +1,64 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+
+<!-- TMPL_UNLESS name="popup" -->
+ <h1 class="catalogue">Subscription information for biblio #<!--
TMPL_VAR NAME="biblionumber" --> with title : <!-- TMPL_VAR name="bibliotitle"
--></h1>
+ <a href="opac-detail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->"
class="button catalogue">Back to biblio</a>
+<!-- /TMPL_UNLESS -->
+ <div class="tabsubs">
+ <!-- TMPL_LOOP NAME="years" -->
+ <!-- TMPL_IF NAME="year" -->
+ <a class="tabsubs" href="javascript:active(<!--
TMPL_VAR NAME="year" -->)"><!-- TMPL_VAR NAME="year" --></a>
+ <!-- /TMPL_IF -->
+ <!-- /TMPL_LOOP -->
+ <a class="tabsubs" href="opac-serial-issues.pl?biblionumber=<!--
TMPL_VAR name="biblionumber" -->&selectview=small">Compact view</a>
+ </div>
+
+ <!-- TMPL_LOOP NAME="years" -->
+ <div name="<!-- TMPL_VAR NAME="year" -->" id="<!-- TMPL_VAR NAME="year"
-->" class="tabsub" <!--TMPL_IF Name="first"
-->style="visibility:visible"<!--/TMPL_IF -->>
+ <table>
+ <tr>
+ <th> Date
+ </th>
+ <th> Number
+ </th>
+ <th> Status
+ </th>
+ </tr>
+ <!-- TMPL_LOOP Name="serials" -->
+ <tr>
+ <td>
+ <!-- TMPL_VAR Name="planneddate" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR Name="serialseq" -->
+ </td>
+ <td>
+ <!-- TMPL_IF Name="status1"
-->Arrived<!-- /TMPL_IF -->
+ <!-- TMPL_IF Name="status2"
-->Waited<!-- /TMPL_IF -->
+ <!-- TMPL_IF Name="status3" -->Late<!--
/TMPL_IF -->
+ <!-- TMPL_IF Name="status4"
-->Missing<!-- /TMPL_IF -->
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </div>
+ <!--/TMPL_LOOP -->
+<script language="JavaScript" type="text/javascript">
+active(<!-- TMPL_VAR name="yearmin" -->);
+function active(numlayer)
+{
+ for (i=<!--TMPL_VAR Name="yearmin"-->; i<=<!--TMPL_VAR
Name="yearmax"-->; i++ ) {
+ ong = i;
+ link = "link"+i;
+ if (numlayer==i) {
+ document.getElementById(ong).style.visibility="visible";
+ } else {
+ document.getElementById(ong).style.visibility="hidden";
+ }
+ }
+}
+
+</script>
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-index.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-index.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-index.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-index.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,81 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+
+ <!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">YDà Büyük Kütüphane
Müdürü Tümer B. Garip'le söyleÅi</td>
+ </tr>
+<tr><td>
+<p align="center"><span><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/neukutuphane.jpg"></span></td>
+</tr>
+ <tr>
+ <td align="center">
+ <p class="MsoNormal" align="justify"><b>
+ <span lang="EN-GB" style="font-size: 10.0pt; font-family: Arial">
+ <img border="0" src="<!-- TMPL_VAR NAME="themelang"
-->/../images/tumer.jpg" align="left" width="120" height="169">Ãniversitenizin
yeni kütüphane ve kültür kompleksinin açılması, büyük bir ilgiyle
karÅılandı.
+Neydi bu ilginin nedeni?
+<br>
+ </span></b><span l style="font-size: 10.0pt; font-family:
Arial">Yakın DoÄu Ãniversitesi 15 yıllık kısa geçmiÅiyle yaptıÄı
halka açık yatırımlarla hep dikkati çekti. Atatürk Kültür ve Kongre
Merkezi, Olimpik kapalı havuz, SaÄlık ve Spor Merkezi bunlardan bazıları.
Bunlar hep küçük küçük eksikleri giderdi. Ama bu kez yaratılan
Kütüphane ve Kültür kompleksiyle hem boyutları hem de iÅleviyle önemli
bir ilke imza atıldı.
+Yalnızca Kıbrısâta deÄil bölgenin de sayılı bilgi merkezlerinden biri
olacak bu kompleks bir yandan Kıbrıs Türk toplumunu dünyaya baÄlarken
diÄer yandan yabancı araÅtırmacıların da giderek Kıbrısâa artan
ilgilerine yanıt verebilecek.
+Bu da bizleri olduÄu kadar toplumumuzu da heyecenlandırıyor ve
gururlandırıyor. Basına yaptıÄımız tanıtımın da Kuzey Kıbrısâtaki
en kalabalık basın toplantılarından biri olması da bunun göstergesi
+</span>
+ <p class="MsoNormal" align="justify"><b>
+ <span style="font-size:10.0pt;font-family:Arial">Neler sunuyor bu
kütüphane ve kültür kompleksi öÄrencilere ve Kuzey Kıbrıs halkına?<br>
+ </span></b><span style="font-size:10.0pt;font-family:Arial">
+ 15,000 m2 kapalı alan üzerindeki bu devasa kompleks sadece boyutlarıyla
deÄil sunduÄu ve hedeflediÄi hizmetlerle de dünya standartlarını adamıza
taÅıyor. Ãnce rakamsal boyutlar verirsek kütüphane 250,000 adet açık raf
sisteminde kitap kapasitesine sahip. 50,000âden fazla elektronik dergi, 4000
DVD, 16 film izleme kabini, 100 bilgisayar, 14 bireysel ve grup çalıÅma
odası, 1000 kiÅilik 4 amfitiyaro, 350 kiÅilik tiyatro sahnesi, 600 kiÅilik
kafeterya ve 600 kiÅilik çalıÅma masasıyla dünya standartlarında bir
kültür ve bilgi eriÅim merkezi.
+24 saat açık bu kompleksden herkes, özellikle vurguluyorum herkes yani tüm
toplum ücretsiz olarak yararlanabiliyor.
+<img border="0" src="<!-- TMPL_VAR NAME="themelang" -->/../images/amfi.jpg"
align="right" width="200" height="150">
+ Günümüzün en son elektronik teknolojisi ile donatılmıŠbu merkezi
bilgiye eriÅimde evinizden internet aracılıÄıyla kullanabiliyorsunuz.
Hatta kampüs içerisindeyseniz telsiz iletiÅim hatlarımız sayesinde
bahçede güneÅlenirken bile kullanmanız mümkün.
+Kütüphanelicilik kavramı dünyada artık çok geliÅti. Sadece uÄrayıp
kitap ödünç aldıÄınız yerler deÄil kütüphaneler. Bilgi dünyasında
sizi bilgiye baÄlayan merkezler olarak iÅlev yapıyorlar. Biz iÅte bu
anlayıÅla hizmetler geliÅtirip sunuyoruz. Yani bir yandan akademik yaÅamın
istek ve beklentilerine yanıtlar üretiyoruz diÄer yandan toplumun geniÅ
kesimlerine, meslek dallarına, gerek sivil gerek devlet kurumlarına hizmet
götürmeye çalıÅıyoruz. Referans servisimiz bir süre sonra gerek telefon
gerek internet hatta belki SMS üzerinden bile ulaÅılabilecek. Böylelikle
Åimdilik sadece akademisyen ve araÅtırmacıya verdiÄimiz bu servisi tüm
toplum bireylerine de ulaÅtırmıŠolacaÄız. Bu servise ulaÅıp âacaba
cumhurbaÅkanımız kaç yaÅındaâ diye sorabileceÄiniz gibi AB
müfredatında sizi ilgilendiren bir konuyu da sorabileceksiniz.
+
+Bir yandan hizmetlerimizi geliÅtirirken diÄer yandan hedeflediÄimiz
kolleksiyon rakamları da dünyasal boyutlarda. 250,000âlik açık raftaki
kolleksiyonumuzu önümüzdeki 10 yılda 1,500,000âlik bir kitap
kolleksiyonuna dönüÅtürme hedefimiz var. Bunları kullanıcıya
sunacaÄımız kapalı raf sistemi depolarımız Åimdiden hazır. O güne
geldiÄimizde dünyanın sayılı kütüphanelerinden olacaÄımıza
inanıyoruz.
+</span></p>
+ <p class="MsoNormal" align="justify"><b>
+ <span style="font-size:10.0pt;font-family:Arial">Büyük bir yatırım
söz konusu mutlaka. Amacınız neydi bu projeyi oluÅtururken?
</span></b><span style="font-size:10.0pt;font-family:Arial"><br>
+ <img border="0" src="<!-- TMPL_VAR NAME="themelang"
-->/../images/CAFETERia.jpg" align="left" width="200" height="166">Kapıyı
açtıÄımız Aralık 2005âde 25 milyon dolarlık bir yatırım
yapmıÅtık. Yakın DoÄu Ãniversitesiânin kurucu rektörü Dr. Suat Ä°.
Günsel hayal etti bu projeyi. Bizleri ziyaret eden bir yabancı diplomatın
sözleriyle anlatırsam âKıbrıs tarihte medeniyetin hep beÅiÄi
olmuÅturâ demiÅti. Bu deyiÅi bugün yeniden hayata geçirmek hedefi
seçildi.G eçtiÄimiz yarım asırdır adada yaÅanan sorunların toplumda
yarattıÄı bıkkınlık ve yılgınlıÄı kırmak, yeniden medeniyetin
beÅiÄi olabileceÄimizi kanıtlamak hayaliyle çıkıldı yola. Tabii bir de
geliÅmiŠülkelerin gittikleri yön var. Hangi alanda olursa olsun rekabet
edebilmek için bilgiyi, know-howâı hızlı eriÅilebilir, rafine
eriÅebilir hale getirmeniz lazım.
+Tüm bunların bileÅiminden çıkıldı yola. Nüfusu küçük ama geliÅmiÅ
ülkelerin kütüphaneleri incelendi (özellikle İskandinav ülkeleri)
iÅlevleri onlardan esinlendi. Bina tasarımına dek bu iÅlevler Kıbrısâa
göre geliÅtirilerek yola çıkıldı. Ãrnek verecek olursam, mimari olarak
bina barıÅı simgelesin isteniyordu. Tasarımı bu nedenle deÄiÅik mimari
tarzlarının bileÅimi olarak yapıldı. Heybetli yapısı Åu anda girenleri
etkiliyor hatta tekrar gelmek istemeleri için baÄımlılık yapıyor
diyebilirim. İçerisinde tiyatro sahneleri, uydu baÄlantılı video konferans
salonları yine bu kültür ve bilgi kompleksi kavramı anlayıÅına uygun
olarak tasarlandı.
+
+Hizmetlere gelince yine bu ülkelerin deneyimlerinden yararlanarak sadece bir
akademik araÅtırma kütüphanesi deÄil tüm topluma hizmet verecek bir yapı
oluÅturuldu. Avrupa yolunda yürüyen bir toplumun her türlü bilgi
ihtiyacına karÅılık verecek eriÅimi saÄlamak hedeflendi.
+
+Küçük bir toplumda devlet olanaklarının zorlanacaÄını düÅünürsek
bir anlamda dünya standartlarında bir milli kütüphane iÅlevlerini yerine
getirebilecek yapı hedeflendi.
+</span></td>
+ </tr>
+ <tr>
+ <td align="center">
+ <p class="MsoNormal" align="justify">
+ <span lang="EN-GB"
style="font-size:10.0pt;font-family:Arial"> </span><b><span
style="font-size:10.0pt;font-family:Arial">Oldukça zahmetli ve kapsamlı bir
çalıÅma süresi geçirmiÅ olmalısınız. Ne zaman baÅladı proje ve
kimler, nasıl yürüttü hazırlıÄı?<br>
+ </span></b><span style="font-size: 10.0pt; font-family: Arial">
+ <img border="0" src="<!-- TMPL_VAR NAME="themelang"
-->/../images/circ.jpg" align="right" width="150" height="107">
+5 yıl önce yola çıkıldı. İlk etapta 10 yıllık bir proje
hedefleniyordu. Ama geliÅen yerel ve uluslarası koÅullar böyle bir yere
ihtiyacı daha acil kıldıÄı için 5 yılda tamamlandı.
+Sadece binayı bitirmek yetmiyordu. Burayı yönetebilecek, hizmetleri
sunabilecek çekirdek bir kadro gerekiyordu. Kıbrısâta bilgi-belge
yönetimi eÄitimi almıŠbir elin parmaÄından az insan var.
+Bu nedenle bir buçuk yıl önce 50 personel istihdam edildi. Bunlar tam
zamanlı yoÄun bir eÄitim programına alındı. Türkiyeâden bu konuda
dünyaca isim yapmıŠeÄitmenler getirildi. Adadaki ilk Bigi ve Belge
Yönetimi Bölümü Prof. Aysel Yontar baÅkanlıÄında kuruldu. Yönetici
personel ayrıca Türkiyeânin gözde kütüphanelerinde eÄitime yollandı.
+Bir yandan eÄitim verildi diÄer yandan üniversitenin varolan kolleksiyonu
Amerikan Kongre Kütüphanesi kurallarına göre sınıflandırılıp
bilgisayara aktarıldı.
+
+Biz bugün kütüphaneyi açtık ama sürekli eÄitim anlayıÅımız
sürüyor. Dünyanın en büyük Amerikan Kongre Kütüphanesinâde eÄitim
olanaklarını araÅtırıyoruz. DiÄer yandan da dünyada bir ilke imza atarak
kütüphane bünyesinde kurduÄumuz Bilgi ve Belge Yönetimi bölümünde
Master programı baÅlattık. Bir yandan hem kendi personelimizi eÄitirken
diÄer yandan toplumun diÄer kesimlerine de bu konularda uzmanlaÅmıÅ
elemanlar yetiÅtireceÄiz.
+ </span>
+ <p class="MsoNormal" align="justify"><b><span lang="EN-GB"
style="font-size:10.0pt;font-family:Arial">Ne tür zorluklar yaÅandı? Amaca
ulaÅıldıÄını düÅünüyor musunuz? </span></b>
+ <span lang="EN-GB" style="font-size:10.0pt;font-family:Arial"><br>
+ En büyük zorluk yine biraz önce söylediÄim insan faktörü. Bu
uzmanlık dalında yetiÅmiÅ eleman olmaması en zorlayıcı yan oldu. Ama
bunu aÅtık hatta Åu anda güçlü yanlarımızdan biri oldu diyebilirim.
Åöyle ki istihdam ettiÄimiz elemanlar çok deÄiÅik üniversite
dallarından geliyorlar. Bilgisayar mühendisinden çevre mühendisine, Türk
dili ve edebiyatından Ä°ngilizce öÄretmenliÄine kadar çok geniÅ bir
yelpazeyi kapsıyor. Bu handikap olabilir diye düÅünülürken getirdiÄi
çeÅitlilik ve dinamizm Åimdi akademik bir tartıÅma konusu oldu. Sanırım
bu deneyimimiz ve kuruluŠsürecinde yaptıklarımız uluslarası literatürde
yer alacak</span></p>
+ <p class="MsoNormal" align="justify"><b>
+ <span style="font-size:10.0pt;font-family:Arial">Ortaya çıkartılan bu
önemli eserle ilgili gerek öÄrencilere, gerekse ada halkına son olarak ne
söylemek istersiniz?<br>
+ </span></b><span style="font-size:10.0pt;font-family:Arial">
+ Biz bu dev kompleksi hizmete açarken çeÅitli rakamsal hedefler
önümüze koyuyorduk. Kaç kiÅinin kullanacaÄı, hangi hizmetleri hangi
zaman baÅlatacaÄımız gibi. <img border="0" src="<!-- TMPL_VAR
NAME="themelang" -->/../images/OPAC.JPG" align="left" width="200"
height="142">Beklentilerimizin çok ötesinde inanamadıÄımız sayılarla
karÅılaÅtık. 4 haftalık kullanım istaistiklerimiz günde ortalama 5000
kullanıcı olarak görünüyor toplam 105,000 kiÅi. Bu rakam bazı günler
5600 kiÅiye ulaÅıyor. Buna biz de inanamadık. Biz 24 saat açıÄız.
Geceleyin kullanıcılara süreç içerisinde hizmet sunarız diyorduk. Bu da
öyle olmadı, geceyarısı ile sabah 8 arası ortalama 500 kiÅi kütüphaneyi
kullanıyor ve bu rakam giderek artıyor.
+Åimdilik kullananların çoÄu öÄrenci ve öÄretim üyesi. Ama yalnızca
Yakın DoÄuânun öÄrencisi deÄil. DiÄer üniversite öÄrencisi de var.
+
+Sanıyorum tüm hizmetlerimizin halka da açık ve de ücretsiz olduÄunu
duyuramadık. Oysa sadece bir kez kütüphaneye gelip kayıt olmaları yeterli.
Ondan sonra yabancı dergi ve günlük gazeteleri evlerinden de
izleyebilecekler, kitap DVD ayırtabilecekler. AlıÅkın olmadıklarından
çekingen davranıyor da olabilirler. Ama ben hiçbirÅey yapmayacak olsanız
dahi bir kez olsun gelin diyorum. Binamızı, yaptıklarımızı
gördüÄünüzde bir Kıbrıslı Türk olarak gurur duyacaklarından eminim.
+
+Hatta Türkiye Büyükelçisi bu yapıtı adaya gelen her turiste mutlaka
gezdirmek lazım demiÅti. Ziyarete gelen her ülke büyükelçisi benzeri
sözler söyledi, hayranlıÄını gizleyemedi. Bu gururu paylaÅmak için bile
olsa tüm halkımızı bekliyoruz.
+</span><span style="font-size:10.0pt;font-family:Arial">***</span><span
lang="EN-GB" style="font-size: 10.0pt; font-family: Arial"><br>
+ </span><span style="font-family: Arial; font-weight: 700"><font size="1">
+ Caretta Dergisi - Åubat 2006 - Kemal ArmaÄan</font></span></td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-infrastructure.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-infrastructure.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-infrastructure.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-infrastructure.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,467 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+"http://www.w3.org/TR/html4/loose.dtd";>
+<html>
+<head>
+<title><!--TMPL_VAR NAME='LibraryName'--></title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+
+<link href="<!-- TMPL_VAR NAME="themelang" -->/includes/opac.css"
rel="stylesheet" type="text/css">
+<script language="JavaScript" >
+
+function show(element, img) {
+ var block = document.getElementById(element);
+ if (block.style.display == 'none') {
+ block.style.display = 'inline';
+ img.src = '<!-- TMPL_VAR NAME="themelang"
-->/../images/minus.gif';
+ } else {
+ block.style.display = 'none';
+ img.src = '<!-- TMPL_VAR NAME="themelang"
-->/../images/plus.gif';
+ }
+ }
+
+ function showPanel(element) {
+ var block = document.getElementById(element);
+ var image = document.getElementById('img' + element);
+ if (block.style.display == 'none') {
+ block.style.display = 'inline';
+ image.src = '<!-- TMPL_VAR NAME="themelang"
-->/../images/minus.gif';
+ }
+ }
+
+</script>
+</head>
+
+<body >
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="menu.inc" -->
+ <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0"
align="center" cellpadding="0" cellspacing="4">
+ <tr>
+ <td height="50" valign="middle" background="<!-- TMPL_VAR
NAME="themelang" -->/../images/library5.jpg" class="style22"><div
align="center" class="style9">
+ <div align="left">
+ <table width="550" border="0" align="center"
cellpadding="1" cellspacing="0">
+ <tr>
+ <td class="style9">Yapimiz</td>
+ </tr>
+ </table>
+ </div>
+ </div></td>
+ </tr>
+ <tr>
+ <td><table width="550" border="0" align="center"
cellpadding="1" cellspacing="0">
+ <tr>
+ <td class="style9"><span class="style21">Yönetim</span><br>
+
+<!--Library Director -->
+
+
+ <span class="style3"> Müdür</span><br>
+ <span class="style1"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9"> Tümer B.
Garip</span><span class="style8"> | </span><span class="style1"> <a
href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ <br>
+
+<!--Director Assistant -->
+
+
+ <span class="style3"> Müdür Asistani:</span><br>
+ <img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/blue_right.gif" width="11" height="9"> Yeliz
Degirmenci</span><span class="style8"> | </span><span class="style1"> <a
href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ </span>
+
+<!--Coordinators -->
+
+
+ <p class="style1"> <span
class="style3">Kordinatörler: <br>
+ </span>
+
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9"> Personel
Genel Koordinatörü: Ismet Aksular<span class="style8"> | </span><span
class="style1"> <a href="mailto:address@hidden";
class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9">
Kolleksiyon Genel Koordinatörü: Melek Sunalp<span class="style8"> |
</span><span class="style1"> <a href="mailto:address@hidden";
class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9"> Ãdünç
Verme: Cansev Sakallizade<span class="style8"> | </span><span class="style1">
<a href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9">
Otomasyon: Suat Donangil<span class="style8"> | </span><span class="style1"> <a
href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9">
Kolleksiyon: Emre Karahasan<span class="style8"> | </span><span class="style1">
<a href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/blue_right.gif" width="11" height="9"> Raflama: Kagan Atamer<span
class="style8"> | </span><span class="style1"> <a href="mailto:address@hidden";
class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/blue_right.gif" width="11" height="9"> Ä°dari
Ä°Åler: Güldem Ãivi<span class="style8"> | </span><span class="style1"> <a
href="mailto:address@hidden"; class="style3">address@hidden</a></p>
+
+ <p class="style1"> <span class="style3">Kordinatör
Asistanlari: <br>
+ </span>
+
+
+<!--Coordinator Assistants Starts-->
+
+
+
+ <img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/blue_right.gif" width="11" height="9"> Kolleksiyon: Edim
Macila<span class="style8"> | </span><span class="style1"> <a
href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/blue_right.gif" width="11" height="9"> Referans: Nahide
Yakup<span class="style8"> | </span><span class="style1"> <a
href="mailto:address@hidden"; class="style3">address@hidden</a><br>
+ <img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/blue_right.gif" width="11" height="9"> Reserv: Ekrem DaniÅ<span
class="style8"> | </span><span class="style1"> <a href="mailto:address@hidden";
class="style3">address@hidden</a><br></p>
+ </td>
+
+</tr>
+
+
+<!--Coordinator Assistants Ends-->
+
+
+ <tr>
+ <td class="style9"><hr size="1" noshade class="style2"></td>
+ </tr>
+
+
+<!-Personnel Starts-->
+
+ <tr>
+ <td class="style9"><p class="style1"><span
class="style21">Personel<br>
+ </span><span class="style3">Kütüphane servislerine göre
kütüphane çalisanlari</span></p>
+ <blockquote>
+ <table width="100%" border="0"
+ style="border-collapse: collapse">
+
+
+
+
+<!--Administration Starts-->
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("admin", this)' src='<!-- TMPL_VAR NAME="themelang"
-->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Ä°dari
+
+ </td>
+ </tr>
+ </table>
+ <span id='admin'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
AyÅe KiÅmir<br>
+
Eylem Altan<br>
+
Ulas Takar<br>
+
Vijdan Altiparmak<br>
+
+
</a>
+
+
</blockquote>
+ </span></td>
+ </tr>
+<!--Administration Ends-->
+<!--Automation Starts-->
+
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("automation", this)' src='<!-- TMPL_VAR NAME="themelang"
-->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Otomasyon
+
+ </td>
+ </tr>
+ </table>
+ <span id='automation'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
AyÅe Karahüseyin<br>
+
Alçin Imsel<br>
+
Hüseyin Dalili<br>
+
+
</a>
+
+
</blockquote>
+ </span></td>
+ </tr>
+
+<!--Automation Ends-->
+<!--Circulation Starts-->
+
+
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("circulation", this)' src='<!-- TMPL_VAR
NAME="themelang" -->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Ãdünç Verme
+
+ </td>
+ </tr>
+ </table>
+ <span id='circulation'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
Suna KorukoÄlu<br>
+
Nurcan Albayrak<br>
+
+
</a>
+
</blockquote>
+
+ </span></td>
+ </tr>
+<!--Circulation Ends-->
+<!--Collections Starts-->
+
+ <tr>
+ <td style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("Collections", this)' src='<!-- TMPL_VAR
NAME="themelang" -->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Kolleksiyon
+
+ </td>
+ </tr>
+ </table>
+ <span id='collections'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
Boran Haver<br>
+
Fatmagül Emiroglu<br>
+
Filiz Mercan<br>
+
Lisani KavalcıoÄlu<br>
+
Nesrin Marasli<br>
+
Nese Gerçek<br>
+
Oguz Yaman<br>
+
Orcan Cemal<br>
+
Ãzlem Tüccar<br>
+
Pembe Agca<br>
+
Pembe Genç<br>
+
Resmiye Ada<br>
+
Zelis Sensoy<br>
+
</a>
+
</blockquote>
+
+ </span></td>
+ </tr>
+<!--Collection Ends-->
+<!--Information Desk Starts-->
+
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("information", this)' src='<!-- TMPL_VAR
NAME="themelang" -->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Raflama
+
+ </td>
+ </tr>
+ </table>
+ <span id='information'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
Tanju AsoÄlu<br>
+
Mahan Arca<br>
+
+
</a>
+
+ </blockquote>
+ </span></td>
+ </tr>
+
+<!--Information Desk Ends-->
+<!--Reference Services Starts-->
+<!--Temporarily Disabled
+
+
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("reference", this)' src='<!-- TMPL_VAR NAME="themelang"
-->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Referans Servisi
+
+ </td>
+ </tr>
+ </table>
+ <span id='reference'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
Burcu Sahiner<br>
+
+
</a>
+
+
</blockquote>
+ </span></td>
+ </tr>
+
+-->
+<!--Reference Services Ends-->
+<!--Reserve Services Starts-->
+
+
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("reserve", this)' src='<!-- TMPL_VAR NAME="themelang"
-->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Rezerv Servisi
+
+ </td>
+ </tr>
+ </table>
+ <span id='reserve'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
Süreyya Korkmaz<br>
+
</a>
+
</blockquote>
+
+
+ </span></td>
+ </tr>
+
+<!--Reserve Services Ends-->
+<!--Test Starts-->
+<!--
+
+
+ <tr>
+ <td
style="padding:0px">
+ <table width="100%"
border="0"
+
style="margin:0px;padding:0px;border-collapse:collapse">
+ <tr>
+ <td
width="13" height="15" align="center" valign="top" class="style5">
+ <div
align="center">
+
<img style="cursor:pointer;border:2px solid #BBB9A2;border-left: 1px solid
#BBB9A2;border-right: 1px solid #BBB9A2"
+
onclick='show("shelving", this)' src='<!-- TMPL_VAR NAME="themelang"
-->/../images/plus.gif'
+
name='imgcirculation'
+
id='imgcirculation'
+
width="11" height="11">
+ </div>
+ </td>
+ <td
height="15" align="left" valign="middle" class="style2">
+
+
Shelving
+
+ </td>
+ </tr>
+ </table>
+ <span id='circulation'
+
style="display:none;margin:0px;padding:0px;position:relative">
+
+
<blockquote>
+
<a class="style2" >
+
Ayse Karahüseyin<br>
+
Nurcan Albayrak<br>
+
Pembe Atasagun<br>
+
+
</a>
+
</blockquote>
+
+ </span></td>
+ </tr>
+
+-->
+<!--Test Ends-->
+
+<tr>
+
+
+</table> </blockquote></td>
+ </tr>
+ <tr>
+ <td class="style9"><hr size="1" noshade class="style2"></td>
+ </tr>
+ <tr>
+ <td class="style9"><span class="style1"><span
class="style21">Diger Ãalisanlar</span><br>
+Aysun Eker<br>
+Ebulfez Seydabayov<br>
+Mohammad Elfawair<br>
+
+Süreyya Korkmaz<br>
+
+ </span></td>
+ </tr>
+ <tr>
+ <td height="20" class="style9"> </td>
+ </tr>
+ </table> </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-main.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-main.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-main.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-main.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,424 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+<!-- TMPL_INCLUDE NAME='menu.inc' -->
+ <td valign="top" bgcolor="#FFFFFF">
+ <form method="get" action="/cgi-bin/koha/opac-search.pl"
id="keyword">
+ <input type="hidden" name="op" value="do_search"
/>
+ <input type="hidden" name="kohafield" value="any" />
+
+
+
+ <table width="100%" border="0" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td bgcolor="#FFFFFF">
+ <table width="410" height="50" border="0"
align="center" cellpadding="0" cellspacing="0">
+ <tr>
+ <td height="50"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/library3.jpg"
class="style9">
+ <table width="400"
border="0" align="center" cellpadding="1" cellspacing="0">
+ <tr>
+ <td class="style9"
>Kütüphane KataloÄu</td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ <table width="100%" border="0" align="center"
cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Katalog tarama</td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0" align="left">
+ <tr>
+ <td width="50"><p align="right">Tüm alanlar:</p>
</td>
+ <td>
+ <div align="left">
+ <input type="text" size="27" name="field_value" class="style1"
style="width:250px;overflow:auto" />
+ </div></td>
+ <td width="100"><div align="right">
+ <a class="style7"
href="/cgi-bin/koha/opac-search.pl">
+ GeliÅmiÅ Tarama
+ </a>
+ </div></td>
+ </tr>
+ <tr><td></td><td><div align="left">
+ <input type="radio" name="relation" value="
@attr 5=103 " checked>Tüm kelimeler- yazılım hatası kabul eder<br>
+ <input type="radio" name="relation"
value="@attr 3=1 @attr 5=1" >...ile baÅlayan
+ </td></tr>
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Katalog:</div></td>
+ <td width="50%">
+ <div
align="left">
+
+ <select
type="text" name="serverid"
+
class="style2">
+
<option value='-1' selected>YDà Kütüphane KataloÄu</option>
+
<option value="7" >Kıbrıs ArÅivi -Gazeteler</option>
+
<option value="0" >Tüm veri tabanları</option>
+
+
</select>
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td><div align="center" class="style6"></div>
+ <td width='250' colspan="2"><div align="center" class="style6">
+ <div align="left">
+ <input type="hidden" name="op" value="do_search">
+ </div></div>
+ </td>
+
+ </tr>
+ <tr>
+ <td><div align="center"></div></td>
+ <td><div align="center">
+ <table height="20" border="0" align="center"
cellpadding="3" cellspacing="0" bgcolor="#4898B0">
+ <tr>
+ <td>
+ <div
align="right" class="style5"
+
style="margin:0px;padding:0px">
+ <img
src="<!-- TMPL_VAR NAME='themelang' -->/../images/lupe.gif" width="15"
height="15"
+
onclick="javascript: if
(document.forms['keyword'].elements['field_value'].value != '')
{document.forms['keyword'].submit();}"
+
style="cursor:pointer">
+ </div>
+ </td>
+ <td>
+ <div
align="right" class="style5">
+ <span
onclick="javascript: if
(document.forms['keyword'].elements['field_value'].value != '')
{document.forms['keyword'].submit();}"
+
class="style5"
style="background-color:#4898B0;border:0px;margin:0px;padding:0px">
+
<font style="cursor:pointer">Tara</font>
+ </span>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </div></td>
+ <td width="100"><div align="right">
+ <img src="<!-- TMPL_VAR NAME='themelang'
-->/../images/help.gif" width="21" height="21" alt="Yardım"
+ onclick="javascript:
help('simple_search')"
+
style="cursor:pointer"></div></td>
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ <tr>
+ <td bgcolor="#06B4D2" ><span class="style5">Yeni
kataloglananlar </span></td>
+ </tr>
+ <tr>
+ <td>
+ <form
action="/cgi-bin/koha/opac-search.pl" method="post"
name="recent_aqui">
+ <input type="hidden" name="op"
value="do_search" />
+ <input type="hidden" name="serverid"
value="-1" />
+ <input type="hidden" name="kohafield"
value="dateaccessioned">
+ <input type="hidden" name="field_value"
value="<!--TMPL_VAR NAME="earlierdate"-->">
+
+ <input type="hidden" name="relation"
value="@attr 2=4">
+
+ <input type="hidden" name="kohafield"
value="itemtype">
+ <input type="hidden" name="and_or"
value="@and">
+ <table width="100%" border="0" align="left">
+ <tr>
+ <td><p align="center">
+
+
+ <select type="text" name="field_value"
class="style2"><option value="" selected>Tümü</option>
+
<option value="BOOK">Kitap</option>
+
+
<option value="BCD" >CD Kitap</option>
+
<option value="DVD" >DVD</option>
+
<option value="JRNL" >Periyodik</option>
+
+
<option value="THS" >Tez</option>
+
+
<option value="REF" >Referans</option>
+
<option value="FIC" >Roman</option>
+
</select>
+ </p> </td>
+ </tr>
+ <tr>
+ <td><div align="center"></div>
<div align="center">
+ <table height="20" border="0" align="center"
cellpadding="3" cellspacing="0" bgcolor="#4898B0">
+ <tr>
+ <td>
+ <div
align="right" class="style5">
+ <img
src="<!-- TMPL_VAR NAME='themelang' -->/../images/lupe.gif" width="15"
height="15"
+
onclick="javascript: document.recent_aqui.submit()"
+
style="cursor:pointer">
+ </div>
+ </td>
+ <td>
+ <div
align="right" class="style5">
+ <span
onclick="javascript: document.recent_aqui.submit()"
+
class="style5"
style="background-color:#4898B0;border:0px;margin:0px;padding:0px">
+
<font style="cursor:pointer">Tara</font>
+ </span>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+ <tr>
+ <td><p align="center" class="style6">
+ (Son 15 günde ekleneler)
+ </p></td>
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ <tr>
+ <td bgcolor="#06B4D2" ><span class="style5">En çok
kullanılanlar </span></td>
+ </tr>
+ <tr>
+ <td>
+ <form
action="/cgi-bin/koha/opac-search.pl" method="post"
name="mostissued">
+ <input type="hidden" name="op"
value="do_search" />
+ <input type="hidden" name="serverid"
value="-1" />
+ <input type="hidden" name="kohafield"
value="totalissue">
+ <input type="hidden" name="field_value"
value="000002">
+
+ <input type="hidden" name="relation"
value="@attr 2=4">
+ <input type="hidden" name="order"
value="totalissue">
+ <input type="hidden" name="asc" value="
>i">
+ <input type="hidden" name="kohafield"
value="itemtype">
+ <input type="hidden" name="and_or"
value="@and">
+ <table width="100%" border="0" align="left">
+ <tr>
+ <td><p align="center">
+
+
+ <select type="text" name="field_value"
class="style2"><option value="" selected>Tümü</option>
+
<option value="BOOK">Kitap</option>
+
+
<option value="BCD" >CD Kitap</option>
+
<option value="DVD" >DVD</option>
+
<option value="JRNL" >Periyodik</option>
+
+
<option value="THS" >Tez</option>
+
+
<option value="REF" >Referans</option>
+
<option value="FIC" >Roman</option>
+
</select>
+ </p> </td>
+ </tr>
+ <tr>
+ <td><div align="center"></div>
<div align="center">
+ <table height="20" border="0" align="center"
cellpadding="3" cellspacing="0" bgcolor="#4898B0">
+ <tr>
+ <td>
+ <div
align="right" class="style5">
+ <img
src="<!-- TMPL_VAR NAME='themelang' -->/../images/lupe.gif" width="15"
height="15"
+
onclick="javascript: document.mostissued.submit()"
+
style="cursor:pointer">
+ </div>
+ </td>
+ <td>
+ <div
align="right" class="style5">
+ <span
onclick="javascript: document.mostissued.submit()"
+
class="style5"
style="background-color:#4898B0;border:0px;margin:0px;padding:0px">
+
<font style="cursor:pointer">Tara</font>
+ </span>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+
+ </table>
+ </form>
+ </td>
+ </tr>
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">DiÄer seçenekler
</td>
+ </tr>
+ <tr>
+ <td>
+ <form style="margin:0px;padding:0px"
action="/cgi-bin/koha/opac-shelves.pl?viewshelf=1" method="post"
+ name="virtual_shelves">
+ <input type="hidden"
name="view_public_shelves_only" value="1">
+ <table width="100%" border="0" align="left"
style="margin:0px;padding:0px">
+ <tr>
+ <td width="120" align="center"
style="vertical-align:top">
+ <div align="right">
+ <a
onmouseover="document['fpAnimswapImgFP1'].imgRolln=document['fpAnimswapImgFP1'].src;document['fpAnimswapImgFP1'].src=document['fpAnimswapImgFP1'].lowsrc;"
onmouseout="document['fpAnimswapImgFP1'].src=document['fpAnimswapImgFP1'].imgRolln"
href="javascript:void(0)">
+ <img src="<!-- TMPL_VAR NAME='themelang'
-->/../images/book1.gif" width="16" height="16" id="fpAnimswapImgFP1"
name="fpAnimswapImgFP1" dynamicanimation="fpAnimswapImgFP1" lowsrc="<!--
TMPL_VAR NAME='themelang' -->/../images/book.gif" border="0"
+
onclick="javascript: document.virtual_shelves.submit()">
+ </a>
+ </div>
+ </td>
+ <td align="center" valign="middle">
+ <div align="left">
+ <a href="javascript:
document.virtual_shelves.submit()" class="style3"
+
onmouseover="document['fpAnimswapImgFP1'].imgRolln=document['fpAnimswapImgFP1'].src;document['fpAnimswapImgFP1'].src=document['fpAnimswapImgFP1'].lowsrc;"
onmouseout="document['fpAnimswapImgFP1'].src=document['fpAnimswapImgFP1'].imgRolln">
+ Kursların okuma
listeleri
+ </a>
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td width="120" align="center"
style="vertical-align:top">
+ <div align="right">
+ <a
href="javascript:void(0)">
+ <img
src="<!-- TMPL_VAR NAME='themelang' -->/../images/historial.gif"
+
width="16" height="16"
+
id="fpAnimswapImgFP4"
+
name="fpAnimswapImgFP4"
+
border="0">
+ </a>
+ </div>
+ </td>
+ <td align="center"
valign="middle">
+ <div align="left">
+ <a
href="/cgi-bin/koha/opac-recentlyquerys.pl"
+ class="style3">
+ Ãnceki
Taramalarım
+ </a>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+</td>
+ <td width="164" valign="top" background="<!-- TMPL_VAR
NAME='themelang' -->/../images/img_36.gif"><table width="159" border="0"
align="center" cellpadding="4" bgcolor="#F9F8F7" class="style2" cellspacing="1">
+ <!-- TMPL_IF NAME="loggedinusername" -->
+ <tr>
+ <td bgcolor="#E8E4D9"
class="style2">Merhaba <!--TMPL_VAR name="loggedinusername"--></td>
+ </tr>
+ <tr>
+ <td class="style2"><div align="center">
+ <table border="0" align="left"
cellpadding="0" cellspacing="1">
+ <tr>
+ <td width="18"><img src="<!--
TMPL_VAR NAME='themelang' -->/../images/user.gif" width="15" height="15"></td>
+ <td>
+ <div align="left">
+ <a
href="/cgi-bin/koha/opac-user.pl" class="style1">
+ Ãye
bölümü
+ </a>
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td width="18"><img src="<!--
TMPL_VAR NAME='themelang' -->/../images/exit.gif" width="18" height="18"></td>
+ <td>
+ <div align="left">
+ <a
href="/cgi-bin/koha/opac-main.pl?logout.x=1" class="style1">
+ Logout
+ </a>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+ <!-- TMPL_ELSE -->
+ <tr>
+ <td bgcolor="#E8E4D9" class="style2"><div
align="center">Kullanıcı giriÅi</div></td>
+ </tr>
+ <tr>
+ <td class="style2" bgcolor="#F9F8F7"
style="padding:0px;margin:0px">
+ <!-- TMPL_IF NAME="nopermission" -->
+ <!-- This is what is displayed if user
doesnt have permission -->
+ <span class="style2">Bu sayfayı
görüntüleyemezsiniz</span>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF NAME="timed_out" -->
+ <!-- This is what is displayed if login
has timed out -->
+ <span class="style2">Süreniz
doldu.Yeniden giriŠyapınız</span>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF NAME="different_ip" -->
+ <!-- This is what is displayed if user
doesnt have permission -->
+ <span class="style2">Farklı bir IP
adresinden giriyorsunuz, yeniden Åifre giriniz</span>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF
NAME="invalid_username_or_password" -->
+ <!-- This is what is displayed if user
doesnt have permission -->
+ <span class="style2">Geçersiz
kullanıcı adı, Åifre bileÅimi.</span>
+ <!-- /TMPL_IF -->
+
+ <!-- TMPL_IF NAME="url" -->
+ <form action='<!-- TMPL_VAR
NAME="url" -->' method="post" name="auth_form" onsubmit="return checkLogin()"
+
style="padding:0px;margin:0px">
+ <!-- TMPL_ELSE -->
+ <form
action='/cgi-bin/koha/opac-user.pl' method="post" name="auth_form"
onsubmit="return checkLogin()"
+
style="padding:0px;margin:0px">
+ <!-- /TMPL_IF -->
+ <!-- TMPL_LOOP NAME="INPUTS" -->
+ <input type="hidden"
name='<!-- TMPL_VAR NAME="name" -->' value='<!-- TMPL_VAR NAME="value" -->' />
+ <!-- /TMPL_LOOP -->
+ <div align="center"
style="padding:0px;margin:0px">
+ <p>
+ Kullanıcı
no:<br>
+ <input
name="userid" type="text" class="style2" size="20">
+ <br>
+ Åifre:
+ <br>
+ <input
name="password" type="password" class="style2" size="20">
+ <br>
+ <input
name="Submit" type="submit" class="style2" value="Log in">
+ </p>
+ </div>
+ </form>
+ </td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td bgcolor="#F9F8F7" class="style2">
+ <div align="center">
+ <table width="100%"
border="0" cellspacing="0" cellpadding="1">
+ <tr>
+ <td width="20">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/key.gif' width="18"
height="16">
+ </div>
+ </td>
+ <td>
+ <div
align="left">
+ <a
href="" class="style8"
+
onclick="if (document.auth_form.userid.value == '') {alert('Kullanıcı
numaranızı giriniz'); return false;} else
{this.href='/cgi-bin/koha/opac-sendpwd.pl?userid=' +
document.auth_form.userid.value}">
+
Åifremi unuttum
+ </a>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+
+ <tr>
+ <td bgcolor="#E8E4D9" class="style2">Kütüphane</td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0">
+
+ <tr>
+ <td colspan="2" align="center" valign="middle"
class="style7">
+ <div align="left" class="style11">
+ <div align="center">
+
+
+
+ </div>
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td bgcolor="#E8E4D9"> </td>
+ </tr>
+
+ </table></td>
+ </tr>
+ </table>
+<!--TMPL_INCLUDE NAME="bottomline.inc" -->
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-news.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-news.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-news.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-news.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,48 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+ <!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Haberler</td>
+ </tr>
+ <tr>
+ <td>
+ <!-- TMPL_LOOP name="opac_news" -->
+ <table width="600" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td height="20"
colspan="2" bgcolor="#DCD9CF">
+ <div
align="left" class="style5">
+ <table
width="100%" border="0">
+ <tr>
+ <td
class="style2"><!-- TMPL_VAR NAME="title" --></td>
+ <td
class="style5"> </td>
+ </tr>
+ </table>
+ </div>
+ </td>
+ </tr>
+ <tr valign="top">
+ <td colspan="2"
width="730">
+ <!-- TMPL_VAR
NAME="new" -->
+ </td>
+ </tr>
+ <tr>
+ <td bgcolor="#F9F8F7"
class="style2">
+ <div align="right"
class="style7">
+ <!-- TMPL_VAR
NAME="newdate" -->
+ </div>
+ </td>
+ </tr>
+ </table>
+ <hr width="600" size="1"
class="style5">
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-recentlyquerys.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-recentlyquerys.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-recentlyquerys.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-recentlyquerys.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,43 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">
+ Ãnceki taramalarım
+ </td>
+ </tr>
+ <tr>
+ <td><table width="98%" border="0" cellpadding="0"
cellspacing="0" bgcolor="#F2F0E9">
+ <tr>
+ <td><table width="100%" border="0" align="center"
cellpadding="2" cellspacing="2">
+ <tr bgcolor="#DCD9CF">
+ <td class="style19"><div align="center">Tarih</div></td>
+ <td class="style19"><div align="center">Taranan
tanımlar</div></td>
+ <td class="style19"><div align="center">Sonuç</div></td>
+ <td class="style19"><div align="center"></div></td>
+ </tr>
+ <!-- TMPL_LOOP NAME="querys" -->
+ <tr bgcolor="#F9F8F4">
+ <td class="style2"><div align="center"><!-- TMPL_VAR
NAME="date" --></div></td>
+ <td class="style2"><div align="left"><!-- TMPL_VAR
NAME="searchdesc" --></div></td>
+ <td class="style2"><div align="center"><!-- TMPL_VAR
NAME="number_of_results" --></div></td>
+ <td class="style2">
+ <div align="center">
+ <a href="<!-- TMPL_VAR
NAME="linkdesc" -->">Yeniden tara</a>
+ </div>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table></td>
+ </tr>
+ </table> <div
align="center"></div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
\ No newline at end of file
Index: koha-tmpl/opac-tmpl/css/tr/opac-reglamentation.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-reglamentation.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-reglamentation.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-reglamentation.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,36 @@
+ <!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+<!-- TMPL_INCLUDE NAME='menu.inc' -->
+
+ <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0"
align="center" cellpadding="0" cellspacing="4">
+ <tr>
+ <td height="50" valign="middle" background="<!-- TMPL_VAR
NAME="themelang" -->/../images/library5.jpg" class="style22"><div
align="center" class="style9">
+ <div align="left">
+ <table width="550" border="0" align="center"
cellpadding="1" cellspacing="0">
+ <tr>
+ <td class="style9">Rules</td>
+ </tr>
+ </table>
+ </div>
+ </div></td>
+ </tr>
+ <tr>
+ <td><table width="550" border="0" align="center"
cellpadding="1" cellspacing="0">
+ <tr>
+
+ <td class="style9" align="left">
+ <span class="style19">
+
+
+
+
+ <!-- TMPL_INCLUDE NAME="policies.inc" --> </span></td></tr>
+ </table> </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-reserve.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-reserve.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-reserve.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-reserve.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,780 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+ <!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+
+<!-- TMPL_IF NAME="MESSAGE" -->
+
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table
width="100%" border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5"><table
width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
+ <tr valign="bottom"
bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"><table
border="0" align="right" bgcolor="#F9F8F4">
+ <tr>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/print.gif" width="18" height="16"></div></td>
+ <td class="style2"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:openPrintDetail('<!-- TMPL_VAR NAME="biblionum"
-->')" >
+ Yazdır
+ </a>
+ </div></td>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/basket.gif" width="19" height="16"></div></td>
+ <td class="style2"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:addRecord('<!-- TMPL_VAR NAME="biblionum"
ESCAPE=URL -->')">
+ Sepete
Ekle
+ </a>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr valign="bottom"
bgcolor="#F2F0E9">
+ <td height="40"
bgcolor="#F2F0E9"><table height="20" border="0" align="center" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style19">
+ <a
class="style2"
+
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionum"
ESCAPE=URL -->">
+ Katalog
Kartı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style5">
+
+ </td>
+
+
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style5">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style19">
+ <a
href='opac-MARCdetail.pl?bib=<!-- TMPL_VAR NAME="biblionum" -->' class="style2">
+ MARC
Kaydı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style19">
+
+ </td>
+ <!-- TMPL_UNLESS NAME="norequests"
-->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style5">
+ Ayırt
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_UNLESS -->
+
+ <!-- TMPL_IF
name="subscriptionid" -->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
href="opac-serial-issues.pl?subscriptionid=<!-- TMPL_VAR NAME="subscriptionid"
-->"
+
class="style19" title="Serial issues">
+
No:
+ </a>
+ </td>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td height="25"
bgcolor="#06B4D2" class="style5"><div align="center" class="style9">
+ <table width="100%"
border="0">
+ <tr>
+ <td
class="style9"><div align="center"><!-- TMPL_VAR NAME="TITLE" --> (<!--
TMPL_VAR NAME="AUTHOR" -->)</div></td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td>
+ <table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td height="20"><div
align="left">
+ <table
width="100%" border="0" cellpadding="2" cellspacing="1" bordercolor="#DCD9CF"
bgcolor="#DCD9CF">
+ <!--
TMPL_IF name="SUCCESSFUL_RESERVE" -->
+ <tr
bgcolor="#F2F0E9">
+
<td class="style4">
+
<div align="left">
+
Rezervasyonunuz kaydedildi.
+
</div>
+
</td>
+ </tr>
+ <!--
TMPL_ELSE -->
+ <tr
bgcolor="#DCD9CF">
+
<td colspan="2" class="style19"><div align="center">Rezervasyon
yapılamadı</div></td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+
<td class="style4">
+
<div align="left">
+
<ul>
+
<!-- TMPL_IF NAME="PENALIZED" -->
+
<li>Cezanız vardır.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="NO_ISSUED_ITEMS" -->
+
<li>Ãdünç verilecek kopyamız yoktur.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="MEMBER_CARD_NOT_ACTIVE" -->
+
<li>Ãyelik kartınızın süresi
dolmuÅtur.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="TOO_MUCH_OWEING" -->
+
<li>Ãzerinizde yeterli sayıda ödünç yayın
vardır: <!-- TMPL_VAR NAME="TOO_MUCH_OWEING" --></li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="TOO_MANY_RESERVES" -->
+
<li> <!-- TMPL_VAR NAME="TOO_MANY_RESERVES" -->
adetten fazla rezervasyon yapamazsınız </li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="ALREADY_RESERVED" -->
+
<li>Size ayırtılmıÅtır.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="GNA" -->
+
<li>Adresiniz bizde yoktur.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="LOST" -->
+
<li>Bu eser 'KAYIP' olarak
görünmektedir!.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="DEBARRED" -->
+
<li>Geçici olarak uyeliüiniz dondurulmuÅtur.
Kütüphaneye baÅvurunuz!</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="WRONG_RESERVE_PERIOD" -->
+
<li>You can't reserve for more than <!--
TMPL_VAR NAME="RESERVE_PERIOD" --> days.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="WRONG_RESERVE_TIME" -->
+
<li>Rafta duran eserleri ayırtamazsınız.
Rezervasyon için eserin baÅkasına ödünç verilmiÅ olması gerekir</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="OVERLAP_PERIOD" -->
+
<li>You have a reserve in this period.</li>
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF name="ON_LOAN" -->
+
<li>Bu eser zaten sizde görünmektedir.</li>
+
<!-- /TMPL_IF -->
+
</ul>
+
</div>
+
</td>
+ </tr>
+ <!--
/TMPL_IF -->
+ </table>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td height="20"
align="right"><div align="center">
+ <!-- TMPL_IF
name="SUCCESSFUL_RESERVE" -->
+ <input
type="button" class="style19" value="KataloÄa dön"
+
onclick='javascript: location.href = "/cgi-bin/koha/opac-detail.pl?bib=<!--
TMPL_VAR NAME="BIBLIONUMBER" -->"'>
+ <!-- TMPL_ELSE -->
+ <input
type="button" class="style19" value="KataloÄa dön"
+
onclick='javascript: location.href = "/cgi-bin/koha/opac-detail.pl?bib=<!--
TMPL_VAR name="biblionum" -->"'
+
name="goBack" id="goBack">
+ <script
language="JavaScript" type="text/javascript">
+
document.getElementById('goBack').focus();
+ </script>
+ <!-- /TMPL_IF -->
+ </div></td>
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ </table>
+
+<!-- /TMPL_IF -->
+
+<!-- TMPL_IF NAME="CAN_RESERVE" -->
+ <!-- At this point you have to choose an interval days for reserve -->
+
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%"
border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5"><table width="100%"
border="0" align="center" cellpadding="0" cellspacing="0">
+ <tr valign="bottom" bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"><table
border="0" align="right" bgcolor="#F9F8F4">
+ <tr>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/print.gif" width="18" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:openPrintDetail('<!-- TMPL_VAR NAME="biblionum"
-->')" >
+ Yazdır
+ </a>
+ </div></td>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/basket.gif" width="19" height="16"></div></td>
+ <td class="style5"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:addRecord('<!-- TMPL_VAR NAME="biblionum"
ESCAPE=URL -->')">
+ Sepete
gönder
+ </a>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr valign="bottom" bgcolor="#F2F0E9">
+ <td height="40" bgcolor="#F2F0E9">
+ <table height="20" border="0"
align="center" cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style19">
+ <a
class="style2"
+
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionum"
ESCAPE=URL -->">
+ Katalog
Kartı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style5">
+
+ </td>
+
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style5">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style19">
+ <a
href='opac-MARCdetail.pl?bib=<!-- TMPL_VAR NAME="biblionum" -->' class="style2">
+ MARC
Kaydı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style19">
+
+ </td>
+ <!-- TMPL_UNLESS NAME="norequests"
-->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style5">
+ Ayırt
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_UNLESS -->
+
+ <!-- TMPL_IF
name="subscriptionid" -->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
href="opac-serial-issues.pl?subscriptionid=<!-- TMPL_VAR NAME="subscriptionid"
-->"
+
class="style19" title="Serial issues">
+
No:
+ </a>
+ </td>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td height="25" bgcolor="#06B4D2"
class="style5"><div align="center" class="style9">
+ <table width="100%"
border="0">
+ <tr>
+ <td class="style9">
+ <div
align="center">
+ <!--
TMPL_VAR NAME="TITLE" --> (<!-- TMPL_VAR NAME="AUTHOR" -->)
+ </div>
+ </td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td height="20">
+ <form
action="/cgi-bin/koha/opac-reserve.pl" method="post">
+ <input type="hidden"
name="createreserve" value="1" >
+ <input type="hidden"
name="bib" value="<!-- TMPL_VAR name="biblionum" -->" >
+ <input type="hidden"
name="reservecount" value="<!-- TMPL_VAR name="reservecount" -->" >
+ <input type="hidden"
name="http_referer" value='<!-- TMPL_VAR NAME="HTTP_REFERER" -->'>
+ <div align="left">
+ <table width="100%"
border="0" cellpadding="2" cellspacing="1" bordercolor="#DCD9CF"
bgcolor="#F2F0E9">
+ <tr
bgcolor="#DCD9CF">
+ <td
width="25%" bgcolor="#DCD9CF" class="style19"><div align="center"> </div></td>
+ <td
width="25%" bgcolor="#DCD9CF" class="style19"><div align="center"> </div></td>
+ <td
width="50%" bgcolor="#DCD9CF" class="style19"><div
align="center">Notlar</div></td>
+ </tr>
+ <tr
align="center" valign="top" bgcolor="#F9F8F4">
+ <td
class="style4"><div align="center"> <table
border="0">
+ <tr>
+
<td>
+
<div align="right">
+
<input type="hidden" size="10" id="validityfrom"
name="validityfrom"
+
value='<!-- TMPL_VAR NAME="VALIDITY_FROM" -->'
readonly
+
class="style19">Ãdünç verilmemiÅ kitabı
ayırtamazsınız.
+
+
<script type="text/javascript">
+
function validateFrom(date) {
+
var day = date.getDate();
+
var month = date.getMonth() + 1;
+
var year = date.getFullYear();
+
var weekDay = date.getDay();
+
var dayMonth = month + '-' + day;
+
var dateString = year + '-' + month + '-' + day;
+
var dateTo =
document.getElementById('validityto').value.split("-");
+
var limitDate = new Date(dateTo[0], (dateTo[1]
- 1), dateTo[2]);
+
if (date > limitDate) {
+
return true;
+
} else if (exception_holidays[dateString] !=
null) {
+
return false;
+
} else if ((week_days[weekDay] != null) ||
(day_month_holidays[dayMonth] != null) ||
+
(holidays[dateString] !=
null)) {
+
return true;
+
} else if (year < yearToday) {
+
return true;
+
} else if ((year == yearToday) && (month <
monthToday)) {
+
return true;
+
} else if ((year == yearToday) && (month ==
monthToday) && (day < dayToday)) {
+
return true;
+
} else {
+
return false;
+
}
+
}
+
Calendar.setup(
+
{
+
inputField : "validityfrom",
+
ifFormat : "%Y-%m-%d",
+
button : "openCalendarFrom",
+
disableFunc : validateFrom,
+
dateStatusFunc : validateFrom
+
}
+
);
+
</script>
+
</div>
+
</td>
+ </tr>
+ </table>
+ </div></td>
+ <td
class="style4"><div align="center">
+ <table
border="0">
+ <tr>
+
<td>
+
<div align="right">
+
<input type="hidden" size="10" id="validityto"
name="validityto"
+
value='<!-- TMPL_VAR NAME="VALIDITY_TO" -->' readonly
+
class="style19">Rezervasyon ücretine tabi olabilir!
+
+
<script type="text/javascript">
+
function validateTo(date) {
+
var day = date.getDate();
+
var month = date.getMonth() + 1;
+
var year = date.getFullYear();
+
var weekDay = date.getDay();
+
var dayMonth = month + '-' + day;
+
var dateString = year + '-' + month + '-' + day;
+
var dateFrom =
document.getElementById('validityfrom').value.split("-");
+
var limitDate = new Date(dateFrom[0],
(dateFrom[1] - 1), dateFrom[2]);
+
if (date < limitDate) {
+
return true;
+
} else if (exception_holidays[dateString] !=
null) {
+
return false;
+
} else if ((week_days[weekDay] != null) ||
(day_month_holidays[dayMonth] != null) ||
+
(holidays[dateString] !=
null)) {
+
return true;
+
} else {
+
return false;
+
}
+
}
+
Calendar.setup(
+
{
+
inputField : "validityto",
+
ifFormat : "%Y-%m-%d",
+
button : "openCalendarTo",
+
disableFunc : validateTo,
+
dateStatusFunc : validateTo
+
}
+
);
+
</script>
+
</div>
+
</td>
+ </tr>
+ </table>
+ </div></td>
+ <td
class="style4"><div align="center">
+
<textarea cols="50" class="style19" name="notes"><!-- TMPL_VAR NAME="NOTES"
--></textarea>
+ </div></td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
colspan="3" class="style4"><div align="right">
+ <table
width="100%" border="0" cellpadding="0" cellspacing="0" class="style5">
+ <tr>
+
<td width="20" height="20" bgcolor="#06B4D2"><div align="center"><img src="<!--
TMPL_VAR NAME="themelang" -->/../images/arrow.gif" width="10"
height="13"></div></td>
+
<td bgcolor="#06B4D2" class="style5"><div align="left">Kopyalar</div></td>
+ </tr>
+ </table>
+ <table
width="100%" border="0" bgcolor="#F2F0E9">
+ <tr
align="center" bgcolor="#DCD9CF">
+
<td><div align="center">Durumu</div></td>
+
<td><div align="center">Türü</div></td>
+
<td><div align="center">Klasifikasyon</div></td>
+
<td><div align="center">Cilt</div></td>
+
<td><div align="center">Basım Tarihi </div></td>
+
<td><div align="center">Adet</div></td>
+ </tr>
+
<!-- TMPL_LOOP Name="BIBITEMLOOP" -->
+
<tr align="center" bgcolor="#F9F8F4">
+
<td><div align="center">
+
<!-- TMPL_IF NAME="ITEM_LOST" -->
+
Kayıp
+
<!-- TMPL_ELSE --><!-- TMPL_IF NAME="DATEDUE"
-->Beklenen:
+
<!-- TMPL_VAR NAME="DATEDUE" -->
+
<!-- TMPL_ELSE -->Kütüphanede
+
<!-- /TMPL_IF --><!-- /TMPL_IF -->
+
</div></td>
+
<td>
+
<div align="center">
+
<!-- TMPL_IF NAME="ITEMTYPE" -->
+
<!-- TMPL_VAR NAME="ITEMTYPE" -->
+
<!-- /TMPL_IF -->
+
</div>
+
</td>
+
<td>
+
<div align="center">
+
<!-- TMPL_IF NAME="CLASS" -->
+
<!-- TMPL_VAR NAME="CLASS" -->
+
<!-- /TMPL_IF -->
+
</div>
+
</td>
+
<td>
+
<div align="center">
+
<!-- TMPL_IF NAME="VOLUMEDDESC" -->
+
<!-- TMPL_VAR NAME="VOLUMEDDESC" -->
+
<!-- /TMPL_IF -->
+
</div>
+
</td>
+
<td>
+
<div align="center">
+
<!-- TMPL_IF NAME="PUBLICATIONYEAR" -->
+
<!-- TMPL_VAR NAME="PUBLICATIONYEAR" -->
+
<!-- /TMPL_IF -->
+
</div>
+
</td>
+
<td><div align="center">
+
<!-- TMPL_VAR NAME="COPIES" -->
+
</div></td>
+
</tr>
+
<!-- /TMPL_LOOP -->
+ <tr
align="center" bgcolor="#F9F8F4">
+
<td colspan="6">
+
<table width="100%" border="0" bgcolor="#F9F8F4">
+
<td width="25%"><div align="center"></div></td>
+
<td width="50%">
+
<div align="center">
+
<input type="submit" class="style19"
value="Ayırt">
+
</div>
+
</td>
+
<td width="25%">
+
<div align="right">
+
<img src="<!-- TMPL_VAR NAME='themelang'
-->/../images/help.gif" width="21" height="21" alt="Help"
+
onclick="javascript:
help('reserve_help')"
+
style="cursor:pointer">
+
</div>
+
</td>
+
<td><div align="center"></div></td>
+
</table>
+
</td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ </form>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td height="20" align="right">
+ <div align="right">
+ <table width="100%" border="0"
cellpadding="0" cellspacing="0" class="style5">
+ <tr>
+ <td width="20"
height="20" bgcolor="#06B4D2"><div align="center"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/arrow.gif" width="10" height="13"></div></td>
+ <td bgcolor="#06B4D2"
class="style5"><div align="left">Varolan rezervasyonlar </div></td>
+ </tr>
+ </table>
+ <!-- TMPL_IF name="RESERVELOOP"
-->
+ <table
width="100%" border="0" bgcolor="#F2F0E9">
+ <tr
align="center" bgcolor="#DCD9CF">
+ <td
colspan="2" bgcolor="#F9F8F4"><div align="center">
+
<p> </p>
+
</div> </td>
+ <td
height="20" colspan="2"><div align="center" class="style12"></div>
</td>
+ </tr>
+ <tr
align="center" bgcolor="#DCD9CF">
+ <td
width="25%"><div align="center"></div>
<div align="center">Ãye</div></td>
+
<td><div align="center"></div> <div
align="center">Date/Hour</div></td>
+ <td
width="25%"><div align="center">Tarih</div></td>
+ <!-- <td
width="25%"><div align="center">To</div></td> -->
+ </tr>
+ <!-- TMPL_LOOP
Name="RESERVELOOP" -->
+ <tr
align="center" bgcolor="#F9F8F4" class="style19">
+
<td>
+
<div align="center"></div>
+
<div align="center"></div>
+
<div align="center"></div>
+
<div align="center"></div>
+
<div align="center"></div>
+
<div align="center">
+
<!-- TMPL_VAR NAME="FIRSTNAME" -->, <!-- TMPL_VAR NAME="SURNAME"
-->
+
</div></td>
+
<td><div align="center"><!-- TMPL_VAR NAME="DATE" -->   <!-- TMPL_VAR
NAME="TIME" --></div></td>
+
<td><div align="center"><!-- TMPL_VAR NAME="RESERVEFROMPARSE" --></div></td>
+
<!-- <td><div align="center"><!-- TMPL_VAR NAME="RESERVETOPARSE" --></div></td>
-->
+ </tr>
+ <!-- /TMPL_LOOP
-->
+ </table>
+ <!-- TMPL_ELSE -->
+ <table width="100%"
border="0" bgcolor="#F2F0E9">
+ <tr align="center"
bgcolor="#DCD9CF">
+ <td
bgcolor="#F9F8F4">
+ <div
align="center">
+
Bekleyen baÅka rezervasyon yoktur
+ </div>
+ </td>
+ </tr>
+ </table>
+ <!-- /TMPL_IF -->
+ </table>
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+
+<!-- /TMPL_IF -->
+
+<!-- TMPL_IF NAME="CONFIRM_RESERVE" -->
+<!-- if the bibitems have already been selected -->
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table
width="100%" border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5"><table
width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
+ <tr valign="bottom"
bgcolor="#F2F0E9">
+ <td bgcolor="#F2F0E9"><table
border="0" align="right" bgcolor="#F9F8F4">
+ <tr>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/print.gif" width="18" height="16"></div></td>
+ <td class="style2"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:openPrintDetail('<!-- TMPL_VAR NAME="biblionum"
-->')" >
+ Yazdır
+ </a>
+ </div></td>
+ <td width="20"
bgcolor="#F9F8F4"><div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/basket.gif" width="19" height="16"></div></td>
+ <td class="style2"><div
align="left" class="style2">
+ <a
class="style2" href="javascript:addRecord('<!-- TMPL_VAR NAME="biblionum"
ESCAPE=URL -->')">
+ Sepete
ekle
+ </a>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr valign="bottom"
bgcolor="#F2F0E9">
+ <td height="40"
bgcolor="#F2F0E9"><table height="20" border="0" align="center" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style19">
+ <a
class="style2"
+
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionum"
ESCAPE=URL -->">
+ Katalog
Kartı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style5">
+
+ </td>
+
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style5">
+
+ </td>
+ <td background="<!--
TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif" class="style19">
+ <a
href='opac-MARCdetail.pl?bib=<!-- TMPL_VAR NAME="biblionum" -->' class="style2">
+ MARC
Kaydı
+ </a>
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style19">
+
+ </td>
+ <!-- TMPL_UNLESS NAME="norequests"
-->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style5">
+ Ayırt
+ </td>
+ <td width="14"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_03.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_UNLESS -->
+
+ <!-- TMPL_IF
name="subscriptionid" -->
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <td
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_02.gif"
class="style2">
+ <a
href="opac-serial-issues.pl?subscriptionid=<!-- TMPL_VAR NAME="subscriptionid"
-->"
+
class="style19" title="Serial issues">
+
Number
+ </a>
+ </td>
+ <td width="13"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/solapa-c_01.gif"
class="style2">
+
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td height="25"
bgcolor="#06B4D2" class="style5"><div align="center" class="style9">
+ <table width="100%"
border="0">
+ <tr>
+ <td
class="style9"><div align="center"><!-- TMPL_VAR NAME="TITLE" --> (<!--
TMPL_VAR NAME="AUTHOR" -->)</div></td>
+ </tr>
+ </table>
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td>
+ <form
action="/cgi-bin/koha/opac-reserve.pl" method="post">
+ <input type="hidden"
name="reservecount" value="<!-- TMPL_VAR name="reservecount" -->" >
+ <input type="hidden"
name="placereserve" value="1">
+ <input type="hidden"
name="bib" value='<!-- TMPL_VAR name="biblionum" -->'>
+ <input type="hidden"
name="title" value='<!-- TMPL_VAR NAME="TITLE" -->'>
+ <input type="hidden"
name="reservefrom" value='<!-- TMPL_VAR NAME="RESERVEFROM" -->'>
+ <input type="hidden"
name="reserveto" value='<!-- TMPL_VAR NAME="RESERVETO" -->'>
+ <input type="hidden"
name="notes" value='<!-- TMPL_VAR NAME="NOTES" -->'>
+ <input type="hidden"
name="http_referer" value='<!-- TMPL_VAR NAME="HTTP_REFERER" -->'>
+ <table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td height="20"
class="style19"><div align="center" class="style16">Rezervasyonu onalyın
</div></td>
+ </tr>
+ <tr>
+ <td height="20"><div
align="left">
+ <table
width="100%" border="0" cellpadding="2" cellspacing="1" bordercolor="#DCD9CF"
bgcolor="#DCD9CF">
+ <tr
bgcolor="#DCD9CF">
+ <td
colspan="2" class="style19"><div align="center">Bilgiler </div></td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
class="style4"><div align="right">Eser adı:</div></td>
+ <td
class="style19">
+
<!-- TMPL_IF NAME="TITLE" -->
+
<i><!-- TMPL_VAR NAME="TITLE" --></i>
+
<!-- TMPL_ELSE -->
+
-
+
<!-- /TMPL_IF -->
+ </td>
+ </tr>
+ <!-- TMPL_IF
NAME="AUTHOR" -->
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" class="style4"><div align="right">Yazar:</div></td>
+ <td
class="style19">
+
<!-- TMPL_IF NAME="AUTHOR" -->
+
<!-- TMPL_VAR NAME="AUTHOR" -->
+
<!-- TMPL_ELSE -->
+
-
+
<!-- /TMPL_IF -->
+ </td>
+ </tr>
+ <!-- /TMPL_IF
-->
+
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" class="style4"><div align="right">DiÄer yazarlar: </div></td>
+ <td
class="style19">
+
<!-- TMPL_IF NAME="ADDITIONALAUTHORS" -->
+
<!-- TMPL_VAR name="ADDITIONALAUTHORS" -->
+
<!-- TMPL_ELSE -->
+
-
+
<!-- /TMPL_IF -->
+ </td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" bgcolor="#F2F0E9" class="style4"><div align="right">Barkot no :
</div></td>
+ <td
class="style19">
+
<!-- TMPL_IF name="biblionum" -->
+
N°<!-- TMPL_VAR name="barcode" -->
+
<!-- TMPL_ELSE -->
+
-
+
<!-- /TMPL_IF -->
+ </td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" class="style4"><div align="right">Basım yeri: </div></td>
+ <td
class="style19">
+
<!-- TMPL_IF NAME="PLACE" -->
+
<!-- TMPL_VAR name="PLACE" -->
+
<!-- TMPL_ELSE -->
+
-
+
<!-- /TMPL_IF -->
+ </td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" class="style4"><div align="right">Basım:</div></td>
+ <td
class="style19">
<!-- TMPL_IF NAME="COPYRIGHTDATE" -->
+
<!-- TMPL_VAR name="COPYRIGHTDATE" -->
+
<!-- TMPL_ELSE -->
+
-
+
<!-- /TMPL_IF --> </td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" class="style4"><div align="right">Rezervasyon tarihi :</div></td>
+ <td
class="style19">
+
<!-- TMPL_VAR name="ftRESERVEFROM" -->
+ </td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+ <td
width="200" class="style4"><div align="right"> :</div></td>
+ <td
class="style19"><!-- TMPL_VAR name="ftRESERVETO" --></td>
+ </tr>
+ <!--
TMPL_IF NAME="FEE" -->
+ <tr
bgcolor="#F2F0E9">
+
<td colspan="2" class="style19">Rezervasyon ücreti: <b><!-- TMPL_VAR
NAME="FEE" --> YTL</b></td>
+ </tr>
+ <!--
/TMPL_IF -->
+ </table>
+ </div>
</td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td height="20"
align="right"><div align="center">
+ <input type="submit"
class='style2' value="Rezervasyonu Kaydet"
+
name="submitButton" id="submitButton">
+ <script
language="JavaScript" type="text/javascript">
+
document.getElementById('submitButton').focus();
+ </script>
+ <input type="button"
class='style2' value="Geri Git"
+
onclick='document.back.submit(); //document.location.href =
"/cgi-bin/koha/opac-reserve.pl?bib=<!-- TMPL_VAR NAME="biblionum"
-->;notes=<!-- TMPL_VAR NAME="NOTES" -->"'>
+ </div></td>
+ </tr>
+ </table>
+ </form>
+ <form
action="/cgi-bin/koha/opac-reserve.pl" name="back">
+ <input type="hidden" name="bib"
value="<!-- TMPL_VAR NAME="biblionum" -->">
+ <input type="hidden"
name="notes" value="<!-- TMPL_VAR NAME="NOTES" -->">
+ <input type="hidden"
name="http_referer" value='<!-- TMPL_VAR NAME="HTTP_REFERER" -->'>
+ </form>
+ </td>
+ </tr>
+ </table>
+
+<!-- /TMPL_IF -->
+
+</div>
+<!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-search.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-search.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-search.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-search.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,392 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+<table width="760" border="0" align="center" cellpadding="4" cellspacing="2">
+ <!-- TMPL_INCLUDE NAME="opac-login.inc" -->
+
+
+ <td align="right" class="style4">
+ <table height="20" border="0" align="right"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/opac-main.pl' title="Ana Sayfa">
+ Ana Sayfa
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/union-search.pl' title="Toplu Katalog">
+ Toplu Katalog
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+ <!-- TMPL_IF NAME="loggedinusername" -->
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"
class="style5"> </td>
+ <td bgcolor="#0599B4"
class="style5">
+ <a
style="width:100%" class="style5" href="/cgi-bin/koha/opac-user.pl" title="Ãye
sayfası">
+ Ãye
sayfası
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"
class="style5"> </td>
+ <!-- /TMPL_IF -->
+
+ </tr>
+
+ </table>
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">GeliÅmiÅ Tarama</td>
+ </tr>
+ <tr>
+ <td>
+ <table width="100%" border="0" align="left"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td><div align="center" class="style3">
+
+ </div></td>
+ </tr>
+ <tr>
+ <td height="250" valign="top">
+ <div align="left">
+ <form name="loose_form"
+ id="loose_form"
+
action="/cgi-bin/koha/opac-search.pl"
+ method='post' >
+
+
+ <input type="hidden" name="op"
value="do_search">
+ <input type="hidden"
name="search_type" value="loose">
+ <input type="hidden"
name="startfrom" value="0">
+ <table width="500" border="0" align="center"
bgcolor="#F2F0E9">
+ <tr><!--TMPL_LOOP NAME="SEARCHPARAMS"-->
+ <td><table height="20" border="0" align="left"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+
Sözcük 1:
+ </td>
+ <td>
+ <input
name="field_value" type="text" class="style1" value="<!--
TMPL_VAR name="field_value1" -->">
+ </td>
+ <td>
+ <div
align="right" class="style5"> </div>
+ <select
type="text" name="kohafield"
+
class="style2">
+
<option value="any" <!-- TMPL_IF name="any1" -->selected<!-- /TMPL_IF
-->>Tümü</option>
+
<option value="author" <!-- TMPL_IF name="author1" -->selected<!-- /TMPL_IF -->
>Yazar</option>
+
<option value="title" <!-- TMPL_IF name="title1" -->selected<!-- /TMPL_IF -->
>Eser adı</option>
+
<option value="subject" <!-- TMPL_IF name="subject1" -->selected<!-- /TMPL_IF
--> >Konu</option>
+
<option value="publishercode" <!-- TMPL_IF name="publishercode1"
-->selected<!-- /TMPL_IF --> >Basımevi</option>
+
<option value="identifier-standard" <!-- TMPL_IF name="identifier-standard1"
-->selected<!-- /TMPL_IF --> >ISBN & ISSN</option>
+
<option value="itemnotes" <!-- TMPL_IF name="itemnotes1" -->selected<!--
/TMPL_IF --> >Hediye eden</option>
+
</select>
+ </td>
+ <td><table height="20" border="0"
align="center" cellpadding="3" cellspacing="0" class="background1">
+ <tr>
+ <td>
+
<div align="right" class="style5"></div>
+ <div align="right" class="style5">
+
<input type="button" class="style5"
+
value="Sözlük..."
+
onclick="openDictionary(document.loose_form.kohafield[0].value,
document.loose_form.field_value[0].value,
'opener.document.loose_form.field_value[0]')"
+
style="border:0px;background-color:#4898B0">
+
</div>
+ </td>
+ </tr>
+ </table></td>
+ <td class="style1"><select type="text"
name="relation"
+
class="style2">
+
<option value="@attr 3=1 @attr 5=1" <!-- TMPL_IF name="@attr 3=1 @attr 5=11"
-->selected<!-- /TMPL_IF -->>Bununla baÅlayan
+
</option>
+
<option value="@attr 4=1 @attr 5=100" <!-- TMPL_IF name="@attr 4=1 @attr
5=1001" -->selected<!-- /TMPL_IF -->>Sözcük dizini
+
</option>
+
<option value="@attr 5=1 @attr 4=6" <!-- TMPL_IF name="@attr 5=1 @attr 4=61"
-->selected<!-- /TMPL_IF --> >Tüm kelimeler
+
</option>
+
</select>
+
+ </td>
+ <td width="60">
+
+ <select
type="text" name="and_or"
+
class="style2">
+
<option value="@and" <!-- TMPL_IF name="@and1" -->selected<!-- /TMPL_IF -->>VE
+
</option>
+
<option value="@or" <!-- TMPL_IF name="@or1" -->selected<!-- /TMPL_IF --> >VEYA
+
</option>
+
</select>
+
+ </td>
+
+
+
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td><table height="20" border="0" align="left"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+
Sözcük 2:
+ </td>
+ <td>
+ <input
name="field_value" type="text" class="style1" value='<!--
TMPL_VAR name="field_value2" -->'>
+ </td>
+ <td>
+ <div
align="right" class="style5"> </div>
+ <select
type="text" name="kohafield"
+
class="style2">
+
<option value="any" <!-- TMPL_IF name="any2" -->selected<!-- /TMPL_IF
-->>Tümü</option>
+
<option value="author" <!-- TMPL_IF name="author2" -->selected<!-- /TMPL_IF -->
>Yazar</option>
+
<option value="title" <!-- TMPL_IF name="title2" -->selected<!-- /TMPL_IF -->
>Eser adı</option>
+
<option value="subject" <!-- TMPL_IF name="subject2" -->selected<!-- /TMPL_IF
--> >Konu</option>
+
<option value="publishercode" <!-- TMPL_IF name="publishercode2"
-->selected<!-- /TMPL_IF --> >Basımevi</option>
+
<option value="identifier-standard" <!-- TMPL_IF name="identifier-standard2"
-->selected<!-- /TMPL_IF --> >ISBN & ISSN</option>
+
<option value="itemnotes" <!-- TMPL_IF name="itemnotes2" -->selected<!--
/TMPL_IF --> >Hediye eden</option>
+
</select>
+ </td>
+ <td><table height="20" border="0"
align="center" cellpadding="3" cellspacing="0" class="background1">
+ <tr>
+ <td>
+
<div align="right" class="style5"></div>
+ <div align="right" class="style5">
+
<input type="button" class="style5"
+
value="Sözlük..."
+
onclick="openDictionary(document.loose_form.kohafield[1].value,
document.loose_form.field_value[1].value,
'opener.document.loose_form.field_value[1]')"
+
style="border:0px;background-color:#4898B0">
+
</div>
+ </td>
+ </tr>
+ </table></td> <td
class="style1"><select type="text" name="relation"
+
class="style2">
+
<option value="@attr 3=1 @attr 5=1" <!-- TMPL_IF name="@attr 3=1 @attr 5=11"
-->selected<!-- /TMPL_IF -->>Bununla baÅlayan
+
</option>
+
<option value="@attr 4=1 @attr 5=100" <!-- TMPL_IF name="@attr 4=1 @attr
5=1001" -->selected<!-- /TMPL_IF -->>Sözcük dizini
+
</option>
+
<option value="@attr 5=1 @attr 4=6" <!-- TMPL_IF name="@attr 5=1 @attr 4=61"
-->selected<!-- /TMPL_IF --> >Tüm kelimeler
+
</option>
+
</select>
+
+ </td>
+ <td width="60">
+
+ <select
type="text" name="and_or"
+
class="style2">
+
<option value="@and" <!-- TMPL_IF name="@and2" -->selected<!-- /TMPL_IF -->>VE
+
</option>
+
<option value="@or" <!-- TMPL_IF name="@or2" -->selected<!-- /TMPL_IF --> >VEYA
+
</option>
+
</select>
+
+ </td>
+ </tr>
+
+ </table></td>
+ </tr>
+ <tr>
+ <td><table height="20" border="0" align="left"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+
Sözcük 3:
+ </td>
+ <td>
+ <input
name="field_value" type="text" class="style1" value='<!--
TMPL_VAR name="field_value3" -->'>
+ </td>
+ <td>
+ <div
align="right" class="style5"> </div>
+ <select
type="text" name="kohafield"
+
class="style2">
+
<option value="any" <!-- TMPL_IF name="any3" -->selected<!-- /TMPL_IF -->
>Tümü</option>
+
<option value="author" <!-- TMPL_IF name="author3" -->selected<!-- /TMPL_IF -->
>Yazar</option>
+
<option value="title" <!-- TMPL_IF name="title3" -->selected<!-- /TMPL_IF -->
>Eser adı</option>
+
<option value="subject" <!-- TMPL_IF name="subject3" -->selected<!-- /TMPL_IF
--> >Konu</option>
+
<option value="publishercode" <!-- TMPL_IF name="publishercode3"
-->selected<!-- /TMPL_IF --> >Basımevı</option>
+
<option value="itemnotes" <!-- TMPL_IF name="itemnotes3" -->selected<!--
/TMPL_IF --> >Hediye eden</option>
+
<option value="identifier-standard" <!-- TMPL_IF name="identifier-standard3"
-->selected<!-- /TMPL_IF --> >ISBN & ISSN</option>
+
</select>
+ </td>
+ <td><table height="20" border="0"
align="center" cellpadding="3" cellspacing="0" class="background1">
+ <tr>
+ <td>
+
<div align="right" class="style5"></div>
+ <div align="right" class="style5">
+
<input type="button" class="style5"
+
value="Sözlük..."
+
onclick="openDictionary(document.loose_form.kohafield[2].value,
document.loose_form.field_value[2].value,
'opener.document.loose_form.field_value[2]')"
+
style="border:0px;background-color:#4898B0">
+
</div>
+ </td>
+ </tr>
+ </table></td> <td
class="style1"><select type="text" name="relation"
+
class="style2">
+
<option value="@attr 3=1 @attr 5=1" <!-- TMPL_IF name="@attr 3=1 @attr 5=11"
-->selected<!-- /TMPL_IF -->>Bununla baÅlayan
+
</option>
+
<option value="@attr 4=1 @attr 5=100" <!-- TMPL_IF name="@attr 4=1 @attr
5=1001" -->selected<!-- /TMPL_IF -->>Sözcük dizini
+
</option>
+
<option value="@attr 5=1 @attr 4=6" <!-- TMPL_IF name="@attr 5=1 @attr 4=61"
-->selected<!-- /TMPL_IF --> >Tüm kelimeler
+
</option>
+
</select>
+
+ </td>
+ <td width="60">
+
+ <select
type="text" name="and_or"
+
class="style2">
+
<option value="@and" <!-- TMPL_IF name="@and3" -->selected<!-- /TMPL_IF -->>VE
+
</option>
+
<option value="@or" <!-- TMPL_IF name="@or3" -->selected<!-- /TMPL_IF --> >VEYA
+
</option>
+
</select>
+
+ </td>
+ </tr>
+
+ </table></td>
+ </tr>
+
+
+ <tr>
+ <td bgcolor="#F2F0E9"><table width="100%" border="0"
align="center">
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Katalog:</div></td>
+ <td width="50%">
+ <div
align="left">
+
+ <select
type="text" name="serverid"
+
class="style2">
+
<option value='-1' selected>YDà Kütüphane KataloÄu</option>
+
<option value='7' >Kıbrıs konulu gazete arÅivi</option>
+
<option value="0" >Tüm veri tabanları</option>
+
+
</select>
+ </div>
+ </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Kütüphane:</div></td>
+ <td width="50%">
+ <div
align="left">
+ <input
type="hidden" name="kohafield" value="holdingbranch">
+ <input
type="hidden" name="and_or" value="@and"><input type="hidden" name="relation"
value="@attr 2=3">
+ <select
type="text" name="field_value"
+
class="style2">
+
<option value='' selected>Tümü</option>
+
<!--TMPL_LOOP NAME="branches"-->
+
<option value="<!--TMPL_VAR NAME="branchcode"-->" ><!--TMPL_VAR
NAME="branchname"--></option>
+
<!--/TMPL_LOOP-->
+
</select>
+ </div>
+ </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td><div align="right">Türü:</div></td><!--
/TMPL_LOOP -->
+ <td><div align="left">
<input type="hidden" name="kohafield" value="itemtype">
+ <input
type="hidden" name="and_or" value="@and"><input type="hidden" name="relation"
value="@attr 2=3">
+ <select
size="1" name="field_value" style="width:170px"
+
class="style2">
+ <option
value="">Tümü</option>
+ <!-- TMPL_LOOP
name="itemtype_loop" -->
+ <option
value="<!-- TMPL_VAR name="itemtype" -->" ><!-- TMPL_VAR name="description"
--></option>
+ <!-- /TMPL_LOOP
-->
+ </select>
+ </div></td><!--TMPL_LOOP NAME="SEARCHPARAMS"-->
+ </tr>
+ <tr
bgcolor="#F9F8F4">
+ <td><div
align="right">Basım yılı:</div></td>
+ <td><input
type="hidden" name="kohafield" value="copyrightdate">
+ <input
type="hidden" name="relation" value="@attr 2=4 ">
+ <input
type="hidden" name="and_or" value="@and">
+ <div
align="left">
+
<input name='field_value'
+
type="text"
+
class="style1"
+
value='<!-- TMPL_VAR name="field_value6" -->'
+
size="10"> ...
+
ile:<input type="hidden" name="kohafield" value="copyrightdate>
+ <input
type="hidden" name="and_or" value="@and">
+ <input
type="hidden" name="relation" value="@attr 2=2 ">
+
<input name='field_value'
+
type="text"
+
class="style1"
+
value='<!-- TMPL_VAR name="field_value7" -->'
+
size="10"> arası
+ </div>
+ </td>
+ </tr>
+ <tr
bgcolor="#F9F8F4">
+ <td><div align="right">Sıralama</div></td>
+ <td >
+ <select size="1" name="order" style="width:170px"
class="style2">
+ <option value="" selected>Sistem önceliÄi</option>
+ <option value="title" >Eser adı</option>
+ <option value="author" >Yazar</option>
+ <option value="lcsort" >LC sınflama</option>
+ </select>
+
+ <select size="1" name="asc" style="width:170px"
class="style2">
+ <option value=" i<" selected>A-Z</option>
+ <option value=" >i" >Z-A</option>
+
+ </select>
+
+ </td></tr><!--/TMPL_LOOP-->
+ </table> </td>
+ </tr>
+ <tr>
+ <td><table height="20" border="0" align="center"
cellpadding="3" cellspacing="0">
+ <tr>
+ <td class="style1">
+ <table
height="20" border="0" align="center" cellpadding="3" cellspacing="0"
class="background1">
+ <tr valign="middle">
+
+
<td>
+
<div align="right" class="style5">
+
<input class="style5" type="submit"
+
value="Tara"
+
style="border:0px;background-color:#4898B0;height:18px">
+
</div>
+ </td>
+
+
+
+
<td>
+
<div align="right" class="style5">
+
<input class="style5"
+
type="button" value="Temizle"
+
onclick="document.location.href =
'/cgi-bin/koha/opac-search.pl?search_type=loose'"
+
style="border:0px;background-color:#4898B0;height:18px">
+
</div>
+
</td>
+ </form>
+
+ <td>
+ <div
align="right">
+ <img
src="<!-- TMPL_VAR NAME="themelang" -->/../images/help.gif" width="21"
height="21" alt="Yardım"
+
onclick="javascript: help('advanced_search_main_info')"
+
style="cursor:pointer">
+ </div>
+ </td>
+ </tr></table></td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+
+ </div>
+
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!--TMPL_INCLUDE NAME="bottomline.inc" -->
+<div id="bottombloc">
+
+<br>
+</div>
+
+</body>
+</html>
Index: koha-tmpl/opac-tmpl/css/tr/opac-searchresults.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-searchresults.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-searchresults.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-searchresults.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,443 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-facets.inc" -->
+
+<table width="760" height="20" border="0" align="center" cellpadding="0"
cellspacing="0" bgcolor="#F9F8F4">
+ <tr>
+ <td bgcolor="#E8E4D9">
+ <div align="right">
+ <form
action="/cgi-bin/koha/changelanguage.pl" method="post" name="language"
style="margin:0px">
+ <select name="language" class="style6"
+ onchange="javascript:
document.language.submit()">
+ <option value='en'
>English
+ </option>
+ <option value='tr'
selected>
+ Türkçe
+ </option>
+
+ </select>
+ </form>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Katalog Tarama
Sonuçları</td>
+ </tr>
+
+ <!-- TMPL_IF name="error" --><tr> <td bgcolor="#09B4D2"
class="style5">Sistem çok meÅgül. Yeniden tarayınız!</td></tr>
+<!-- TMPL_ELSE -->
+ <tr>
+ <td><table width="100%" border="0" align="left">
+ <tr>
+ <td><div align="center">
+ <p style="margin-top: 0; margin-bottom: 0"></div>
+ <div align="center">
+ <p style="margin-top: 0">
+ <!-- TMPL_LOOP
NAME="searchdesc" -->
+ Taranan alanlar:
+ <span
class="style3">
+ |
+ <!--
TMPL_IF name="any" -->Tüm alanlar = <!-- TMPL_VAR name="any"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="author" -->Yazar = <!-- TMPL_VAR name="author"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="title" -->Eser adı = <!-- TMPL_VAR name="title"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="subject" -->Konu = <!-- TMPL_VAR name="subject"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="subject-heading" -->Konu = <!-- TMPL_VAR name="subject-heading"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="isbn" -->ISBN = <!-- TMPL_VAR name="isbn" --> | <!--
/TMPL_IF -->
+ <!--
TMPL_IF name="publishercode" -->Yayınevi = <!-- TMPL_VAR name="publishercode"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="itemtype" -->Türü = <!-- TMPL_VAR name="itemtype"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="itemnotes" -->Hediye eden = <!-- TMPL_VAR name="itemnotes"
--> | <!-- /TMPL_IF -->
+ <!--
TMPL_IF name="holdingbranch" -->Kütüphane:<!-- TMPL_VAR name="holdingbranch"
--> | <!-- /TMPL_IF -->
+
+ <!-- /TMPL_LOOP
-->
+ </span><br>
+ Sonuçlar:
+ <span
class="style3">
+ <!--
TMPL_VAR NAME="totalresults" --> adet, toplam süre:<!-- TMPL_VAR
NAME="timetaken" --> saniye
+ </span> <br>
+ <!-- TMPL_IF
NAME="SUGGESTION" -->
+
Bunları deneyiniz:
+ <!--
TMPL_LOOP NAME="SUGGESTION" -->
+ <span
class="style3">
+
<a
href='/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1&kohafield=<!--
TMPL_VAR NAME="kohafield" -->&field_value=<!-- TMPL_VAR NAME="value"-->'
+
class="style3">
+
<!-- TMPL_VAR NAME="value" -->
+
</a>
+ </span>
+ |
<!--/TMPL_LOOP-->
+
+ <!-- /TMPL_IF
-->
+ </p>
+ </div>
+ </div> <div align="center"
class="style2">
+ <table border="0" cellpadding="2" cellspacing="2"
class="style6">
+<!-- TMPL_IF name="onlineloop" -->
+ <tr bgcolor="#06B4D2" class="style5">
+ <td class="style5" align="center">Katalog</td>
+ <td class="style5" align="center">Sonuçlar</td>
+ <td class="style5" align="center">Git</td>
+</tr>
+<tr bgcolor="#99cccc" >
+ <td>YDà Kütüphane KataloÄu</td>
+ <td><!-- TMPL_VAR NAME="numrecords" --></td>
+ <td><a href="opac-search.pl?op=do_search&zoom=1<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" --><!-- /TMPL_LOOP -->&serverid=-1">Sonuçları göster</a></td>
+ </tr>
+ <!-- TMPL_LOOP name="onlineloop" -->
+ <tr <!--TMPL_IF
NAME="even"-->bgcolor="DEE5E7"<!--TMPL_ELSE-->bgcolor="#F2F0E9"<!--/TMPL_IF-->>
+ <td><!-- TMPL_VAR NAME="server" --></td>
+ <td><!-- TMPL_VAR NAME="numresults" --></td>
+ <td><a href='<!-- TMPL_VAR NAME="search_string" -->'
target="_blank">Sonuçları göster</a></td>
+
+
+ </tr>
+ <!-- /TMPL_LOOP -->
+</table>
+<br>
+ <a class="style1"
href="/cgi-bin/koha/opac-search.pl">
+ Yeni tarama
+ </a>
+<!--TMPL_ELSE-->
+ <tr bgcolor="#06B4D2" class="style5">
+ <!-- TMPL_IF
NAME="displayprev" -->
+ <td class="style5" align="center">
+ <p style="margin-top: 0; margin-bottom:
0">
+ <a
style="color:white"
href='/cgi-bin/koha/opac-search.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="prevstartfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!-- /TMPL_LOOP
-->&serverid=-1&reorder=<!-- TMPL_VAR NAME="reorder" -->'
+
class="style5">
+
<<
+ </a>
+ </p>
+ </td>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_LOOP
NAME="numbers" -->
+ <!-- TMPL_IF
NAME="highlight" -->
+ <td
bgcolor="#999999" class="style5" align="center">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<!-- TMPL_VAR NAME="number" -->
+ </p>
+ </td>
+ <!-- TMPL_ELSE
-->
+ <td
class="style5" align="center">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<a style="color:white"
+
href='/cgi-bin/koha/opac-search.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="startfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!-- /TMPL_LOOP -->&pg=<!--
TMPL_VAR NAME="pg" -->&serverid=-1&reorder=<!-- TMPL_VAR NAME="reorder" -->'
+
class="style5">
+
<!-- TMPL_VAR NAME=number -->
+
</a>
+ </p>
+ </td>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_LOOP -->
+
+ <!-- TMPL_IF
NAME="displaynext" -->
+ <td class="style5" align="center">
+ <p style="margin-top: 0; margin-bottom:
0">
+ <a
href='/cgi-bin/koha/opac-search.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="nextstartfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!-- /TMPL_LOOP
-->&serverid=-1&reorder=<!-- TMPL_VAR NAME="reorder" -->'
+
class="style5">
+
>>
+ </a>
+ </p>
+ </td>
+ <!-- /TMPL_IF -->
+ </tr>
+ </table>
+ </div> <div align="right">
</div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <!-- TMPL_IF NAME="numrecords" -->
+
+ <tr>
+ <td>
+ <table width="100%" border="0" cellpadding="0"
cellspacing="0">
+ <tr>
+ <td bgcolor="#F2F0E9">
+ <table height="20"
border="0" align="center" cellpadding="0" cellspacing="1">
+ <tr class="style14">
+ <td class="style4" width="5%"
align="center">
+
<img src="<!-- TMPL_VAR NAME="themelang" -->/../images/basket.gif" width="19"
height="16">
+ </td>
+ <td class="style2"
align="center">
+ <input type="button"
class="style2" value="Sepete ekle" onclick="addMultiple()"
style="border:0px;background-color:#F2F0E9;text-align:left">
+ </td>
+
+ <!-- TMPL_IF Name="loggedinusername" -->
+ <!-- TMPL_IF
name="shelvescount" -->
+
<td class="style4" width="5%" align="center">
+ <img src="<!-- TMPL_VAR
NAME='themelang' -->/../images/book1.gif" width="16" height="16">
+
</td>
+
<td class="style2" align="center">
+
+
<input type="button" value="Sanal rafa ekle" class="style2"
+
style="border:0px;background-color:#F2F0E9;text-align:left;display:block;"
+
onclick="show_shelfPanel();">
+
+
<div class="shelf_panel" id="shelf_panel" style="display:none;">
+
<form name="shelf_form"
action="/cgi-bin/koha/opac-add-biblios-to-shelves.pl" method="post">
+ <input
type="checkbox" name="shelfnumber" value="-1" style="display:none;">
+
<input type="hidden" name="biblios" value="">
+
<input type="hidden" name="return_url"
value="/cgi-bin/koha/opac-search.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="startfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!-- /TMPL_LOOP
-->&serverid=-1">
+
<span class="style3">Sanal rafı ve eklenecek kayıtları
seçiniz.</span>
+
<table>
+
<!-- TMPL_LOOP name="shelves" -->
+
<tr>
+
<td>
+
<input type="checkbox"
name="shelfnumber" value="<!-- TMPL_VAR name="shelfnumber" -->">
+
</td>
+
<td>
+
<a class="style12"
href="/cgi-bin/koha/opac_shelves.pl?op=viewcontent&shelfnumber=<!-- TMPL_VAR
name="shelfnumber" -->"><!-- TMPL_VAR name="shelfname" --></a>
+
</td>
+
<td>
+
<!-- TMPL_VAR name="shelfbookcount" -->
documents
+
</td>
+
</tr>
+
<!-- /TMPL_LOOP -->
+
</table>
+
<div align="right" class="style5">
+
<input type="button"
onclick="addBibliosToShelves()" value="Ekle" class="style5"
style="border:0px;background-color:#4898B0;height:20px;">
+
</div>
+
+
</form>
+
</div>
+
</td>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_IF
-->
+
+ <td
class="style4" width="5%" align="center">
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/erase.gif" width="15" height="15">
+ </td>
+ <td class="style2"
align="center" >
+
<input type="button" value="Tümünü temizle" class="style2"
onclick="document.myform.reset()"
style="border:0px;background-color:#F2F0E9;text-align:left">
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ <form name="myform" action="" style="margin:0px">
+ <table width="100%" border="0" cellpadding="2"
cellspacing="1" bordercolor="#DCD9CF" bgcolor="#DCD9CF">
+ <tr bgcolor="#DCD9CF">
+ <td width="18" bgcolor="#DCD9CF"><div
align="center"></div></td>
+ <td width="10" bgcolor="#DCD9CF"> </td>
+ <td bgcolor="#DCD9CF" class="style1"><div
align="center"><a href="/cgi-bin/koha/opac-search.pl?op=do_search<!-- TMPL_LOOP
NAME="FORMINPUTS" -->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR
NAME="value" --><!-- /TMPL_LOOP
-->&reorder=title,2&serverid=-1">â¼</a>Eser adı <a
href="/cgi-bin/koha/opac-search.pl?op=do_search<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!--
/TMPL_LOOP -->&reorder=title,1&serverid=-1">â²</a></div></td>
+ <td align="center" class="style1"><div align="center"><a
href="/cgi-bin/koha/opac-search.pl?op=do_search<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!--
/TMPL_LOOP -->&reorder=author,2&serverid=-1 ">â¼</a>Yazar<a
href="/cgi-bin/koha/opac-search.pl?op=do_search<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!--
/TMPL_LOOP -->&reorder=author,1&serverid=-1 ">â²</a></div></td>
+ <td align="center">Yayınevi</td>
+ <td align="center">Basım</td>
+ <td align="center" class="style1"><div align="center"><a
href="/cgi-bin/koha/opac-search.pl?op=do_search<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!--
/TMPL_LOOP -->&reorder=local-number,2&serverid=-1 ">â¼</a>Raf<a
href="/cgi-bin/koha/opac-search.pl?op=do_search<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!--
/TMPL_LOOP -->&reorder=local-number,1&serverid=-1">â²</a></div></td>
+ <td align="center">Yeri</td>
+ <td align="center"><div align="center"></div></td>
+ </tr>
+ <input type="checkbox" name="bibid" value="0"
style="display:none">
+ <!-- TMPL_LOOP NAME="SEARCH_RESULTS" -->
+ <tr <!--TMPL_IF NAME="even"--> bgcolor="DEE5E7"<!--
TMPL_ELSE -->bgcolor="#F2F0E9"<!-- /TMPL_IF -->>
+ <td width="18" align="center" valign="middle">
+ <div align="center"><!--TMPL_IF
NAME="totalissues"--><!--TMPL_VAR NAME="totalissue"--><!--/TMPL_IF-->
+ <img src='<!--TMPL_VAR
NAME="themelang"-->/../images/<!-- TMPL_VAR NAME="itemtype" -->.gif'
+ width="16"
height="16">
+ </div>
+ </td>
+ <td width="10" align="center" valign="middle">
+ <input type="checkbox"
name="bibid" value='<!-- TMPL_VAR NAME="biblionumber" -->'>
+ </td>
+ <td width="220px">
+ <!-- TMPL_IF NAME="color-id" -->
+ <span style='color:<!--
TMPL_VAR NAME="color-id" -->'>
+ <!-- TMPL_ELSE -->
+ <span class="style3">
+ <!-- /TMPL_IF -->
+
+ </span>
+ <a class="style1"
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->">
+ <!-- TMPL_VAR
NAME="title" -->
+ </a>
+ <br>
+ <!-- TMPL_IF NAME="subtitle"
--><!-- TMPL_VAR NAME="subtitle" --><br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="isbn"
-->ISBN: <!-- TMPL_VAR NAME="isbn" --> <!-- /TMPL_IF -->
+ </td>
+ <td align="center" class="style2"
+ width="110px">
+ <div align="left">
+ <!-- TMPL_IF
NAME="author" -->
+ <a
class="style1"
+
href="/cgi-bin/koha/opac-search.pl?op=do_search&serverid=-1&kohafield=author&field_value=<!--
TMPL_VAR NAME="author" -->">
+ <!--
TMPL_VAR NAME="author" -->
+ </a><br>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_LOOP
NAME="additionalauthors" -->
+ <a
class="style1"
href="/cgi-bin/koha/opac-search.pl?op=do_search&kohafield=author&field_value=<!--
TMPL_VAR NAME="value" -->&serverid=-1">
+ <!--
TMPL_VAR NAME="value" -->
+ </a><br>
+ <!-- /TMPL_LOOP -->
+ </div>
+ </td>
+ <td align="center" class="style2">
+ <!-- TMPL_VAR
NAME="publishercode" -->
+ </td>
+ <td align="center" class="style2">
+ <!-- TMPL_IF
NAME="publicationyear" -->
+ <!-- TMPL_VAR
NAME="publicationyear" -->
+ <!--TMPL_ELSE-->
+ <!-- TMPL_VAR
NAME="copyrightdate" -->
+ <!-- /TMPL_IF -->
+ </td>
+ <td align="center" class="style2">
+ <a href="javascript:
locationonly('<!-- TMPL_VAR NAME="classification" -->','<!-- TMPL_VAR
name="location-only" -->');"><!-- TMPL_IF NAME="classification" --> <!--
TMPL_VAR NAME="classification" --> <!-- TMPL_VAR NAME="subclass"
--><!--TMPL_ELSE-->?<!--/TMPL_IF--></a>
+ </td>
+ <td align="center" class="style2">
+ <!-- TMPL_IF NAME="on-loan-p"
--> <!-- TMPL_VAR NAME="on-loan-p" --> - On loan <br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="lost-p" --> <!--
TMPL_VAR NAME="lost-p" --> - Lost <br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF NAME="not-available-p"
--> <!-- TMPL_VAR NAME="not-available-p" --> - Not for loan <br> <!-- /TMPL_IF
-->
+ <!-- TMPL_IF name="location-only" -->
+ <!-- TMPL_VAR
name="location" -->
+ <!-- TMPL_ELSE -->
+ -
+ <!-- /TMPL_IF -->
+ </td>
+ <td align="center" class="style2">
+ <div align="center">
+ <!-- TMPL_IF
NAME="noitems" -->
+ -
+ <!-- TMPL_ELSE -->
+ <!-- TMPL_IF
NAME="norequests" -->
+
Ãdünç verilmez
+ <!-- TMPL_ELSE
-->
+ <!--
TMPL_IF NAME="on-loan-p" -->
+ <a
class="style1"
+
href="/cgi-bin/koha/opac-reserve.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->">
+
Rezerv
+
<!--TMPL_ELSE-->
+
Kütüphanede
+
<!--/TMPL_IF-->
+ </a>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_IF -->
+ </div>
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </form>
+ </td>
+ </tr>
+
+ <tr>
+ <td>
+ <form method='get'
action="/cgi-bin/koha/opac-search.pl" name="keyword_form" >
+ <input type="hidden" name="op"
value="do_search" />
+ <input type="hidden" name =
"kohafield" value="any">
+ <input type="hidden" name =
"serverid" value="-1">
+ <table width="90%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td>
+ <table
width="100%" border="0" align="center" bgcolor="#FFFFFF">
+ <tr bgcolor="#DCD9CF">
+
<td colspan="4" align="center" class="">
+ Hızlı tarama
+
</td>
+ </tr>
+
<tr>
+ <td>
+ Term:
+ </td>
+ <td>
+
<input autocomplete="off" name="field_value" type="text" class="style1"
value="" style="width:190px;overflow:auto" " >
+
+
+
</td>
+
<td>
+
<div align="center">
+
+ <input name="relation"
type="radio" class="style2" value="@attr 4=1 @attr 5=100" checked>Sözcük
dizini
+
<input name="relation" type="radio" class="style2"
value="@attr 5=1" >Her kelime
+
+
</div>
+
</td>
+
+
+ <td align="center"
><div align="center">
+
<table height="20" border="0" align="center" cellpadding="3" cellspacing="0"
class="background1">
+ <tr>
+
<td>
+
<div align="left" class="style5"
style="margin:0px;padding:0px">
+
<img src="<!-- TMPL_VAR
NAME='themelang' -->/../images/lupe.gif" width="15" height="15"
onclick="javascript: document.keyword_form.submit()" style="cursor:pointer">
+
</div>
+
</td>
+
<td>
+
<div align="left" class="style5">
+
<input onclick="return
this.form.field_value1.value != ''" type="submit" value="Tara" class="style5"
style="background-color:#4898B0;border:0px;margin:0px;padding:0px;cursor:pointer">
+
+
</div>
+
</td>
+ </tr>
+ </table>
+ </td>
+
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+
+
+ <tr>
+ <td> <table border="0" cellpadding="2"
cellspacing="2" class="style6"
+ align="center">
+ <tr bgcolor="#06B4D2" class="style5">
+
+ <!-- TMPL_LOOP
NAME="numbers" -->
+ <!-- TMPL_IF
NAME="highlight" -->
+ <td
bgcolor="#999999" class="style5">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<!-- TMPL_VAR NAME="number" -->
+ </p>
+ </td>
+ <!-- TMPL_ELSE
-->
+ <td
class="style5">
+ <p
style="margin-top: 0; margin-bottom: 0">
+
<a style="color:white"
+
href='/cgi-bin/koha/opac-search.pl?op=do_search&startfrom=<!-- TMPL_VAR
NAME="startfrom" --><!-- TMPL_LOOP NAME="FORMINPUTS" -->&<!-- TMPL_VAR
NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!-- /TMPL_LOOP -->&pg=<!--
TMPL_VAR NAME="pg" -->&serverid=-1&reorder=<!-- TMPL_VAR NAME="reorder" -->'
+
class="style5">
+
<!-- TMPL_VAR NAME=number -->
+
</a>
+ </p>
+ </td>
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_LOOP -->
+
+ </tr>
+
+ </table>
+ <p align="center">
+ Results
+ <span class="style3"><!-- TMPL_VAR
NAME="starting" --></span>
+ -
+ <span class="style3"><!-- TMPL_VAR
NAME="ending" --></span>
+ of <span class="style3"><!-- TMPL_VAR
NAME="numrecords" --></span>
+ records.<br>
+ <a class="style1"
href="/cgi-bin/koha/opac-search.pl">
+ Yeni tarama
+ </a>
+ |
+ <a class="style1"
+
href="/cgi-bin/koha/opac-search.pl?flag=''<!-- TMPL_LOOP NAME="FORMINPUTS"
-->&<!-- TMPL_VAR NAME="field" -->=<!-- TMPL_VAR NAME="value" --><!--
/TMPL_LOOP -->&serverid=-1">
+ Ãnceki taramaya dön
+ </a>
+ </p>
+
+
+
+
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- /TMPL_IF -->
+
+ </table></td>
+<!-- /TMPL_IF -->
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-sendbasket.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-sendbasket.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-sendbasket.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-sendbasket.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,32 @@
+<SUBJECT>
+Your Book Bag
+<END_SUBJECT>
+
+<HEADER>
+Hi,
+Here is your Book Bag, sent from the NEU Online Catalog by <!-- TMPL_VAR
name="email_sender" -->
+<END_HEADER>
+
+<MESSAGE>
+---------------------------------------------
+<!-- TMPL_LOOP NAME="BIBLIO_RESULTS" --><!-- TMPL_VAR NAME="title" --> <!--
TMPL_IF name="subtitle" --> <!-- TMPL_VAR NAME="subtitle" --><!-- /TMPL_IF -->
+<!-- TMPL_IF name="author" -->Author: <!-- TMPL_VAR NAME="author" --><!--
/TMPL_IF --><!-- TMPL_IF name="additional" -->
+Additional authors: <!-- TMPL_VAR NAME="additional" --><!-- /TMPL_IF -->
+<!-- TMPL_IF name="isbn" -->ISBN: <!-- TMPL_VAR NAME="ISBN" --><!-- /TMPL_IF
-->
+<!-- TMPL_IF name="publishercode" -->Published by: <!-- TMPL_VAR
NAME="publishercode" --><!-- /TMPL_IF --><!-- TMPL_IF name="publicationyear"
--> in <!-- /TMPL_IF --><!-- TMPL_VAR NAME="publicationyear" --><!-- TMPL_IF
name="pages" -->, <!-- /TMPL_IF --><!-- TMPL_VAR name="pages" --><!-- TMPL_IF
name="size" -->, <!-- /TMPL_IF --><!-- TMPL_VAR name="size" --><!-- TMPL_IF
name="collection" -->
+Collection: <!-- TMPL_VAR NAME="seriestitle" --><!-- /TMPL_IF --><!-- TMPL_IF
name="subject" -->
+Subject: <!-- TMPL_VAR NAME="subject" --><!-- /TMPL_IF --><!-- TMPL_IF
name="copyrightdate" -->
+Copyright year: <!-- TMPL_VAR NAME="copyrightdate" --><!-- /TMPL_IF --><!--
TMPL_IF name="notes" -->
+Notes : <!-- TMPL_VAR NAME="notes" --><!-- /TMPL_IF --><!-- TMPL_IF
name="unititle" -->
+Unified title: <!-- TMPL_VAR NAME="unititle" --><!-- /TMPL_IF --><!-- TMPL_IF
name="serial" -->
+Serial: <!-- TMPL_VAR NAME="serial" --><!-- /TMPL_IF --><!-- TMPL_IF
name="dewey" -->
+LC: <!-- TMPL_VAR name="classification" --><!-- /TMPL_IF --><!-- TMPL_IF
name="classification" -->
+Classification: <!-- TMPL_VAR name="classification" --><!-- /TMPL_IF --><!--
TMPL_IF name="lccn" -->
+LCCN: <!-- TMPL_VAR name="lccn" --><!-- /TMPL_IF --><!-- TMPL_IF name="url" -->
+URL : <!-- TMPL_VAR NAME="url" --><!-- /TMPL_IF -->
+Items : <!-- TMPL_LOOP NAME="ITEM_RESULTS" -->
+ <!-- TMPL_VAR NAME="branchname" --> <!-- TMPL_VAR NAME="location" -->
<!-- TMPL_IF name="itemcallnumber" -->(<!-- TMPL_VAR NAME="itemcallnumber"
-->)<!-- /TMPL_IF --> <!-- TMPL_VAR NAME="barcode" -->
+<!-- /TMPL_LOOP -->
+---------------------------------------------
+<!-- /TMPL_LOOP -->
+<END_MESSAGE>
Index: koha-tmpl/opac-tmpl/css/tr/opac-sendbasketform.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-sendbasketform.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-sendbasketform.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-sendbasketform.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,63 @@
+<!-- TMPL_INCLUDE NAME="opac-basket-top.inc" -->
+
+<body align="center">
+<!-- TMPL_IF NAME="email_add" -->
+ <table width="350" border="0" align="center" cellpadding="2"
cellspacing="2" bgcolor="#DCD9CF">
+ <tr bgcolor="#DCD9CF">
+ <td class="style2"><div align="left" class="style16">
+ <div align="center"><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/basket01.gif" width="19" height="16"> Book Basket</div>
+ </div> </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td class="style2">
+ <div align="center">
+ <!-- TMPL_IF NAME="SENT" -->
+ The book bag has been sent:
+ <span class="style3">
+ <!-- TMPL_VAR NAME="email_add"
-->
+ </span>
+ <!-- TMPL_ELSE -->
+ There is an error with the email
provided.
+ <!-- /TMPL_IF -->
+ </div>
+ </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td class="style2"><div align="center">
+ <input type="button" value="OK" class="style2"
+ onclick="window.close()">
+ </div></td>
+ </tr>
+ </table>
+<!-- TMPL_ELSE -->
+ <form action="/cgi-bin/koha/opac-sendbasket.pl" method="post">
+ <input type='hidden' name="bib_list" value="<!-- TMPL_VAR
NAME="bib_list" -->" />
+ <table width="350" border="0" align="center" cellpadding="2"
cellspacing="2" bgcolor="#DCD9CF">
+ <tr bgcolor="#DCD9CF">
+ <td class="style2"><div align="left" class="style16">
+ <div align="center"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/basket01.gif" width="19" height="16">Sending
Book Basket</div>
+ </div> </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td class="style2"><div align="center">The email
address to send to:
+ <input name="email_add" size="30"
+ value='<!-- TMPL_VAR
NAME="default_email" -->'
+ class="style2"/>
+ </div></td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td class="style2"><div align="center">MARC dosyasýný
ekle:
+ <input type="checkbox" name="marcfile" />
+ </div></td></tr>
+ <tr bgcolor="#F9F8F4">
+ <td class="style2">
+ <div align="center">
+ <input type="submit" value="Accept"
class="style2">
+ <input type="button" value="Cancel"
class="style2" onclick="window.close()">
+ </div>
+ </td>
+ </tr>
+ </table>
+ </form>
+<!-- /TMPL_IF -->
+<!-- TMPL_INCLUDE NAME="opac-basket-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-sendpwd.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-sendpwd.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-sendpwd.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-sendpwd.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,41 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style5">
+ <table width="0%" border="0" align="center"
cellpadding="2" cellspacing="2">
+ <tr>
+ <td><div align="center"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/password.gif" width="32" height="32"></div></td>
+ <td align="left" valign="middle">
+ <div align="left">
+ <!-- TMPL_IF
NAME="invalid_username" -->
+ Kullanýcý adý
veya numarasý geçersiz
+ <!-- TMPL_ELSE -->
+ <!-- TMPL_IF
NAME="not_mail" -->
+ Bize
kayýtlý email adresiniz yoktur. Þifrenizi gönderemiyoruz
+ <!-- TMPL_ELSE
-->
+ <!--
TMPL_IF NAME="sent" -->
+
Þifrenizi:
+
<br><span class="style3"><!-- TMPL_VAR NAME="email" --></span> adresine
gönderdik
+ <!--
TMPL_ELSE -->
+
Email gönderirken hata oluþtu:
+
<br><span class="style3"><!-- TMPL_VAR NAME="email" --></span>
+ <!--
/TMPL_IF -->
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_IF -->
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
+
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-sendpwdmail.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-sendpwdmail.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-sendpwdmail.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-sendpwdmail.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,15 @@
+§SUBJECT§
+Your access details to the library
+§END_SUBJECT§
+
+§HEADER§
+Hi,
+Your password is as follows
+§END_HEADER§
+
+§MESSAGE§
+
+Username: <!-- TMPL_VAR NAME="userid" -->
+Password: <!-- TMPL_VAR NAME="password" -->
+
+§END_MESSAGE§
\ No newline at end of file
Index: koha-tmpl/opac-tmpl/css/tr/opac-serial-issues.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-serial-issues.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-serial-issues.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-serial-issues.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,97 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!--------------------------MAIN BODY OF PAGE-------------------------->
+<div id="main">
+<h1 class="catalogue">Issues for a subscription</h1>
+<a href="opac-detail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->"
class="button catalogue">Back to catalogue</a>
+<form method="post" name="f">
+<div id="bloc25">
+ <h2 class="catalogue">Subscription information for<!-- TMPL_VAR
name="bibliotitle" --></h2>
+ <p>It began on<b><!-- TMPL_VAR name="startdate" --></b> and is
issued every<b>
+ <!--TMPL_IF name="periodicity1" -->
+ day
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity2" -->
+ week
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity3" -->
+ 2 weeks
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity4" -->
+ 3 weeks
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity5" -->
+ month
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity6" -->
+ 2 months
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity7" -->
+ 3 months
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity8" -->
+ quarter
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity9" -->
+ 2 quarters
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity10" -->
+ year
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="periodicity11" -->
+ 2 years
+ <!-- /TMPL_IF -->
+ </b>
+ on
+ <b>
+ <!--TMPL_IF name="arrival1" -->
+ Monday
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="arrival2" -->
+ Tuesday
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="arrival3" -->
+ Wednesday
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="arrival4" -->
+ Thursday
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="arrival5" -->
+ Friday
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="arrival6" -->
+ Saturday
+ <!-- /TMPL_IF -->
+ <!--TMPL_IF name="arrival7" -->
+ Sunday
+ <!-- /TMPL_IF -->
+ </b>for <b>
+ <!-- TMPL_IF name="numberlength" --><!-- TMPL_VAR
name="numberlength" --> issues<!-- /TMPL_IF -->
+ <!-- TMPL_IF name="weeklength" --><!-- TMPL_VAR
name="weeklength" --> weeks<!-- /TMPL_IF -->
+ <!-- TMPL_IF name="monthlength" --><!-- TMPL_VAR
name="monthlength" --> months<!-- /TMPL_IF -->
+ </b>
+ since <b><!-- TMPl_VAR name="startdate" --></b>
+ </p>
+ <p><!-- TMPL_VAR name="notes" --></p>
+ <!-- TMPL_IF name="opacnote" -->
+ <h2>Issues summary</h2>
+ <p>
+ <!-- TMPL_VAR name="opacnote" -->
+ </p>
+ <!-- /TMPL_IF -->
+<!-- TMPL_IF name="recievedlist" -->
+ <h2 class="catalogue">Recieved issues</h2>
+ <p>
+ <!-- TMPL_VAR name="recievedlist" -->
+ </p>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="missinglist" -->
+ <h2 class="catalogue">Missing issues</h2>
+ <p>
+ <!-- TMPL_VAR name="missinglist" -->
+ </p>
+ <!-- /TMPL_IF -->
+</div>
+
+</div>
+
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-shelves.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-shelves.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-shelves.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-shelves.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,419 @@
+<!-- TMPL_INCLUDE Name="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!--TMPL_INCLUDE name="opac-menu.inc"-->
+
+<SCRIPT LANGUAGE="JavaScript">
+
+var lastDIVshowed = '';
+
+function show_careers(sb) {
+ if (lastDIVshowed != '') {
+ document.getElementById(lastDIVshowed).style.display = 'none';
+ }
+ var item = sb.options[sb.selectedIndex].value;
+ if (item == '') {
+ lastDIVshowed = item;
+ } else {
+ var nextDIV = document.getElementById(item);
+ lastDIVshowed = item;
+ nextDIV.style.display = 'inline';
+ }
+
+}
+
+function checkAll(chk) {
+
+ var form = chk.form;
+
+ var checked = chk.checked;
+ var chks = form.shelfnumber;
+ for (i = 0; i < chks.length ; i++) {
+ if (chks[i].value == chk.value) {
+ chks[i].checked = checked;
+ }
+ }
+}
+
+function checkActualCareers() {
+ var selbox = document.add_form.actual_careers;
+ var radios = document.add_form.careers;
+ for (j = 0; j < radios.length; j++ ) {
+ for (i = 0; i < selbox.options.length; i++) {
+ if (selbox.options[i].value == radios[j].value) {
+ radios[j].checked = true;
+ }
+ }
+ }
+}
+
+function checkCareer(rb) {
+
+ var selbox = document.add_form.actual_careers;
+ var item = -1;
+
+ for (i = 0; i < selbox.options.length; i++) {
+ if (selbox.options[i].value == rb.value) {
+ item = i;
+ }
+ }
+
+ if (rb.checked) {
+ option = new Option;
+ option.value = rb.value;
+ option.text = rb.id + ' - ' + rb.alt;
+ selbox.options[selbox.options.length] = option;
+ } else if (item != -1) {
+ selbox.options[item] = null;
+ }
+
+}
+
+//this functions trim the leading spaces of a string.
+function trim(s) {
+ while (s.substring(0,1) == ' ') {
+ s = s.substring(1,s.length);
+ }
+ while (s.substring(s.length-1,s.length) == ' ') {
+ s = s.substring(0,s.length-1);
+ }
+ return s;
+}
+
+function validityAdd_Form() {
+ if ( trim(document.add_form.shelfname.value) == '') {
+ alert('Missing parameter');
+ return false;
+ }
+ if ( document.add_form.actual_careers.options.length == 0 ) {
+ alert('Fill a name');
+ return false;
+ }
+ return true;
+}
+ function checkAllbiblio(){
+ var checkboxes = document.getElementsByTagName('input');
+ var nbCheckbox = checkboxes.length;
+ var check = areAllChecked();
+ check = !check;
+ for(var i=0;i<nbCheckbox;i++){
+ if(checkboxes[i].getAttribute('type') == "checkbox" ){
+ checkboxes[i].checked = check;
+ }
+ }
+ }
+ /**
+ * this function return true if all checkbox are checked
+ */
+ function areAllChecked(){
+ var checkboxes = document.getElementsByTagName('input');
+ var nbCheckbox = checkboxes.length;
+ for(var i=0;i<nbCheckbox;i++){
+ if(checkboxes[i].getAttribute('type') == "checkbox" ){
+ if(checkboxes[i].checked == 0){
+ return false;
+ }
+ }
+ }
+ return true;
+ }
+</SCRIPT>
+
+<!-- TMPL_IF Name="add_form" -->
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%"
border="0" align="center" cellpadding="4" cellspacing="2">
+
+ <tr>
+ <td>
+ <SCRIPT LANGUAGE="JavaScript">
+ <!-- TMPL_LOOP name="messages" -->
+ <!-- TMPL_IF
Name="duplicated_name" -->
+ alert('Bu isimde raf
var: ' + '<!-- TMPL_VAR Name="shelfname" -->');
+ <!-- /TMPL_IF -->
+ <!-- /TMPL_LOOP -->
+ </script>
+ <form method="post"
action="/cgi-bin/koha/opac-shelves.pl" name="add_form" onSubmit="return
validityAdd_Form()">
+ <input type="hidden" name="op"
value="<!-- TMPL_VAR Name="op" -->">
+ <input type="hidden" name="shelfnumber"
value="<!-- TMPL_VAR name="shelfnumber" -->">
+ <table width="720" border="0" align="center"
bgcolor="#F2F0E9">
+ <tr>
+ <td height="20" colspan="2"
bgcolor="#DCD9CF">
+ <table width="100%" border="0"
align="center" bgcolor="#DCD9CF">
+ <tr>
+ <td width="25%"
height="20" bgcolor="#DCD9CF">
+ <div
align="center" class="style16"></div>
+ </td>
+ <td width="50%"
height="20" bgcolor="#DCD9CF">
+ <div
align="center">
+
Sanal Raf ekle
+ </div>
+ </td>
+ <td width="25%"
height="20" bgcolor="#DCD9CF">
+ <div
align="right">
+
<img src="<!-- TMPL_VAR NAME='themelang' -->/../images/help.gif" width="21"
height="21" alt="Help"
+
onclick="javascript: help('shelves_help')"
+
style="cursor:pointer">
+ </div>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <tr bgcolor="#F9F8F4">
+ <td width="50%" valign="top"><div
align="center">
+ <table border="0"
align="center">
+ <tr>
+ <td><div
align="left">Raf adı </div></td>
+ </tr>
+ <tr>
+ <td>
+ <div
align="left">
+ <input
type="text" name="shelfname" value="<!-- TMPL_VAR Name="shelfname" -->"
class="style2">
+ </div></td></tr>
+
+ </table>
+ </div> <div
align="center">
+ </div></td>
+ <td width="50%" rowspan="2"
valign="top"><div align="center">
+ <table width="100%" border="0"
align="center">
+ <tr>
+ <td><div
align="center">Sınıfı</div></td>
+ </tr>
+ <tr>
+ <td>
+ <div align="center">
+ <select
name="category" class="style8">
+ <option
value="1" <!-- TMPL_IF Name="private" -->selected<!-- /TMPL_IF -->
>Ãzel</option>
+ <!--
TMPL_IF Name="make_public_shelves" -->
+
<option value="2" <!-- TMPL_IF Name="public" -->selected<!-- /TMPL_IF
-->>Genel</option>
+ <!--
/TMPL_IF -->
+ </select>
+
</div><li><strong>Ãzel</strong> rafları sadece <strong>siz</strong>
görebilirsiniz.</li>
+ <!-- TMPL_IF
Name="make_public_shelves" -->
+ <li>
<strong>Genel</strong> rafları herkes görebilir, sadece <strong>siz</strong>
düzenleyebilirsiniz.</li>
+ <!-- /TMPL_IF
-->
+ </td>
+ </tr>
+
+ </table>
+ <br>
+ </div></td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td width="50%"><div align="center">
+ <input type="submit"
class="style2" value="Ekle">
+ <input type="button"
class="style2" value="Ä°ptal" onclick="document.location.href =
'/cgi-bin/koha/opac-shelves.pl'">
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ </form>
+
+<!-- /TMPL_IF -->
+<!-- TMPL_IF Name="viewshelfcontent" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%"
border="0" align="center" cellpadding="4" cellspacing="2">
+
+ <tr>
+ <td><table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF" class="style8">
+ <td>RAf adı</td>
+ </tr>
+ <tr>
+ <td bgcolor="#F9F8F4"><!-- TMPL_VAR
name="shelfname" --></td>
+
+ </tr>
+ </table>
+ <hr align="center" width="98%" size="1"
class="style6">
+ <form method="post"
action="/cgi-bin/koha/opac-shelves.pl" name="delform">
+ <input type="hidden" name="op"
value="del_items">
+ <input type="hidden" name="shelfnumber"
value="<!-- TMPL_VAR name="shelfnumber" -->">
+ <table width="98%" border="0"
align="center" bgcolor="#F2F0E9">
+ <tr>
+ <td colspan="9" align="center">
+ <span align="center"
class="style1">
+ İçindekiler
+ </span>
+ </td>
+ </tr>
+ <tr bgcolor="#DCD9CF">
+ <td bgcolor="#DCD9CF"
class="style1" colspan=2"><div align="right"><img src='<!-- TMPL_VAR
NAME="themelang" -->/../images/checkall.gif' width="16" height="16"
onclick="checkAllbiblio()" Alt="Tümünü seç"
style="cursor:pointer"></div></td>
+ <td bgcolor="#DCD9CF"
class="style1" ><div align="center">Eser Adı</div></td>
+ <td bgcolor="#DCD9CF"
class="style1"><div align="center">Yazar</div></td>
+ <td bgcolor="#DCD9CF"
class="style1"><div align="center">Yayınevi</div></td>
+
+ <td bgcolor="#DCD9CF"
class="style1"><div align="center">Yılı</div></td>
+
+ </tr>
+ <!-- TMPL_LOOP name="content" -->
+ <tr>
+ <td width="10" align="center"
valign="middle" bgcolor="#F9F8F4">
+ <div align="center">
+ <img src='<!--
TMPL_VAR NAME="themelang" -->/../images/<!-- TMPL_VAR NAME="itemtype" -->.gif'
width="16" height="16">
+ </div>
+ </td>
+ <td width="10" align="center"
valign="middle" bgcolor="#F9F8F4">
+ <div align="center">
+ <input
type="checkbox" name="biblionumber" value="<!-- TMPL_VAR name="biblionumber"
-->">
+ </div>
+ </td>
+ <td align="left"
bgcolor="#F9F8F4" class="style8">
+
+ <a class="style8"
href="/cgi-bin/koha/opac-detail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->">
+ <!-- TMPL_VAR
name="title" -->
+ </a>
+ <br>
+ <!-- TMPL_IF
NAME="subtitle" --><!-- TMPL_VAR NAME="subtitle" --><br> <!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="isbn" -->ISBN: <!-- TMPL_VAR NAME="isbn" --> <!-- /TMPL_IF -->
+ </td>
+ <td align="left"
bgcolor="#F9F8F4" class="style8">
+ <div align="center">
+ <!-- TMPL_VAR
name="author" -->
+ <br>
+ <!-- TMPL_VAR name="additionalauthors" -->
+ </div>
+ </td>
+ <td align="left"
bgcolor="#F9F8F4" class="style8">
+ <div align="center">
+ <!-- TMPL_VAR
name="publishercode" -->
+ </div>
+ </td>
+
+ <td align="left"
bgcolor="#F9F8F4" class="style8">
+ <div align="center">
+ <!-- TMPL_IF
NAME="copyrightdate" -->
+ <!--
TMPL_VAR NAME="copyrightdate" -->
+ <!-- TMPL_ELSE
-->
+ <!--
TMPL_VAR name="publicationyear" -->
+ <!-- /TMPL_IF
-->
+ </div>
+ </td>
+
+
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ </form>
+ <hr align="center" width="98%" size="1"
class="style6">
+ <table border="0" align="center">
+ <tr>
+ <td align="center" valign="middle">
+ <div align="left">
+ <span class="style3">
+ <input
type="button" value="Geri dön" class="style2"
+
onclick="javascript: document.location.href = '/cgi-bin/koha/opac-shelves.pl'">
+ </span>
+ <span class="style3">
+ <!-- TMPL_IF
Name="loggedinusername" -->
+ <!--
TMPL_IF NAME="canmanage" -->
+
<input type="button" value="Seçilenleri sil" class="style2"
+
onclick="javascript: document.delform.submit()">
+
+
<form action="/cgi-bin/koha/opac-shelves.pl" method="post">
+
<table>
+
<tr><th colspan="2">Barkod yazarak yeni doküman ekleyin</th></tr>
+
<tr>
+
<td>
+
<label for="addbarcode">Barcode:</label>
+
</td>
+
<td>
+
<input name="addbarcode" type="text" id="addbarcode" size="14"
maxlength="14" />
+
<input type="hidden" name="shelfnumber" value="<!-- TMPL_VAR
Name="shelfnumber" -->" />
+
<input type="hidden" name="op" value="add_items" />
+
<input type="submit" value="Sakla" />
+
</td>
+
</tr>
+
</table>
+
</form>
+ <!--
/TMPL_IF -->
+ <!-- /TMPL_IF
-->
+ </span>
+ </div>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+<!-- /TMPL_IF -->
+<!-- TMPL_IF Name="viewshelfs" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4">
+ <form method="post"
action="/cgi-bin/koha/opac-shelves.pl" name="delform"
+ style="margin:0px;padding:0px">
+ <input type="hidden" name="op"
value="del">
+ <table width="100%" border="0"
align="center"
+ style="margin:0px;padding:0px">
+ <tr>
+ <td bgcolor="#06B4D2"
class="style5" height="20">Sanal Raflar </td>
+ </tr>
+
+
<div style="display:none;margin-top:5px" id="item<!--
TMPL_VAR Name="shefnumber" -->">
+
<table width="100%" border="0" cellpadding="2"
cellspacing="0" bordercolor="#DCD9CF">
+
<tr bgcolor="#DCD9CF">
+
<td width="10"> </td>
+
<td>Raf adı</td>
+
<td bgcolor="#DCD9CF"><div
align="center">Doküman</div></td>
+
+
<td><div align="center">Sınıfı</div></td>
+
<td width="10"> </td>
+
</tr>
+
<!-- TMPL_LOOP Name="shelvesloop" -->
+
<tr>
+
<td width="10">
+
+
<!-- TMPL_IF Name="canmanage" -->
+
<input type="checkbox"
name="shelfnumber" value="<!-- TMPL_VAR Name="shelfnumber" -->" <!-- TMPL_IF
Name="count" -->disabled<!-- /TMPL_IF --> onclick="checkAll(this)">
+
<!-- /TMPL_IF -->
+
</td>
+
<td>
+
<a class="style1"
href="opac-shelves.pl?op=viewcontent&shelfnumber=<!-- TMPL_VAR
Name="shelfnumber" -->">
+
<!-- TMPL_VAR
Name="shelfname" -->
+
</a>
+
</td>
+
<td><div align="center"><!-- TMPL_VAR
Name="count" --></div></td>
+
+
<td><div align="center"><!-- TMPL_IF
name="private" -->Ãzel<!-- /TMPL_IF --> <!-- TMPL_IF name="public"
-->Genel<!-- /TMPL_IF --></div></td>
+
<td width="10">
+
<!-- TMPL_IF Name="canmanage"
-->
+
<a class="style1"
href="/cgi-bin/koha/opac-shelves.pl?op=add_form&shelfnumber=<!-- TMPL_VAR
Name="shelfnumber" -->">
+
<img
height="20" width="20"
+
src="<!-- TMPL_VAR NAME="themelang" -->/../images/fileopen.gif" border="0">
+
</a>
+
<!-- /TMPL_IF -->
+
</td>
+
</tr>
+
<!-- /TMPL_LOOP -->
+
</table>
+
</div>
+
+
+
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ <!-- TMPL_IF Name="loggedinusername" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"
align="center">
+ <input type="button" value="Raf ekle"
class="style2"
+ onclick="javascript:
document.location.href = '/cgi-bin/koha/opac-shelves.pl?op=add_form'">
+ <input type="button"
value="Seçilenleri sil" class="style2"
+ onclick="javascript:
document.delform.submit()">
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ </table>
+
+<!-- /TMPL_IF -->
+
+
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE Name="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-suggestions.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-suggestions.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-suggestions.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-suggestions.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,227 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE Name="opac-menu.inc" -->
+<!-- TMPL_IF name="op_add" -->
+<script language="JavaScript" >
+ function changeItemType (cb) {
+ if (cb.options[cb.selectedIndex].value != 'OTH') {
+ document.edit_form.otheritemtype.value = '';
+ }
+ }
+
+ function clearOther (inp) {
+ if
(document.edit_form.itemtype.options[document.edit_form.itemtype.selectedIndex].value
!= 'OTH') {
+ inp.value = '';
+ }
+ }
+</script>
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4">
+ <form name="edit_form">
+ <input type="hidden" name="op"
value="add_confirm">
+ <table width="100%" border="0" align="center"
cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Add a suggestion</td>
+ </tr>
+ <tr>
+ <td><p align="center" class="style19">
+ <span class="style16">Yayın önerisi
yapabilirsiniz. </span>
+ Ä°Åleme konulduÄunda size emaille haber
verilecektir.<br>
+ Herhangi bir alanı doldurmak zorunda
deÄilsiniz. Mümkün olduÄunca çok bilgiyi
+ <span class="style16">Notlar</span> alanına
yazabilirsiniz.</p>
+ <table width="98%" border="0" align="center" cellpadding="2"
cellspacing="2" bgcolor="#F2F0E9">
+
+ <tr>
+ <td width="150" bgcolor="#F9F8F4" class="style2"><div
align="right">Yayın adı: </div></td>
+ <td colspan="3" bgcolor="#F9F8F4" class="style8">
+ <textarea name="title" rows="1"
style="width:95%" class="style8"></textarea>
+ </td>
+ </tr>
+ <tr>
+ <td width="150" bgcolor="#F9F8F4" class="style2"><div
align="right">Yaazr: </div></td>
+ <td class="style8"><input type="text" name="author"
size="20" maxlength="80" class="style8"></td>
+ <td width="150" bgcolor="#F9F8F4" class="style8"><div
align="right">Yayınevi</div></td>
+ <td class="style8"><input type="text" name="publishercode"
size="20" maxlength="80" class="style8"></td>
+ </tr>
+ <tr>
+ <td width="150" bgcolor="#F9F8F4" class="style2"> <div
align="right">ISBN/ISSN: </div></td>
+ <td colspan="3" class="style8"><input type="text"
name="isbn" size="20" maxlength="10" class="style8"></td>
+ </tr>
+ <tr>
+ <td width="150" bgcolor="#F9F8F4" class="style2"><div
align="right">Basım yılı:</div></td>
+ <td colspan="3" class="style8"><input type="text"
name="publicationyear" size="20" maxlength="4" class="style8"></td>
+ </tr>
+ <tr>
+ <td bgcolor="#F9F8F4" class="style2"><div
align="right">Basım yeri: </div></td>
+ <td class="style8"><input type="text" name="place" size="20"
maxlength="40" class="style8"></td>
+ <td width="150" class="style2"><div
align="right">Cilt:</div></td>
+ <td class="style8"><input type="text" name="volumedesc"
size="20" maxlength="40" class="style8"></td>
+ </tr>
+
+ <td bgcolor="#F9F8F4" class="style8"><div
align="right">Notlar:</div></td>
+ <td colspan="3" class="style8"><textarea name="note"
rows="3" cols="100" class="style2"></textarea></td>
+ </tr>
+ <tr bgcolor="#DCD9CF">
+ <td colspan="4" class="style8"><div align="center">
+ <input type="submit" value="Ãneri yap"
class="style2">
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ </table>
+
+<!-- /TMPL_IF -->
+<!-- TMPL_IF name="op_else" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Ãneriler</td>
+ </tr>
+ <tr>
+ <td>
+ <form>
+ <table width="98%" border="0" align="center"
cellpadding="2" cellspacing="2">
+ <tr>
+ <td class="style8"><div align="right">Yayın adı:
</div></td>
+ <td><div align="left">
+ <input type="text" name="title" value="<!-- TMPL_VAR
name="title"-->" class="style8">
+ </div></td>
+ <td class="style8"><div align="right">Yazar:</div></td>
+ <td><div align="left">
+ <input type="text" name="author" value="<!-- TMPL_VAR
name="author" -->" class="style8">
+ </div></td>
+ <td class="style8"><div align="right">Ãneren: </div></td>
+ <td><div align="left">
+ <select name="suggestedbyme" class="style8">
+ <option value="1" <!-- TMPL_IF
name="suggestedbyme" -->selected<!-- /TMPL_IF -->>Ben</option>
+ <option value="0" <!--
TMPL_UNLESS name="suggestedbyme" -->selected<!-- /TMPL_UNLESS
-->>Herkes</option>
+ </select>
+ </div></td>
+ </tr>
+ <tr>
+ <td class="style8"><div align="right">Yayınevi:</div></td>
+ <td><div align="left">
+ <input type="text" name="publishercode" value="<!--
TMPL_VAR name="publishercode"-->" class="style8">
+ </div></td>
+ <td class="style8"><div align="right">Durumu:</div></td>
+ <td><div align="left">
+ <select name="status" class="style8">
+ <option
value="">Herhangi</option>
+ <!-- TMPL_IF name="ASKED" -->
+ <option value="ASKED"
selected>Ãnerildi</option>
+ <!-- TMPL_ELSE -->
+ <option
value="ASKED">Ãnerildi</option>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="ACCEPTED" -->
+ <option
value="ACCEPTED" selected>Kabul edildi</option>
+ <!-- TMPL_ELSE -->
+ <option
value="ACCEPTED">Kabul edildi</option>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="ORDERE" -->
+ <option
value="ORDERED" selected>SipariÅ edildi</option>
+ <!-- TMPL_ELSE -->
+ <!-- <option
value="ORDERED">SipariÅ edildi</option> -->
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="REJECTED" -->
+ <option
value="REJECTED" selected>Reddedildi</option>
+ <!-- TMPL_ELSE -->
+ <option
value="REJECTED">Reddedildi</option>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF name="AVAILABL" -->
+ <option
value="AVAILABLE" selected>Geldi</option>
+ <!-- TMPL_ELSE -->
+ <!-- <option
value="AVAILABLE">Geldi</option> -->
+ <!-- /TMPL_IF -->
+ </select>
+ </div></td>
+ <td class="style8"><div align="right"></div></td>
+ <td><div align="left"></div></td>
+ </tr>
+ <tr bgcolor="#F2F0E9">
+ <td colspan="6">
+ <div align="center">
+ <input type="submit" value="Filtrele" class="style2">
+ </div></td>
+ </tr>
+ </table>
+ </form>
+ <hr align="center" width="98%" size="1"
class="style6">
+ <form name="suggestions_form">
+ <table width="98%" border="0" align="center"
bgcolor="#F2F0E9">
+ <tr>
+ <td colspan="6" height="20" align="center"><span
align="center" class="style1"> Contents </span></td>
+ </tr>
+ <tr>
+ <td width="10" bgcolor="#DCD9CF"><div
align="center"></div></td>
+ <td valign="middle" bgcolor="#DCD9CF" class="style1"><div
align="center">Temel bilgiler </div></td>
+ <td valign="middle" bgcolor="#DCD9CF" class="style1"><div
align="center">DiÄer bilgiler</div></td>
+ <td valign="middle" bgcolor="#DCD9CF" class="style1"><div
align="center">Notlar </div></td>
+ <td valign="middle" bgcolor="#DCD9CF" class="style1"><div
align="center">Durumu</div></td>
+ <td valign="middle" bgcolor="#DCD9CF" class="style1"><div
align="center">Ãneren </div></td>
+ </tr>
+ <!-- TMPL_LOOP NAME="suggestions_loop" -->
+ <tr>
+ <td width="10" align="center"
valign="top"><div align="center">
+ <!-- TMPL_IF
name="can_sel" -->
+ <input
type="checkbox" name="delete_field" value="<!--TMPL_VAR name="suggestionnumber"
-->" class="style2">
+ <!-- /TMPL_IF -->
+ </div></td>
+ <td width="200" align="left"
valign="top" bgcolor="#F9F8F4" class="style8">
+ <span class="style12">Türü:</span> <!-- TMPL_IF
NAME="otheritemtype" --> <!-- TMPL_VAR NAME="otheritemtype" --> <!-- TMPL_ELSE
--> <!-- TMPL_VAR NAME="itemtype" --> <!-- /TMPL_IF --><br>
+ <span class="style12">Düzeyi:</span> <!--
TMPL_IF NAME="B" -->Temel<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="R"
-->Tavsiye<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="S"
-->AraÅtırmaya özel<!-- /TMPL_IF -->
+
<br>
+ <span
class="style12">Yayın adı:</span> <!-- TMPL_VAR NAME="title" --><br>
+ <span
class="style12">Yazar: </span><!-- TMPL_VAR NAME="author" --><br>
+ <span
class="style12">Basımevi:</span> <!-- TMPL_VAR name="publishercode" --> </td>
+ <td align="left" valign="top"
bgcolor="#F9F8F4" class="style8"><div align="left">
+ <!-- TMPL_IF
NAME="isbn" --><span class="style12">ISBN/ISSN:</span> <!-- TMPL_VAR
NAME="isbn" --> <br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="publicationyear" --><span class="style12">Basım yılı:</span> <!--
TMPL_VAR NAME="publicationyear" --><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="volumedesc" --><span class="style12">Cilt:</span><!-- TMPL_VAR
NAME="volumedesc" --> <br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="serial_year" --><span class="style12">Dergi yılı:</span> <!-- TMPL_VAR
NAME="serial_year" --> <span class="style12"><br><!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="serial_number" -->Dergi sayı: </span><!-- TMPL_VAR NAME="serial_number"
--> <!-- /TMPL_IF -->
+ </div></td>
+ <td align="left" valign="top"
bgcolor="#F9F8F4" class="style8">
+ <div
align="center"><!-- TMPL_VAR name="note" -->
+ </div></td>
+ <td align="left" valign="top"
bgcolor="#F9F8F4" class="style8"><div align="center">
+ <!-- TMPL_IF
name="ASKED" -->Ãnerildi<!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="ACCEPTED" -->Kabul edildi<!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="ORDERED" -->SipariÅ edildi<!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="REJECTED" -->Reddedildi<!-- /TMPL_IF -->
+ <!-- TMPL_IF
name="AVAILABLE" -->Geldi<!-- /TMPL_IF -->
+ </div></td>
+ <td align="left" valign="top"
bgcolor="#F9F8F4" class="style8">
+ <div align="center">
+ <!-- TMPL_VAR
name="surnamesuggestedby" --><!-- TMPL_IF name="firstnamesuggestedby" -->,<!--
/TMPL_IF --> <!-- TMPL_VAR name="firstnamesuggestedby" -->
+ </div></td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+ <input type="hidden" name="op"
value="delete_confirm">
+ </form>
+ <p align="center">
+ <input type="button" class="style2"
value="Seçilenleri sil"
+ onclick="javascript:
document.suggestions_form.submit()">
+ <input type="submit"
class="style2" value="Ãneri ekÅe"
+ onclick="javascript:
document.location.href = '/cgi-bin/koha/opac-suggestions.pl?op=add'">
+ </p>
+ <div align="center">
+ <span class="style15">Not:</span>
+ <span class="style2">BaÅka kiÅilerin
önerilerini tararsanız yalnızca durumu önerildi olanları
görebilirsiniz.</span>
+ </div>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+
+<!-- /TMPL_IF -->
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-user.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-user.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-user.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-user.tmpl 26 Mar 2007 00:07:52 -0000
1.1.2.1
@@ -0,0 +1,430 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5"><table width="100%"
border="0" cellpadding="0" cellspacing="0">
+ <tr>
+ <td class="style5">Ãye Sayfası
+ <div align="right" class="style5"></div></td>
+ </tr>
+ </table></td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0" align="left" >
+ <tr>
+ <td><div align="left">
+ <table width="648" border="0" align="center"
cellpadding="0" cellspacing="0"
+
style="border-collapse:collapse">
+ <tr>
+ <td width="47" height="71" valign="middle"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/index-card_01.jpg">
+ </td>
+ <td width="416" height="71" valign="middle"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/index-card_02.jpg">
+ </td>
+ <td width="37" height="71" valign="middle"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/index-card_03.jpg">
+ </td>
+ <td width="120" height="71" valign="middle"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/index-card_04.jpg">
+ </td>
+ <td width="28" height="71" valign="middle"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/index-card_05.jpg">
+ </td>
+ </tr>
+ <tr>
+ <td width="47" rowspan="2" background="<!-- TMPL_VAR
NAME="themelang" -->/../images/index-card_06.jpg"
+ height="234">
+ </td>
+ <td width="416" rowspan="2" align="left"
valign="top"
+ background="<!-- TMPL_VAR
NAME="themelang" -->/../images/index-card_07.jpg">
+ <table width="100%"
height="99%" border="0" align="center" cellpadding="2" cellspacing="4"
class="style12">
+ <!-- TMPL_LOOP NAME="BORROWER_INFO"
-->
+ <tr valign="top">
+ <td
colspan="2">
+
<table cellpadding="0" cellspacing="0" border="0" width="100%">
+
<tr>
+
<td height="22" valign="top">
+
<span class="style4" valign="top">
+
+
Sn. <!-- TMPL_VAR NAME="firstname" -->
<!-- TMPL_VAR NAME="surname" -->
+
</span>
+
</td>
+
<td height="22" valign="top" style="text-align: right">
+
<span class="style2" valign="top" style="text-align:
right">
+
Kart Numarası: <!-- TMPL_VAR NAME="cardnumber"
-->
+
</span>
+
</td>
+
</tr>
+
</table>
+ </td>
+ </tr>
+ <tr class="style2">
+ <td width="40%" class="style3"><div
align="right" class="style12">
+ <div align="right">Kimlik No:</div>
+ </div></td>
+ <td class="style2"><!-- TMPL_VAR
NAME="identificationcode" --> <!-- TMPL_VAR NAME="identificationnumber"
--></td>
+ </tr>
+ <tr class="style2" valign="top">
+ <td width="40%" class="style3"><div
align="right" class="style12">
+ <div align="right">Ä°letiÅim Adresi: </div>
+ </div></td>
+ <td class="style2"><!-- TMPL_VAR
NAME="streetaddress" --> <!-- TMPL_VAR NAME="streetcity" --> <!-- TMPL_VAR
NAME="zipcode" --></td>
+ </tr>
+ <tr class="style2">
+ <td width="40%" class="style3"><div
align="right" class="style12">
+ <div align="right"></div>
+ </div></td>
+ <td class="style2">
+ <!--
TMPL_VAR NAME="physstreet" --> <!-- TMPL_VAR NAME="city" --> <!-- TMPL_VAR
NAME="homezipcode" -->
+ </td>
+ </tr>
+ <tr class="style2">
+ <td width="40%" class="style3"><div
align="right" class="style12">
+ <div align="right">Cep Telefonu:</div>
+ </div></td>
+ <td class="style2"><!-- TMPL_VAR
NAME="phoneday" --></td>
+ </tr>
+ <tr class="style2">
+ <td width="40%" class="style3"><div
align="right" class="style12">
+ <div align="right">Ev Telefonu:</div>
+ </div></td>
+ <td class="style2"><!-- TMPL_VAR NAME="phone"
--></td>
+ </tr>
+ <tr class="style2">
+ <td class="style12"><div
align="right">Email:</div></td>
+ <td class="style2"><!-- TMPL_VAR
NAME="emailaddress" --></td>
+ </tr>
+
+ <tr class="style2">
+ <td class="style12"><div
align="right">Fax:</div></td>
+ <td class="style2"><!-- TMPL_VAR
NAME="faxnumber" --></td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table> </td>
+ <td background="<!-- TMPL_VAR NAME="themelang"
-->/../images/index-card_08.jpg" width="37" height="234" rowspan="2">
+ </td>
+ <td width="120" height="129"
bgcolor="#FFFFFF"><table width="100" height="100" border="0" align="center">
+ <tr>
+ <td>
+ <div
align="center">
+ <img
src="<!-- TMPL_VAR NAME="borrowerphoto" -->" alt="Photo" hspace="0" vspace="0"
border="0" width="90px" heigth="100px"
style="clear:both;float:none;display:table-row;position:relative;">
+
<!-- />
+ </div></td>
+ </tr>
+ </table></td>
+ <td background="<!-- TMPL_VAR NAME="themelang"
-->/../images/index-card_10.jpg" width="28" height="234" rowspan="2">
+ </td>
+ </tr>
+ <tr>
+ <td background="<!-- TMPL_VAR NAME="themelang"
-->/../images/index-card_11.jpg" width="120" height="105" height="105">
+ </td>
+ </tr>
+ <tr>
+ <td width="47"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/index-card_12.jpg" width="47" height="18"></td>
+ <td><img src="<!-- TMPL_VAR NAME="themelang"
-->/../images/index-card_13.jpg" width="416" height="18"></td>
+ <td width="18"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/index-card_14.jpg" width="37" height="18"></td>
+ <td width="18"><img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/index-card_15.jpg" width="120" height="18"></td>
+ <td width="18"> </td>
+ </tr>
+ </table>
+ <table width="648" border="0" align="center"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td><div align="right">
+ <span class="style13">
+
<a href="/cgi-bin/koha/opac-userupdate.pl" class="style13">
+
Kaydımı düzelt >>
+ </a>
+ </span>
+ </div></td>
+ </tr>
+ </table>
+ <table width="648" border="0" align="center"
cellpadding="4" cellspacing="2">
+ <tr valign="top" class="style6">
+ <td>
+ <p align="left" class="style7" style="margin-top: 0;
margin-bottom: 0">
+ <!-- TMPL_IF
NAME="borrowercard_empty" -->
+ Kütüphane
kartınız yoktur.
+ <!-- TMPL_ELSE -->
+ <!-- TMPL_IF
NAME="borrowercard_outofdate" -->
+ Kartınızın
tarihi geçmiÅtir.
+ <!-- TMPL_ELSE
-->
+ Kütüphane
kartınız geçerlidir.
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_IF -->
+ </p>
+
+ </td>
+ <td>
+ <p align="left" class="style7" style="margin-top: 0;
margin-bottom: 0">
+ <!-- TMPL_LOOP
NAME="BORROWER_INFO" -->
+ <!-- TMPL_IF
NAME="amountoverfive" -->
+
Kütüphaneye toplam: <!-- TMPL_VAR NAME="amountoutstanding" --> YTL borcunuz
vardır.
+ <!-- /TMPL_IF
-->
+
+ <!-- TMPL_IF
NAME="amountoverzero" -->
+
Kütüphaneye toplam: <!-- TMPL_VAR NAME="amountoutstanding" --> YTL borcunuz
vardır.
+ <!-- /TMPL_IF
-->
+
+ <!-- TMPL_IF
NAME="amountlessthanzero" -->
+
Kütüphanede toplam : <!-- TMPL_VAR NAME="amountoutstanding" --> YTL krediniz
vardır.
+ <!-- /TMPL_IF
-->
+ <!-- /TMPL_LOOP -->
+ </p>
+ <p align="left" class="style6" style="margin-top:
0; margin-bottom: 0">
+ <a
href="/cgi-bin/koha/opac-account.pl" class="style1">
+ +
hesaplara bak
+ </a>
+ </p>
+ </td>
+ <td>
+
+ <p align="left"
class="style6" style="margin-top: 0; margin-bottom: 0">
+ <a
href="/cgi-bin/koha/opac-shelves.pl" class="style1">
+ + sanal
raflara bak
+ </a>
+ </p>
+ <p align="left"
class="style6" style="margin-top: 0; margin-bottom: 0">
+ <a
href="opac-suggestions.pl?suggestedbyme=1" class="style1">
+ +
yayın önerisi yap
+ </a>
+ </p>
+ <p align="left"
class="style6" style="margin-top: 0; margin-bottom: 0">
+ <a
href="/cgi-bin/koha/opac-changepass.pl" class="style1">
+ +
kullanıcı adını ve Åifresini deÄiÅtir
+ </a>
+ </p>
+ <p align="left"
class="style6" style="margin-top: 0; margin-bottom: 0">
+ <a
href="opac-all-issues.pl" class="style1">
+ + tüm
aldıÄım yayınlar
+ </a>
+ </p>
+ </td>
+ </tr>
+ </table>
+ <table width="648" border="0" align="center"
cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style4">Ãdünçdekiler</td>
+ </tr>
+ <!-- TMPL_IF
NAME="issues_count" -->
+ <tr>
+ <td>
+ <img src='<!--
TMPL_VAR NAME="themelang" -->/../images/plus.gif'
+ width="11"
height="11" valign="middle"
+
onclick="show('issues', this)"
+
style="cursor:hand">
+ Åu anda toplam
<b><!-- TMPL_VAR NAME="issues_count" --></b> adet ödünç yayınınız var.
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <form
action="/cgi-bin/koha/opac-renew-items.pl" method="post"
+
onSubmit='<!-- TMPL_IF NAME="overdues_count" -->alert("Size kayıtlı süresi
geçmiŠyayınlar var, yenileme yapamazsınız"); return false <!-- TMPL_ELSE
--> return confirmRenews(this) <!-- /TMPL_IF -->'
+
name="renew_form">
+ <!-- TMPL_LOOP
NAME="BORROWER_INFO" -->
+ <input
type="hidden" name="borrowernumber" value="<!-- TMPL_VAR NAME="borrowernumber"
-->" >
+ <!-- /TMPL_LOOP
-->
+ <span
id="issues" style="display:none;width:100%">
+ <table
width="100%" border="0" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr
bgcolor="#DCD9CF">
+
<td>Eser </td>
+
<td>Yazar </td>
+
<td>Geri gelme tarihi </td>
+
<td>Türü </td>
+
<td>Barkot </td>
+
<td>Yenile </td>
+ </tr>
+ <!--
TMPL_LOOP NAME="ISSUES" -->
+
<tr bgcolor="#F9F8F4" class="style6">
+
<td class="style6"><!-- TMPL_VAR NAME="title" --></td>
+
<td class="style6"><!-- TMPL_VAR NAME="author" --></td>
+
<td class="style6"
+
<!--TMPL_IF name="date_due_istoday"
-->style="background-color:red;color:white"<!-- /TMPL_IF -->>
+
<!-- TMPL_VAR NAME="date_due" -->
+
</td>
+
<td class="style6"><!-- TMPL_VAR NAME="itemtype" --></td>
+
<td class="style6"><!-- TMPL_VAR NAME="barcode" --></td>
+
<td class="style6" <!-- TMPL_IF NAME="reserved" -->bgcolor="#FF0000"<!--
/TMPL_IF --> >
+
<!-- TMPL_IF NAME="reserved" -->
+
Ayırtıldı
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="status" -->
+
<!-- TMPL_IF NAME="allowrenewsfromopac" -->
+
<input type="checkbox" name='renew_item_<!--
TMPL_VAR NAME="barcode" -->' value="y">
+
<!-- TMPL_ELSE -->
+
Evet
+
<!-- /TMPL_IF -->
+
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="too_early" -->
+
Ãok erken
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="too_many" -->
+
Daha fazla yenilenmez
+
<!-- /TMPL_IF -->
+
</td>
+
</tr>
+
+ <!--
TMPL_IF NAME="status" -->
+ <tr
bgcolor="#F9F8F4">
+
<td><table border="0" cellpadding="3" cellspacing="0">
+
<tr>
+
<td width="10" bgcolor="#FF0000"> </td>
+
<td>Bugün</td>
+
</tr>
+
</table></td>
+
<td> </td>
+
<td> </td>
+
<td> </td>
+
<td> </td>
+ <td>
+
<div align="right" class="style3">
+
<!-- TMPL_IF NAME="allowrenewsfromopac" -->
+
<input type="submit" class="style3"
+
value="Yenile >>"
+
style="background-color:#F9F8F4;border:0px;margin:0px;padding:0px">
+
<!-- /TMPL_IF -->
+
</div>
+ </td>
+ </tr>
+ <!--
/TMPL_IF -->
+
+ <!-- /TMPL_LOOP
-->
+ </table>
+ </span>
+ </form>
+ </td>
+ </tr>
+
+ <!-- TMPL_ELSE -->
+ <tr>
+ <td
class="style1">Ãzerinizde kayıtlı yayın yoktur.</td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="overdues_count" -->
+ <tr>
+ <td>
+ <img
style="cursor:hand" onclick="show('overdues', this)"
+ src='<!--
TMPL_VAR NAME="themelang" -->/../images/plus.gif'
+
style="cursor:hand">
+ Toplam <b><!--
TMPL_VAR NAME="overdues_count" --></b> adet süresi geçmiŠyayınınız var.
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <span
id="overdues" style="display:none;width:100%">
+ <table
width="100%" border="0" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr
bgcolor="#DCD9CF">
+
<th>Eser adı</th>
+
<th>Yazar</th>
+
<th>Geri gelme tarihi</th>
+
<th>GeciktiÄi günler</th>
+
<th>Türü</th>
+
<th>Barkot</th>
+
<th>Tahmini Ceza</th>
+
<!-- TMPL_IF NAME="status" --> <th>Yenile </th><th> </th><!--/TMPL_IF-->
+
+ </tr>
+ <!--
TMPL_LOOP NAME="OVERDUES" -->
+
<tr bgcolor="#F9F8F4" class="style6">
+
<td class="style6"><!-- TMPL_VAR NAME="title" --></td>
+
<td class="style6"><!-- TMPL_VAR NAME="author" --></td>
+
<td class="style6"><!-- TMPL_VAR NAME="date_due" --></td>
+
<td class="style6" align="center"><!-- TMPL_VAR NAME="diff_days"
--></td>
+
<td class="style6"><!-- TMPL_VAR NAME="itemtype" --></td>
+
<td class="style6"><!-- TMPL_VAR NAME="barcode" --></td>
+
<td class="style6" ><!-- TMPL_VAR NAME="penalty" --> (YTL)</td>
+
<td class="style6" <!-- TMPL_IF NAME="reserved"
-->bgcolor="#FF0000"<!-- /TMPL_IF --> >
+
<!-- TMPL_IF NAME="reserved" -->
+
Ayırtıldı
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="status" -->
+
<!-- TMPL_IF NAME="allowrenewsfromopac" -->
+
<input type="checkbox" name='renew_item_<!--
TMPL_VAR NAME="barcode" -->' value="y">
+
<!-- TMPL_ELSE -->
+
Evet
+
<!-- /TMPL_IF -->
+
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="too_early" -->
+
Ãok erken
+
<!-- /TMPL_IF -->
+
<!-- TMPL_IF NAME="too_many" -->
+
Daha fazla yenilenmez
+
<!-- /TMPL_IF -->
+
</td>
+
<td>
+
<div align="right" class="style3">
+
<!-- TMPL_IF NAME="status" -->
+
<!-- TMPL_IF NAME="allowrenewsfromopac" -->
+
<input type="submit" class="style3"
+
value="Yenile >>"
+
style="background-color:#F9F8F4;border:0px;margin:0px;padding:0px">
+
<!-- /TMPL_IF --> <!-- /TMPL_IF -->
+
</div>
+ </td>
+
</tr>
+ <!--
/TMPL_LOOP -->
+ </table>
+ </span>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <tr>
+ <td class="style4">Ayırtılanlar</td>
+ </tr>
+ <!-- TMPL_IF
NAME="waiting_count" -->
+ <tr>
+ <td>
+
AyırttıÄınız alttaki yayınlar Åu anda hazırdır:<br>
+ <ul>
+ <!--
TMPL_LOOP NAME="WAITING" -->
+
<li><!-- TMPL_VAR NAME="title" -->, almak için : <b><!-- TMPL_VAR
NAME="branch" --></b> enformasyon masasına gidiniz</li>
+ <!--
/TMPL_LOOP -->
+ </ul>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <!-- TMPL_IF
NAME="reserves_count" -->
+ <tr>
+ <td>
+ <img src='<!--
TMPL_VAR NAME="themelang" -->/../images/plus.gif' width="11" height="11"
+
onclick="show('reserves', this)"
+
style="cursor:hand">
+ Toplam <b><!--
TMPL_VAR NAME="reserves_count" --></b> adet yayın ayırttınız.
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <span
id="reserves" style="display:none;width:100%">
+ <table
width="100%" border="0" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+
<tr bgcolor="#DCD9CF">
+
<td>Eser adı</td>
+
<td>Yazar</td>
+
<td>KaydettiÄiniz gün </td>
+
+
</tr>
+
<!-- TMPL_LOOP NAME="RESERVES" -->
+
<tr bgcolor="#F9F8F4" class="style6">
+
<td><!-- TMPL_VAR NAME="title" --></td>
+
<td><!-- TMPL_VAR NAME="author" --></td>
+
<td><!-- TMPL_VAR NAME="reservedate" --></td>
+
+
</tr>
+
<!-- /TMPL_LOOP -->
+
</table>
+ </span>
+ </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ </table>
+ <p align="center"> </p>
+ </div>
+ <div align="right">
+ </div></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-userupdate-mail.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-userupdate-mail.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-userupdate-mail.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-userupdate-mail.tmpl 26 Mar 2007
00:07:52 -0000 1.1.2.1
@@ -0,0 +1,22 @@
+§SUBJECT§
+Request to change personal data
+§END_SUBJECT§
+
+§HEADER§
+<!-- TMPL_VAR NAME="surnname" -->, <!-- TMPL_VAR NAME="firstname" --> (<!--
TMPL_VAR NAME="cardnumber" -->)
+has requested the change of his/her personal data.
+Please verify the information and make the changes.
+§END_HEADER§
+
+§MESSAGE§
+
+<!-- TMPL_IF name="new_title" -->Title: <!-- TMPL_VAR NAME="new_title" --><!--
/TMPL_IF -->
+<!-- TMPL_IF name="new_firstname" -->Ad: <!-- TMPL_VAR NAME="new_firstname"
--><!-- /TMPL_IF -->
+<!-- TMPL_IF name="new_surname" -->Soyad: <!-- TMPL_VAR NAME="new_surname"
--><!-- /TMPL_IF -->
+<!-- TMPL_IF name="new_streetaddress" -->Sokak adı: <!-- TMPL_VAR
NAME="new_streetaddress" --><!-- /TMPL_IF -->
+<!-- TMPL_IF name="new_streetcity" -->Åehir: <!-- TMPL_VAR
NAME="new_streetcity" --><!-- /TMPL_IF -->
+<!-- TMPL_IF name="new_phoneday" -->Cep Tel : <!-- TMPL_VAR
NAME="new_phoneday" --><!-- /TMPL_IF -->
+<!-- TMPL_IF name="new_phone" -->Ev tel: <!-- TMPL_VAR NAME="new_phone"
--><!-- /TMPL_IF -->
+<!-- TMPL_IF name="new_faxnumber" -->Fax: <!-- TMPL_VAR NAME="new_faxnumber"
--><!-- /TMPL_IF -->
+
+§END_MESSAGE§
Index: koha-tmpl/opac-tmpl/css/tr/opac-userupdate.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-userupdate.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-userupdate.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-userupdate.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,189 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+<!-- TMPL_IF NAME='message' -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%"
border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2"
class="style5">Kullanıcı Bilgileri Güncelleme </td>
+ </tr>
+ <tr>
+ <td>
+ <p align="center" class="style19">
+ <img src="<!-- TMPL_VAR
NAME="themelang" -->/../images/m_2_s.gif" width="16" height="11">
+ <!-- TMPL_IF
NAME='email_updated' -->
+ E-posta adresiniz
güncellendi.
+ <!-- TMPL_ELSE -->
+ <!-- TMPL_IF
NAME='email_sended' -->
+ Ä°steminiz
iletildi.
+ <!-- TMPL_ELSE -->
+ Ä°steminiz
gönderilemedi. Posta hatası!
+ <!-- /TMPL_IF -->
+ <!-- /TMPL_IF -->
+ </p>
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+
+<!-- TMPL_ELSE -->
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%"
border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Ãye
bilgileri güncelleme</td>
+ </tr>
+ <tr>
+ <td>
+ <!-- TMPL_LOOP NAME="BORROWER_INFO" -->
+ <p align="center"
class="style19">Please, modify all that you need. Your changes will be done
once the library check them.</p>
+ <form
action="/cgi-bin/koha/opac-userupdate.pl" method="get">
+ <input type="hidden"
name="op" value="send_email" />
+ <table width="90%"
border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr>
+ <td width="150"
bgcolor="#F9F8F4" class="style2"><div align="right">Ãnvan</div></td>
+ <td colspan="3"
bgcolor="#F9F8F4" class="style8">
+ <select
name="title" class="style2">
+ <option
value=""></option>
+ <option
value="Miss" <!-- TMPL_IF NAME="Miss" -->selected<!-- /TMPL_IF -->
>Bayan</option>
+ <option
value="Mr" <!-- TMPL_IF NAME="Mr" -->selected<!-- /TMPL_IF -->>Bay</option>
+ <option
value="Dr" <!-- TMPL_IF NAME="Dr" -->selected<!-- /TMPL_IF -->>Dr.</option>
+ </select>
+ </td>
+ </tr>
+ <tr>
+ <td width="150"
bgcolor="#F9F8F4" class="style2"><div align="right">Soyad:</div></td>
+ <td
class="style8"><div align="left">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='surname' -->"
+
name="surname"
+
class="style8"/>
+ </div></td>
+ <td bgcolor="#F9F8F4"
class="style8"><div align="right">Ad:</div></td>
+ <td
class="style8"><div align="left">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='firstname' -->"
+
name="firstname"
+
class="style8"/>
+ </div></td>
+ </tr>
+ <tr bgcolor="#DCD9CF">
+ <td colspan="4"
class="style2"> <div align="right" class="style4">
+ <div
align="center" class="style1">Adres:</div>
+ </div>
</td>
+ </tr>
+ <tr>
+ <td width="150"
bgcolor="#F9F8F4" class="style2"><div align="right">Sokak</div></td>
+ <td
class="style8"><div align="left">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='streetaddress' -->"
+
NAME="streetaddress" class="style8"/>
+ </div></td>
+ <td
class="style8"><div align="right">Åehir:</div></td>
+ <td
class="style8"><div align="left">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='streetcity' -->"
+
name="streetcity"
+
class="style8"/>
+ </div></td>
+ </tr>
+ <tr>
+ <td width="150"
bgcolor="#F9F8F4" class="style2"><div align="right">Cep Tel:</div></td>
+ <td class="style8">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='phoneday' -->"
+
name="phoneday"
+
class="style8"/> Ãr: 05338615152
+ </td>
+ <td
class="style2"><div align="right">Ev Tel: </div></td>
+ <td class="style8">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='phone' -->"
+
name="phone"
+
class="style8"/>
+ </td>
+ </tr>
+ <tr>
+ <td width="150"
bgcolor="#F9F8F4" class="style8"><div align="right"> Fax: </div></td>
+ <td colspan="3"
class="style8">
+ <input
type="text" size="25"
+
value="<!-- TMPL_VAR NAME='faxnumber' -->"
+
name="faxnumber"
+
class="style8"/>
+ </td>
+ </tr>
+ <tr>
+ <td colspan="4"
bgcolor="#F9F8F4" class="style8">
+ <table
width="100%" border="0" align="center" cellpadding="0" cellspacing="0"
bgcolor="#F2F0E9">
+
<tr>
+
<td width="25%" bgcolor="#F9F8F4" class="style8"><div
align="center"></div></td>
+
<td width="50%" bgcolor="#F9F8F4" class="style8">
+
<div align="center">
+
<input type="submit"
+
value="Gönder"
+
class="style2" />
+
</div>
+
</td>
+
<td width="25%" bgcolor="#F9F8F4" class="style8">
+
<div align="right">
+
<img src="<!-- TMPL_VAR NAME='themelang'
-->/../images/help.gif" width="21" height="21" alt="Ayuda con su búsqueda"
+
onclick="javascript: help('update_user_help')"
+
style="cursor:pointer">
+
</div>
+
</td>
+
</tr>
+
</table>
+ </td>
+ </tr>
+ </table>
+ </form>
+ <hr width="90%" size="1" class="style2">
+ <table width="90%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr>
+ <td colspan="4"
bgcolor="#DCD9CF" class="style8"><div align="center" class="style1"> E-posta
adresinizi kendiniz deÄiÅtirebilirsiniz. </div></td>
+ </tr>
+ <tr>
+ <td colspan="4"
bgcolor="#F9F8F4" class="style8">
+ <form
action="/cgi-bin/koha/opac-userupdate.pl"
+ method="get"
+ onSubmit="if
(this.emailaddress.value == '') {alert('Bir e-posta adresi giriniz'); return
false} "
+
style="margin:0px;padding:0px">
+ <input
type="hidden" name="op" value="update_emailaddress" />
+ <table
border="0" align="center" cellpadding="2" cellspacing="0">
+ <tr>
+
<td>E-posta:</td>
+ <td>
+
<input type="text" size="40"
+
value="<!-- TMPL_VAR NAME='emailaddress' -->"
+
name="emailaddress"
+
class="style8"/>
+ </td>
+ <td>
+
<input type="submit" value="DeÄiÅ"
+
class="style2"/>
+ </td>
+ <td
bgcolor="#F9F8F4" class="style8">
+
<div align="right">
+
<img src="<!-- TMPL_VAR NAME='themelang' -->/../images/help.gif"
width="21" height="21" alt="Ayuda con su búsqueda"
+
onclick="javascript: help('update_mail_help')"
+
style="cursor:pointer">
+
</div>
+ </td>
+ </tr>
+ </table>
+ </form>
+ </td>
+ </tr>
+ </table>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+
+<!-- /TMPL_IF -->
+</div>
+<!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/opac-view-channel.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-view-channel.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-view-channel.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-view-channel.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,131 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+
+
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">News channels</td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0">
+ <tr bgcolor="#06D0F4">
+ <td height="20">
+ <p class="style15">
+ <!-- TMPL_LOOP
name="channel_info" -->
+ <a target="_blank"
href="<!-- TMPL_VAR name="link" -->" class="style15">
+ <!-- TMPL_VAR
name="title" -->
+ </a>
+ <!-- /TMPL_LOOP -->
+ </p>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <div align="right" class="style2">
+ <span class="style11">
+ <!-- TMPL_LOOP
name="channel_info" -->
+ Last
update:</span><span class="style6">
+ <!-- TMPL_VAR
name="pubDate" --><br>
+ <!-- TMPL_VAR
name="description" -->
+ <!-- /TMPL_LOOP -->
+ </span>
+ </div></td>
+ </tr>
+ <tr>
+ <td>
+ <!-- TMPL_LOOP name="items" -->
+ <!-- TMPL_IF name="description"
-->
+ <table width="710" border="0"
align="center" cellpadding="2" cellspacing="0">
+ <tr bgcolor="#DCD9CF"
height="20">
+ <td width="13"
align="center">
+ <div
align="center">
+ <img
src="<!-- TMPL_VAR NAME="themelang" -->/../images/plus.gif" width="11"
height="11"
+
onclick="show('item<!-- TMPL_VAR name="index" -->', this)"
+
style="cursor:pointer">
+ </div>
+ </td>
+ <td
class="style16"><!-- TMPL_VAR name="title" --></td>
+ <td height="25"
width="100">
+
<div align="right">
+
<a class="style2" target="_blank"
+
href="<!-- TMPL_VAR name="link" -->">
+
See new
+
</a>
+
</div></td>
+ </tr>
+ </table>
+ <div id='item<!--
TMPL_VAR name="index" -->' style="display:none;color:navy">
+ <table
width="710" border="0" align="center" cellpadding="0" cellspacing="0">
+ <tr>
+ <td
class="style2"> </td>
+ <td
class="style2">
+
<!-- TMPL_VAR name="description" -->
+ </td>
+ </tr>
+ <tr
bgcolor="#F2F0E9">
+
+ </tr>
+ </table>
+ </div>
+ <!-- TMPL_ELSE -->
+ <table width="710"
border="0" align="center" cellpadding="2" cellspacing="0">
+ <tr bgcolor="#DCD9CF">
+ <td width="13"
align="center">
+ <div
align="center">
+ <img
src="<!-- TMPL_VAR NAME="themelang" -->/../images/plus.gif" width="11"
height="11"
+
onclick="show('item<!-- TMPL_VAR name="index" -->', this)"
+
style="cursor:pointer">
+ </div>
+ </td>
+ <td
class="style16"><!-- TMPL_VAR name="title" --></td>
+ <td height="25"
width="100">
+
<div align="right">
+
<a class="style2" target="_blank"
+
href="<!-- TMPL_VAR name="link" -->">
+
See new
+
</a>
+
</div></td>
+ </tr>
+ </table>
+ <!-- /TMPL_IF -->
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <tr>
+ <td align="center" valign="middle">
+ <!-- TMPL_LOOP name="image" -->
+ <a target="_blank" href="<!--
TMPL_VAR name="link" -->">
+ <img style="border:0"
src="<!-- TMPL_VAR name="url" -->" alt="<!-- TMPL_VAR name="title" -->">
+ </a>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <tr>
+ <td align="center" valign="middle">
+ <!-- TMPL_LOOP name="channel_info" -->
+ <!-- TMPL_VAR name="copyright"
-->
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <hr width="760" size="1" class="style5"> <table width="760"
height="20" border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#F9F8F4"> <div align="center" class="style6">The
software used for this library is based on <a href="http://www.koha.org";
class="style3">Koha </a> OSS Integrated Library System, and it is under
international standars of web information. </div>
+ <div align="center" class="style6">
+ <br>Visitor: <span class="style3"><!-- TMPL_VAR
NAME='opac_counter' --></span>
+ </div>
+
+ </td>
+ </tr>
+ </table> </td>
+ </tr>
+</table>
+<!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/css/tr/opac-view-penalties.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/opac-view-penalties.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/opac-view-penalties.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/opac-view-penalties.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,395 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!-- TMPL_INCLUDE NAME="masthead.inc" -->
+ <!-- TMPL_INCLUDE NAME="opac-menu.inc" -->
+
+
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4">
+ <table width="100%" border="0" align="center"
cellpadding="4" cellspacing="2">
+ <tr>
+ <td class="style24">Cezalar</td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0" align="center"
cellpadding="2" cellspacing="2">
+ <tr>
+ <td colspan="2" bgcolor="#F2F0E9"
class="style8">
+ <div align="left"
class="style19">Circulation penalties</div>
+ </td>
+ </tr>
+ <!-- TMPL_IF
name="has_active_penalties_overdues" -->
+ <tr bgcolor="#F2F0E9">
+ <td width="10"
bgcolor="#F9F8F4"> </td>
+ <td bgcolor="#F9F8F4">
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td width="5%"><div
align="center" class="style2">Number</div></td>
+ <td width="35%"><div
align="center" class="style2">Title</div></td>
+ <td width="10%"><div
align="center" class="style2">Library</div></td>
+ <td width="10%"><div
align="center" class="style2">Penalized from </div></td>
+ <td width="10%"><div
align="center" class="style2">Penalty days</div></td>
+ <td width="10%"><div
align="center" class="style2">Applicable fee </div></td>
+ <td width="10%"><div
align="center" class="style2">Description</div></td>
+ </tr>
+ </table>
+ <!-- TMPL_LOOP
NAME="ACTIVE_PENALTIES_OVERDUES" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td width="5%"><div
align="center"><!-- TMPL_VAR NAME="penalty_number" --></div></td>
+ <td width="35%"><div
align="center"><!-- TMPL_VAR NAME="title" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="branchname" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="penalizedfrom" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="penaltydays" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="applicablefee" --></div></td>
+ <td width="10%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="index" -->");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="index" -->'>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <div id='<!-- TMPL_VAR
NAME="index" -->'
+
style="display:none;position:relative;margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Reason
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="5"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="description" -->
+
<!-- TMPL_VAR NAME="description" -->
+
<!-- TMPL_ELSE -->
+
No observations.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <!-- TMPL_ELSE -->
+ <tr>
+ <td width="10" class="style8">
+ <div align="right"></div><div
align="right"></div><div align="left"></div>
+ </td>
+ <td class="style4">No penalties </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <tr bgcolor="#F2F0E9">
+ <td colspan="2">
+ <div align="left" class="style19">Other
penalties</div></td>
+ </tr>
+ <!-- TMPL_IF name="has_active_penalties_others"
-->
+ <tr bgcolor="#F2F0E9">
+ <td width="10"
bgcolor="#F9F8F4"> </td>
+ <td bgcolor="#F9F8F4">
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td width="5%"><div
align="center" class="style2">Number</div></td>
+ <td width="20%"><div
align="center" class="style2">Library</div></td>
+ <td width="20%"><div
align="center" class="style2">Penalized from </div></td>
+ <td width="15%"><div
align="center" class="style2">Penalty days </div></td>
+ <td width="20%"><div
align="center" class="style2">Applicable fee </div></td>
+ <td width="20%"><div
align="center" class="style2">Description</div></td>
+ </tr>
+ </table>
+ <!-- TMPL_LOOP
NAME="ACTIVE_PENALTIES_OTHERS" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td width="5%"><div
align="center"><!-- TMPL_VAR NAME="penalty_number" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="branchname" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="penalizedfrom" --></div></td>
+ <td width="15%"><div
align="center"><!-- TMPL_VAR NAME="penaltydays" --></div></td>
+ <td width="20%"><div
align="center"><!-- TMPL_VAR NAME="applicablefee" --></div></td>
+ <td width="20%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="index" -->");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="index" -->'>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <div id='<!-- TMPL_VAR
NAME="index" -->'
+
style="display:none;position:relative;margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Reason
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="5"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="description" -->
+
<!-- TMPL_VAR NAME="description" -->
+
<!-- TMPL_ELSE -->
+
No observations.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <!-- TMPL_ELSE -->
+ <tr>
+ <td width="10" class="style8">
+ <div align="right"></div><div
align="right"></div><div align="left"></div>
+ </td>
+ <td class="style4">No penalties </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ </table>
+ </td>
+ </tr>
+ <div align="center"></div></td>
+ </tr>
+ <tr>
+ <td class="style24">Hitorical penalties</td>
+ </tr>
+ <tr>
+ <td><table width="100%" border="0" align="center"
cellpadding="2" cellspacing="2">
+ <tr>
+ <td colspan="2" bgcolor="#F2F0E9" class="style8"><div
align="left" class="style19">Circulation penalties</div></td>
+ </tr>
+ <!-- TMPL_IF
name="has_history_penalties_overdues" -->
+ <tr bgcolor="#F2F0E9">
+ <td width="10"
bgcolor="#F9F8F4"> </td>
+ <td bgcolor="#F9F8F4">
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td width="5%"><div
align="center" class="style2">Number</div></td>
+ <td width="35%"><div
align="center" class="style2">Title</div></td>
+ <td width="10%"><div
align="center" class="style2">Library</div></td>
+ <td width="10%"><div
align="center" class="style2">Penalized from </div></td>
+ <td width="10%"><div
align="center" class="style2">Penalty days </div></td>
+ <td width="10%"><div
align="center" class="style2">Applicable fee</div></td>
+ <td width="10%"><div
align="center" class="style2">Description</div></td>
+ <td width="10%"><div
align="center" class="style2">Annulled</div></td>
+ </tr>
+ </table>
+ <!-- TMPL_LOOP
NAME="HISTORY_PENALTIES_OVERDUES" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td width="5%"><div
align="center"><!-- TMPL_VAR NAME="penalty_number" --></div></td>
+ <td width="35%"><div
align="center"><!-- TMPL_VAR NAME="title" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="branchname" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="penalizedfrom" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="penaltydays" --></div></td>
+ <td width="10%"><div
align="center"><!-- TMPL_VAR NAME="applicablefee" --></div></td>
+ <td width="10%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="index" -->");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="index" -->'>
+ </div>
+ </td>
+ <td width="10%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="index" -->annuled");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="index" -->annuled'>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <div id='<!-- TMPL_VAR
NAME="index" -->'
+
style="display:none;position:relative;margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Reason
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="5"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="description" -->
+
<!-- TMPL_VAR NAME="description" -->
+
<!-- TMPL_ELSE -->
+
No observation.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <div id='<!-- TMPL_VAR
NAME="index" -->annuled'
+
style="display:none;position:relative;margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Annulled reason
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="7"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="annulledpenalty" -->
+
<!-- TMPL_VAR NAME="annulled_description" -->
+
<!-- TMPL_ELSE -->
+
No observation.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <!-- TMPL_ELSE -->
+ <tr>
+ <td width="10" class="style8">
+ <div align="right"></div><div
align="right"></div><div align="left"></div>
+ </td>
+ <td class="style4">No penalties </td>
+ </tr>
+ <!-- /TMPL_IF -->
+ <tr bgcolor="#F2F0E9">
+ <td colspan="2">
+ <div align="left" class="style19">Others penalties
</div></td>
+ </tr>
+ <!-- TMPL_IF
name="has_history_penalties_others" -->
+ <tr bgcolor="#F2F0E9">
+ <td width="10"
bgcolor="#F9F8F4"> </td>
+ <td bgcolor="#F9F8F4">
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#DCD9CF">
+ <td width="5%"><div
align="center" class="style2">Number</div></td>
+ <td width="15%"><div
align="center" class="style2">Library</div></td>
+ <td width="15%"><div
align="center" class="style2">Penalized from </div></td>
+ <td width="15%"><div
align="center" class="style2">Penalty days </div></td>
+ <td width="15%"><div
align="center" class="style2">Applicable fee </div></td>
+ <td width="10%"><div
align="center" class="style2">Description</div></td>
+ <td width="10%"><div
align="center" class="style2">Annulled</div></td>
+ </tr>
+ </table>
+ <!-- TMPL_LOOP
NAME="HISTORY_PENALTIES_OTHERS" -->
+ <table width="98%" border="0"
align="center" cellpadding="2" cellspacing="2" bgcolor="#F2F0E9">
+ <tr bgcolor="#F9F8F4">
+ <td
width="5%"><div align="center"><!-- TMPL_VAR NAME="penalty_number"
--></div></td>
+ <td width="15%"><div
align="center"><!-- TMPL_VAR NAME="branchname" --></div></td>
+ <td width="15%"><div
align="center"><!-- TMPL_VAR NAME="penalizedfrom" --></div></td>
+ <td width="15%"><div
align="center"><!-- TMPL_VAR NAME="penaltydays" --></div></td>
+ <td width="15%"><div
align="center"><!-- TMPL_VAR NAME="applicablefee" --></div></td>
+ <td width="10%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="index" -->");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="index" -->'>
+ </div>
+ </td>
+ <td width="10%"
bgcolor="#F2F0E9">
+ <div
align="center">
+ <img
src='<!-- TMPL_VAR NAME="themelang" -->/../images/blue_down.gif' width="11"
height="9"
+
onclick='javascript: showObservation("<!-- TMPL_VAR NAME="index" -->annuled");'
+
style="cursor:pointer"
+
id='img<!-- TMPL_VAR NAME="index" -->annuled'>
+ </div>
+ </td>
+ </tr>
+ </table>
+ <div id='<!-- TMPL_VAR
NAME="index" -->'
+
style="display:none;position:relative;margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Reason
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td colspan="5"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="description" -->
+
<!-- TMPL_VAR NAME="description" -->
+
<!-- TMPL_ELSE -->
+
No observations.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <div id='<!-- TMPL_VAR
NAME="index" -->annuled'
+
style="display:none;position:relative;margin:0px;padding:0px">
+ <table width="98%"
border="0" align="center" cellpadding="2" cellspacing="6" bgcolor="#F2F0E9">
+ <tr align="left"
bgcolor="#F2F0E9">
+ <td
bgcolor="#DCD9CF" class="style3"><div align="left">
+ <span>
+
Annulled reason.
+ </span>
+ </div>
+ </td>
+ </tr>
+ <tr>
+ <td colspan="6"
class="style2"><div align="left">
+ <p>
+
<!-- TMPL_IF NAME="annulledpenalty" -->
+
<!-- TMPL_VAR NAME="annulled_description" -->
+
<!-- TMPL_ELSE -->
+
No observations.
+
<!-- /TMPL_IF -->
+ </p>
+ </div></td>
+ </tr>
+ </table>
+ </div>
+ <!-- /TMPL_LOOP -->
+ </td>
+ </tr>
+ <!-- TMPL_ELSE -->
+ <tr>
+ <td width="10" class="style8">
+ <div align="right"></div><div
align="right"></div><div align="left"></div>
+ </td>
+ <td class="style4">No penalties</td>
+ </tr>
+ <!-- /TMPL_IF -->
+ </table></td>
+ </tr>
+ </table></td>
+ </tr>
+ </table>
+ <hr width="760" size="1" class="style5"> <table width="760"
height="20" border="0" align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#F9F8F4"> <div align="center" class="style6">The
software used for this library is based on <a href="http://www.koha.org";
class="style3">Koha </a> OSS Integrated Library System, and it is under
international standars of web information. </div>
+ <div align="center" class="style6">
+ <br>Visitor: <span class="style3"><!-- TMPL_VAR
NAME='opac_counter' --></span>
+ </div>
+ </td>
+ </tr>
+ </table> </td>
+ </tr>
+</table>
+
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
Index: koha-tmpl/opac-tmpl/css/tr/union-searchresult.tmpl
===================================================================
RCS file: koha-tmpl/opac-tmpl/css/tr/union-searchresult.tmpl
diff -N koha-tmpl/opac-tmpl/css/tr/union-searchresult.tmpl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/css/tr/union-searchresult.tmpl 26 Mar 2007 00:07:52
-0000 1.1.2.1
@@ -0,0 +1,119 @@
+<!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<!--TMPL_IF name="opsearch"--><!-- TMPL_INCLUDE NAME="masthead.inc" -->
<!--/TMPL_IF-->
+<table width="760" border="0" align="center" cellpadding="4" cellspacing="2">
+ <!-- TMPL_INCLUDE NAME="opac-login.inc" -->
+
+
+ <td align="right" class="style4">
+ <table height="20" border="0" align="right"
cellpadding="0" cellspacing="0">
+ <tr>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/opac-main.pl' title="Ana sayfa">
+ Ana Sayfa
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+<!--TMPL_UNLESS NAME="opsearch"-->
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/union-search.pl' title="Toplu katalog">
+ Toplu Katalog
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+<!--/TMPL_UNLESS-->
+<td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/izq.jpg"> </td>
+ <td bgcolor="#0599B4" class="style5">
+ <a style="width:100%" class="style5"
href='/cgi-bin/koha/opac-search.pl' title="GeliÅmiÅ tarama">
+ GeliÅmiÅ Tarama
+ </a>
+ </td>
+ <td width="10" background="<!--TMPL_VAR
NAME="themelang"-->/../images/der.jpg" class="style5"> </td>
+ <!-- TMPL_IF NAME="loggedinusername" -->
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/izq.jpg"
class="style5"> </td>
+ <td bgcolor="#0599B4"
class="style5">
+ <a
style="width:100%" class="style5" href="/cgi-bin/koha/opac-user.pl" title="Ãye
sayfası">
+ Ãye
sayfası
+ </a>
+ </td>
+ <td width="10"
background="<!-- TMPL_VAR NAME="themelang" -->/../images/der.jpg"
class="style5"> </td>
+ <!-- /TMPL_IF -->
+
+ </tr>
+
+ </table>
+ <tr>
+ <td colspan="2" bgcolor="#F9F8F4"><table width="100%" border="0"
align="center" cellpadding="4" cellspacing="2">
+ <tr>
+ <td bgcolor="#06B4D2" class="style5">Toplu Katalog</td>
+ </tr>
+<!--TMPL_IF name="opsearch"-->
+<tr>
+ <td>
+ <table width="50%" border="0" align="left"
cellpadding="0" cellspacing="0">
+ <tr>
+<form method="post" action="union-search.pl" name="f">
+<input type="hidden" name="op" value="do_search"/>
+
+
+<tr>
+ <td bgcolor="#DCD9CF" class="style1">Kütüphane</td>
+ <td width="10" bgcolor="#DCD9CF">Seç</td>
+</tr>
+<!-- TMPL_LOOP name="serverloop" -->
+ <tr <!--TMPL_IF
NAME="even"-->bgcolor="DEE5E7"<!--TMPL_ELSE-->bgcolor="#F2F0E9"<!--/TMPL_IF-->>
+ <td><!-- TMPL_VAR NAME="server" --></td>
+
+ <td> <input type="checkbox" name="id" value=<!--
TMPL_VAR NAME="id" --> <!-- TMPL_IF name="checked" -->checked="1"<!-- /TMPL_IF
--> ></td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+
+ <tr><td class="style1">Terim: <input name="field_value"
type="text" class="style1" />
+ alan: <select name="field" class="style2">
+ <option value="@attr 1=1016">Tüm alanlar</option>
+ <option value="@attr 1=1003">Yazar</option>
+ <option value="@attr 1=4">Eser adı</option>
+ <option value="@attr 1=21">Konu</option>
+ </select></td>
+ </tr>
+ <tr><td class="style1"><input type="submit" class="submit"
value="Seçilenleri tara" onclick="cursor :'wait'"; />
+ </td></tr>
+ </form>
+ </tr></table></td></tr>
+<!-- TMPL_ELSE -->
+ <tr>
+ <td><table width="100%" border="0" align="left">
+<caption>Bulunan kayıtlar</caption>
+ <tr bgcolor="#DCD9CF">
+ <td bgcolor="#DCD9CF" class="style1">Eser adı</td>
+ <td bgcolor="#DCD9CF" class="style1">Yazar</td>
+ <td bgcolor="#DCD9CF" class="style1">ISBN</td>
+ <td bgcolor="#DCD9CF" class="style1">Sınıfı</td>
+ <td bgcolor="#DCD9CF" class="style1">Kütüphane</td>
+
+ </tr>
+ <!-- TMPL_IF name="breeding_loop" -->
+ <!-- TMPL_LOOP name="breeding_loop" -->
+ <tr <!--TMPL_IF
NAME="even"-->bgcolor="DEE5E7"<!--TMPL_ELSE-->bgcolor="#F2F0E9"<!--/TMPL_IF-->>
+ <td><!-- TMPL_VAR NAME="title" --></a>
+ <td><!-- TMPL_VAR NAME="author" --></td>
+ <td><!-- TMPL_VAR NAME="isbn" --></td>
+ <td><!-- TMPL_VAR NAME="classification" --></td>
+ <td><!-- TMPL_VAR NAME="server" --></td>
+
+ </tr>
+ <!-- /TMPL_LOOP -->
+ <!-- TMPL_ELSE -->
+ <tr><td colspan="6">Bulunamadı</td></tr>
+ <!-- /TMPL_IF -->
+</table></td></tr>
+<!-- /TMPL_IF -->
+</table>
+</div>
+Not: Sonuçlar her kütüphaneden sadece 5 kayıtla sınırlıdır!
+
+<!-- TMPL_INCLUDE NAME="bottomline.inc" -->
+
+<!-- TMPL_INCLUDE NAME="opac-searchbottom.inc" -->
+
Index: koha-tmpl/opac-tmpl/index.html
===================================================================
RCS file: koha-tmpl/opac-tmpl/index.html
diff -N koha-tmpl/opac-tmpl/index.html
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac-tmpl/index.html 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,26 @@
+<html>
+
+<head>
+<meta http-equiv="Content-Language" content="en-gb">
+<meta http-equiv="Content-Type" content="text/html; charset=" utf-8" />
+<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
+<meta name="ProgId" content="FrontPage.Editor.Document">
+<meta http-equiv="refresh" content="0; url=/cgi-bin/koha/opac-main.pl">
+</head>
+
+<body background="opac-tmpl/css/images/img_36.gif">
+
+<table border="0" width="100%" height="100%">
+ <tr>
+ <td align="center" valign="center">
+ <font face="Arial" size="4" color="#CC0000">
+ WELCOME TO NEU LIBRARY OPAC</font><p>
+ <font face="Arial" size="4" color="#990000">
+ YAKIN DOÄU
+ KÃTÃPHANESÄ°NE HOÅGELDÄ°NÄ°Z</font></td>
+ </tr>
+</table>
+
+</body>
+
+</html>
Index: koha-tmpl/opac.html
===================================================================
RCS file: koha-tmpl/opac.html
diff -N koha-tmpl/opac.html
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/opac.html 26 Mar 2007 00:07:52 -0000 1.2.14.2
@@ -0,0 +1,11 @@
+<html>
+<head>
+<meta http-equiv="refresh" content="0; url=/cgi-bin/koha/opac-main.pl">
+</head>
+<body bgcolor=white>
+<table border=0 width="100%" height="100%">
+<tr><td align=center valign=center>
+WELCOME TO KOHA</td></tr>
+</table>
+</body>
+</html>
Index: koha-tmpl/templates.readme
===================================================================
RCS file: koha-tmpl/templates.readme
diff -N koha-tmpl/templates.readme
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/templates.readme 26 Mar 2007 00:07:52 -0000 1.5.14.2
@@ -0,0 +1,190 @@
+This is a README file for all interested in the templating system used
+by Koha. It contains guidelines ans descriptions, please feel free to
+make comments and contributions to this file.
+
+1. Introduction
+
+ The advantage of a templating system is the separation of code and
+ design. It is much easier to read the HTML and get an imagination of
+ what it will look like without having it shattered by declarations and
+ functions. And it is also nicer being able to alter some functions
+ without worrying about the web design.
+
+ On the other hand, templating stands in contradiction on scripting the
+ procedural way; it forces object-oriented programming.
+
+ With templates Koha can be made fully skinnable: we speak of themes,
+ and can support different languages.
+
+2. How does it work
+
+ The short version: Instead of printing HTML from your script, you only
+ define some template parameters.
+
+ You design your HTML page without code in it, and where you need to
+ insert data generated by the script. You can pass this data from the
+ template parameters via special tags.
+
+ Indeed, there is a little more to know.
+
+ I recomend reading the documentation to the HTML::Template module.
+ You can obtain it from http://www.perldoc.com/cpan/HTML/Template.html
+
+3. How is it implemented in Koha
+
+ Koha uses templates to handle different themes and languages. In
+ the CVS module "koha", there is a subdirectory for the design files:
+ koha-tmpl. This subdirectory can be checked out from CVS as if it
+ were a CVS module "koha-tmpl".
+
+ It contains two directories for the OPAC and the intranet templates:
+ opac-tmpl and intranet-tmpl.
+
+ Each of this directories reflects the available themes and their
+ languages. The default theme is "default" and the default language is
+ "en" (we use the 2-letter abbreviations, en => English, fr => French,
+ de => German and so on).
+
+ If you, for example, want to write a template for the OPAC
+ part of the "custommade" theme in Polish, it has to go in
+ koha-tmpl/opac-tmpl/custommade/pl/template.tmpl.
+
+ The template files will not reside in your web tree. If
+ you want to use an image, you have to put this in your web
+ tree, which is organized the same way as the template tree
+ (koha-html/opac-html/custommade/pl/images/image.gif).
+
+ If you have files (either templates or files in the webspace)
+ which are the same for all themes or languages use the
+ "all" directory. For example the "background.jpg" image, which
+ is the same for all languages within a theme should go in
+ koha-html/(intranet|opac)-html/custommade/all/images/background.jpg).
+
+4. How to use it
+
+ Simply add an entry to the systempreferences: name=theme,
+ value=nameoftheme.
+
+ If you want your users be able to override your theme settings enter
+ name=allowthemeoverride value=customtheme1,customtheme2,... (names of
+ themes you want to be allowed) to the preferences.
+
+ For the language you normally don't have to enter anything, the
+ preferences of the user's browser will be used.
+
+ If anything is wrong you can specify a languageorder with the
+ following entry: name=languageorder value=en,fr,de,es (or whatever
+ comma-separated languages you want)
+
+ If you want to specify a directory for the templates you can do so in
+ koha.conf with 'templatedirectory=younameit'.
+
+5. Rules and hints
+
+ 5.1 For the templates
+
+ - Use absolute paths; relative paths in HTML tags would be relative to
+ the script's position and relative paths in <TMPL_INCLUDE> would be
+ relative to the template.
+
+ - You don't have to make templates for everything in your custom theme
+ or language. If you omit a template in a language, the template of
+ next available language is used. (Languages are tried in the order of
+ the user's browser settings.)
+
+ If there is no template in the specified language in a theme, a
+ different language will be chosen and NOT a different theme.
+
+ If you omit a template in all languages, the template of the default
+ theme will be used.
+
+ - Include comments with useful information such as the template's
+ location; this simplifies debugging
+
+ - Use the same name for the template and the script (with different
+ extensions of course)
+
+ 5.2 for the scripts
+
+ - Use meaningful English (abbreviations) as parameter names
+
+ - If you fetch a list of data, pass it completely and let the designer
+ decide which data to use.
+
+ - Working with arrays and loops is always better, even if you have
+ only three similar rows.
+
+ - Don't let the script generate html and pass the output to the
+ template
+
+6. Templating stuff in Koha
+
+
+# FIXME
+# pathtotemplate() call has been replaced with get_template_and_user() call
+#
+# This section should be rewritten to describe the new interface.
+#
+# In the meantime, look at an example script like member.pl or search.pl
+#
+#
+
+ This section is to describe scripts, modules and functions within them
+ to handle with themes, languages and other templating stuff.
+
+ If you write something which matches this, please add a brief
+ description here (e.g. function calls and return values).
+
+ - function %path = pathtotemplate(%hash) in C4::Output
+
+ Takes a hash with the following keys:
+
+ -template: the name of the template file (e.g. 'mytemplate.tmpl')
+
+ -type: 'opac', 'intranet', 'none' or something you specify, decides
+ which directory to lookup; defaults to intranet
+
+ -'opac': /somedirs/opac-tmpl/theme/language/template.tmpl
+
+ -'intranet': /somedirs/intranet-tmpl/theme/language/template.tmpl
+
+ -'none': /somedirs/theme/language/template.tmpl
+
+ -'my own words': /somedirs/my own
+ words/theme/language/template.tmpl
+
+ somedirs is 1. the path-parameter if specified 2. the
+ templatedirectory in koha.conf, 3. the includes + '/templates', 4.
+ the includes
+
+ -theme: you can manually set a theme (e.g. 'customtheme') only if
+ 'allowthemeoverride' in systempreferences is set
+
+ -language: you can manually set a language (e.g. 'es')
+
+ -path: you can manually set the path to search for templates (e.g.
+ '/usr/koha/sometesttemplates')
+
+ You only need to pass the last three parameters if you want to
+ override the preferences for some reasons
+
+ Returns:
+
+ - $path{'path'}: the complete+absolute path of the template (e.g.
+ '/somedirs.../opac-tmpl/customtheme/es/mytemplate.tmpl')
+
+ - $path{'fondlanguage'}: '1' if the requested template was available
+ in the requested language
+
+ - $path{'fondtheme'}: '1' if the requested template was available in
+ the requested theme
+
+7. Links
+
+ Do you have good links for the templater?
+
+ The HTML::Template documentation:
+ http://www.perldoc.com/cpan/HTML/Template.html
+
+
+Comments to address@hidden Dorian
Index: members/boraccount.pl
===================================================================
RCS file: members/boraccount.pl
diff -N members/boraccount.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/boraccount.pl 26 Mar 2007 00:07:52 -0000 1.4.2.2
@@ -0,0 +1,103 @@
+#!/usr/bin/perl
+
+# $Id: boraccount.pl,v 1.4.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+#writen 11/1/2000 by address@hidden
+#script to display borrowers account details
+
+
+# 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 C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use CGI;
+use C4::Search;
+use C4::Members;
+my $input=new CGI;
+
+my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/boraccount.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+my $bornum=$input->param('bornum');
+#get borrower details
+my $data=borrdata('',$bornum);
+
+#get account details
+my %bor;
+$bor{'borrowernumber'}=$bornum;
+my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
+my $totalcredit;
+if($total <= 0){
+ $totalcredit = 1;
+}
+my @accountrows; # this is for the tmpl-loop
+
+my $toggle;
+for (my $i=0;$i<$numaccts;$i++){
+ if($i%2){
+ $toggle = 0;
+ } else {
+ $toggle = 1;
+ }
+ $accts->[$i]{'toggle'} = $toggle;
+ $accts->[$i]{'amount'}+=0.00;
+ if($accts->[$i]{'amount'} <= 0){
+ $accts->[$i]{'amountcredit'} = 1;
+ }
+ $accts->[$i]{'amountoutstanding'}+=0.00;
+ if($accts->[$i]{'amountoutstanding'} <= 0){
+ $accts->[$i]{'amountoutstandingcredit'} = 1;
+ }
+ my %row = ( 'date' => format_date($accts->[$i]{'date'}),
+ 'accountid' => $accts->[$i]{'accountid'},
+ 'itemnum' => $accts->[$i]{'itemnumber'},
+ 'amountcredit' => $accts->[$i]{'amountcredit'},
+ 'amountoutstandingcredit' =>
$accts->[$i]{'amountoutstandingcredit'},
+ 'toggle' => $accts->[$i]{'toggle'},
+ 'description' => $accts->[$i]{'description'},
+ 'amount' => sprintf("%.2f",$accts->[$i]{'amount'}),
+ 'accounttype' =>$accts->[$i]{'accounttype'},
+ 'amountoutstanding' =>
sprintf("%.2f",$accts->[$i]{'amountoutstanding'}) );
+
+ if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne
'FU'){
+ $row{'printtitle'}=1;
+ $row{'title'} = $accts->[$i]{'title'};
+ }
+
+ push(@accountrows, \%row);
+}
+
+$template->param(
+ firstname => $data->{'firstname'},
+ surname => $data->{'surname'},
+ bornum => $bornum,
+ total => sprintf("%.2f",$total),
+ totalcredit => $totalcredit,
+ accounts => address@hidden );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: members/borrowers_details.pl
===================================================================
RCS file: members/borrowers_details.pl
diff -N members/borrowers_details.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/borrowers_details.pl 26 Mar 2007 00:07:52 -0000 1.2.4.2
@@ -0,0 +1,86 @@
+#!/usr/bin/perl
+# NOTE: This file uses standard 8-space tabs
+# DO NOT SET TAB SIZE TO 4
+
+# $Id: borrowers_details.pl,v 1.2.4.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+#script to set up screen for modification of borrower details
+#written 20/12/99 by address@hidden
+
+
+# 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 C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Members;
+use C4::Koha;
+use HTML::Template;
+use Date::Manip;
+use C4::Date;
+use C4::Input;
+use C4::Log;
+my $input = new CGI;
+my $dbh = C4::Context->dbh;
+my %data;
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/borrowers_details.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+my $data;
+my $categorycode=$input->param('categorycode');
+my $borrowernumber=$input->param('borrowernumber');
+my $description=$input->param('description');
+my $category_type=$input->param('category_type');
+
+ if ( $data{'surname'} eq '')
+ {
+ $data=borrdata('',$borrowernumber);
+ %data=%$data;
+ }
+ my ($category_type,$description) = getcategorytype($data{'categorycode'});
+
+$template->param( borrowernumber => $borrowernumber,#register
number
+ #transform value in capital or capital for
first letter of the word
+ firstname => ucfirst($data{'firstname'}),
+ surname => uc($data{'surname'}),
+ categorycode => $data{'categorycode'},
+ title => $data{'title'},
+ category_type => $category_type,
+ # #
+ "title_".$data{'title'} => "
SELECTED ",
+ dateofbirth =>
format_date($data{'dateofbirth'}),
+ description =>$description
+#
+ );
+ $template->param(Institution => 1) if ($category_type eq "I");
+ output_html_with_http_headers $input, $cookie, $template->output;
+
+# Local Variables:
+# tab-width: 8
+# End:
\ No newline at end of file
Index: members/deletemem.pl
===================================================================
RCS file: members/deletemem.pl
diff -N members/deletemem.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/deletemem.pl 26 Mar 2007 00:07:52 -0000 1.9.4.2
@@ -0,0 +1,103 @@
+#!/usr/bin/perl
+
+# $Id: deletemem.pl,v 1.9.4.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+#script to delete items
+#written 2/5/00
+#by address@hidden
+
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Interface::CGI::Output;
+use C4::Output;
+use C4::Circulation::Circ2;
+use C4::Auth;
+use C4::Members;
+use C4::Log;
+my $input = new CGI;
+
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name =>
"members/deletemem.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+
+my $member=$input->param('member');
+my %env;
+$env{'nottodayissues'}=1;
+my %member2;
+$member2{'borrowernumber'}=$member;
+my $issues=currentissues(\%env,\%member2);
+my $i=0;
+foreach (sort keys %$issues) {
+ $i++;
+}
+my ($bor,$flags)=getpatroninformation(\%env, $member,'');
+if (C4::Context->preference("IndependantBranches")) {
+ my $userenv = C4::Context->userenv;
+ unless ($userenv->{flags} == 1){
+ unless ($userenv->{'branch'} eq $bor->{'branchcode'}){
+# warn "user ".$userenv->{'branch'} ."borrower :".
$bor->{'branchcode'};
+ print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
+ exit 1;
+ }
+ }
+}
+my $dbh = C4::Context->dbh;
+my $sth=$dbh->prepare("Select * from borrowers where guarantor=?");
+$sth->execute($member);
+my $data=$sth->fetchrow_hashref;
+$sth->finish;
+
+
+if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){
+ $template->param(bornum => $member);
+ if ($i >0) {
+ $template->param(ItemsOnIssues => $i);
+ }
+ if ($flags->{'CHARGES'} ne '') {
+ $template->param(charges => $flags->{'CHARGES'}->{'message'});
+ }
+ if ($data ne '') {
+ $template->param(guarantees => 1);
+ }
+
+$template->param(intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
+ intranetstylesheet =>
C4::Context->preference("intranetstylesheet"),
+ IntranetNav => C4::Context->preference("IntranetNav"),
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+
+} else {
+ &C4::Members::DeleteBorrower($member);
+
logaction($loggedinuser,"members","delete",$member,"$bor->{'firstname'}
$bor->{'surname'}" ) if (&logstatus);
+ print $input->redirect("/cgi-bin/koha/members/members-home.pl");
+}
+
+
Index: members/guarantor_search.pl
===================================================================
RCS file: members/guarantor_search.pl
diff -N members/guarantor_search.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/guarantor_search.pl 26 Mar 2007 00:07:52 -0000 1.1.4.2
@@ -0,0 +1,109 @@
+#!/usr/bin/perl
+
+# $Id: guarantor_search.pl,v 1.1.4.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# script to find a guarantor
+
+# Copyright 2006 OUEST PROVENCE
+#
+# 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 C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use HTML::Template;
+#op
+use C4::Date;
+use C4::Members;
+
+my $input = new CGI;
+my ($template, $loggedinuser, $cookie);
+
+ ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/guarantor_search.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+# }
+my $theme = $input->param('theme') || "default";
+ # only used if allowthemeoverride is set
+
+
+my $member=$input->param('member');
+my $orderby=$input->param('orderby');
+$orderby = "surname,firstname" unless $orderby;
+$member =~ s/,//g; #remove any commas from search string
+$member =~ s/\*/%/g;
+if ($member eq ''){
+ $template->param(results=>0);
+}else{
+ $template->param(results=>1);
+}
+my $env;
+
+my ($count,$results);
+my @resultsdata;
+my $background = 0;
+
+if ($member ne ''){
+ if(length($member) == 1)
+ {
+
($count,$results)=GuarantornameSearch($env,$member,$orderby,"simple");
+ }
+ else
+ {
+
($count,$results)=GuarantornameSearch($env,$member,$orderby,"advanced");
+ }
+ for (my $i=0; $i < $count; $i++){
+ #find out stats
+ my ($od,$issue,$fines)=borrdata2($env,$results->[$i]{'borrowerid'});
+
+ my %row = (
+ background => $background,
+ count => $i+1,
+ borrowernumber => $results->[$i]{'borrowernumber'},
+ cardnumber => $results->[$i]{'cardnumber'},
+ surname => $results->[$i]{'surname'},
+ firstname => $results->[$i]{'firstname'},
+ categorycode => $results->[$i]{'categorycode'},
+ address => $results->[$i]{'address'},
+ city => $results->[$i]{'city'},
+ branchcode => $results->[$i]{'branchcode'},
+
+ #op
+ dateofbirth =>format_date($results->[$i]{'dateofbirth'}),
+ #fi op
+
+ odissue => "$od/$issue",
+ fines => $fines,
+ borrowernotes => $results->[$i]{'borrowernotes'});
+ if ( $background ) { $background = 0; } else {$background = 1; }
+ push(@resultsdata, \%row);
+ }
+}
+$template->param(
+ member => $member,
+ numresults => $count,
+
+ resultsloop => address@hidden );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: members/mancredit.pl
===================================================================
RCS file: members/mancredit.pl
diff -N members/mancredit.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/mancredit.pl 26 Mar 2007 00:07:52 -0000 1.4.2.2
@@ -0,0 +1,85 @@
+#!/usr/bin/perl
+
+#wrriten 18/09/2005 by TG
+#script to display borrowers account details
+
+
+# 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 C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+
+use C4::Search;
+use C4::Accounts2;
+use C4::Members;
+my $input=new CGI;
+ my $accounttype=$input->param('accounttype');
+ my $accountid=$input->param('accountid');
+my $amount=$input->param('amount');
+my $itemnum=$input->param('itemnum');
+my $error=0;
+my $bornum=$input->param('bornum');
+#get borrower details
+my $data=borrdata('',$bornum);
+my $user=$data->{firstname}.",".$data->{surname}."-".$data->{cardnumber};
+my $add=$input->param('add');
+# $error=$input->param('error');
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/mancredit.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+ $template->param(user => $user);
+ $template->param( bornum => $bornum);
+ $template->param( itemnum => $itemnum);
+ $template->param( amount => $amount);
+ $template->param( accounttype => $accounttype);
+ $template->param( accountid => $accountid);
+if ($add){
+if ($accounttype eq "F" || $accounttype eq "FU"){
+$accounttype="CF";
+}else{
+$accounttype="C".$accounttype;
+}
+
+ my $desc=$input->param('desc');
+ my $amount=$input->param('amount');
+ $amount = -$amount;
+my $loggeduser=$input->param('loggedinuser');
+my
$error=manualcredit($bornum,$accountid,$desc,$accounttype,$amount,$loggeduser);
+ if ($error>0 ) {
+ $template->param( error => "1");
+ $template->param(user => $user);
+ $template->param( bornum => $bornum);
+ $template->param( itemnum => $itemnum);
+ $template->param( amount => $amount);
+ $template->param( accounttype => $accounttype);
+ $template->param( accountid => $accountid);
+ } else {
+ print
$input->redirect("/cgi-bin/koha/members/boraccount.pl?bornum=$bornum");
+ }
+}
+
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: members/maninvoice.pl
===================================================================
RCS file: members/maninvoice.pl
diff -N members/maninvoice.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/maninvoice.pl 26 Mar 2007 00:07:52 -0000 1.4.2.2
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+
+#wrriten 11/1/2000 by address@hidden
+#script to display borrowers account details
+
+
+# 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 C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Accounts2;
+use C4::Members;
+
+
+my $input=new CGI;
+
+my $bornum=$input->param('bornum');
+#get borrower details
+my $data=borrdata('',$bornum);
+my $user=$data->{firstname}.",".$data->{surname}."-".$data->{cardnumber};
+my $add=$input->param('add');
+if ($add){
+# print $input->header;
+ my $desc=$input->param('desc');
+ my $amount=$input->param('amount');
+ my $type=$input->param('type');
+ manualinvoice($bornum,$desc,$type,$amount);
+ print $input->redirect("/cgi-bin/koha/members/boraccount.pl?bornum=$bornum");
+} else {
+ my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/maninvoice.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+ $template->param(bornum => $bornum);
+ $template->param(user => $user);
+ output_html_with_http_headers $input, $cookie, $template->output;
+}
Index: members/manualcredit.pl
===================================================================
RCS file: members/manualcredit.pl
diff -N members/manualcredit.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/manualcredit.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+
+#wrriten 18/09/2005 by TG
+#script to display borrowers account details
+
+
+# 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::Accounts2;
+
+my $input=new CGI;
+my $dbh=C4::Context->dbh;
+my $me= C4::Context->userenv;
+my $user=$me->{'cardnumber'} if ($me);
+$user="system" unless $user;
+my $sth=$dbh->prepare("SELECT * FROM accountlines a
+left join borrowers b on a.borrowernumber=b.borrowernumber
+where amountoutstanding>0 and categorycode='F' ");
+$sth->execute();
+my ($bornum,$itemnum,$desc,$accounttype,$amount);
+while (my $data=$sth->fetchrow_hashref){
+ if ($data->{'accounttype'} eq "FU"){
+ $accounttype="CF";
+ }else{
+ $accounttype="C".$data->{'accounttype'};
+ }
+ my $accountno=getnextacctno('',$data->{borrowernumber},$dbh);
+ my $desc="Automatic -credit for Faculty";
+ my $amount=$data->{amountoutstanding};
+ $amount = -$amount;
+my $sth3=$dbh->prepare("update accountlines set amountoutstanding=0 where
accountid=?");
+$sth3->execute($data->{accountid});
+ my $sth2=$dbh->prepare("INSERT INTO accountlines
+ (borrowernumber, accountno, date, amount, description,
accounttype, amountoutstanding,offset)
+ VALUES (?, ?, now(), ?, ?, ?, ?,?)");
+ $sth2->execute($data->{borrowernumber}, $accountno, $amount, $desc,
$accounttype, 0,$data->{amountoutstanding});
+
+
+}
+
+print $input->redirect("/cgi-bin/koha/mainpage.pl");
+
Index: members/member-flags.pl
===================================================================
RCS file: members/member-flags.pl
diff -N members/member-flags.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/member-flags.pl 26 Mar 2007 00:07:52 -0000 1.5.4.2
@@ -0,0 +1,91 @@
+#!/usr/bin/perl
+
+# script to edit a member's flags
+# Written by Steve Tonnesen
+# July 26, 2002 (my birthday!)
+
+use strict;
+
+use C4::Search;
+use CGI;
+use C4::Output;
+use C4::Auth;
+use C4::Context;
+use C4::Circulation::Circ2;
+use C4::Members;
+use C4::Interface::CGI::Output;
+
+my $input = new CGI;
+
+my $flagsrequired;
+$flagsrequired->{borrowers}=1;
+$flagsrequired->{permissions}=1;
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/member-flags.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {superlibrarian => 1},
+ debug => 1,
+ });
+
+
+
+
+my $member=$input->param('member');
+my %env;
+$env{'nottodayissues'}=1;
+my %member2;
+$member2{'borrowernumber'}=$member;
+my $issues=currentissues(\%env,\%member2);
+my $i=0;
+foreach (sort keys %$issues) {
+ $i++;
+}
+
+if ($input->param('newflags')) {
+ my $dbh=C4::Context->dbh();
+ my $flags=0;
+ foreach ($input->param) {
+ if (/flag-(\d+)/) {
+ my $flag=$1;
+ $flags=$flags+2**$flag;
+ }
+ }
+ my $sth=$dbh->prepare("update borrowers set flags=? where
borrowernumber=?");
+ $sth->execute($flags, $member);
+ print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
+} else {
+# my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
+ my $bor = getpatroninformation(\%env, $member,'');
+ my $flags = $bor->{'flags'};
+ my $accessflags = $bor->{'authflags'};
+ my $dbh=C4::Context->dbh();
+ my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by
bit");
+ $sth->execute;
+ my @loop;
+ while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
+ my $checked='';
+ if ($accessflags->{$flag}) {
+ $checked='checked';
+ }
+ my %row = ( bit => $bit,
+ flag => $flag,
+ checked => $checked,
+ flagdesc => $flagdesc );
+ push @loop, \%row;
+ }
+
+ $template->param(member => $member,
+ surname => $bor->{'surname'},
+ firstname => $bor->{'firstname'},
+ loop => address@hidden,
+ intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
+ intranetstylesheet =>
C4::Context->preference("intranetstylesheet"),
+ IntranetNav => C4::Context->preference("IntranetNav"),
+ );
+
+ output_html_with_http_headers $input, $cookie, $template->output;
+
+}
Index: members/member-password.pl
===================================================================
RCS file: members/member-password.pl
diff -N members/member-password.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/member-password.pl 26 Mar 2007 00:07:52 -0000 1.4.4.2
@@ -0,0 +1,88 @@
+#!/usr/bin/perl
+#script to set the password, and optionally a userid, for a borrower
+#written 2/5/00
+#by address@hidden
+#converted to using templates 3/16/03 by address@hidden
+
+use strict;
+use C4::Auth;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Search;
+use C4::Context;
+use C4::Members;
+use C4::Circulation::Circ2;
+use CGI;
+use Digest::MD5 qw(md5_base64);
+
+my $input = new CGI;
+
+my $theme = $input->param('theme') || "default";
+ # only used if allowthemeoverride is set
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/member-password.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+my $flagsrequired;
+$flagsrequired->{borrowers}=1;
+my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+
+my $member=$input->param('member');
+my %env;
+$env{'nottodayissues'}=1;
+my %member2;
+$member2{'borrowernumber'}=$member;
+my $issues=currentissues(\%env,\%member2);
+my $i=0;
+foreach (sort keys %$issues) {
+ $i++;
+}
+
+my ($bor,$flags)=getpatroninformation(\%env, $member,'');
+my $newpassword = $input->param('newpassword');
+
+if ( $newpassword ) {
+ my $digest=md5_base64($input->param('newpassword'));
+ my $uid = $input->param('newuserid');
+ my $dbh=C4::Context->dbh;
+ if (change_user_pass($uid,$member,$digest)) {
+ $template->param(newpassword => $newpassword);
+ print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
+ } else {
+ $template->param(othernames => $bor->{'othernames'},
+ surname =>
$bor->{'surname'},
+ firstname =>
$bor->{'firstname'},
+ userid => $bor->{'userid'},
+ defaultnewpassword =>
$newpassword );
+ }
+} else {
+ my $userid = $bor->{'userid'};
+
+ my $chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
+ my $length=int(rand(2))+4;
+ my $defaultnewpassword='';
+ for (my $i=0; $i<$length; $i++) {
+ $defaultnewpassword.=substr($chars, int(rand(length($chars))),1);
+ }
+ $template->param( othernames => $bor->{'othernames'},
+ surname => $bor->{'surname'},
+ firstname => $bor->{'firstname'},
+ userid => $bor->{'userid'},
+ defaultnewpassword => $defaultnewpassword );
+
+
+}
+
+$template->param( member => $member,
+ intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
+ intranetstylesheet =>
C4::Context->preference("intranetstylesheet"),
+ IntranetNav => C4::Context->preference("IntranetNav"),
+ );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: members/member-picupload.pl
===================================================================
RCS file: members/member-picupload.pl
diff -N members/member-picupload.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/member-picupload.pl 26 Mar 2007 00:07:52 -0000 1.1.4.2
@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+
+ # $Id: member-picupload.pl,v 1.1.4.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+ # script to upload a picture to a borrowerimages directory.
+ # checks to see if its either displaying the upload form
+ # or doing the actual upload.
+ # written by Waylon Robertson (address@hidden) 2005/08/22
+
+
+ # 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 C4::Context;
+ use C4::Output;
+ use CGI;
+ use C4::Interface::CGI::Output;
+ use C4::Members;
+
+ my $input = new CGI;
+ my $name = $input->param('name');
+ my $cardnum = $input->param('cardnum');
+ my $bornum = $input->param('bornum');
+ my $photo = $input->param('photo');
+
+ my $template_name;
+
+ my $htdocs = C4::Context->config('opacdir');
+ my $upload_dir = $htdocs."/htdocs/uploaded-files/users-photo";
+ if($photo eq ""){
+ $template_name = "members/member-picupload.tmpl";
+ } else {
+ $template_name = "members/moremember.tmpl";
+ }
+
+ my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => $template_name,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+ if ($photo){
+
+ my $filename=$cardnum.'.jpg';
+ my $upload_filehandle = $input->upload("photo");
+ open UPLOADFILE, ">$upload_dir/$filename";
+ binmode UPLOADFILE;
+ while ( <$upload_filehandle> )
+ {
+ print UPLOADFILE;
+ }
+ close UPLOADFILE;
+print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
+ }
+ else {
+ $template->param(
+ bornum => $bornum,
+ cardnum => $cardnum,
+ name => $name
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
+ }
+
+
+
Index: members/member.pl
===================================================================
RCS file: members/member.pl
diff -N members/member.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/member.pl 26 Mar 2007 00:07:52 -0000 1.13.4.2
@@ -0,0 +1,103 @@
+#!/usr/bin/perl
+
+# $Id: member.pl,v 1.13.4.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+#script to do a borrower enquiery/brin up borrower details etc
+#written 20/12/99 by address@hidden
+
+
+# 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 C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Members;
+
+my $input = new CGI;
+my $quicksearch = $input->param('quicksearch');
+my ($template, $loggedinuser, $cookie);
+if($quicksearch){
+ ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name =>
"members/member-quicksearch-results.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+} else {
+ ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/member.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+}
+my $theme = $input->param('theme') || "default";
+
+
+my $member=$input->param('member');
+my $orderby=$input->param('orderby');
+$orderby = "surname,firstname" unless $orderby;
+$member =~ s/,//g; #remove any commas from search string
+
+my $env;
+
+my ($count,$results);
+
+if(length($member) == 1)
+{
+ ($count,$results)=BornameSearch($env,$member,$orderby,"simple");
+}
+else
+{
+ ($count,$results)=BornameSearch($env,$member,$orderby,"advanced");
+}
+
+
+my @resultsdata;
+my $background = 0;
+for (my $i=0; $i < $count; $i++){
+ #find out stats
+ my ($od,$issue,$fines)=borrdata2($env,$results->[$i]{'borrowernumber'});
+
+ my %row = (
+ background => $background,
+ borrowernumber => $results->[$i]{'borrowernumber'},
+ cardnumber => $results->[$i]{'cardnumber'},
+ surname => $results->[$i]{'surname'},
+ firstname => $results->[$i]{'firstname'},
+ categorycode => $results->[$i]{'categorycode'},
+ streetaddress => $results->[$i]{'streetaddress'},
+ city => $results->[$i]{'city'},
+ odissue => "$od/$issue",
+ fines => $fines,
+ borrowernotes => $results->[$i]{'borrowernotes'});
+ if ( $background ) { $background = 0; } else {$background = 1; }
+ push(@resultsdata, \%row);
+}
+
+$template->param(
+ member => $member,
+ resultsloop => address@hidden );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: members/memberentry.pl
===================================================================
RCS file: members/memberentry.pl
diff -N members/memberentry.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/memberentry.pl 26 Mar 2007 00:07:52 -0000 1.39.2.2
@@ -0,0 +1,324 @@
+#!/usr/bin/perl
+# NOTE: This file uses standard 8-space tabs
+# DO NOT SET TAB SIZE TO 4
+
+# $Id: memberentry.pl,v 1.39.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+#script to set up screen for modification of borrower details
+#written 20/12/99 by address@hidden
+
+
+# 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 C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Members;
+use C4::Koha;
+use C4::Date;
+use C4::Input;
+use C4::Log;
+
+my $input = new CGI;
+
+my $dbh = C4::Context->dbh;
+my $cardnumber;
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/memberentry.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+my $borrowernumber=$input->param('borrowernumber');
+my $actionType=$input->param('actionType') || '';
+my $modify=$input->param('modify');
+my $delete=$input->param('delete');
+my $op=$input->param('op');
+my $categorycode=$input->param('categorycode');
+my $destination=$input->param('destination');
+my $defaultbranch=C4::Context->preference('defaultBranch');
+ my $autonumber_members = C4::Context->boolean_preference('autoMemberNum');
+my $institution=$input->param('institution');
+my $nok;
+# if a add or modify is requested => check validity of data.
+if ($op eq 'add' or $op eq 'modify') {
+ my %data;
+
+ my @names=$input->param;
+ foreach my $key (@names){
+ $data{$key}=$input->param($key);
+ $data{$key}=~ s/\'/\\\'/g;
+ $data{$key}=~ s/\"/\\\"/g;
+ }
+
+if ($op eq 'add'){
$cardnumber=C4::Members::fixupneu_cardnumber($data{'cardnumber'},$data{'categorycode'});
+ $data{'cardnumber'}=$cardnumber;}
+ my @errors;
+ if ($data{'cardnumber'} eq '' && ! $autonumber_members){
+ push @errors,"ERROR_cardnumber";
+ $nok=1;
+ } else {
+ #check cardnumber is valid
+ my $nounique;
+ if ( $op eq "add" ) {
+ $nounique = 0;
+ } else {
+ $nounique = 1;
+ }
+ my $valid=checkdigit('',$data{'cardnumber'}, $nounique);
+ if ($valid != 1){
+ $nok=1;
+ push @errors, "ERROR_invalid_cardnumber";
+ }
+ }
+ if ($data{'sex'} eq '' && $categorycode ne "I"){
+ push @errors, "ERROR_gender";
+ $nok=1;
+ }
+ if ($data{'firstname'} eq '' && $categorycode ne "I"){
+ push @errors,"ERROR_firstname";
+ $nok=1;
+ }
+ if ($data{'surname'} eq ''){
+ push @errors,"ERROR_surname";
+ $nok=1;
+ }
+ if ($data{'streetaddress'} eq ''){
+ push @errors, "ERROR_address";
+ $nok=1;
+ }
+ if ($data{'city'} eq ''){
+ push @errors, "ERROR_city";
+ $nok=1;
+ }
+ if (C4::Context->preference("IndependentBranches")) {
+ my $userenv = C4::Context->userenv;
+ if ($userenv->{flags} != 1){
+ unless ($userenv->{branch} eq $data{'branchcode'}){
+ push @errors, "ERROR_branch";
+ $nok=1;
+ }
+ }
+ }
+ if ($nok) {
+ foreach my $error (@errors) {
+ $template->param( $error => 1);
+ }
+ $template->param(NOK => 1);
+ } else {
+ my $query="Select * from borrowers where borrowernumber=?";
+ my $sth=$dbh->prepare($query);
+ $sth->execute($data{'borrowernumber'});
+ if (my $data2=$sth->fetchrow_hashref){
+
+ &modmember(%data);
+
logaction($loggedinuser,"members","modify",$data{'borrowernumber'},"expiry:$data{'expiry'},userid:$data{'userid'},debarred:$data{'debarred'},gone:$data{'gna'}")
if (&logstatus);
+ }else{
+
+ $borrowernumber = &newmember(%data);
+
logaction($loggedinuser,"members","add",$borrowernumber,"expiry:$data{'expiry'},userid:$data{'userid'}")
if (&logstatus);
+
+ }
+
+ if($destination eq "circ"){
+ print
$input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$data{'cardnumber'}");
+ } else {
+ print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber");
+ }
+ }
+}
+if ($delete){
+ 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 {
+ $template->param( addAction =>0);
+
+ }
+ # retrieve previous values : either in DB or in CGI, in case of errors
in values
+ my $data;
+ if ($nok) {
+ my @names=$input->param;
+ foreach my $key (@names){
+ $data->{$key}=$input->param($key);
+ }
+ } else {
+ $data=borrdata('',$borrowernumber);
+ }
+ if (C4::Context->preference("IndependentBranches")) {
+ my $userenv = C4::Context->userenv;
+ if ($userenv->{flags} != 1 && $data->{branchcode}){
+ unless ($userenv->{branch} eq $data->{'branchcode'}){
+ print
$input->redirect("/cgi-bin/koha/members/members-home.pl");
+ }
+ }
+ }
+ if ($actionType eq 'Add'){
+ $template->param( updtype => 'I');
+ } else {
+ $template->param( updtype => 'M');
+ }
+##Cardnumber was here
+if ($modify){ $cardnumber=($data->{'cardnumber'})};
+
+ if ($data->{'sex'} eq 'F'){
+ $template->param(female => 1);
+ }
+ my ($categories,$labels)=ethnicitycategories();
+ my $ethnicitycategoriescount=$#{$categories};
+ my $ethcatpopup;
+ if ($ethnicitycategoriescount>=0) {
+ $ethcatpopup = CGI::popup_menu(-name=>'ethnicity',
+ -id => 'ethnicity',
+ -values=>$categories,
+ -default=>$data->{'ethnicity'},
+ -labels=>$labels);
+ $template->param(ethcatpopup => $ethcatpopup); # bad style, has
to be fixed
+ }
+
+ ($categories,$labels)=borrowercategories();
+ my $catcodepopup = CGI::popup_menu(-name=>'categorycode',
+ -id => 'categorycode',
+ -values=>$categories,
+ -default=>$data->{'categorycode'},
+ -labels=>$labels);
+
+ my @relationships = ('','workplace', 'relative','friend', 'neighbour');
+ my @relshipdata;
+ while (@relationships) {
+ my $relship = shift @relationships;
+ my %row = ('relationship' => $relship);
+ if ($data->{'altrelationship'} eq $relship) {
+ $row{'selected'}=' selected';
+ } else {
+ $row{'selected'}='';
+ }
+ push(@relshipdata, \%row);
+ }
+
+ # %flags: keys=$data-keys, datas=[formname, HTML-explanation]
+ my %flags = ('gonenoaddress' => ['gna', 'Gone/Graduated'],
+ 'lost' => ['lost', 'Lost'],
+ 'debarred' => ['debarred', 'Debarred']);
+
+ my @flagdata;
+ foreach (keys(%flags)) {
+ my $key = $_;
+ my %row = ('key' => $key,
+ 'name' => $flags{$key}[0],
+ 'html' => $flags{$key}[1]);
+ if ($data->{$key}) {
+ $row{'yes'}=' checked';
+ $row{'no'}='';
+ } else {
+ $row{'yes'}='';
+ $row{'no'}=' checked';
+ }
+ push(@flagdata, \%row);
+ }
+
+ if ($modify){
+ $template->param( modify => 1 );
+ }
+
+ #Convert dateofbirth to correct format
+ $data->{'dateofbirth'} = format_date($data->{'dateofbirth'});
+ $data->{'expiry'} = format_date($data->{'expiry'});
+
+ my @branches;
+ my @select_branch;
+ my %select_branches;
+ my $branches=GetBranches();
+ foreach my $branch (keys %$branches) {
+ if ((not C4::Context->preference("IndependentBranches")) ||
(C4::Context->userenv->{'flags'} == 1)) {
+ push @select_branch, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ $defaultbranch=C4::Context->userenv->{'branch'};
+ } else {
+ push @select_branch,$branch if ($branch eq
C4::Context->userenv->{'branch'});
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'} if ($branch eq
C4::Context->userenv->{'branch'});
+ $defaultbranch = C4::Context->userenv->{'branch'};
+ }
+ }
+ my $CGIbranch=CGI::scrolling_list( -name => 'branchcode',
+ -id => 'branchcode',
+ -values => address@hidden,
+ -default => $defaultbranch,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param( actionType => $actionType,
+ destination => $destination,
+ borrowernumber => $borrowernumber,
+ address => $data->{'streetaddress'},
+ firstname => $data->{'firstname'},
+ surname => $data->{'surname'},
+ othernames => $data->{'othernames'},
+ initials => $data->{'initials'},
+ ethcatpopup => $ethcatpopup,
+ catcodepopup => $catcodepopup,
+ streetaddress => $data->{'streetaddress'},
+ physstreet => $data->{'physstreet'},
+ zipcode => $data->{'zipcode'},
+ streetcity => $data->{'streetcity'},
+ homezipcode => $data->{'homezipcode'},
+ city => $data->{'city'},
+ phone => $data->{'phone'},
+ phoneday => $data->{'phoneday'},
+ faxnumber => $data->{'faxnumber'},
+ emailaddress => $data->{'emailaddress'},
+ preferredcont => $data->{'preferredcont'},
+ $data->{'preferredcont'} =>1,
+ textmessaging => $data->{'textmessaging'},
+ contactname => $data->{'contactname'},
+ altphone => $data->{'altphone'},
+ altnotes => $data->{'altnotes'},
+ borrowernotes => $data->{'borrowernotes'},
+ flagloop => address@hidden,
+ relshiploop => address@hidden,
+ "title_".$data->{'title'} => " SELECTED ",
+ joining => format_date($data->{'dateenrolled'}),
+ expiry => $data->{'expiry'},
+ cardnumber => $cardnumber,
+ dateofbirth => $data->{'dateofbirth'},
+ sort1 => $data->{'sort1'},
+ sort2 => $data->{'sort2'},
+ dateformat => display_date_format(),
+ modify => $modify,
+ CGIbranch => $CGIbranch,
+ institution=>$institution);
+ $template->param(institution => 1) if ($categorycode eq "I");
+
+ output_html_with_http_headers $input, $cookie, $template->output;
+
+
+}
+
+# Local Variables:
+# tab-width: 8
+# End:
Index: members/members-home.pl
===================================================================
RCS file: members/members-home.pl
diff -N members/members-home.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/members-home.pl 26 Mar 2007 00:07:52 -0000 1.3.4.2
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use C4::Members;
+my $query = new CGI;
+my $quicksearch = $query->param('quicksearch');
+my ($template, $loggedinuser, $cookie);
+my $template_name;
+
+if($quicksearch){
+($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name =>
"members/member-quicksearch.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+} else {
+($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/members-home.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+}
+
+$template->param(intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
+ intranetstylesheet =>
C4::Context->preference("intranetstylesheet"),
+ IntranetNav => C4::Context->preference("IntranetNav"),
+ );
+output_html_with_http_headers $query, $cookie, $template->output;
Index: members/moremember.pl
===================================================================
RCS file: members/moremember.pl
diff -N members/moremember.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/moremember.pl 26 Mar 2007 00:07:52 -0000 1.29.2.2
@@ -0,0 +1,199 @@
+#!/usr/bin/perl
+
+# $Id: moremember.pl,v 1.29.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# script to do a borrower enquiry/bring up borrower details etc
+# Displays all the details about a borrower
+# written 20/12/99 by address@hidden
+# last modified 21/1/2000 by address@hidden
+# modified 31/1/2001 by address@hidden
+# to not allow items on request to be renewed
+#
+# needs html removed and to use the C4::Output more, but its tricky
+#
+
+
+# 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 C4::Context;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Date;
+use C4::Reserves2;
+use C4::Circulation::Circ2;
+use C4::Koha;
+use C4::Members;
+use C4::Accounts2;
+my $dbh = C4::Context->dbh;
+
+my $input = new CGI;
+my $print = $input->param('print');
+my $template_name;
+
+if($print eq "page"){
+ $template_name = "members/moremember-print.tmpl";
+} elsif($print eq "slip"){
+ $template_name = "members/moremember-receipt.tmpl";
+} else {
+ $template_name = "members/moremember.tmpl";
+}
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => $template_name,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+my $bornum=$input->param('bornum');
+
+#start the page and read in includes
+
+my $data=borrdata('',$bornum);
+
+$template->param($data->{'categorycode'} => 1); # in template <TMPL_IF
name="I"> => instutitional (A for Adult & C for children)
+my $picture;
+ my $htdocs = C4::Context->config('opacdir');
+
+$picture =$htdocs.
"/htdocs/uploaded-files/users-photo/".$data->{'cardnumber'}.".jpg";
+ if (-e $picture)
+{
+
+ $template->param(borrowerphoto =>
"http://library.neu.edu.tr/uploaded-files/users-photo/".$data->{'cardnumber'}.".jpg");
+ }else{
+$picture = "http://cc.neu.edu.tr/stdpictures/".$data->{'cardnumber'}.".jpg";
+ $template->param(borrowerphoto => $picture);
+}
+$data->{'dateenrolled'} = format_date($data->{'dateenrolled'});
+$data->{'expiry'} = format_date($data->{'expiry'});
+$data->{'dateofbirth'} = format_date($data->{'dateofbirth'});
+$data->{'IS_ADULT'} = ($data->{'categorycode'} ne 'I');
+
+if($data->{'debarred'} || $data->{'gonenoaddress'} || $data->{'lost'} ||
$data->{'borrowernotes'}){
+ $template->param(flagged =>1);
+}
+
+$data->{'ethnicity'} = fixEthnicity($data->{'ethnicity'});
+
+$data->{&expand_sex_into_predicate($data->{'sex'})} = 1;
+
+if ($data->{'categorycode'} eq 'C'){
+ my $data2=borrdata('',$data->{'guarantor'});
+ $data->{'streetaddress'}=$data2->{'streetaddress'};
+ $data->{'city'}=$data2->{'city'};
+ $data->{'physstreet'}=$data2->{'physstreet'};
+ $data->{'streetcity'}=$data2->{'streetcity'};
+ $data->{'phone'}=$data2->{'phone'};
+ $data->{'phoneday'}=$data2->{'phoneday'};
+ $data->{'zipcode'} = $data2->{'zipcode'};
+}
+
+
+if ($data->{'ethnicity'} || $data->{'ethnotes'}) {
+ $template->param(printethnicityline => 1);
+}
+
+if ($data->{'categorycode'} ne 'C'){
+ $template->param(isguarantee => 1);
+ # FIXME
+ # It looks like the $i is only being returned to handle walking through
+ # the array, which is probably better done as a foreach loop.
+ #
+ my ($count,$guarantees)=findguarantees($data->{'borrowernumber'});
+ my @guaranteedata;
+ for (my $i=0;$i<$count;$i++){
+ push (@guaranteedata, {borrowernumber =>
$guarantees->[$i]->{'borrowernumber'},
+ cardnumber =>
$guarantees->[$i]->{'cardnumber'},
+ name =>
$guarantees->[$i]->{'firstname'} . " " . $guarantees->[$i]->{'surname'}});
+ }
+ $template->param(guaranteeloop => address@hidden);
+
+} else {
+ my ($guarantor)=findguarantor($data->{'borrowernumber'});
+ unless ($guarantor->{'borrowernumber'} == 0){
+ $template->param(guarantorborrowernumber =>
$guarantor->{'borrowernumber'}, guarantorcardnumber =>
$guarantor->{'cardnumber'});
+ }
+}
+
+my %bor;
+$bor{'borrowernumber'}=$bornum;
+
+# Converts the branchcode to the branch name
+$data->{'branchcode'} = &getbranchname($data->{'branchcode'});
+
+# Converts the categorycode to the description
+$data->{'categorycode'} = &getborrowercategory($data->{'categorycode'});
+
+my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
+
+my ($count,$issue)=borrissues($bornum);
+my $today=get_today();
+my @issuedata;
+my $totalprice = 0;
+
+for (my $i=0;$i<$count;$i++){
+
+ my $datedue=$issue->[$i]{'date_due'};
+ $issue->[$i]{'date_due'} = format_date($issue->[$i]{'date_due'});
+ my %row = %{$issue->[$i]};
+ $totalprice += $issue->[$i]{'replacementprice'};
+ $row{'replacementprice'}=$issue->[$i]{'replacementprice'};
+ if ($datedue lt $today){
+ $row{'red'}=1; #print "<font color=red>";
+ }
+ #find the charge for an item
+
+ my
($charge,$itemtype)=C4::Accounts2::calc_charges($dbh,$issue->[$i]{'itemnumber'},$bornum);
+
+ $row{'itemtype'}=ItemType($itemtype);
+ $row{'charge'}=$charge;
+
+ #check item is not reserved
+ my ($restype,$reserves)=CheckReserves($issue->[$i]{'itemnumber'});
+ if ($restype){
+# print "<TD><a
href=/cgi-bin/koha/request.pl?bib=$issue->[$i]{'biblionumber'}>On Request - no
renewals</a></td></tr>";
+ # } elsif ($issue->[$i]->{'renewals'} > 0) {
+ # print "<TD>Previously Renewed - no renewals</td></tr>";
+ $row{'norenew'}=1;
+ } else {
+ $row{'norenew'}=0;
+ }
+ push (@issuedata, \%row);
+
+}
+my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
+
+foreach my $reserveline (@$reserves) {
+ $reserveline->{'reservedate'} =
format_date($reserveline->{'reservedate'});
+
+}
+
+$template->param($data);
+$template->param(today=>format_date($today),
+ bornum => $bornum,
+ totalprice =>$totalprice,
+ totaldue =>$total,
+ issueloop => address@hidden,
+ reserveloop => $reserves);
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: members/pay.pl
===================================================================
RCS file: members/pay.pl
diff -N members/pay.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/pay.pl 26 Mar 2007 00:07:52 -0000 1.6.2.2
@@ -0,0 +1,163 @@
+#!/usr/bin/perl
+
+# $Id: pay.pl,v 1.6.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# written 11/1/2000 by address@hidden
+# part of the koha library system, script to facilitate paying off fines
+
+
+# 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::Context;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Accounts2;
+use C4::Stats;
+use C4::Members;
+
+my $input=new CGI;
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user ({ template_name => "members/pay.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+my $bornum=$input->param('bornum');
+if ($bornum eq ''){
+ $bornum=$input->param('bornum0');
+}
+#get borrower details
+my $data=borrdata('',$bornum);
+my $user=C4::Context->preference('defaultBranch');
+my $me=borrdata('',$loggedinuser);
+my $accountant=$me->{'firstname'}.' '.$me->{'surname'};
+#get account details
+my %bor;
+$bor{'borrowernumber'}=$bornum;
+
+my @names=$input->param;
+my %inp;
+my $check=0;
+my $type;
+my $totalamount;
+my $totaldesc;
+my $totalaccounttype;
+
+for (my $i=0;$i<@names;$i++){
+ my$temp=$input->param($names[$i]);
+ if ($temp eq 'wo'){
+ $type="W";
+ $check=2;
+ }
+if ($temp eq 'yes'){
+ $type="Pay";
+ $check=2;
+ }
+ if ($temp eq 'yes' || $temp eq 'wo'){
+
+ my $desc=$input->param($names[$i+7]);
+ my $accounttype=$input->param($names[$i+2]);
+ my $amount=$input->param($names[$i+4]);
+ my $bornum=$input->param($names[$i+5]);
+ my $accountno=$input->param($names[$i+6]);
+ my $amounttopay=$input->param($names[$i+8]);
+
+ makepayment($bornum,$accountno,$amounttopay,$accountant, $type);
+ $totalamount=$totalamount+$amounttopay;
+ $totaldesc .="<br> ".$desc."- Fee:".$amounttopay;
+ $totalaccounttype .="<br> ".$accounttype;
+ $check=2;
+ }
+}
+if ($type eq "Pay" || $type eq "W"){
+print
$input->redirect("/cgi-bin/koha/members/payprint.pl?bornum=$bornum&accounttype=$totalaccounttype&amount=$totalamount&desc=$totaldesc");
+}
+my %env;
+
+
+$env{'branchcode'}=C4::Context->preference('defaultBranch');
+my $total=$input->param('total');
+if ($check ==0){
+
+ if ($total ne ''){
+ recordpayment(\%env,$bornum,$total);
+ }
+ my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
+
+ my @loop_pay;
+ for (my $i=0;$i<$numaccts;$i++){
+ if ($accts->[$i]{'amountoutstanding'} > 0){
+ $accts->[$i]{'amount'}+=0.00;
+ $accts->[$i]{'amountoutstanding'}+=0.00;
+ my %line;
+ $line{i}=$i;
+ $line{itemnumber} = $accts->[$i]{'itemnumber'};
+ $line{accounttype} = $accts->[$i]{'accounttype'};
+ $line{amount} = sprintf("%.2f",$accts->[$i]{'amount'});
+ $line{amountoutstanding} =
sprintf("%.2f",$accts->[$i]{'amountoutstanding'});
+ $line{bornum} = $bornum;
+ $line{accountno} = $accts->[$i]{'accountno'};
+ $line{description} = $accts->[$i]{'description'};
+ $line{title} = $accts->[$i]{'title'};
+ push(@loop_pay, \%line);
+ }
+ }
+ $template->param(firstname => $data->{'firstname'},
+ surname =>
$data->{'surname'},
+ bornum => $bornum,
+ loop_pay =>
address@hidden,
+ total =>
sprintf("%.2f",$total),
+ totalamountopay =>
sprintf("%.2f",$total));
+output_html_with_http_headers $input, $cookie, $template->output;
+
+} else {
+ my%inp;
+ my @name=$input->param;
+ for (my $i=0;$i<@name;$i++){
+ my $test=$input->param($name[$i]);
+ if ($test eq 'wo'){
+ my $temp=$name[$i];
+ $temp=~ s/payfine//;
+ $inp{$name[$i]}=$temp;
+ }
+ }
+ my $bornum;
+ while ( my ($key, $value) = each %inp){
+ # print $key,$value;
+ my $accounttype=$input->param("accounttype$value");
+ $bornum=$input->param("bornum$value");
+ my $itemno=$input->param("itemnumber$value");
+ my $amount=$input->param("amount$value");
+
+ }
+ $bornum=$input->param('bornum');
+ print $input->redirect("/cgi-bin/koha/members/pay.pl?bornum=$bornum");
+}
+
+
+
+
+# Local Variables:
+# tab-width: 4
+# End:
Index: members/payprint.pl
===================================================================
RCS file: members/payprint.pl
diff -N members/payprint.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/payprint.pl 26 Mar 2007 00:07:52 -0000 1.1.2.2
@@ -0,0 +1,85 @@
+#!/usr/bin/perl
+# WARNING: Not enough context to figure out the correct tabstop size
+# WARNING: Assume that this file uses 4-character tabs
+
+# $Id: payprint.pl,v 1.1.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+#written 11/1/2000 by address@hidden
+#part of the koha library system, script to facilitate paying off fines
+
+
+# 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::Context;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Date;
+use C4::Members;
+my $input=new CGI;
+
+#print $input->header;
+my $bornum=$input->param('bornum');
+
+#get borrower details
+my $data=borrdata('',$bornum);
+#my $user=C4::Context->preference('defaultbranch');
+my $amount=$input->param('amount');
+my $accounttype=$input->param('accounttype');
+my $desc=$input->param('desc');
+
+if ($accounttype eq "FU"){
+$accounttype="Overdue item";
+}elsif ($accounttype eq "L"){
+$accounttype="Very Overdue or Lost item";
+}else{
+$accounttype="Miscelenaous Fees";
+}
+ my($template, $loggedinuser, $cookie)
+ = get_template_and_user ({ template_name =>
"members/payprint.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+ my $user=borrdata('',$loggedinuser);
+my @datearr = localtime(time());
+my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d",
($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
+ $template->param(firstname => $data->{'firstname'},
date=>format_date($todaysdate),
+ surname =>
$data->{'surname'},
+ cardnumber =>
$data->{'cardnumber'},
+ street =>
$data->{'street'},
+ city => $data->{'city'},
+ phone =>
$data->{'phone'},
+ email =>
$data->{'email'},
+ amount=> $amount,
+ desc=> $desc,
+ accounttype=>
$accounttype,
+ bornum=>$bornum,
+
loggeduser=>$user->{'firstname'}.' '.$user->{'surname'},
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
+# Local Variables:
+# tab-width: 4
+# End:
Index: members/readingrec.pl
===================================================================
RCS file: members/readingrec.pl
diff -N members/readingrec.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/readingrec.pl 26 Mar 2007 00:07:52 -0000 1.2.4.2
@@ -0,0 +1,89 @@
+#!/usr/bin/perl
+
+# written 27/01/2000
+# script to display borrowers reading record
+
+# 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 C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use C4::Date;
+use C4::Members;
+my $input=new CGI;
+
+
+my $bornum=$input->param('bornum');
+#get borrower details
+my $data=borrdata('',$bornum);
+my $order=$input->param('order');
+my $order2=$order;
+if ($order2 eq ''){
+ $order2="date_due desc";
+}
+my $limit=$input->param('limit');
+if ($limit eq 'full' || $limit eq 0){
+ $limit=0;
+} else {
+ $limit=50;
+}
+my ($count,$issues)=allissues($bornum,$order2,$limit);
+
+my ($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "members/readingrec.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+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'};
+ push(@loop_reading,\%line);
+}
+
+$template->param(
+ biblionumber =>
$data->{'biblionumber'},
+ title => $data->{'title'},
+ initials => $data->{'initials'},
+ surname => $data->{'surname'},
+ bornum => $bornum,
+ limit => $limit,
+ firstname =>
$data->{'firstname'},
+ cardnumber =>
$data->{'cardnumber'},
+ showfulllink => ($count > 50),
+ loop_reading => address@hidden);
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
Index: members/setdebar.pl
===================================================================
RCS file: members/setdebar.pl
diff -N members/setdebar.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ members/setdebar.pl 26 Mar 2007 00:07:52 -0000 1.3.4.2
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+
+#script to set or lift debarred status
+#written 2/8/04
+#by address@hidden
+
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+
+use CGI;
+use C4::Context;
+use C4::Auth;
+use C4::Members;
+
+my $input = new CGI;
+
+my $flagsrequired;
+$flagsrequired->{borrower}=1;
+my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+
+my $destination = $input->param("destination");
+my $cardnumber = $input->param("cardnumber");
+my $borrowernumber=$input->param('borrowernumber');
+my $status = $input->param('status');
+
+my $dbh = C4::Context->dbh;
+my $sth=$dbh->prepare("Update borrowers set debarred = ? where borrowernumber
= ?");
+$sth->execute($status,$borrowernumber);
+my $data=$sth->fetchrow_hashref;
+$sth->finish;
+
+if($destination eq "circ"){
+ print
$input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$cardnumber");
+} else {
+ print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber");
+}
Index: opac/catalogue/cyprus-search.pl
===================================================================
RCS file: opac/catalogue/cyprus-search.pl
diff -N opac/catalogue/cyprus-search.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/catalogue/cyprus-search.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,296 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+#use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Biblio;
+use C4::Koha;
+use POSIX qw(ceil floor);
+use C4::Date;
+my $query = new CGI;
+my $dbh = C4::Context->dbh;
+
+my $op = $query->param('op'); #show the search form or execute the search
+
+my $format=$query->param('MARC');
+my ($template, $borrowernumber, $cookie);
+
+# get all the common search variables,
+my @value=$query->param('value');
+my @kohafield=$query->param('kohafield');
+my @and_or=$query->param('and_or');
+my @relation=$query->param('relation');
+my $order=$query->param('order');
+my $reorder=$query->param('reorder');
+my $number_of_results=$query->param('number_of_results');
+my $zoom=$query->param('zoom');
+my $ascend=$query->param('asc');
+my $searchtype=$query->param('searchtype'); ## this is actual query type
+my $serverid=$query->param('serverid');
+$serverid=-1 unless($serverid eq "0" || $serverid>0);
+my @marclist = $query->param('marclist');
+# collect all the fields ...
+my %search;
+my @forminputs; #this is for the links to navigate among the
results
+my (@searchdesc, %hashdesc,$facetsdesc); #this is to show the
description of the current search
+my @fields = ('value', 'kohafield', 'and_or',
'relation','order','barcode','biblionumber','itemnumber','asc','from','searchtype');
+
+###Collect all the marclist values coming from old Koha MARCdetails
+## Although we can not search on all marc fields- if any is matched in Zebra
we can use it
+my $sth=$dbh->prepare("Select kohafield from koha_attr where tagfield=? and
tagsubfield=? and intrashow=1");
+foreach my $marc (@marclist) {
+ if ($marc) {
+ $sth->execute(substr($marc,0,3),substr($marc,3,1));
+ if ((my $kohafield)=$sth->fetchrow){
+ push @kohafield,$kohafield;
+ push @and_or,"address@hidden";
+ push @value,@value[0] if @kohafield>1;
+ push @relation ,"address@hidden 5=1";
+ }
+ }
+}
+#### Now normal search routine
+foreach my $field (@fields) {
+ $search{$field} = $query->param($field);
+ my @fieldvalue = $query->param($field);
+ foreach my $fvalue (@fieldvalue) {
+ push @forminputs, { field=>$field ,value=> $fvalue} unless
($field eq 'reorder');
+
+ }
+}
+## Build the query for facets as well
+ for (my $i=0;$i<@value;$i++){
+$facetsdesc.="&value=".$value[$i];
+$facetsdesc.="&kohafield=".$kohafield[$i];
+$facetsdesc.="&relation=".$relation[$i];
+$facetsdesc.="&and_or=".$and_or[$i];
+}
+$facetsdesc.="&order=".$order;
+ for (my $i=0;$i<@value;$i++){
+$hashdesc{$kohafield[$i]}.=$value[$i].", " if $value[$i];
+}
+push @searchdesc,\%hashdesc;
+
+
+############################################################################
+if ($op eq "do_search"){
+
+#this fields is just to allow the user come back to the search form with all
the values previously entered
+$search{'search_type'} = $query->param('search_type');# this is the panel type
+push @forminputs, {field => 'search_type', value => $search{'search_type'}};
+
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"catalogue/news_searchresults.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ $search{'from'} = 'opac';
+ $search{'borrowernumber'} = $borrowernumber;
+ $search{'remote_IP'} = $query->remote_addr();
+ $search{'remote_URL'} = $query->url(-query=>1);
+ $search{'searchdesc'} = address@hidden;
+ $template->param(FORMINPUTS => address@hidden);
+ $template->param(reorder => $query->param('reorder'));
+ $template->param(facetsdesc=>$facetsdesc);
+ # do the searchs ....
+ $number_of_results = 10 unless $number_of_results;
+ my $startfrom=$query->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+my ($count,@results,$facets);
+
+
+
+my @oConnection;
+my $oResult;
+my $s=0;
+my $server;
+my @serverhost;
+my @serverquery;
+my $serverquery;
+my @onlineloop;
+my $numberpending;
+my $even=1;
+ my $noconnection=0;
+
+
+
+ $oConnection[0]=C4::Context->Zconn("cyprus");
+
+ my $keyattr=MARCfind_attr_from_kohafield($kohafield[0]) if
($kohafield[0]);
+ if (!$keyattr){$keyattr=" address@hidden 1=any";}
+ $serverquery=$keyattr." \"".$value[0]."\"";
+
+$serverquery=new ZOOM::Query::PQF($serverquery);
+
+my $firstresult=1;
+
+
+if ($reorder){
+$serverquery->sortby($reorder);
+}else{
+$serverquery->sortby("date i>");
+}
+$oResult = $oConnection[0]->search($serverquery);
+AGAIN:
+ my $k;
+my $event;
+ while (($k = ZOOM::event(address@hidden)) != 0) {
+ $event = $oConnection[$k-1]->last_event();
+# warn ("connection ", $k-1, ": event $event (", ZOOM::event_str($event),
")\n");
+ last if $event == ZOOM::Event::ZEND;
+ }
+if ($k != 0) {
+ $k--;
+#warn $serverhost[$k];
+ my($error, $errmsg, $addinfo, $diagset) = $oConnection[$k]->error_x();
+ if ($error) {
+ warn "newsquery error $serverquery: $errmsg ($error) $addinfo\n";
+ }
+
+ my $numresults=$oResult->size() ;
+
+
+ if ($numresults>0){
+ $count=$numresults;
+
+my $ri=0;
+ my $z=0;
+
+ $ri=$startfrom if $startfrom;
+ for ( $ri; $ri<$numresults ; $ri++){
+
+ my $xmlrecord=$oResult->record($ri)->raw();
+ $xmlrecord=Encode::decode("utf8",$xmlrecord);
+ $xmlrecord=XML_xml2hash_news($xmlrecord);
+ $z++;
+ $xmlrecord->{date}=format_date($xmlrecord->{date});
+ push @results,$xmlrecord;
+ last if ($number_of_results && $z>=$number_of_results);
+
+
+ }## for #numresults
+
+
+ }# $numresults
+
+}# if $k !=0
+
+
+
+
+
+
+ if ( $count eq "error"){
+ $template->param(error =>1);
+ goto "show";
+ }
+ my $num = scalar(@results) - 1;
+if ( $count == 1){
+ # if its a barcode search by definition we will only have one result.
+ # And if we have a result
+ # lets jump straight to the detail.pl page
+
+ print
$query->redirect("/cgi-bin/koha/newsdetail.pl?type=opac&id=$results[0]->{'id'}");
+
+}
+ # sorting out which results to display.
+ # the total results searched
+ $template->param(numrecords => $count);
+ $template->param(FORMINPUTS => address@hidden );
+ $template->param(searchdesc => address@hidden );
+
+ # the result number to star to show
+ $template->param(startfrom => $startfrom);
+ $template->param(beginning => $startfrom+1);
+ # the result number to end to show
+ ($startfrom+$num<=$count) ? ($template->param(endat =>
$startfrom+$num+1)) : ($template->param(endat => $count));
+
+
+ $template->param(SEARCH_RESULTS => address@hidden,
+ );
+
+ #this is to show the images numbers to navigate among the results, if
it has to show the number highlighted or not
+ my $numbers;
+ @$numbers = ();
+ my $pg = 1;
+ if (defined($query->param('pg'))) {
+ $pg = $query->param('pg');
+ }
+ my $start = 0;
+
+ $start = ($pg - 1) * $number_of_results;
+ my $pages = ceil($count / $number_of_results);
+ my $total_pages = ceil($count / $number_of_results);
+
+ if ($pg > 1) {
+ my $url = $pg - 1;
+ push @$numbers, { number => "<<",
forminputs=>address@hidden,
+ highlight => 0 ,
+ startfrom => 1,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 ,
forminputs=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results+1,
+ pg => $url };
+ }
+ my $current_ten = $pg / 10;
+ if ($current_ten == 0) {
+ $current_ten = 0.1; # In case it´s in ten = 0
+ }
+ my $from = $current_ten * 10; # Calculate the initial page
+ my $end_ten = $from + 9;
+ my $to;
+ if ($pages > $end_ten) {
+ $to = $end_ten;
+ } else {
+ $to = $pages;
+ }
+ for (my $i = $from; $i <= $to ; $i++) {
+ if ($i == $pg) {
+ if ($count > $number_of_results) {
+ push @$numbers, { number => $i,
+ highlight =>
1 , forminputs=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 ,
forminputs=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 ,
forminputs=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 ,
forminputs=>address@hidden,
+ startfrom =>
($total_pages-1)*$number_of_results,
+ pg => $total_pages};
+ }
+# push @$numbers,{forminputs=>@forminputs};
+ $template->param(numbers =>$numbers,
+ );
+ $template->param(starting => $startfrom+1);
+ $template->param(ending => $startfrom+$number_of_results);
+
+########
+
+ $template->param(script => "catalogue/newsdetail.pl");
+
+
+}else{ ## No search yet
+print $query->redirect("/cgi-bin/koha/opac-search.pl");
+}
+
+show:
+output_html_with_http_headers $query, $cookie, $template->output();
+
Index: opac/catalogue/newsdetail.pl
===================================================================
RCS file: opac/catalogue/newsdetail.pl
diff -N opac/catalogue/newsdetail.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/catalogue/newsdetail.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Biblio;
+use C4::Koha;
+use C4::Date;
+my $query = new CGI;
+my $dbh = C4::Context->dbh;
+
+my $id = $query->param('id'); #show the search form or execute the search
+my ($template, $borrowernumber, $cookie);
+
+
+
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"catalogue/newsdetail.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+
+my ($count,@results,$facets);
+
+
+
+my @oConnection;
+my $oResult;
+
+my $serverquery;
+
+
+
+
+ $oConnection[0]=C4::Context->Zconn("cyprus");
+
+ $serverquery="address@hidden 1=local-number"." \"".$id."\"";
+
+
+$oResult = $oConnection[0]->search_pqf($serverquery);
+
+ my $k;
+my $event;
+ while (($k = ZOOM::event(address@hidden)) != 0) {
+ $event = $oConnection[$k-1]->last_event();
+# warn ("connection ", $k-1, ": event $event (", ZOOM::event_str($event),
")\n");
+ last if $event == ZOOM::Event::ZEND;
+ }
+if ($k != 0) {
+ $k--;
+ my($error, $errmsg, $addinfo, $diagset) = $oConnection[$k]->error_x();
+ if ($error) {
+ warn "newsquery error $serverquery: $errmsg ($error) $addinfo\n";
+ }
+
+ my $numresults=$oResult->size() ;
+
+
+ if ($numresults>0){
+
+
+
+
+ my $xmlrecord=$oResult->record(0)->raw();
+ $xmlrecord=Encode::decode("utf8",$xmlrecord);
+ $xmlrecord=XML_xml2hash_news($xmlrecord);
+
+ $xmlrecord->{date}=format_date($xmlrecord->{date});
+
+ $xmlrecord->{news}=~s/\n/<br>/g;
+ $xmlrecord->{news}=~s/(<br><br>)/<br>/g;
+$template->param(title=>$xmlrecord->{title},
+ date=>$xmlrecord->{date},
+ source=>$xmlrecord->{source},
+ news=>$xmlrecord->{news});
+
+ }# $numresults
+
+}# if $k !=0
+
+
+
+
+
+
+
+show:
+output_html_with_http_headers $query, $cookie, $template->output();
+
Index: opac/changelanguage.pl
===================================================================
RCS file: opac/changelanguage.pl
diff -N opac/changelanguage.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/changelanguage.pl 26 Mar 2007 00:07:52 -0000 1.1.12.2
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use C4::Output;
+use CGI;
+
+my $query=new CGI;
+my $language=$query->param('language');
+my $url=$query->referer();
+
+setlanguagecookie($query,$language,$url);
Index: opac/livesearch.pl
===================================================================
RCS file: opac/livesearch.pl
diff -N opac/livesearch.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/livesearch.pl 26 Mar 2007 00:07:52 -0000 1.1.4.1
@@ -0,0 +1,63 @@
+#!/usr/bin/perl -w
+
+use CGI;
+use C4::Context;
+
+use HTML::Entities;
+
+my $cgi = new CGI;
+my $zconn=C4::Context->Zconn("biblioserver");
+
+
+
+
+print $cgi->header( -type =>'text/xml' );
+
+#my $dbh=DBI->connect("DBI:mysql:demosuggest:localhost","sugg","Free2cirC");
+#my $dbh = C4::Context->dbh;
+
+my $word = $cgi->param('value');
+
+
+if ($word) {
+ # strip out bad stuff -- this takes too long!
+ $word =~ tr/A-Z/a-z/;
+ $word =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\})/ /g;
+ $word =~s/ / /g;
+# $word =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\}|\Athe |\Aa |\Aan
)//g;
+ #$word .= "\%";
+ #$word = """.$word.""";
+ my $query = "\"$word\"";
+ if ($query =~ / /) {
+ $query = " address@hidden 1=1016 address@hidden 6=2 $query";
+ }
+ warn "$query";
+ my $result;
+ eval {
+ my $zoom_query_obj = new ZOOM::Query::PQF($query);
+ $result = $zconn->search($zoom_query_obj);
+ };
+ if ($@) {
+ die "error connecting to Zebra".$@;
+ }
+ my $numresults = 0 | $result->size() if ($result);
+ my $outstring="<?xml version='1.0' encoding='utf-8' ?>";
+ $outstring.="<ul class=\"LSRes\">";
+
+ for ( my $i=1; $i<=10; $i++){
+ my ($suggest) = $result->render($i-1);
+ my $length=length($suggest);
+ $query=$suggest;
+# $query =~
s/(\'s|&|\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\}|\/|)//g;
+#$suggest=utf8::decode($suggest,1);
+#$suggest=Encode('latin5',$suggest);
+#$suggest=HTML::Entities::encode($suggest);
+ $outstring.="<li class=\"LSRow\"
onmouseover=\"liveSearchHover(this)\" onclick=\"liveSearchClicked(this)\"><a
href="."\"/cgi-bin/koha/opac-zoomsearch.pl?op=get_results&cql_query="$query"\">\n$suggest";
+
+
+ $outstring.="\n</a>\n<span class=\"LSResRight\">$count
results</span></li>";
+ }
+ $outstring.="</ul>";
+ print $outstring;
+}
+
Index: opac/logout.pl
===================================================================
RCS file: opac/logout.pl
diff -N opac/logout.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/logout.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use CGI;
+use C4::Context;
+
+my $query=new CGI;
+
+my $sessionID=$query->cookie('sessionID');
+
+my $sessions;
+open (S, "/tmp/sessions");
+while (my ($sid, $u, $lasttime) = split(/:/, <S>)) {
+ chomp $lasttime;
+ (next) unless ($sid);
+ (next) if ($sid eq $sessionID);
+ $sessions->{$sid}->{'userid'}=$u;
+ $sessions->{$sid}->{'lasttime'}=$lasttime;
+}
+open (S, ">/tmp/sessions");
+foreach (keys %$sessions) {
+ my $userid=$sessions->{$_}->{'userid'};
+ my $lasttime=$sessions->{$_}->{'lasttime'};
+ print S "$_:$userid:$lasttime\n";
+}
+
+my $dbh = C4::Context->dbh;
+
+# Check that this is the ip that created the session before deleting it
+
+my $sth=$dbh->prepare("select userid,ip from sessions where sessionID=?");
+$sth->execute($sessionID);
+my ($userid, $ip);
+if ($sth->rows) {
+ ($userid,$ip) = $sth->fetchrow;
+ if ($ip ne $ENV{'REMOTE_ADDR'}) {
+ # attempt to logout from a different ip than cookie was created at
+ exit;
+ }
+}
+
+$sth=$dbh->prepare("delete from sessions where sessionID=?");
+$sth->execute($sessionID);
+open L, ">>/tmp/sessionlog";
+my $time=localtime(time());
+printf L "%20s from %16s logged out at %30s (manual log out).\n", $userid,
$ip, $time;
+close L;
+
+my $cookie=$query->cookie(-name => 'sessionID',
+ -value => '',
+ -expires => '+1y');
+
+# Should redirect to intranet home page after logging out
+
+print $query->redirect("userpage.pl");
+exit;
+
+
Index: opac/opac-MARCdetail.pl
===================================================================
RCS file: opac/opac-MARCdetail.pl
diff -N opac/opac-MARCdetail.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-MARCdetail.pl 26 Mar 2007 00:07:52 -0000 1.14.4.2
@@ -0,0 +1,302 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+=head1 NAME
+
+MARCdetail.pl : script to show a biblio in MARC format
+
+=head1 SYNOPSIS
+
+
+=head1 DESCRIPTION
+
+
+It shows the biblio in a (nice) MARC format depending on MARC
+parameters tables.
+
+The first 10 tabs present the biblio, the 11th one presents
+the items attached to the biblio
+
+=head1 FUNCTIONS
+
+=over 2
+
+=cut
+
+
+
+
+use strict;
+
+use C4::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+
+use C4::Biblio;
+use C4::Acquisition;
+use C4::Serials; #uses getsubscriptionsfrombiblionumber
+use C4::Koha;
+
+my $query=new CGI;
+
+my $dbh=C4::Context->dbh;
+my $author = $query->param('author');
+my $title = $query->param('title');
+my $norequests=$query->param('norequests');
+my $biblionumber=$query->param('bib');
+my $frameworkcode=MARCfind_frameworkcode($dbh,$biblionumber);
+my $tagslib = &MARCgettagslib($dbh,0,$frameworkcode);
+my @itemrecords;
+my $itemstagslib = &MARCitemsgettagslib($dbh,0,$frameworkcode);
+# open template
+my $record =XMLgetbiblio($dbh,$biblionumber);
+my $xmlhash=XML_xml2hash_onerecord($record);
+my @itemxmls=XMLgetallitems($dbh,$biblionumber);
+ foreach my $itemrecord(@itemxmls){
+ my $itemhash=XML_xml2hash($itemrecord);
+ push @itemrecords, $itemhash;
+ }
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name =>
"opac-MARCdetail.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ debug => 1,
+ });
+$template->param(LibraryName => C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+);
+
+# fill arrays
+my @loop_data =();
+my $tag;
+my ($isbntag,$isbnsub)=MARCfind_marc_from_kohafield("isbn","biblios");
+my $biblio=$xmlhash->{'datafield'};
+my $controlfields=$xmlhash->{'controlfield'};
+my $leader=$xmlhash->{'leader'};
+my $leader = $leader->[0];
+$leader =~ s/\b/\ \;/g;
+$template->param(LDR => $leader);
+# loop through each tab 0 through 9
+for (my $tabloop = 0; $tabloop<=9;$tabloop++) {
+#warn $tabloop;
+# loop through each tag
+ my @loop_data =();
+ my @subfields_data;
+ # if tag <10, there's no subfield, use the "@" trick
+ ##Controlfields
+
+ foreach my $control (@$controlfields){
+ my %subfield_data;
+ my %tag_data;
+ next if ($tagslib->{$control->{'tag'}}->{'@'}->{tab}
ne $tabloop);
+ next if
(substr($tagslib->{$control->{'tag'}}->{'@'}->{hidden},0,1)>0);
+ $subfield_data{marc_value}=$control->{'content'} ;
+ push(@subfields_data, \%subfield_data);
+ if (C4::Context->preference('hide_marc')) {
+
$tag_data{tag}=$tagslib->{$control->{'tag'}}->{lib};
+ } else {
+ $tag_data{tag}=$control->{'tag'}.' -'.
$tagslib->{$control->{'tag'}}->{lib};
+ }
+ my @tmp = @subfields_data;
+ $tag_data{subfield} = address@hidden;
+ push (@loop_data, \%tag_data);
+ undef @subfields_data;
+ }
+
+ ##Controlfields
+
+ foreach my $control (@$controlfields){
+ my %subfield_data;
+ my %tag_data;
+ next if ($tagslib->{$control->{'tag'}}->{'@'}->{tab}
ne $tabloop);
+ next if
(substr($tagslib->{$control->{'tag'}}->{'@'}->{hidden},1,1)>0);
+ $subfield_data{marc_value}=$control->{'content'} ;
+ push(@subfields_data, \%subfield_data);
+ if (C4::Context->preference('hide_marc')) {
+
$tag_data{tag}=$tagslib->{$control->{'tag'}}->{lib};
+ } else {
+ $tag_data{tag}=$control->{'tag'}.' -'.
$tagslib->{$control->{'tag'}}->{lib};
+ }
+ my @tmp = @subfields_data;
+ $tag_data{subfield} = address@hidden;
+ push (@loop_data, \%tag_data);
+ undef @subfields_data;
+ }
+ my $previoustag;
+ my %datatags;
+ my $i=0;
+ foreach my $data (@$biblio){
+ $datatags{$i++}=$data->{'tag'};
+ foreach my $subfield ( $data->{'subfield'}){
+ foreach my $code ( @$subfield){
+ next if
($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{tab} ne $tabloop);
+ next if
(substr($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{hidden},0,1)>0);
+ my %subfield_data;
+ my $value=$code->{'content'};
+
$subfield_data{marc_lib}=$tagslib->{$data->{'tag'}}->{$code->{'code'}}->{lib};
+
$subfield_data{link}=$tagslib->{$data->{'tag'}}->{$code->{'code'}}->{link};
+ if
($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{isurl}) {
+ $subfield_data{marc_value}="<a
href=\"$value\">$value</a>";
+ } elsif ($data->{'tag'} eq $isbntag && $code->{'code'}
eq $isbnsub) {
+ $subfield_data{marc_value}=DisplayISBN($value);
+ } else {
+ if
($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{authtypecode}) {
+ my
($authtag,$authtagsub)=MARCfind_marc_from_kohafield("auth_authid","biblios");
+
$subfield_data{authority}=XML_readline_onerecord($xmlhash,"","",$data->{'tag'},$authtagsub);
+ }
+ if (length($value) >150) {
+ $subfield_data{marc_value}="<textarea
tabindex=\"1\" cols=\"50\" rows=\"5\" >$value</textarea>";
+ }else{
+
$subfield_data{marc_value}=get_authorised_value_desc($data->{'tag'},
$code->{'code'}, $value, '', $dbh);
+ }
+
+ }
+ $subfield_data{marc_subfield}=$code->{'code'};
+ $subfield_data{marc_tag}=$data->{'tag'};
+ push(@subfields_data, \%subfield_data);
+ }### $code
+
+ if ($#subfields_data>=0) {
+ my %tag_data;
+ if ($datatags{$i} eq $datatags{$i-1}) {
+ $tag_data{tag}="";
+ } else {
+ $tag_data{tag}=$data->{'tag'}.' -'.
$tagslib->{$data->{'tag'}}->{lib};
+
+ }
+ my @tmp = @subfields_data;
+ $tag_data{subfield} = address@hidden;
+ push (@loop_data, \%tag_data);
+ undef @subfields_data;
+ }
+ }##Subfield
+ }
+
+
+
+
+ $template->param($tabloop."XX" =>address@hidden);
+}
+# now, build item tab !
+# the main difference is that datas are in lines and not in columns : thus, we
build the <th> first, then the values...
+# loop through each tag
+# warning : we may have differents number of columns in each row. Thus, we
first build a hash, complete it if necessary
+# then construct template.
+my @fields;
+my %witness; #---- stores the list of subfields used at least once, with the
"meaning" of the code
+my @big_array;
+foreach my $itemrecord (@itemrecords){
+my $item=$itemrecord->{'datafield'};
+my $controlfields=$itemrecord->{'controlfield'};
+my $leader=$itemrecord->{'leader'};
+my %this_row;
+ ### The leader
+ unless (substr($itemstagslib->{'000'}->{'@'}->{hidden},0,1)>0){
+ my @datasub='000@';
+ $witness{$datasub[0]} =
$itemstagslib->{'000'}->{'@'}->{lib};
+ $this_row{$datasub[0]} =$leader->[0];
+ }
+ foreach my $control (@$controlfields){
+ next if ($itemstagslib->{$control->{'tag'}}->{'@'}->{tab} ne
10);
+ next if
(substr($itemstagslib->{$control->{'tag'}}->{'@'}->{hidden},0,1)>0);
+ my @datasub=$control->{'tag'}.'@';
+ $witness{$datasub[0]} =
$itemstagslib->{$control->{'tag'}}->{'@'}->{lib};
+ $this_row{$datasub[0]} =$control->{'content'};
+ }
+
+ foreach my $data (@$item){
+ foreach my $subfield ( $data->{'subfield'}){
+ foreach my $code ( @$subfield){
+ next if
($itemstagslib->{$data->{'tag'}}->{$code->{'code'}}->{tab} ne 10);
+ next if
(substr($itemstagslib->{$data->{'tag'}}->{$code->{'code'}}->{hidden},0,1)>0);
+ $witness{$data->{'tag'}.$code->{'code'}} =
$itemstagslib->{$data->{'tag'}}->{$code->{'code'}}->{lib};
+ $this_row{$data->{'tag'}.$code->{'code'}}
=get_authorised_value_desc($data->{'tag'}, $code->{'code'}, $code->{'content'},
'', $dbh);
+ }
+ }# subfield
+ }## each field
+ if (%this_row) {
+ push(@big_array, \%this_row);
+ }
+}## each record
+my ($holdingbrtagf,$holdingbrtagsubf) =
&MARCfind_marc_from_kohafield("holdingbranch","holdings");
address@hidden = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}}
@big_array;
+
+#fill big_row with missing datas
+foreach my $subfield_code (keys(%witness)) {
+ for (my $i=0;$i<=$#big_array;$i++) {
+ $big_array[$i]{$subfield_code}=" " unless
($big_array[$i]{$subfield_code});
+ }
+}
+# now, construct template !
+my @item_value_loop;
+my @header_value_loop;
+for (my $i=0;$i<=$#big_array; $i++) {
+ my $items_data;
+ foreach my $subfield_code (keys(%witness)) {
+ $items_data .="<td>".$big_array[$i]{$subfield_code}."</td>";
+ }
+ my %row_data;
+ $row_data{item_value} = $items_data;
+ push(@item_value_loop,\%row_data);
+}
+foreach my $subfield_code (keys(%witness)) {
+ my %header_value;
+ $header_value{header_value} = $witness{$subfield_code};
+ push(@header_value_loop, \%header_value);
+}
+
+my $subscriptionsnumber = GetSubscriptionsFromBiblionumber($biblionumber);
+$template->param(item_loop => address@hidden,
+ item_header_loop =>
address@hidden,
+ biblionumber => $biblionumber,
+ bibid=>$biblionumber);
+$template->param(author=>$author,
+ title=>$title ,norequests=>$norequests);
+output_html_with_http_headers $query, $cookie, $template->output;
+
+sub get_authorised_value_desc ($$$$$) {
+ my($tag, $subfield, $value, $framework, $dbh) = @_;
+
+ #---- branch
+ if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
+ return getbranchname($value);
+ }
+
+ #---- itemtypes
+ if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "itemtypes" ) {
+ return ItemType($value);
+ }
+
+ #---- "true" authorized value
+ my $category = $tagslib->{$tag}->{$subfield}->{'authorised_value'};
+
+ if ($category ne "") {
+ my $sth = $dbh->prepare("select lib from authorised_values where
category = ? and authorised_value = ?");
+ $sth->execute($category, $value);
+ my $data = $sth->fetchrow_hashref;
+ return $data->{'lib'};
+ } else {
+ return $value; # if nothing is found return the original value
+ }
+}
Index: opac/opac-account.pl
===================================================================
RCS file: opac/opac-account.pl
diff -N opac/opac-account.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-account.pl 26 Mar 2007 00:07:52 -0000 1.11.4.2
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+
+# wrriten 15/10/2002 by address@hidden
+# script to display borrowers account details in the opac
+
+use strict;
+use C4::Output;
+use CGI;
+use C4::Search;
+use C4::Circulation::Circ2;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Members;
+use C4::Date;
+
+my $query = new CGI;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-account.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+# get borrower information ....
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+
+my @bordat;
+$bordat[0] = $borr;
+
+$template->param( BORROWER_INFO => address@hidden );
+
+
+#get account details
+my ($numaccts,$accts,$total) = getboracctrecord(undef,$borr);
+
+for (my $i=0;$i<$numaccts;$i++){
+$accts->[$i]{'date'}=format_date($accts->[$i]{'date'});
+ $accts->[$i]{'amount'}+=0.00;
+ $accts->[$i]{'amountoutstanding'}+=0.00;
+ $accts->[$i]{'amount'}= sprintf("%.2f",$accts->[$i]{'amount'});
+ $accts->[$i]{'amountoutstanding'}=
sprintf("%.2f",$accts->[$i]{'amountoutstanding'});
+ if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne
'FU'){
+ $accts->[$i]{'print_title'};
+ }
+}
+
+# add the row parity
+my $num = 0;
+foreach my $row (@$accts) {
+ $row->{'even'} = 1 if $num % 2 == 0;
+ $row->{'odd'} = 1 if $num % 2 == 1;
+ $num++;
+}
+
+
+$template->param( ACCOUNT_LINES => $accts,
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ );
+
+$template->param( total => sprintf("%.2f",$total));
+
+#$template->param(loggeninuser => $loggedinuser);
+output_html_with_http_headers $query, $cookie, $template->output;
+
Index: opac/opac-add-biblios-to-shelves.pl
===================================================================
RCS file: opac/opac-add-biblios-to-shelves.pl
diff -N opac/opac-add-biblios-to-shelves.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-add-biblios-to-shelves.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+
+#virtual shelves management, add a set of biblionumber to a set of shelves
+# written 06/05
+# Castañeda, Carlos Sebastian - address@hidden - Physics Library UNLP
Argentina and
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Output;
+use C4::BookShelves;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+
+
+my $cgi = new CGI;
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "opac-shelves.tmpl",
+ query => $cgi,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired =>
{borrow => 1},
+ });
+
+my @shelfnumber = $cgi->param('shelfnumber');
+my @biblios = split /,/, $cgi->param('biblios');
+
+foreach my $shelfnumber (@shelfnumber) {
+ foreach my $biblionumber (@biblios) {
+ &AddToShelfFromBiblio($biblionumber, $shelfnumber);
+ }
+}
+
+
+print $cgi->redirect($cgi->param('return_url'));
+
Index: opac/opac-addbookbybiblionumber.pl
===================================================================
RCS file: opac/opac-addbookbybiblionumber.pl
diff -N opac/opac-addbookbybiblionumber.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-addbookbybiblionumber.pl 26 Mar 2007 00:07:52 -0000 1.5.4.2
@@ -0,0 +1,103 @@
+#!/usr/bin/perl
+#script to provide bookshelf management
+# WARNING: This file uses 4-character tabs!
+#
+# $Header: /sources/koha/koha/opac/opac-addbookbybiblionumber.pl,v 1.5.4.2
2007/03/26 00:07:52 tgarip1957 Exp $
+#
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Search;
+use C4::Biblio;
+use CGI;
+use C4::Output;
+use C4::BookShelves;
+use C4::Circulation::Circ2;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+
+
+my $env;
+my $query = new CGI;
+my $biblionumber = $query->param('biblionumber');
+my $shelfnumber = $query->param('shelfnumber');
+my $newbookshelf = $query->param('newbookshelf');
+my $category = $query->param('category');
+
+my ($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "opac-addbookbybiblionumber.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+my $x; # for trash
+($x,$x,$shelfnumber) = AddShelf('',$newbookshelf,$loggedinuser,$category) if
$newbookshelf;
+
+if ($shelfnumber) {
+ &AddToShelfFromBiblio($env, $biblionumber, $shelfnumber);
+ print "Content-Type: text/html\n\n<html><body
onload=\"window.close()\"></body></html>";
+ exit;
+} else {
+
+ my ( $bibliocount, @biblios ) = getbiblio($biblionumber);
+
+ my ($shelflist) = GetShelfList($loggedinuser,3);
+ my @shelvesloop;
+ my %shelvesloop;
+ foreach my $element (sort keys %$shelflist) {
+ push (@shelvesloop, $element);
+ $shelvesloop{$element} =
$shelflist->{$element}->{'shelfname'};
+ }
+
+ my $CGIbookshelves=CGI::scrolling_list( -name => 'shelfnumber',
+ -values => address@hidden,
+ -labels => \%shelvesloop,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(biblionumber => $biblionumber,
+ title => $biblios[0]->{'title'},
+ author =>
$biblios[0]->{'author'},
+ CGIbookshelves =>
$CGIbookshelves,
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ );
+
+ output_html_with_http_headers $query, $cookie, $template->output;
+}
+# $Log: opac-addbookbybiblionumber.pl,v $
+# Revision 1.5.4.2 2007/03/26 00:07:52 tgarip1957
+# Recommitting everything
+#
+# Revision 1.1.2.2 2005/03/25 17:04:27 tipaul
+# adding virtual shelves & suggestions button to the top
+#
+# Revision 1.1.2.1 2005/03/10 08:44:43 tipaul
+# bugfix in baskets :
+# * The user does not need to have to have librarian rights to use virtual
shelves
+# * error when adding a biblio to an existing basket
+#
+# Revision 1.1 2005/01/03 11:09:59 tipaul
+# *** empty log message ***
+#
+
+# Local Variables:
+# tab-width: 4
+# End:
Index: opac/opac-all-issues.pl
===================================================================
RCS file: opac/opac-all-issues.pl
diff -N opac/opac-all-issues.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-all-issues.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+
+use strict;
+use C4::Auth;
+
+use C4::Interface::CGI::Output;
+use CGI;
+
+use C4::Search;
+use C4::Circulation::Circ2;
+
+use C4::Koha;
+use C4::Date;
+use C4::Members;
+my $input=new CGI;
+
+
+my ($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "opac-all-issues.tmpl",
+ query => $input,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1}
+ });
+
+# Get borrower details
+my ($borr, $flags) = getpatroninformation(undef, $loggedinuser);
+my @bordat;
+$bordat[0] = $borr;
+$template->param( BORROWER_INFO => address@hidden );
+my $data = borrdata('',$loggedinuser);
+my $order = $input->param('order');
+
+if ((!defined($order)) || ($order eq '')) {
+ $order = "date_due DESC";
+}
+
+my $limit = $input->param('limit');
+if ((!defined($limit)) || ($limit eq 'full')) {
+ $limit = 0;
+} else {
+ $limit = 50;
+}
+
+my ($count,$issues) = allissues($loggedinuser, $order, $limit);
+
+
+my $color = 1;
+my @loop_reading;
+for (my $i = 0; $i < $count; $i++) {
+ my %line;
+ $line{biblionumber} = $issues->[$i]->{'biblionumber'};
+ $line{barcode} = $issues->[$i]->{'barcode'};
+ $line{title} = $issues->[$i]->{'title'};
+ $line{author} = $issues->[$i]->{'author'};
+ $line{date_due} = format_date($issues->[$i]->{'date_due'});
+ $line{issue_date} = format_date($issues->[$i]->{'issue_date'});
+ $line{returndate} = format_date($issues->[$i]->{'returndate'});
+ $line{volumeddesc} = $issues->[$i]->{'volumeddesc'};
+ $line{lastreneweddate} = $issues->[$i]->{'lastreneweddate'};
+ $line{renewals} = $issues->[$i]->{'renewals'};
+ $line{color} = $color = not $color;
+ push(@loop_reading,\%line);
+}
+
+$template->param(
+ biblionumber => $data->{'biblionumber'},
+# title => $data->{'title'},
+# initials => $data->{'initials'},
+# surname => $data->{'surname'},
+ bornum => $loggedinuser,
+ limit => $limit,
+# firstname => $data->{'firstname'},
+ cardnumber => $data->{'cardnumber'},
+ showfulllink => ($count > 50),
+ loop_reading => address@hidden
+ );
+
+
+
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
Index: opac/opac-basket.pl
===================================================================
RCS file: opac/opac-basket.pl
diff -N opac/opac-basket.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-basket.pl 26 Mar 2007 00:07:52 -0000 1.8.4.2
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+
+use C4::Biblio;
+my $query=new CGI;
+my $dbh = C4::Context->dbh;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-basket.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+my $bib_list=$query->param('bib_list');
+my $print_basket=$query->param('print');
+my $verbose = $query->param('verbose');
+
+if($verbose) { $template->param(verbose => 1); }
+if ($print_basket) { $template->param(print_basket => 1); }
+
+my @bibs = split(/\//, $bib_list);
+my @results;
+my @items;
+my $num = 1;
+my $norequests = 1;
+foreach my $biblionumber (@bibs) {
+ $template->param(biblionumber => $biblionumber);
+ my $record =XMLgetbibliohash($dbh,$biblionumber);
+ my $dat =
XMLmarc2koha_onerecord($dbh,$record,"biblios");
+
+ my @itemrecords=XMLgetallitems($dbh,$biblionumber);
+ foreach my $itemrecord (@itemrecords){
+ $itemrecord=XML_xml2hash_onerecord($itemrecord);
+ my $items= XMLmarc2koha_onerecord($dbh,$itemrecord,"holdings");
+ $items=ItemInfo($dbh,$items);
+ $items->{itemtype}=$dat->{itemtype};
+ $norequests = 0 unless $items->{'notforloan'};
+ $items->{$items->{'publictype'}} = 1; ## NOT sure what this is kept
from old db probably useless now
+ push @items,$items;
+ }
+ if($num % 2 == 1){
+ $dat->{'even'} = 1;
+ }
+ $num++;
+ $dat->{'biblionumber'} = $biblionumber;
+ $dat->{ITEM_RESULTS} = address@hidden;
+ push (@results, $dat);
+}
+
+my address@hidden;
+# my address@hidden;
+
+$template->param(BIBLIO_RESULTS => $resultsarray,
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+);
+
+output_html_with_http_headers $query, $cookie, $template->output;
Index: opac/opac-changepass.pl
===================================================================
RCS file: opac/opac-changepass.pl
diff -N opac/opac-changepass.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-changepass.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::Koha;
+use C4::Members;
+use C4::Circulation::Circ2;
+use Digest::MD5 qw(md5_base64);
+
+my $cgi = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-changepass.tmpl",
+ type => "opac",
+ query => $cgi,
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ });
+
+my ($data, $flags) = getpatroninformation(undef, $borrowernumber);
+
+if ($cgi->param('op') eq "update") {
+ my $userid = $cgi->param('userid');
+ my $password=md5_base64( $cgi->param('newpassword1'));
+ if (change_user_pass($userid,$borrowernumber, $password)) {
+ $template->param(done => 1);
+ $template->param(new_userid => $userid);
+ } else {
+ $template->param(userid_in_use => 1);
+ $template->param(userid => $data->{'userid'});
+ }
+
+} else {
+
+ $template->param(userid => $data->{'userid'});
+
+}
+
+
+
+output_html_with_http_headers $cgi, $cookie, $template->output;
Index: opac/opac-detail.pl
===================================================================
RCS file: opac/opac-detail.pl
diff -N opac/opac-detail.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-detail.pl 26 Mar 2007 00:07:52 -0000 1.32.4.2
@@ -0,0 +1,135 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Search;
+use C4::Auth;
+use C4::Serials; #uses getsubscriptionfrom biblionumber
+use C4::Interface::CGI::Output;
+use C4::Biblio;
+use C4::BookShelves;
+use C4::Amazon;
+my $query=new CGI;
+my $dbh = C4::Context->dbh;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-detail.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+my $print_detail=$query->param('print_detail');
+my $biblionumber=$query->param('bib');
+$template->param(biblionumber => $biblionumber);
+$template->param(print_detail => $print_detail);
+
+my $record =XMLgetbibliohash($dbh,$biblionumber);
+my $coverphoto = getcoverPhoto($record);
+$template->param(Coverphoto => $coverphoto);
+
+my @itemrecords=XMLgetallitems($dbh,$biblionumber);
+
+my $dat =
XMLmarc2koha_onerecord($dbh,$record,"biblios");
+my @items;
+ my @results;
+
+my $norequests = 1;
+foreach my $itemrecord (@itemrecords){
+$itemrecord=XML_xml2hash_onerecord($itemrecord);
+my $items= XMLmarc2koha_onerecord($dbh,$itemrecord,"holdings");
+$items=ItemInfo($dbh,$items);
+$items->{itemtype}=$dat->{itemtype};
+ $norequests = 0 unless $items->{'notforloan'};
+ $items->{$items->{'publictype'}} = 1; ## NOT sure what this is kept from
old db probably useless now
+push @items,$items;
+}
+$dat->{'count'address@hidden;
+my $subs=$dbh->prepare("select subscriptionid from subscription where
biblionumber=?");
+$subs->execute($biblionumber);
+#my $subscriptionsnumber = GetSubscriptionsFromBiblionumber($biblionumber);
+my $subscriptionsnumber=$subs->fetchrow;
+
+$subs->finish;
+$template->param(norequests => $norequests);
+
+ ## get notes and subjects from MARC record
+my $marc = C4::Context->preference("marc");
+if ($marc =1) {
+ my $marcflavour = C4::Context->preference("marcflavour");
+ my $marcnotesarray = &getMARCnotes($dbh, $record,$marcflavour);
+ my $marcauthorsarray = &getMARCadditional_authors($dbh,
$record,$marcflavour);
+ my $marcsubjctsarray = &getMARCsubjects($dbh, $record,$marcflavour);
+ my $marcurlsarray = &getMARCurls($dbh, $record,$marcflavour);
+ $template->param(MARCNOTES => $marcnotesarray);
+ $template->param(MARCURLS => $marcurlsarray);
+ $template->param(MARCSUBJCTS => $marcsubjctsarray);
+ $template->param(MARCAUTHORS => $marcauthorsarray);
+}
+
+my @results = ($dat,);
+
+my address@hidden;
+my address@hidden;
+
+
+#show the virtual shelves of the actual user
+ my $shelflist = &GetShelves($borrowernumber);
+ my $color = '';
+ my @shelvesloop;
+ foreach my $element ( sort keys %$shelflist ) {
+ my %line;
+ $line{'shelfnumber'} = $element;
+ $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
+ $line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
+ push( @shelvesloop, \%line );
+ }
+ $template->param(shelvescount =>scalar(@shelvesloop));
+ $template->param(shelves => address@hidden);
+
+$template->param(BIBLIO_RESULTS => $resultsarray,
+ total=>$dat->{'count'},
+ ITEM_RESULTS => $itemsarray,
+
+ subscriptionsnumber => $subscriptionsnumber,
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+);
+ ## Amazon.com stuff
+my $amazon => C4::Context->preference("Amazon");
+if ($amazon){
+my $isbn=$dat->{'isbn'};
+$isbn=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\}|\/)//g;
+my $amazon_details = &get_amazon_details($isbn);
+foreach my $result (@{$amazon_details->{Details}}){
+ $template->param(item_description => $result->{ProductDescription});
+ $template->param(image => $result->{ImageUrlMedium});
+
+ $template->param(list_price => $result->{ListPrice});
+ $template->param(amazon_url => $result->{url});
+ }
+
+
+my @products;
+my @reviews;
+for my $details( @{ $amazon_details->{ Details } } ) {
+ next unless $details->{ SimilarProducts };
+ for my $product ( @{ $details->{ SimilarProducts }->{ Product } } ) {
+ push @products, +{ Product => $product };
+ }
+ next unless $details->{ Reviews };
+ for my $product ( @{ $details->{ Reviews }->{ AvgCustomerRating } } ) {
+ $template->param(rating => $product);
+ }
+ for my $reviews ( @{ $details->{ Reviews }->{ CustomerReview } } ) {
+ push @reviews, +{ Summary => $reviews->{ Summary }, Comment =>
$reviews->{ Comment }, };
+ }
+}
+$template->param( SIMILAR_PRODUCTS => address@hidden );
+$template->param( REVIEWS => address@hidden );
+ ## End of Amazon Stuff
+}
+output_html_with_http_headers $query, $cookie, $template->output;
+
+
Index: opac/opac-detailprint.pl
===================================================================
RCS file: opac/opac-detailprint.pl
diff -N opac/opac-detailprint.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-detailprint.pl 26 Mar 2007 00:07:52 -0000 1.3.4.2
@@ -0,0 +1,92 @@
+#!/usr/bin/perl
+# NOTE: Use standard 8-space tabs for this file (indents are 4 spaces)
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+
+use strict;
+use C4::Context;
+use C4::Output; # contains gettemplate
+use CGI;
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Date;
+
+my $query=new CGI;
+my $type=$query->param('type');
+($type) || ($type='intra');
+
+my $biblionumber=$query->param('bib');
+
+# change back when ive fixed request.pl
+my @items = ItemInfo(undef, $biblionumber, $type);
+my $norequests = 1;
+foreach my $itm (@items) {
+ $norequests = 0 unless $itm->{'notforloan'};
+}
+
+
+
+my $dat=bibdata($biblionumber);
+
+$dat->{'count'address@hidden;
+$dat->{'norequests'} = $norequests;
+
+
+my @results;
+
+$results[0]=$dat;
+
+my address@hidden;
+my address@hidden;
+
+my $startfrom=$query->param('startfrom');
+($startfrom) || ($startfrom=0);
+
+my ($template, $loggedinuser, $cookie) = get_template_and_user({
+ template_name => ('opac-detailprint.tmpl'),
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+my $count=1;
+
+# now to get the items into a hash we can use and whack that thru
+
+
+my $nextstartfrom=($startfrom+20<$count-20) ? ($startfrom+20) : ($count-20);
+my $prevstartfrom=($startfrom-20>0) ? ($startfrom-20) : (0);
+$template->param(startfrom => $startfrom+1,
+ endat => $startfrom+20,
+ numrecords => $count,
+ nextstartfrom => $nextstartfrom,
+ prevstartfrom => $prevstartfrom,
+ BIBLIO_RESULTS => $resultsarray,
+ ITEM_RESULTS => $itemsarray,
+ loggedinuser => $loggedinuser,
+ biblionumber => $biblionumber,
+ );
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
+
+# Local Variables:
+# tab-width: 8
+# End:
Index: opac/opac-dictionary.pl
===================================================================
RCS file: opac/opac-dictionary.pl
diff -N opac/opac-dictionary.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-dictionary.pl 26 Mar 2007 00:07:52 -0000 1.4.4.2
@@ -0,0 +1,113 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::AuthoritiesMarc;
+use C4::Biblio;
+my $cgi = new CGI;
+my $dbh = C4::Context->dbh;
+my $query=$cgi->query_string();
+
+$query=~s/(\%3F)/\%9F/g;###escaping of character s with cedilla seem wrong
why???
+$query =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ego;
+
+my $cgi = new CGI($query);
+my $dictionary = $cgi->param('dictionary');
+my $search = $cgi->param('search');
+ $search=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\*|\!|\,|\(|\)|\[|\]|\{|\}|\/)/ /g;
+
+my $target = $cgi->param('target');
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-dictionary.tmpl",
+ query => $cgi,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+my $query = '';
+my $query2 = '';
+my ($results,$total);
+my $resultsperpage=15;
+my @results;
+my @kohafield;
+my @value;
+my @relation;
+my @and_or;
+my $sortorder;
+my $reorder;
+my ($results,$total);
+my $authtypecode;
+my $startfrom=0; ## we do not allow paging with dictionary only show max 15
results
+my (@search,@marclist,@operator);
+push @search, $search;
+push @marclist,"mainentry";
+push @operator, "all words";
+my %searches;
+my $facets;
+
+if ($dictionary eq 'author') {
+$authtypecode="AUTH";
+ $template->param(authors => 1);
+($results,$total) = authoritysearch($dbh, address@hidden, address@hidden,
address@hidden,$startfrom*$resultsperpage, $resultsperpage,$authtypecode,1) ;
+$total=$resultsperpage if $total>$resultsperpage;
+for (my $i=0;$i<$total;$i++){
+my %summary;
+$summary{'summary'}=$$results[$i]->{'summary'};
+$summary{'used'}=$$results[$i]->{'used'};
+push @results,\%summary;
+}
+} elsif ($dictionary eq 'subject') {
+$authtypecode="ESUB TSUB";
+ $template->param(subjects => 1);
+($results,$total) = authoritysearch($dbh, address@hidden, address@hidden,
address@hidden,$startfrom*$resultsperpage, $resultsperpage,$authtypecode,1) ;
+$total=$resultsperpage if $total>$resultsperpage;
+for (my $i=0;$i<$total;$i++){
+my %summary;
+
+$summary{'summary'}=$$results[$i]->{'summary'};
+$summary{'used'}=$$results[$i]->{'used'};
+push @results,\%summary;
+}
+} elsif ($dictionary eq 'title') {
+push @kohafield,"title";
+
+push @value,$search;
+push @relation, "address@hidden 4=1 address@hidden 5=1 address@hidden 6=3";
+
+ ($total,$facets,@results)
=ZEBRAsearch_kohafields(address@hidden,address@hidden,
address@hidden,$sortorder, address@hidden, 0,$reorder,$startfrom,
$resultsperpage,"opac");
+## @results is an array of xmlrecords, just extract what we need
+my @titles;
+foreach my $xml(@results){
+my $title=XML_readline($xml,"title","biblios");
+push @titles,{title=>$title};
+}
address@hidden@titles;
+ $template->param(titles => 1);
+} elsif ($dictionary eq 'publishercode') {
+push @kohafield,"publishercode";
+push @value,$search;
+push @relation, "address@hidden 4=1 address@hidden 5=100";
+
+ ($total,$facets,@results)
=ZEBRAsearch_kohafields(address@hidden,address@hidden,
address@hidden,$sortorder, address@hidden, 0,$reorder,$startfrom,
$resultsperpage,"opac");
+## @results is an array of xmlrecords, just extract what we need
+my @publishers;
+foreach my $xml(@results){
+my $title=XML_readline($xml,"publishercode","biblios");
+push @publishers,{publishercode=>$title};
+}
address@hidden@publishers;
+$template->param(publishers => 1);
+}
+my @values;
+$total=$resultsperpage if $total>$resultsperpage;
+
+$template->param(count => $total);
+$template->param(values => address@hidden);
+$template->param(target => $target);
+
+
+output_html_with_http_headers $cgi, $cookie, $template->output;
Index: opac/opac-dvdsearch.pl
===================================================================
RCS file: opac/opac-dvdsearch.pl
diff -N opac/opac-dvdsearch.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-dvdsearch.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,337 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Acquisition;
+use C4::Biblio;
+use C4::Koha;
+use C4::BookShelves;
+use POSIX qw(ceil floor);
+use Encode;
+my $query = new CGI;
+my $dbh = C4::Context->dbh;
+my $op = $query->param('op'); #show the search form or execute the
search
+my @value=$query->param('field_value');
+my @kohafield=$query->param('kohafield');
+my @and_or=$query->param('and_or');
+my @relation=$query->param('relation');
+my $order=$query->param('order');
+my $asc=$query->param('asc');
+my $reorder=$query->param('reorder');
+my $serverid=$query->param('serverid');
+#$serverid=-1 unless($serverid eq "0");
+my $totalresults;
+my ($template, $borrowernumber, $cookie);
+# get all the common search variables,
+my @fields = ('kohafield','field_value','and_or','relation','order','asc');
+
+# collect all the fields ...
+my %search;
+my @forminputs; #this is for the links to navigate among the
results when they are more than the maximum number of results per page
+my (@searchdesc, %hashdesc,$facetsdesc,%searchparams); #this is to
show the description of the current search
+my %hash; ## This helps to come back to same search
+
+foreach my $field (@fields) {
+ my @searchfield = $query->param($field);
+my $i=1;
+ foreach my $fieldvalue (@searchfield) {
+ push @forminputs, { field=>$field ,value=>$fieldvalue} unless
($field eq 'reorder');
+ $searchparams{$field.$i} =$fieldvalue;
+ $searchparams{$fieldvalue.$i} =$fieldvalue;
+ $facetsdesc.="&".$field."=".$fieldvalue;
+ $i++;
+ }
+}
+my @searchparams;
+push @searchparams,\%searchparams;
+ for (my $i=0;$i<@value;$i++){
+$hashdesc{$kohafield[$i]}.=$value[$i].", " if $value[$i];
+}
+
+
+push @searchdesc,\%hashdesc;
+
+#
+
+
+
+############################################################################
+
+#this fields is just to allow the user come back to the search form with all
the values who previously entered
+
+#Check the param to know if there is to do the search or to show the search
form.
+if ($op eq "do_search") {
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"opac-dvdsearchresults.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ $search{'from'} = 'opac';
+ $search{'borrowernumber'} = $borrowernumber;
+ $search{'remote_IP'} = $query->remote_addr();
+ $search{'remote_URL'} = $query->url(-query=>1);
+ $search{searchdesc}=join " ",@value;
+ $template->param(FORMINPUTS => address@hidden);
+
+ $template->param(facetsdesc=>$facetsdesc);
+ # do the searchs ....
+ my $number_of_results = 10; # OPAC searches are limited to 10 results
pe rpage
+ my $startfrom = $query->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+if ($serverid>0){
+
+ my $sth=$dbh->prepare("select * from online_databases where serverid=?");
+ $sth->execute($serverid);
+
+ my $server=$sth->fetchrow_hashref ;
+
+my $serverquery=$server->{search_string};
+
+ $serverquery.="kohafield=".$kohafield[0]."&value=".$value[0];
+
+print $query->redirect($serverquery);
+
+}##serverid>0
+if ($serverid eq "0"){
+use ZOOM;
+my @oConnection;
+my @oResult;
+my $s=0;
+my $server;
+my @serverhost;
+my @serverquery;
+my @query;
+my @onlineloop;
+my $numberpending;
+my $even=1;
+ my $sth=$dbh->prepare("select * from online_databases ");
+ $sth->execute();
+
+ while ($server=$sth->fetchrow_hashref) {
+ my $noconnection=0;
+
+
+ my $option1=new ZOOM::Options();
+ $option1->option(async=>1);
+ $option1->option('elementSetName', 'F');
+ $option1->option('databaseName',$server->{db}) ;
+ $option1->option('user',$server->{userid}) ;
+ $option1->option('password',$server->{password}) ;
+ $oConnection[$s]=create ZOOM::Connection($option1);
+ $oConnection[$s]->connect($server->{host}, $server->{port});
+ $serverhost[$s]=$server->{server};
+ $serverquery[$s]=$server->{search_string};
+ if ($server->{$kohafield[0]} ne ""){
+ $serverquery[$s].=$server->{$kohafield[0]."_query"}.$value[0];
+ }else{
+ $serverquery[$s].=$server->{"any_query"}.$value[0];
+ }
+ $query[$s]=$server->{$kohafield[0]}." \"".$value[0]."\"";
+
+ $s++;
+ }## while fetch
+
+
+my $nremaining = $s;
+my $firstresult=1;
+ for (my $z=0 ;$z<$s;$z++){
+$oResult[$z] = $oConnection[$z]->search_pqf($query[$z]);
+
+}
+AGAIN:
+ my $k;
+my $event;
+ while (($k = ZOOM::event(address@hidden)) != 0) {
+ $event = $oConnection[$k-1]->last_event();
+# warn ("connection ", $k-1, ": event $event (", ZOOM::event_str($event),
")\n");
+ last if $event == ZOOM::Event::ZEND;
+ }
+if ($k != 0) {
+ $k--;
+#warn $serverhost[$k];
+ my($error, $errmsg, $addinfo, $diagset) = $oConnection[$k]->error_x();
+ if ($error) {
+ warn "$k $serverhost[$k] error $query[$k]: $errmsg ($error) $addinfo\n";
+ goto MAYBE_AGAIN;
+ }
+
+ my $numresults=$oResult[$k]->size() ;
+
+
+ if ($numresults>0){
+
+
+
+ my %row_data;
+
+ $row_data{even} = $even;
+ $row_data{server} = $serverhost[$k];
+ $row_data{numresults} = $numresults;
+ $totalresults+=$numresults;
+ $row_data{search_string} =$serverquery[$k];
+
+ $even=!$even;
+ push (@onlineloop, \%row_data);
+
+
+}# $numresults
+
+}# if $k !=0
+
+
+$numberpending=$nremaining-1;
+
+MAYBE_AGAIN:
+if (--$nremaining > 0) {
+ goto AGAIN;
+}
+$template->param(onlineloop=>address@hidden,);
+}##serverid==0
+my $timetaken;
+my ($count,@results,$facets);
+my $sortorder= $order.$asc if $order;
+ ($count,$facets,@results)
=ZEBRAsearch_kohafields(address@hidden,address@hidden,
address@hidden,$sortorder, address@hidden, 1,$reorder,$startfrom,
$number_of_results,"opac");
+if ($count){
+add_query_line("",\%search,$count);
+$timetaken=$results[0]->{timetaken};
+}
+$template->param(timetaken =>$timetaken);
+#suggestion man
+my $displaysuggestion=C4::Context->preference("displaysuggestion");
+if ($displaysuggestion && !$count ){
+my @suggestion=spellSuggest(address@hidden,address@hidden);
+ $template->param(SUGGESTION =>address@hidden);
+}
+if ($kohafield[0] eq "totalissue"){
+$template->param(totalissues => 1);
+}
+ my $num = scalar(@results) - 1;
+ $template->param(numrecords => $count);
+ $totalresults+=$count;
+ $template->param(totalresults => $totalresults);
+ $template->param(reorder => $reorder);
+ $template->param(searchdesc => address@hidden );
+ if ($serverid==-1){
+ # sorting out which results to display.
+ # the result number to star to show
+ $template->param(starting => $startfrom+1);
+ $template->param(ending => $startfrom+$number_of_results);
+ # the result number to end to show
+ ($startfrom+$num<=$count) ? ($template->param(endat =>
$startfrom+$num)) : ($template->param(endat => $count));
+ # the total results searched
+
+ $template->param(SEARCH_RESULTS => address@hidden,
+ opacfacets => C4::Context->preference('useFacets'),
+ facets_loop => address@hidden,);
+
+ #this is to show the images numbers to navigate among the results, if
it has to show the number highlighted or not
+ my $numbers;
+ @$numbers = ();
+ my $pg = 1;
+ if (defined($query->param('pg'))) {
+ $pg = $query->param('pg');
+ }
+ my $start = 0;
+
+ $start = ($pg - 1) * $number_of_results;
+ my $pages = ceil($count / $number_of_results);
+ my $total_pages = ceil($count / $number_of_results);
+
+ if ($pg > 1) {
+ my $url = $pg - 1;
+ push @$numbers, { number => "<<",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ }
+ my $current_ten = $pg / 10;
+ if ($current_ten == 0) {
+ $current_ten = 0.1; # In case it´s in ten = 0
+ }
+ my $from = $current_ten * 10; # Calculate the initial page
+ my $end_ten = $from + 9;
+ my $to;
+ if ($pages > $end_ten) {
+ $to = $end_ten;
+ } else {
+ $to = $pages;
+ }
+ for (my $i =$from; $i <= $to ; $i++) {
+ if ($i == $pg) {
+ if ($count > $number_of_results) {
+ push @$numbers, { number => $i,
+ highlight =>
1 , FORMINPUTS=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($total_pages-1)*$number_of_results,
+ pg => $total_pages};
+ }
+
+ $template->param(numbers => $numbers);
+
+
+
+ ###############################
+
+ #show the virtual shelves of the current user
+my $shelflist = &GetShelves($borrowernumber);
+ my $color = '';
+ my @shelvesloop;
+ foreach my $element ( sort keys %$shelflist ) {
+ my %line;
+ $line{'shelfnumber'} = $element;
+ $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
+ $line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
+ push( @shelvesloop, \%line );
+ }
+ $template->param(shelvescount =>scalar(@shelvesloop));
+ $template->param(shelves => address@hidden);
+ $template->param(serverid => $serverid);
+}##serverid==-1
+#there isn't a search, so show the advanced search form
+} else {
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-dvdsearch.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ #show the item types
+ my ($itemtypecount,@itemtypes)= C4::Biblio::getitemtypes();
+ $template->param(itemtype_loop => address@hidden);
+
+ #show the branches -- This is hardcoded in OPAC templates-- TG
+# my (@branches)= GetBranches();
+
+# $template->param(branches => address@hidden);
+ $template->param(SEARCHPARAMS => address@hidden);
+}
+output_html_with_http_headers $query, $cookie, $template->output;
Index: opac/opac-electronic.pl
===================================================================
RCS file: opac/opac-electronic.pl
diff -N opac/opac-electronic.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-electronic.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+
+
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+use C4::NewsChannels;
+my $input = new CGI;
+my $ip=$input->remote_host();
+my $auth;
+if (($ip gt "212.175.151.128" && $ip lt "212.175.151.137")||($ip gt
"10.10.09.00" && $ip lt "10.11.11.255")){
+$auth=1;
+}else{
+$auth=0;
+}
+# Show the opac news. In fact, shows only the last five news if there are more.
+
+my ($template, $borrowernumber, $cookie) =
get_template_and_user({template_name => "opac-electronic.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => $auth,
+ flagsrequired => {borrow => 1},
+ });
+my $lang = $input->cookie('KohaOpacLanguage') ||
C4::Context->preference("opaclanguages");
+my ( $count,$affiliated_opac_electronic) = &get_opac_electronics("affiliated",
$lang);
+$template->param(opac_electronic_affiliated => $affiliated_opac_electronic);
+my ( $count,$trial_opac_electronic) = &get_opac_electronics("trial", $lang);
+$template->param(opac_electronic_trial => $trial_opac_electronic);
+my ( $count,$economy_opac_electronic) = &get_opac_electronics("economy",
$lang);
+$template->param(opac_electronic_economy => $economy_opac_electronic);
+
+my ($count, $computer_opac_electronic) = &get_opac_electronics("computer",
$lang);
+$template->param(opac_electronic_computer => $computer_opac_electronic);
+
+my ($count, $social_opac_electronic) = &get_opac_electronics("social", $lang);
+$template->param(opac_electronic_social => $social_opac_electronic);
+
+my ($count, $maths_opac_electronic) = &get_opac_electronics("maths", $lang);
+$template->param(opac_electronic_maths => $maths_opac_electronic);
+
+my ($count, $general_opac_electronic) = &get_opac_electronics("general",
$lang);
+$template->param(opac_electronic_general => $general_opac_electronic);
+
+my ($count, $other_opac_electronic) = &get_opac_electronics("other", $lang);
+$template->param(opac_electronic_other => $other_opac_electronic);
+
+my ($count, $health_opac_electronic) = &get_opac_electronics("health", $lang);
+$template->param(opac_electronic_health => $health_opac_electronic);
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ online => 'Yes',
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-help.pl
===================================================================
RCS file: opac/opac-help.pl
diff -N opac/opac-help.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-help.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+
+
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Koha;
+
+my $input = new CGI;
+my $help_template = $input->param('help_template');
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "/help/$help_template.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-index.pl
===================================================================
RCS file: opac/opac-index.pl
diff -N opac/opac-index.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-index.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+
+my $input = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-index.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ index => 'Yes',
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-infrastructure.pl
===================================================================
RCS file: opac/opac-infrastructure.pl
diff -N opac/opac-infrastructure.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-infrastructure.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+
+my $input = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-infrastructure.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ infrastructure => 'Yes',
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-links.pl
===================================================================
RCS file: opac/opac-links.pl
diff -N opac/opac-links.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-links.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+
+my $input = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-links.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ online => 'Yes',
+
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-location.pl
===================================================================
RCS file: opac/opac-location.pl
diff -N opac/opac-location.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-location.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Koha;
+
+my $input = new CGI;
+my $location = $input->param('location');
+my $lib = $input->param('lib');
+my $library=substr($lib,0,3);
+my $shelf=substr($lib,index($lib,'[')+1,3);
+
+$location=~s / //g;
+if (!$location || ($library ne ' NE')){
+$location="no";
+}elsif ($shelf eq 'New'){
+$location="newarrival";
+}elsif ($shelf eq 'Aud'){
+$location="audio";
+}elsif ($shelf eq 'Cyp'){
+$location="cypruscollection";
+}elsif ($shelf eq 'Arc'){
+$location="archives";
+}elsif ($shelf eq 'Ref'){
+$location="reference";
+}elsif ($shelf eq 'Res'){
+$location="reserve";
+}elsif ($shelf eq 'Spe'){
+$location="specialcol";
+}elsif ($shelf eq 'Und'){
+$location="underprocess";
+}elsif ($location eq 'Process'){
+$location="process";
+}else{
+$location=substr($location,0,1);
+}
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "/help/location.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+$template->param( location =>$location);
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-logout.pl
===================================================================
RCS file: opac/opac-logout.pl
diff -N opac/opac-logout.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-logout.pl 26 Mar 2007 00:07:52 -0000 1.5.14.2
@@ -0,0 +1,86 @@
+#!/usr/bin/perl
+
+use CGI;
+use C4::Context;
+use C4::Output;
+
+
+my $query=new CGI;
+
+my $sessionID=$query->cookie('sessionID');
+
+
+if ($ENV{'REMOTE_USER'}) {
+ print $query->header();
+ print startpage();
+ print startmenu('catalogue');
+ print qq|
+<h1>Logout Feature Not Available</h1>
+Your Koha server is configured to use a type of authentication called "Basic
+Authentication" instead of using a cookies-based authentication system. With
+Basic Authentication, the only way to logout of Koha is by exiting your
+browser.
+|;
+ print endmenu('catalogue');
+ print endpage();
+ exit;
+}
+
+my $sessions;
+open (S, "/tmp/sessions");
+ # FIXME - Come up with a better logging mechanism
+while (my ($sid, $u, $lasttime) = split(/:/, <S>)) {
+ chomp $lasttime;
+ (next) unless ($sid);
+ (next) if ($sid eq $sessionID);
+ $sessions->{$sid}->{'userid'}=$u;
+ $sessions->{$sid}->{'lasttime'}=$lasttime;
+}
+open (S, ">/tmp/sessions");
+foreach (keys %$sessions) {
+ my $userid=$sessions->{$_}->{'userid'};
+ my $lasttime=$sessions->{$_}->{'lasttime'};
+ print S "$_:$userid:$lasttime\n";
+}
+
+my $dbh = C4::Context->dbh;
+
+# Check that this is the ip that created the session before deleting it
+
+my $sth=$dbh->prepare("select userid,ip from sessions where sessionID=?");
+$sth->execute($sessionID);
+my ($userid, $ip);
+if ($sth->rows) {
+ ($userid,$ip) = $sth->fetchrow;
+ if ($ip ne $ENV{'REMOTE_ADDR'}) {
+ # attempt to logout from a different ip than cookie was created at
+ exit;
+ }
+}
+
+my $sth=$dbh->prepare("delete from sessions where sessionID=?");
+$sth->execute($sessionID);
+open L, ">>/tmp/sessionlog";
+my $time=localtime(time());
+printf L "%20s from %16s logged out at %30s (manual log out).\n", $userid,
$ip, $time;
+close L;
+
+my $cookie=$query->cookie(-name => 'sessionID',
+ -value => '',
+ -expires => '+1y');
+
+# Should redirect to opac home page after logging out
+
+print $query->redirect("/cgi-bin/koha/opac-main.pl");
+
+exit;
+if ($sessionID) {
+ print "Logged out of $sessionID<br>\n";
+ print "<a href=shelves.pl>Login</a>";
+} else {
+ print "Not logged in.<br>\n";
+ print "<a href=shelves.pl>Login</a>";
+}
+
+
+
Index: opac/opac-main.pl
===================================================================
RCS file: opac/opac-main.pl
diff -N opac/opac-main.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-main.pl 26 Mar 2007 00:07:52 -0000 1.23.4.2
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+use C4::NewsChannels;
+use C4::Date;
+my $input = new CGI;
+my $dbh = C4::Context->dbh;
+my $query="Select itemtype,description from itemtypes order by description";
+my $sth=$dbh->prepare($query);
+$sth->execute;
+my @itemtype;
+my %itemtypes;
+while (my ($value,$lib) = $sth->fetchrow_array) {
+ push @itemtype, $value;
+ $itemtypes{$value}=$lib;
+}
+
+my $CGIitemtype=CGI::scrolling_list( -name => 'value',
+ -values => address@hidden,
+ -labels => \%itemtypes,
+ -size => 1,
+ -multiple => 0 );
+$sth->finish;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-main.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+my $borrower = getmember('',$borrowernumber);
+my @options;
+my $counter=0;
+foreach my $language (getalllanguages()) {
+ next if $language eq 'images';
+ my $selected='0';
+# next if
$currently_selected_languages->{$language};
+ push @options, { language => $language, counter => $counter };
+ $counter++;
+}
+my $lang = $input->cookie('KohaOpacLanguage') ||
C4::Context->preference("opaclanguages");
+## give opac todays date for recent additions query
+my $todaysdate = get_today();
+my $earlierdate = DATE_Add($todaysdate,-15);
+$earlierdate=~s/-//g;
+$earlierdate=substr($earlierdate,2);## We need YYMMDD
+my ($opac_news_count, $all_opac_news) = &get_opac_news(undef, $lang);
+if ($opac_news_count > 4) {$template->param(more_opac_news => 1);}
+$template->param(opac_news => $all_opac_news);
+$template->param(opac_news_count => $opac_news_count);
+$template->param(todaysdate => $todaysdate);
+$template->param(earlierdate => $earlierdate);
+$template->param(CGIitemtype => $CGIitemtype,
+
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ languages => address@hidden,
+ textmessaging => $borrower->{textmessaging},
+ catalogue => 'Yes',
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-membership.pl
===================================================================
RCS file: opac/opac-membership.pl
diff -N opac/opac-membership.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-membership.pl 26 Mar 2007 00:07:52 -0000 1.5.8.2
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+use C4::Auth; # get_template_and_user
+
+use C4::Interface::CGI::Output;
+
+my $query = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-membership.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+output_html_with_http_headers $query, $cookie, $template->output;
Index: opac/opac-news.pl
===================================================================
RCS file: opac/opac-news.pl
diff -N opac/opac-news.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-news.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+use C4::NewsChannels;
+my $input = new CGI;
+# Show the opac news.
+
+my ($template, $borrowernumber, $cookie) =
get_template_and_user({template_name => "opac-news.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+my $lang = $input->cookie('KohaOpacLanguage') ||
C4::Context->preference("opaclanguages");
+
+my ($opac_news_count, $all_opac_news) = &get_opac_news(undef, $lang);
+# if ($opac_news_count > 4) {$template->param(more_opac_news => 1);}
+$template->param(opac_news => $all_opac_news);
+$template->param(opac_news_count => $opac_news_count);
+
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ news => 'Yes',
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-pdfViewer.pl
===================================================================
RCS file: opac/opac-pdfViewer.pl
diff -N opac/opac-pdfViewer.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-pdfViewer.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+# script to show a PDF file.
+# written 07/04
+# by Veleda Matias - address@hidden - Physics Library UNLP Argentina and
+# Castañeda Sebastian - address@hidden - Physics Library UNLP Argentina and
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+require Exporter;
+
+use strict;
+use C4::Context;
+use CGI;
+
+
+# This script take a pdf filename as a parameter and output it to the browser.
+my $cgi = new CGI;
+my $tmpFileName =
'/usr/local/koha21/intranet/htdocs/uploaded-files/documentation/';
+$tmpFileName .= $cgi->param('tmpFileName');
+#print "Content-type: text/plain\n\n";
+#print "$tmpFileName";
+print $cgi->header(-type => 'application/pdf'),
+ $cgi->start_html(-title=>"Codify to PDF");
+open fh, "<$tmpFileName";
+while (<fh>) {
+ print;
+}
+print $cgi->end_html();
\ No newline at end of file
Index: opac/opac-readingrecord.pl
===================================================================
RCS file: opac/opac-readingrecord.pl
diff -N opac/opac-readingrecord.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-readingrecord.pl 26 Mar 2007 00:07:52 -0000 1.10.4.2
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Search;
+use C4::Interface::CGI::Output;
+use C4::Members;
+
+my $query = new CGI;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-readingrecord.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+# get borrower information ....
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+
+
+$template->param($borr);
+
+# get the record
+my $order=$query->param('order');
+my $order2=$order;
+if ($order2 eq ''){
+ $order2="date_due desc";
+}
+my $limit=$query->param('limit');
+if ($limit eq 'full'){
+ $limit=0;
+} else {
+ $limit=50;
+}
+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++;
+}
+
+$template->param(count => $count);
+$template->param(READING_RECORD => $issues,
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+);
+
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
Index: opac/opac-recentlyquerys.pl
===================================================================
RCS file: opac/opac-recentlyquerys.pl
diff -N opac/opac-recentlyquerys.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-recentlyquerys.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+# NOTE: This file uses standard 8-character tabs
+
+use strict;
+
+use CGI;
+use C4::Auth; # checkauth, getborrowernumber.
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use C4::Context;
+
+
+
+my $query = new CGI;
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "opac-recentlyquerys.tmpl",
+ query=> $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+my @Sresults=();
+my $dbh=C4::Context->dbh;
+my $sth=$dbh->prepare("select phrase_log.* from phrase_log where user=? order
by date DESC");
+$sth->execute($loggedinuser);
+while (my $item = $sth->fetchrow_hashref) {
+ my %queries;
+ $queries{number_of_results} = $item->{phr_resultcount};
+ $queries{linkdesc} = $item->{actual};
+ $queries{searchdesc} = $item->{phr_phrase};
+ $queries{date} = format_date($item->{date});
+ push @Sresults,\%queries;
+ }
+
+$sth->finish();
+
+
+
+$template->param(
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+
+);
+
+$template->param( querys => address@hidden );
+#$template->param( date => format_date($queries->{date} ));
+#$template->param( searchdesc => $queries->{phr_phrase});
+#$template->param( linkdesc => $queries->{actual}) ;
+#$template->param( number_of_results => $query->{phr_resultcount} );
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
+# Local Variables:
+# tab-width: 8
+# End:
Index: opac/opac-reglamentation.pl
===================================================================
RCS file: opac/opac-reglamentation.pl
diff -N opac/opac-reglamentation.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-reglamentation.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+
+my $input = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-reglamentation.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-renew-items.pl
===================================================================
RCS file: opac/opac-renew-items.pl
diff -N opac/opac-renew-items.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-renew-items.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+
+# Script to handle issues
+# written 10/04
+# by Veleda Matias - address@hidden - Physics Library UNLP Argentina and
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+
+use C4::Circulation::Circ2;
+use C4::Context;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Search;
+use C4::Members;
+
+
+
+# Creates the CGI object.
+my $cgi = new CGI;
+
+# Reads parameters.
+my $borrowernumber = $cgi->param('borrowernumber');
+my @names = $cgi->param();
+my $count = @names;
+my %data;
+
+
+
+
+# Set the $env variable.
+my $env;
+
+
+for (my $i=0;$i<$count;$i++){
+ if ($names[$i] =~ /renew/){
+ my $temp = $names[$i];
+ $temp=~ s/renew_item_//;
+ $data{$temp}=$cgi->param($names[$i]);
+ }
+}
+
+while ( my ($barcode, $value) = each %data) {
+ if ($value eq 'y'){
+
+ $barcode = cuecatbarcodedecode($barcode);
+
+my $iteminformation = getiteminformation($env, 0,$barcode);
+my $itemno=$iteminformation->{'itemnumber'};
+ renewbook($env,$borrowernumber,$itemno);
+
+
+ }
+}
+
+print $cgi->redirect("/cgi-bin/koha/opac-user.pl");
+
+sub cuecatbarcodedecode {
+ my ($barcode) = @_;
+ chomp($barcode);
+ my @fields = split(/\./,$barcode);
+ my @results = map(decode($_), @fields[1..$#fields]);
+ if ($#results == 2){
+ return $results[2];
+ } else {
+ return $barcode;
+ }
+}
\ No newline at end of file
Index: opac/opac-renew.pl
===================================================================
RCS file: opac/opac-renew.pl
diff -N opac/opac-renew.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-renew.pl 26 Mar 2007 00:07:52 -0000 1.3.12.2
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+#written 18/1/2000 by address@hidden
+# adapted for use in the hlt opac by address@hidden 29/11/2002
+#script to renew items from the web
+
+use CGI;
+use C4::Circulation::Circ2;
+
+my $query = new CGI;
+
+my $itemnumber = $query->param('item');
+my $borrowernumber = $query->param("bornum");
+
+
+
+my %env;
+my $status = renewstatus(\%env,$borrowernumber,$itemnumber);
+if ($status == 1){
+ renewbook(\%env,$borrowernumber,$itemnumber);
+}
+
+if ($query->param('from') eq 'opac_user') {
+ print $query->redirect("/cgi-bin/koha/opac-user.pl");
+}
Index: opac/opac-reserve.pl
===================================================================
RCS file: opac/opac-reserve.pl
diff -N opac/opac-reserve.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-reserve.pl 26 Mar 2007 00:07:52 -0000 1.29.4.2
@@ -0,0 +1,294 @@
+#!/usr/bin/perl
+# NOTE: This file uses standard 8-character tabs
+
+use strict;
+
+use CGI;
+
+
+use C4::Search;
+use C4::Auth;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Reserves2;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use C4::Context;
+use C4::Accounts2;
+use C4::Calendar::Calendar;
+use C4::Members;
+use POSIX qw(strftime);
+use C4::Biblio;
+use C4::Members;
+
+# Creates the CGI object.
+my $query = new CGI;
+my $dbh=C4::Context->dbh;
+# Get the template for reserves.
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-reserve.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+# Get biblionumber
+my $biblionumber = $query->param('bib');
+my @items;
+my ($record) =XMLgetbibliohash($dbh,$biblionumber);
+my $bibdata =
XMLmarc2koha_onerecord($dbh,$record,"biblios");
+my $datedue=1;
+my $itemnumber;
+my $barcode;
+my $reservecount= $query->param('reservecount');
+$template->param(TITLE => $bibdata->{'title'});
+$template->param(AUTHOR => $bibdata->{'author'});
+
+$template->param(biblionum => $biblionumber);
+
+# Get the borrowerinformation and her/him branch.
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+my $branchcode = $borr->{'branchcode'};
+
+#Get the rest of the params
+my $title = $query->param('title');
+my $reservefrom = $query->param('reservefrom') ||
$query->param('validityfrom');
+my $reserveto = $query->param('reserveto') ||
$query->param('validityto');
+my $notes = $query->param('notes');
+my $http_referer = $query->param('http_referer');
+my $fee= $query->param('fee');
+## Try to find an item which is not on issue--- Tumer
+my @itemrecords=XMLgetallitems($dbh,$biblionumber);
+foreach my $xml (@itemrecords){
+my $record=XML_xml2hash_onerecord($xml);
+my $items = XMLmarc2koha_onerecord($dbh,$record,"holdings");
+$items=ItemInfo($dbh,$items);
+$items->{itemtype}=$bibdata->{itemtype};
+push @items,$items;
+}
+foreach my $itm (@items) {
+if ($itm->{'datedue'} && $datedue ){
+ $datedue = $itm->{'datedue'};
+$itemnumber= $itm->{'itemnumber'};
+$barcode= $itm->{'barcode'};
+ }else{
+ $datedue=0;
+
+ }
+}
+if ($query->param('createreserve')) {
+
+ my $RESERVE_PERIOD = C4::Context->preference("reservePeriod");
+
+ my $noreserves = 0;
+
+ # Check for well reserve period.
+ my $calendar = C4::Calendar::Calendar->new(branchcode =>
$branchcode);
+ my @dateFrom = split /-/, $reservefrom;
+ my @dateTo = split /-/, $reserveto;
+ my $daysBetween = $calendar->daysBetween($dateFrom[2], $dateFrom[1],
$dateFrom[0],
+ $dateTo[2], $dateTo[1],
$dateTo[0]);
+ if ($daysBetween > $RESERVE_PERIOD) {
+ $noreserves = 1;
+ $template->param(MESSAGE => 1,
+ WRONG_RESERVE_PERIOD => 1,
+ RESERVE_PERIOD => $RESERVE_PERIOD);
+ }
+if ($datedue <=1) {
+#warn "$reservefrom,$datedue";
+my @datedueto = split /\//, $datedue;
+my $daystodue = $datedueto[2]."-".$datedueto[1]."-".$datedueto[0];
+#warn "$daystodue";
+# if ($daystodue gt $reservefrom) {
+ $noreserves = 1;
+ $template->param(MESSAGE => 1,
+ WRONG_RESERVE_TIME => 1);
+# }
+}
+
+
+ unless ($noreserves) {
+ # Calculate if there is a reserve charge.
+ my $dbh = C4::Context->dbh;
+
+ my $sth = $dbh->prepare("SELECT * FROM borrowers,categories
+ WHERE (borrowernumber = ?)
+ AND (borrowers.categorycode = categories.categorycode)");
+ $sth->execute($borrowernumber);
+ my $data = $sth->fetchrow_hashref;
+ $sth->finish();
+ $fee = $data->{'reservefee'};
+ $template->param(RESERVEcount => $reservecount);
+ $template->param($bibdata);
+ $template->param(barcode =>$barcode);
+ $template->param(RESERVEFROM => $reservefrom);
+ $template->param(RESERVETO => $reserveto);
+ $template->param(FEE => $fee);
+ $template->param(NOTES => $notes);
+ $template->param(CONFIRM_RESERVE => 1);
+ $template->param(HTTP_REFERER => $http_referer);
+ $template->param(ftRESERVEFROM =>
format_date($reservefrom));
+ $template->param(ftRESERVETO =>
format_date($reserveto));
+
+ }
+
+} elsif ($query->param('placereserve')) {
+ CreateReserve(undef, $borrowernumber, $borrowernumber,$biblionumber,
$reservefrom,
+ $reserveto, $borr->{'branchcode'}, 'a',
$reservecount+1,$notes, $title,"",$itemnumber);
+ # For navigation buttons
+ $template->param(NOTES => $notes);
+ $template->param(MESSAGE => 1, SUCCESSFUL_RESERVE => 1);
+ #print "content-type: text/plain \n\n $http_referer ** ";
+# print $query->redirect($http_referer);
+
+ print $query->redirect("/cgi-bin/koha/opac-user.pl");
+} else {
+ # Here we check that the borrower can actually make reserves.
+ # Looks up for preconditions to be able to make a reserve.
+ my $noreserves = 0;
+
+# my ($penaltiesCount, $penalties) = getCurrentPenalties($borrowernumber);
+# if ($penaltiesCount > 0) {
+# $noreserves = 1;
+# $template->param(PENALIZED => 1);
+# }
+
+# my ($issuedItemsCount, $items) = getIssuedItems($biblionumber);
+# if ($issuedItemsCount == 0) {
+# $noreserves = 1;
+# $template->param(NO_ISSUED_ITEMS => 1);
+# }
+
+ #show the borrowercard state
+ my $cardIsActive = &borrowercard_active($borrowernumber);
+ if (!($cardIsActive)) {
+ $noreserves = 1;
+ $template->param(MEMBER_CARD_NOT_ACTIVE => 1);
+ }
+
+ my $maxoutstanding = C4::Context->preference("maxoutstanding");
+
+ if ($borr->{gonenoaddress} eq 1) {
+ $noreserves = 1;
+ $template->param(GNA => 1);
+ }
+
+ if ($borr->{lost} eq 1) {
+ $noreserves = 1;
+ $template->param(LOST => 1);
+ }
+
+ if ($borr->{debarred} eq 1) {
+ $noreserves = 1;
+ $template->param(DEBARRED => 1);
+ }
+
+ my $MAXIMUM_NUMBER_OF_RESERVES = C4::Context->preference("maxreserves");
+ my ($resnum, $reserves) = FindReserves('', $borrowernumber);
+ if ($resnum >= $MAXIMUM_NUMBER_OF_RESERVES) {
+ $noreserves = 1;
+ $template->param(TOO_MANY_RESERVES => $resnum);
+ }
+ foreach my $res (@$reserves) {
+ if ($res->{'biblionumber'} eq $biblionumber) {
+ $noreserves = 1;
+ $template->param(ALREADY_RESERVED => 1);
+ }
+ }
+
+# #check if the user actually have issued the biblio
+# my $onloan = &actuallyIssued($biblionumber, $borrowernumber);
+# if ($onloan) {
+# $noreserves = 1;
+# $template->param(ON_LOAN => 1);
+# }
+
+ $template->param(MESSAGE => $noreserves);
+
+ unless ($noreserves) { # At this point, the reserve is possible.
+
+
+
+
+
+
+
+
+my $dateToday =get_today();
+
+
+ # Get the number of reserves on this item.
+ my ($resnum, $reserves) = FindReserves($biblionumber, '');
+
+ # Existing reserves building.
+ my @reserveloop;
+ my $branches = GetBranches();
+ foreach my $res (@$reserves) {
+ my %reserve;
+
+ $reserve{'WBRCODE'} =
$res->{'branchcode'};
+ $reserve{'RESERVEID'} =
$res->{'reserveid'};
+ $reserve{'BORROWERNUMBER'} =
$res->{'borrowernumber'};
+ $reserve{'biblionum'} =
$res->{'biblionumber'};
+ $reserve{'BORNUM'} =
$res->{'borrowernumber'};
+ $reserve{'FIRSTNAME'} =
$res->{'firstname'};
+ $reserve{'SURNAME'} =
$res->{'surname'};
+ $reserve{'DATE'} =
format_date($res->{'reservedate'});
+ $reserve{'TIME'} =
$res->{'time'};
+ $reserve{'RESERVEFROMPARSE'} =
format_date($res->{'reservefrom'});
+ $reserve{'RESERVETOPARSE'} =
format_date($res->{'reserveto'});
+ $reserve{'PLACE'} =
$branches->{$res->{'branchcode'}}->{'branchname'};
+ $reserve{'NOTES'} =
$res->{'reservenotes'};
+ $reserve{'RESERVEFROM'} =
$res->{'reservefrom'};
+ push(@reserveloop,\%reserve);
+
+ }
+
+
+
+
+
+ my @bibitemloop;
+ foreach my $dat (@items){
+ my %abibitem;
+ $abibitem{'COPIES'} =
address@hidden;
+ $abibitem{'CLASS'} =
"$bibdata->{'classification'}$dat->{'dewey'}$dat->{'subclass'}";
+ $abibitem{'ITEMLOST'} =
(($dat->{'notforloan'}) || ($dat->{'itemlost'})) ;
+ $abibitem{'ITEMTYPE'} =
$bibdata->{'itemtype'};
+ $abibitem{'VOLUMEDDESC'} =
$bibdata->{'volume'};
+ $abibitem{'PUBLICATIONYEAR'} =
$bibdata->{'publicationyear'};
+ $abibitem{'DATEDUE'} = $datedue;
+ push(@bibitemloop,\%abibitem);
+ }
+
+ $template->param(VALIDITY_FROM =>
$dateToday);
+ $template->param(VALIDITY_TO =>
$dateToday);
+
+ $template->param(RESERVECOUNT =>
$resnum);
+ $template->param(CAN_RESERVE => 1);
+ $template->param(BIBITEMLOOP =>
address@hidden);
+ $template->param(RESERVELOOP =>
address@hidden);
+
+ # In case to go back from from a reserve confirmation.
+ if (my $note = $query->param('notes')) {
+ $template->param(NOTES => $note);
+ }
+ if ($query->param('http_referer')) {
+ $template->param(HTTP_REFERER =>
$query->param('http_referer'));
+ } else {
+ $template->param(HTTP_REFERER => $ENV{'HTTP_REFERER'});
+ }
+
+ }
+}
+
+# check that you can actually make the reserve.
+
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
+# Local Variables:
+# tab-width: 8
+# End:
Index: opac/opac-rules.pl
===================================================================
RCS file: opac/opac-rules.pl
diff -N opac/opac-rules.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-rules.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::BookShelves;
+use C4::Koha;
+use C4::Members;
+
+my $input = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-reglamentation.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+
+
+$template->param(
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ rules => 'Yes',
+
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-search.pl
===================================================================
RCS file: opac/opac-search.pl
diff -N opac/opac-search.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-search.pl 26 Mar 2007 00:07:52 -0000 1.38.4.2
@@ -0,0 +1,336 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Acquisition;
+use C4::Biblio;
+use C4::Koha;
+use C4::BookShelves;
+use POSIX qw(ceil floor);
+use Encode;
+my $query = new CGI;
+my $dbh = C4::Context->dbh;
+my $op = $query->param('op'); #show the search form or execute the
search
+my @value=$query->param('field_value');
+my @kohafield=$query->param('kohafield');
+my @and_or=$query->param('and_or');
+my @relation=$query->param('relation');
+my $order=$query->param('order');
+my $asc=$query->param('asc');
+my $reorder=$query->param('reorder');
+my $serverid=$query->param('serverid');
+my $totalresults;
+my ($template, $borrowernumber, $cookie);
+# get all the common search variables,
+my @fields = ('kohafield','field_value','and_or','relation','order','asc');
+
+# collect all the fields ...
+my %search;
+my @forminputs; #this is for the links to navigate among the
results when they are more than the maximum number of results per page
+my (@searchdesc, %hashdesc,$facetsdesc,%searchparams); #this is to
show the description of the current search
+my %hash; ## This helps to come back to same search
+
+foreach my $field (@fields) {
+ my @searchfield = $query->param($field);
+my $i=1;
+ foreach my $fieldvalue (@searchfield) {
+ push @forminputs, { field=>$field ,value=>$fieldvalue} unless
($field eq 'reorder');
+ $searchparams{$field.$i} =$fieldvalue;
+ $searchparams{$fieldvalue.$i} =$fieldvalue;
+ $facetsdesc.="&".$field."=".$fieldvalue;
+ $i++;
+ }
+}
+my @searchparams;
+push @searchparams,\%searchparams;
+ for (my $i=0;$i<@value;$i++){
+$hashdesc{$kohafield[$i]}.=$value[$i].", " if $value[$i];
+}
+
+
+push @searchdesc,\%hashdesc;
+
+#
+
+
+
+############################################################################
+
+#this fields is just to allow the user come back to the search form with all
the values who previously entered
+
+#Check the param to know if there is to do the search or to show the search
form.
+if ($op eq "do_search") {
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"opac-searchresults.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ $search{'from'} = 'opac';
+ $search{'borrowernumber'} = $borrowernumber;
+ $search{'remote_IP'} = $query->remote_addr();
+ $search{'remote_URL'} = $query->url(-query=>1);
+ $search{searchdesc}=join " ",@value;
+ $template->param(FORMINPUTS => address@hidden);
+
+ $template->param(facetsdesc=>$facetsdesc);
+ # do the searchs ....
+ my $number_of_results = 10; # OPAC searches are limited to 10 results
pe rpage
+ my $startfrom = $query->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+if ($serverid>0){
+
+ my $sth=$dbh->prepare("select * from online_databases where serverid=?");
+ $sth->execute($serverid);
+
+ my $server=$sth->fetchrow_hashref ;
+
+my $serverquery=$server->{search_string};
+
+ $serverquery.="kohafield=".$kohafield[0]."&value=".$value[0];
+
+print $query->redirect($serverquery);
+
+}##serverid>0
+if ($serverid eq "0"){
+use ZOOM;
+my @oConnection;
+my @oResult;
+my $s=0;
+my $server;
+my @serverhost;
+my @serverquery;
+my @query;
+my @onlineloop;
+my $numberpending;
+my $even=1;
+ my $sth=$dbh->prepare("select * from online_databases ");
+ $sth->execute();
+
+ while ($server=$sth->fetchrow_hashref) {
+ my $noconnection=0;
+
+
+ my $option1=new ZOOM::Options();
+ $option1->option(async=>1);
+ $option1->option('elementSetName', 'F');
+ $option1->option('databaseName',$server->{db}) ;
+ $option1->option('user',$server->{userid}) ;
+ $option1->option('password',$server->{password}) ;
+ $oConnection[$s]=create ZOOM::Connection($option1);
+ $oConnection[$s]->connect($server->{host}, $server->{port});
+ $serverhost[$s]=$server->{server};
+ $serverquery[$s]=$server->{search_string};
+ if ($server->{$kohafield[0]} ne ""){
+ $serverquery[$s].=$server->{$kohafield[0]."_query"}.$value[0];
+ }else{
+ $serverquery[$s].=$server->{"any_query"}.$value[0];
+ }
+ $query[$s]=$server->{$kohafield[0]}." \"".$value[0]."\"";
+
+ $s++;
+ }## while fetch
+
+
+my $nremaining = $s;
+my $firstresult=1;
+ for (my $z=0 ;$z<$s;$z++){
+$oResult[$z] = $oConnection[$z]->search_pqf($query[$z]);
+
+}
+AGAIN:
+ my $k;
+my $event;
+ while (($k = ZOOM::event(address@hidden)) != 0) {
+ $event = $oConnection[$k-1]->last_event();
+# warn ("connection ", $k-1, ": event $event (", ZOOM::event_str($event),
")\n");
+ last if $event == ZOOM::Event::ZEND;
+ }
+if ($k != 0) {
+ $k--;
+#warn $serverhost[$k];
+ my($error, $errmsg, $addinfo, $diagset) = $oConnection[$k]->error_x();
+ if ($error) {
+ warn "$k $serverhost[$k] error $query[$k]: $errmsg ($error) $addinfo\n";
+ goto MAYBE_AGAIN;
+ }
+
+ my $numresults=$oResult[$k]->size() ;
+
+
+ if ($numresults>0){
+
+
+
+ my %row_data;
+
+ $row_data{even} = $even;
+ $row_data{server} = $serverhost[$k];
+ $row_data{numresults} = $numresults;
+ $totalresults+=$numresults;
+ $row_data{search_string} =$serverquery[$k];
+
+ $even=!$even;
+ push (@onlineloop, \%row_data);
+
+
+}# $numresults
+
+}# if $k !=0
+
+
+$numberpending=$nremaining-1;
+
+MAYBE_AGAIN:
+if (--$nremaining > 0) {
+ goto AGAIN;
+}
+$template->param(onlineloop=>address@hidden,);
+}##serverid==0
+my $timetaken;
+my ($count,@results,$facets);
+my $sortorder= $order.$asc if $order;
+ ($count,$facets,@results)
=ZEBRAsearch_kohafields(address@hidden,address@hidden,
address@hidden,$sortorder, address@hidden, 1,$reorder,$startfrom,
$number_of_results,"opac");
+if ($count){
+add_query_line("",\%search,$count);
+$timetaken=$results[0]->{timetaken};
+}
+$template->param(timetaken =>$timetaken);
+#suggestion man
+my $displaysuggestion=C4::Context->preference("displaysuggestion");
+if ($displaysuggestion && !$count ){
+my @suggestion=spellSuggest(address@hidden,address@hidden);
+ $template->param(SUGGESTION =>address@hidden);
+}
+if ($kohafield[0] eq "totalissue"){
+$template->param(totalissues => 1);
+}
+ my $num = scalar(@results) - 1;
+ $template->param(numrecords => $count);
+ $totalresults+=$count;
+ $template->param(totalresults => $totalresults);
+ $template->param(reorder => $reorder);
+ $template->param(searchdesc => address@hidden );
+ if ($serverid==-1){
+ # sorting out which results to display.
+ # the result number to star to show
+ $template->param(starting => $startfrom+1);
+ $template->param(ending => $startfrom+$number_of_results);
+ # the result number to end to show
+ ($startfrom+$num<=$count) ? ($template->param(endat =>
$startfrom+$num)) : ($template->param(endat => $count));
+ # the total results searched
+
+ $template->param(SEARCH_RESULTS => address@hidden,
+ opacfacets => C4::Context->preference('useFacets'),
+ facets_loop => address@hidden,);
+
+ #this is to show the images numbers to navigate among the results, if
it has to show the number highlighted or not
+ my $numbers;
+ @$numbers = ();
+ my $pg = 1;
+ if (defined($query->param('pg'))) {
+ $pg = $query->param('pg');
+ }
+ my $start = 0;
+
+ $start = ($pg - 1) * $number_of_results;
+ my $pages = ceil($count / $number_of_results);
+ my $total_pages = ceil($count / $number_of_results);
+
+ if ($pg > 1) {
+ my $url = $pg - 1;
+ push @$numbers, { number => "<<",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ }
+ my $current_ten = $pg / 10;
+ if ($current_ten == 0) {
+ $current_ten = 0.1; # In case it´s in ten = 0
+ }
+ my $from = $current_ten * 10; # Calculate the initial page
+ my $end_ten = $from + 9;
+ my $to;
+ if ($pages > $end_ten) {
+ $to = $end_ten;
+ } else {
+ $to = $pages;
+ }
+ for (my $i =$from; $i <= $to ; $i++) {
+ if ($i == $pg) {
+ if ($count > $number_of_results) {
+ push @$numbers, { number => $i,
+ highlight =>
1 , FORMINPUTS=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($total_pages-1)*$number_of_results,
+ pg => $total_pages};
+ }
+
+ $template->param(numbers => $numbers);
+
+
+
+ ###############################
+
+ #show the virtual shelves of the current user
+ #show the virtual shelves
+ my $shelflist = &GetShelves($borrowernumber);
+ my $color = '';
+ my @shelvesloop;
+ foreach my $element ( sort keys %$shelflist ) {
+ my %line;
+ $line{'shelfnumber'} = $element;
+ $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
+ $line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
+ push( @shelvesloop, \%line );
+ }
+ $template->param(shelvescount =>scalar(@shelvesloop));
+ $template->param(shelves => address@hidden);
+ $template->param(serverid => $serverid);
+}##serverid==-1
+#there isn't a search, so show the advanced search form
+} else {
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-search.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ #show the item types
+ my ($itemtypecount,@itemtypes)= C4::Biblio::getitemtypes();
+ $template->param(itemtype_loop => address@hidden);
+
+ my (@branches)= GetallBranches();
+
+ $template->param(branches => address@hidden);
+ $template->param(SEARCHPARAMS => address@hidden);
+}
+output_html_with_http_headers $query, $cookie, $template->output;
Index: opac/opac-sendbasket.pl
===================================================================
RCS file: opac/opac-sendbasket.pl
diff -N opac/opac-sendbasket.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-sendbasket.pl 26 Mar 2007 00:07:52 -0000 1.10.4.2
@@ -0,0 +1,162 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use Mail::Sendmail;
+use MIME::QuotedPrint;
+use MIME::Base64;
+
+use C4::Search;
+use C4::Biblio;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use MARC::Record;
+use MARC::File::XML;
+use MARC::File::USMARC;
+
+my $query = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-sendbasketform.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+my $bib_list=$query->param('bib_list');
+my $email_add=$query->param('email_add');
+my $email_sender=$query->param('email_sender');
+my $marcfile=$query->param('marcfile');
+my $dbh=C4::Context->dbh;
+my $sth;
+
+
+if ($email_add) {
+ my $email_from = C4::Context->preference('KohaAdminEmailAddress');
+
+ my %mail = ( To => $email_add,
+ From => $email_from);
+
+ my ($template2, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-sendbasket.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+ my @bibs = split(/\//, $bib_list);
+ my @results;
+ my $iso2709;
+ foreach my $biblionumber (@bibs) {
+ $template2->param(biblionumber => $biblionumber);
+ my $record=XMLgetbibliohash($dbh,$biblionumber);
+ my $dat = XMLmarc2koha_onerecord($dbh,$record,"biblios");
+ my ( $addauthor) =
getMARCadditional_authors($dbh,$record,"USMARC");
+ my @itemrecords=XMLgetallitems($dbh,$biblionumber);
+ my @items;
+ foreach my $itemrecord (@itemrecords){
+ $itemrecord=XML_xml2hash_onerecord($itemrecord);
+ my $items= XMLmarc2koha_onerecord($dbh,$itemrecord,"holdings");
+ $items=ItemInfo($dbh,$items);
+ $items->{itemtype}=$dat->{itemtype};
+ push @items,$items;
+ }
+ foreach my $author (@$addauthor) {
+ $dat->{'additional'} .= $author->{'MARCAUTHOR'}."|" ;
+ }
+
+ $dat->{'biblionumber'} = $biblionumber;
+ $dat->{ITEM_RESULTS} = address@hidden;
+ my $xml = XMLgetbiblio($dbh,$biblionumber);
+ if ($marcfile){
+ my $marc=MARC::Record->new_from_xml($xml,"MARC8");
+ $iso2709 .= $marc->as_usmarc();
+ }
+ push (@results, $dat);
+ }
+
+ my address@hidden;
+ $template2->param(BIBLIO_RESULTS => $resultsarray,
+ email_sender => $email_sender);
+
+ # Getting template result
+ my $template_res = $template2->output();
+ my $body;
+ # Analysing information and getting mail properties
+ if ($template_res =~ /<SUBJECT>\n(.*)\n<END_SUBJECT>/s) {
$mail{'subject'} = $1; }
+ else { $mail{'subject'} = "no subject"; }
+
+ my $email_header = "";
+ if ($template_res =~ /<HEADER>\n(.*)\n<END_HEADER>/s) { $email_header =
$1; }
+
+ my $email_file = "basket.txt";
+ if ($template_res =~ /<FILENAME>\n(.*)\n<END_FILENAME>/s) { $email_file
= $1; }
+
+ if ($template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s) { $mail{'body'}
= $1; }
+
+ my $boundary = "====" . time() . "====";
+ $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
+ my $isofile = encode_base64($iso2709);
+ $email_header = encode_qp($email_header);
+
+ $boundary = "--".$boundary;
+
+ # Writing mail
+if ($marcfile){
+ $mail{body} = <<END_OF_BODY_MARC;
+
+$boundary
+Content-Type: text/plain; charset="utf-8"
+Content-Transfer-Encoding: quoted-printable
+$email_header
+$mail{'body'}
+$boundary
+Content-Type: application/octet-stream; name="basket.mrc"
+Content-Transfer-Encoding: base64
+Content-Disposition: attachment; filename="basket.mrc"
+
+$isofile
+
+$boundary--
+END_OF_BODY_MARC
+}else{
+$mail{body} = <<END_OF_BODY;
+
+$boundary
+Content-Type: text/plain; charset="utf-8"
+Content-Transfer-Encoding: quoted-printable
+
+$email_header
+
+$mail{'body'}
+
+$boundary--
+END_OF_BODY
+}
+
+ # Sending mail
+ if (sendmail %mail) {
+ # do something if it works....
+# warn "Mail sent ok\n";
+ $template->param(SENT => "1");
+ $template->param(email_add => $email_add);
+ } else {
+warn $Mail::Sendmail::error;
+ # do something if it doesnt work....
+ $template->param(email_add => $email_add);
+ warn "Error sending mail: $Mail::Sendmail::error \n";
+ }
+
+ output_html_with_http_headers $query, $cookie, $template->output;
+}
+else {
+ $template->param(bib_list => $bib_list);
+ $template->param(url => "/cgi-bin/koha/opac-sendbasket.pl",
+ suggestion => C4::Context->preference("suggestion"),
+ virtualshelves => C4::Context->preference("virtualshelves"),
+ );
+ output_html_with_http_headers $query, $cookie, $template->output;
+}
+
Index: opac/opac-sendpwd.pl
===================================================================
RCS file: opac/opac-sendpwd.pl
diff -N opac/opac-sendpwd.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-sendpwd.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+
+use Mail::Sendmail;
+use MIME::QuotedPrint;
+use MIME::Base64;
+use Mail::RFC822::Address;
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use C4::Koha;
+
+my $query = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-sendpwd.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+my $userid = $query->param('userid');
+
+my $dbh = C4::Context->dbh;
+my $sth=$dbh->prepare("SELECT password, emailaddress FROM borrowers WHERE
cardnumber=? OR emailaddress=? OR userid=?");
+$sth->execute($userid,$userid,$userid);
+
+if ($sth->rows) {
+ my ($password, $emailaddress) = $sth->fetchrow;
+ #warn "el id es ". $userid;
+ #warn "$password, $emailaddress";
+ if ($emailaddress) {
+
+ my $email_from =
C4::Context->preference('KohaAdminEmailAddress');
+ my %mail;
+ $mail{'to'} = $emailaddress;
+ $mail{'from'} = $email_from;
+
+ my ($template2, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"opac-sendpwdmail.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+ $template2->param(userid => $userid);
+ $template2->param(password => $password);
+
+ # Getting template result
+ my $template_res = $template2->output();
+
+ # Analysing information and getting mail properties
+ if ($template_res =~ /§SUBJECT§\n(.*)\n§END_SUBJECT§/s)
{ $mail{'subject'} = $1; }
+ else { $mail{'subject'} = "no subject"; }
+
+ my $email_header = "";
+ if ($template_res =~ /§HEADER§\n(.*)\n§END_HEADER§/s) {
$email_header = $1; }
+
+ if ($template_res =~ /§MESSAGE§\n(.*)\n§END_MESSAGE§/s)
{ $mail{'body'} = $1; }
+
+ $mail{'content-type'} = "text/plain";
+ $mail{'charset'} = "iso8859-9n";
+ $mail{'Content-Transfer-Encoding'} = "quoted-printable";
+
+ $email_header = encode_qp($email_header);
+
+ # Writing mail
+ $mail{'body'} = "$email_header \n $mail{'body'}";
+
+ if (sendmail %mail) {
+ $template->param(sent => 1);
+ } else {
+ $template->param(sent => 0);
+ }
+
+ $template->param(email => $emailaddress);
+ } else {
+ $template->param(not_mail => 1);
+ }
+} else {
+ $template->param(invalid_username => 1);
+}
+
+$sth->finish;
+$template->param(loggedinusername => 0);
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
+
+
Index: opac/opac-serial-issues.pl
===================================================================
RCS file: opac/opac-serial-issues.pl
diff -N opac/opac-serial-issues.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-serial-issues.pl 26 Mar 2007 00:07:52 -0000 1.8.4.2
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+
+use C4::Auth;
+use C4::Koha;
+use C4::Date;
+use C4::Serials;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Context;
+
+
+my $query = new CGI;
+my $op = $query->param('op');
+my $dbh = C4::Context->dbh;
+my $sth;
+# my $id;
+my ($template, $loggedinuser, $cookie);
+my ($subscriptionid);
+
+$subscriptionid = $query->param('subscriptionid');
+my $subscription = &GetSubscription($subscriptionid);
+my ($totalissues,@serialslist) = GetSerials($subscriptionid);
+
+
+($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "opac-serial-issues.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ debug => 1,
+ });
+
+# replace CR by <br> in librarian note
+$subscription->{opacnote} =~ s/\n/\<br\/\>/g;
+#warn " $subscription->{recievedlist}";
+$template->param(
+ startdate => format_date($subscription->{startdate}),
+ callnumber => $subscription->{callnumber},
+ serialslist => address@hidden,
+ totalissues => $totalissues,
+ status => $subscription->{status},
+ biblionumber => $subscription->{biblionumber},
+ bibliotitle => $subscription->{bibliotitle},
+ opacnote => $subscription->{opacnote},
+ subscriptionid => $subscription->{subscriptionid}
+ );
+$template->param(
+ "periodicity$subscription->{periodicity}" => 1,
+ "arrival$subscription->{dow}" => 1,
+ );
+
+output_html_with_http_headers $query, $cookie, $template->output;
Index: opac/opac-shelves.pl
===================================================================
RCS file: opac/opac-shelves.pl
diff -N opac/opac-shelves.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-shelves.pl 26 Mar 2007 00:07:52 -0000 1.8.4.2
@@ -0,0 +1,157 @@
+#!/usr/bin/perl
+# modified 06/2006 TG
+#
+# 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::Search;
+use CGI;
+use C4::BookShelves;
+use C4::Circulation::Circ2;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Members;
+
+my $cgi = new CGI;
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "opac-shelves.tmpl",
+ query => $cgi,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+#Collect the params into a hash
+my %params;
+foreach my $paramname ($cgi->param) {
+ $params{$paramname} = $cgi->param($paramname);
+}
+
+
+
+#get the shelf information
+if ($params{'shelfnumber'}) {
+ my ( $shelfnumber, $shelfname, $owner, $category ) =
GetShelf($params{'shelfnumber'});
+ $params{'canmanage'} =1 if ($owner==$loggedinuser);
+ if ($category== 1) {
+ $params{'private'} = 1;
+ } else {
+ $params{'public'} = 1;
+ }
+ $template->param(shelfname => $shelfname);
+}
+#get the user information
+my $data = borrdata(undef, $loggedinuser);
+my $borrcat = getborrowercategoryinfo($data->{'categorycode'});
+$params{'make_public_shelves'} = $borrcat->{'canmakepublicshelves'};
+
+
+
+my @messages;
+#check the param op to know what operation the user request
+if ($params{'op'} eq 'add_form') {
+
+ $template->param($params{'op'} => 1);
+
+ #is a modification
+ if ($params{'shelfnumber'}) {
+ $params{'op'} = 'edit';
+ #is a new shelf
+ } else {
+ $params{'op'} = 'add';
+ }
+
+#try to add a new shelf or edit one
+} elsif ( ($params{'op'} eq 'add') || ($params{'op'} eq 'edit') ) {
+
+ my $shelfnumber;
+
+ if ($params{'op'} eq 'add') {
+ $shelfnumber = AddShelf($params{'shelfname'},$loggedinuser,
$params{'category'});
+ } else {
+ $shelfnumber = ModShelf($params{'shelfnumber'},
$params{'shelfname'}, $loggedinuser,$params{'category'});
+ }
+
+ if ($shelfnumber) {
+ print $cgi->redirect("/cgi-bin/koha/opac-shelves.pl");
+ } else {
+ $template->param(add_form => 1);
+ my %msg;
+ $msg{'duplicated_name'} = 1;
+ push @messages, \%msg;
+ $template->param(messages => address@hidden);
+ }
+
+#delete shelfs
+} elsif ($params{'op'} eq 'del') {
+
+ my @shelfnumber = $cgi->param('shelfnumber');
+
+ foreach my $num (@shelfnumber) {
+ if ( ShelfPossibleAction( $loggedinuser, $num, 'manage' )){
+ DelShelf($num);
+ }
+ }
+ print $cgi->redirect("/cgi-bin/koha/opac-shelves.pl");
+
+} elsif ($params{'op'} eq 'viewcontent') {
+ $params{'viewshelfcontent'} = 1;
+ my $content = GetShelfContents($params{'shelfnumber'});
+ $template->param(content =>$content);
+
+} elsif ($params{'op'} eq 'del_items') {
+
+ my @biblionumber = $cgi->param('biblionumber');
+ foreach my $bibnum (@biblionumber) {
+ DelFromShelf($bibnum, $params{'shelfnumber'});
+ }
+ print
$cgi->redirect("/cgi-bin/koha/opac-shelves.pl?op=viewcontent&shelfnumber=$params{'shelfnumber'}");
+} elsif ($params{'op'} eq 'add_items') {
+ my $item = getiteminformation( 0, undef,$params{'addbarcode'} );
+ if ( ShelfPossibleAction( $loggedinuser,$params{'shelfnumber'}, 'manage' )
&& $item) {
+ AddToShelf( $item->{'biblionumber'}, $params{'shelfnumber'});
+}
+ print
$cgi->redirect("/cgi-bin/koha/opac-shelves.pl?op=viewcontent&shelfnumber=$params{'shelfnumber'}");
+
+} else {
+
+ $params{'viewshelfs'} = 1;
+
+ my ($shelflist) = GetShelves( $loggedinuser, 2 );
+ my @shelvesloop;
+ foreach my $element ( sort keys %$shelflist ) {
+ my %line;
+ $line{'shelfnumber'} = $element;
+ $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
+ $line{'count'} = $shelflist->{$element}->{'count'};
+ $line{'private'} =1 if $shelflist->{$element}->{'category'}==1;
+ $line{'public'} =1 if $shelflist->{$element}->{'category'}==2;
+ $line{'canmanage'} =1 if
$shelflist->{$element}->{'owner'}==$loggedinuser;
+ push( @shelvesloop, \%line );
+ }
+ $template->param(
+ shelvesloop => address@hidden,
+ shelves => 1,
+ );
+
+ $template->param(institutions => address@hidden);
+
+}
+
+$template->param(%params);
+
+output_html_with_http_headers $cgi, $cookie, $template->output;
+
Index: opac/opac-show-image.pl
===================================================================
RCS file: opac/opac-show-image.pl
diff -N opac/opac-show-image.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-show-image.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+
+use CGI ':standard';
+
+use C4::Context;
+my $itemtype = param('itemtype');
+my $dbh = C4::Context->dbh;
+my $image_query = $dbh->prepare("SELECT type, data FROM itemtype_images WHERE
(itemtype = ?)");
+my $image_ref;
+$image_query->execute($itemtype);
+if ($image_query->execute($itemtype) > 0) {
+ $image_ref = $image_query->fetchrow_hashref;
+}
+print header($image_ref->{'type'});
+print $image_ref->{'data'};
+
Index: opac/opac-suggestions.pl
===================================================================
RCS file: opac/opac-suggestions.pl
diff -N opac/opac-suggestions.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-suggestions.pl 26 Mar 2007 00:07:52 -0000 1.6.4.2
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Suggestions;
+
+my $input = new CGI;
+my $title = $input->param('title');
+my $author = $input->param('author');
+my $note = $input->param('note');
+my $copyrightdate =$input->param('copyrightdate');
+my $publishercode = $input->param('publishercode');
+my $volumedesc = $input->param('volumedesc');
+my $publicationyear = $input->param('publicationyear');
+my $place = $input->param('place');
+my $isbn = $input->param('isbn');
+my $status = $input->param('status');
+my $suggestedbyme = $input->param('suggestedbyme');
+my $op = $input->param('op');
+$op = 'else' unless $op;
+$status="ASKED" unless $suggestedbyme;
+my $dbh = C4::Context->dbh;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-suggestions.tmpl",
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+if ($op eq "add_confirm") {
+
&NewSuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
+ # empty fields, to avoid filter in "searchsuggestion"
+ $title='';
+ $author='';
+ $publishercode='';
+ $copyrightdate ='';
+ $volumedesc = '';
+ $publicationyear = '';
+ $place = '';
+ $isbn = '';
+ $op='else';
+}
+
+if ($op eq "delete_confirm") {
+ my @delete_field = $input->param("delete_field");
+ foreach my $delete_field (@delete_field) {
+ &DelSuggestion($borrowernumber,$delete_field);
+ }
+ $op='else';
+}
+
+my $suggestions_loop=
&SearchSuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
+$template->param(suggestions_loop => $suggestions_loop,
+ title => $title,
+ author => $author,
+ publishercode => $publishercode,
+ status => $status,
+ suggestedbyme => $suggestedbyme,
+ "op_$op" => 1,
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+);
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/opac-user.pl
===================================================================
RCS file: opac/opac-user.pl
diff -N opac/opac-user.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-user.pl 26 Mar 2007 00:07:52 -0000 1.23.4.2
@@ -0,0 +1,194 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+
+use C4::Auth;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Reserves2;
+use C4::Search;
+use C4::Interface::CGI::Output;
+use C4::Date;
+
+use C4::Members;
+
+my $query = new CGI;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-user.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+# get borrower information ....
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+$borr->{$borr->{'title'}} = 1;
+
+$borr->{'dateenrolled'} = format_date($borr->{'dateenrolled'});
+$borr->{'expiry'} = format_date($borr->{'expiry'});
+$borr->{'dateofbirth'} = format_date($borr->{'dateofbirth'});
+$borr->{'ethnicity'} = fixEthnicity($borr->{'ethnicity'});
+
+
+if ($borr->{'amountoutstanding'} > 0) {
+ $borr->{'amountoverzero'} = 1;
+} elsif ($borr->{'amountoutstanding'} < 0) {
+ $borr->{'amountlessthanzero'} = 1;
+ $borr->{'amountoutstanding'} = -1*($borr->{'amountoutstanding'});
+}
+
+$borr->{'amountoutstanding'} = sprintf "%.02f", $borr->{'amountoutstanding'};
+
+my @bordat;
+$bordat[0] = $borr;
+$template->param(BORROWER_INFO => address@hidden);
+$template->param(borrowernumber => $borrowernumber);
+
+#show the user photo
+$template->param(borrowerphoto => &getMemberPhoto($borr->{'cardnumber'}));
+#show the borrowercard state
+my $cardactive = &borrowercard_active($borrowernumber);
+$template->param(borrowercard_outofdate => not $cardactive);
+
+#get issued items ....
+my $issues = getissues($borr);
+
+#gets the preference that indicates the date from the item can be renewed
+my $allowRenewalsBefore = C4::Context->preference("allowRenewalsBefore");
+
+#gets the current date.
+my $now =get_today();
+
+#gets the borrower category information
+my $category = &getborrowercategoryinfo($borr->{'categorycode'});
+$template->param(allowrenewsfromopac => $category->{'allowrenewsfromopac'});
+
+my $dbh = C4::Context->dbh();
+my $count = 0;
+my $overdues_count = 0;
+my @overdues;
+my @issuedat;
+foreach my $key (keys %$issues) {
+ my $issue = $issues->{$key};
+ my $date_due = $issue->{'date_due'};
+ $issue->{'date_due'} = format_date($issue->{'date_due'});
+
+ #check for reserves
+ my ($restype, $res) = CheckReserves($issue->{'itemnumber'});
+ if ($restype) {
+ $issue->{'reserved'} = 1;
+ }
+
+ my ($numaccts,$accts,$total) = getboracctrecord(undef,$borr);
+ my $charges = 0;
+ foreach my $ac (@$accts) {
+ if ($ac->{'itemnumber'} == $issue->{'itemnumber'}) {
+ $charges += $ac->{'amountoutstanding'} if $ac->{'accounttype'} eq
'FU';
+ $charges += $ac->{'amountoutstanding'} if $ac->{'accounttype'} eq
'L';
+ }
+ }
+ $issue->{'charges'} = $charges;
+
+ #get publictype for icon
+ my $publictype = $issue->{'publictype'};
+ $issue->{$publictype} = 1;
+
+ #check if item is renewable
+ my $status = renewstatus(undef,$borrowernumber, $issue->{'itemnumber'});
+ if ($status==2){
+$issue->{too_early} = 1;
+$issue->{'status'} = 0;
+ }elsif($status==3){
+$issue->{too_many} = 1;
+$issue->{'status'} = 0;
+ }elsif($status==4){
+$issue->{reserved} = 1;
+$issue->{'status'} = 0;
+}
+my $startdate=DATE_Add($date_due,- $allowRenewalsBefore);
+ my $flag = &DATE_diff($now, $startdate);
+ if ($flag < 0) {
+ # date1 is earlier
+ $issue->{too_early} = 1;
+ } else {
+ # date2 is earlier or the two dates are identical
+ $issue->{'status'} = 1 if($status==1);
+ }
+ #advice if the date_due is today
+ $issue->{'date_due_istoday'} =1 if (DATE_diff($now, $date_due) == 0);
+
+
+
+ $issue->{'allowrenewsfromopac'} = $category->{'allowrenewsfromopac'};
+ if ($issue->{'overdue'}) {
+
+ #calculates the days between today and date_due
+ my $sth = $dbh->prepare("SELECT TO_DAYS(CURRENT_DATE()) -
TO_DAYS(?)");
+ $sth->execute($date_due);
+ $issue->{'diff_days'} = $sth->fetchrow;
+ $sth->finish;
+##Fixme uses hardcoded values for NEU
+ if ($issue->{'diff_days'}<=3){
+ $issue->{'status'} = 1;
+ }
+ if ($issue->{'diff_days'}<=30){
+ $issue->{'penalty'}=$issue->{'diff_days'};
+ }else{
+ $issue->{'penalty'}=60;
+ }
+ $issue->{'overdue'} = 1;
+ push @overdues, $issue;
+ $overdues_count++;
+ } else {
+ $issue->{'issued'} = 1;
+ push @issuedat, $issue;
+ $count++;
+ }
+}
+
+
+$template->param(ISSUES => address@hidden);
+$template->param(issues_count => $count);
+
+$template->param(OVERDUES => address@hidden);
+$template->param(overdues_count => $overdues_count);
+
+my $branches = GetBranches();
+
+# now the reserved items....
+my ($rcount, $reserves) = FindReserves(undef, $borrowernumber);
+foreach my $res (@$reserves) {
+ $res->{'reservedate'} = format_date($res->{'reservedate'});
+ $res->{'reservefrom'} = format_date($res->{'reservefrom'});
+ $res->{'reserveto'} = format_date($res->{'reserveto'});
+ my $publictype = $res->{'publictype'};
+ $res->{$publictype} = 1;
+ $res->{'waiting'} = 1 if $res->{'found'} eq 'W';
+ $res->{'branch'} = $branches->{$res->{'branchcode'}}->{'branchname'};
+}
+
+$template->param(RESERVES => $reserves);
+$template->param(reserves_count => $rcount);
+
+my @waiting;
+my $wcount = 0;
+foreach my $res (@$reserves) {
+ if ($res->{'itemnumber'}) {
+ $res->{'branch'} = $branches->{$res->{'branchcode'}}->{'branchname'};
+
+ push @waiting, $res;
+ $wcount++ if $res->{'waiting'};
+ }
+}
+
+$template->param(WAITING => address@hidden);
+$template->param(waiting_count => $wcount);
+
+$template->param(suggestion => C4::Context->preference("suggestion"));
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
Index: opac/opac-userdetails.pl
===================================================================
RCS file: opac/opac-userdetails.pl
diff -N opac/opac-userdetails.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-userdetails.pl 26 Mar 2007 00:07:52 -0000 1.12.4.2
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+use C4::Auth;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Search;
+
+use C4::Interface::CGI::Output;
+use C4::Date;
+
+my $query = new CGI;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-userdetails.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+# get borrower information ....
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+
+$borr->{'dateenrolled'} = format_date($borr->{'dateenrolled'});
+$borr->{'expiry'} = format_date($borr->{'expiry'});
+$borr->{'dateofbirth'} = format_date($borr->{'dateofbirth'});
+$borr->{'ethnicity'} = fixEthnicity($borr->{'ethnicity'});
+
+
+$template->param($borr);
+$template->param(LibraryName => C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+ );
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
Index: opac/opac-userupdate.pl
===================================================================
RCS file: opac/opac-userupdate.pl
diff -N opac/opac-userupdate.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-userupdate.pl 26 Mar 2007 00:07:52 -0000 1.14.4.2
@@ -0,0 +1,139 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+use Mail::Sendmail;
+use MIME::QuotedPrint;
+use MIME::Base64;
+use Mail::RFC822::Address;
+use C4::Auth; # checkauth, getborrowernumber.
+use C4::Context;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Interface::CGI::Output;
+use C4::Members;
+use C4::Date;
+
+my $query = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-userupdate.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+# get borrower information ....
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+$borr->{$borr->{'title'}} = 1;
+$borr->{'dateenrolled'} = format_date($borr->{'dateenrolled'});
+$borr->{'expiry'} = format_date($borr->{'expiry'});
+$borr->{'dateofbirth'} = format_date($borr->{'dateofbirth'});
+$borr->{'ethnicity'} = fixEthnicity($borr->{'ethnicity'});
+my @bordat;
+$bordat[0] = $borr;
+
+
+
+my $op = $query->param('op');
+
+if ($op eq 'send_email') {
+
+ # handle the new information....
+ # collect the form values and send an email.
+ my @fields = ('title', 'surname', 'firstname', 'phone', 'phoneday',
'faxnumber', 'streetaddress', 'emailaddress', 'streetcity');
+ my $update;
+
+ my $to = C4::Context->preference('KohaAdminEmailAddress');
+ my $from = $borr->{'emailaddress'};
+
+ #error if the emailaddress to send the requirement is not set
+ if ($to eq '') {
+ show_error($query, "opac");
+
+ output_html_with_http_headers $query, $cookie,
$template->output;
+ exit;
+ }
+
+ #build and send email
+ #my $email_from = C4::Context->preference('KohaAdminEmailAddress');
+ my %mail;
+ $mail{'to'} = $to;
+ $mail{'from'} = $from;
+
+ my ($template2, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-userupdate-mail.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+ $template2->param(firstname => $borr->{'firstname'});
+ $template2->param(surnname => $borr->{'surname'});
+ $template2->param(cardnumber => $borr->{'cardnumber'});
+
+ foreach my $field (@fields) {
+ if ($query->param($field)) {
+ $template2->param( 'new_' . $field =>
$query->param($field));
+ }
+ }
+
+ # Getting template result
+ my $template_res = $template2->output();
+
+ # Analysing information and getting mail properties
+ if ($template_res =~ /§SUBJECT§\n(.*)\n§END_SUBJECT§/s) {
+ $mail{'subject'} = $1;
+ } else {
+ $mail{'subject'} = "Request to change borrower data";
+ }
+
+ my $email_header = "";
+ if ($template_res =~ /§HEADER§\n(.*)\n§END_HEADER§/s) {
+ $email_header = $1;
+ } else {
+ $email_header = "Hello, the borrower $borr->{'surname'},
$borr->{'firstname'} ($borr->{'cardnumber'}) \n has requested the change of
his/her personal data:";
+ }
+
+ if ($template_res =~ /§MESSAGE§\n(.*)\n§END_MESSAGE§/s) { $mail{'body'}
= $1; }
+
+ $mail{'content-type'} = "text/plain";
+ $mail{'charset'} = "utf8";
+ $mail{'Content-Transfer-Encoding'} = "quoted-printable";
+
+ $email_header = encode_qp($email_header);
+
+ # Writing mail
+ $mail{'body'} = "$email_header \n $mail{'body'}";
+
+ if (sendmail %mail) {
+ $template->param(message => 1);
+ $template->param(email_sended => 1);
+ } else {
+warn $Mail::Sendmail::error;
+ $template->param(message => 1);
+ $template->param(email_sended => 0);
+ }
+
+} elsif($op eq 'update_emailaddress') {
+
+ my $new_emailaddress = $query->param('emailaddress');
+ my $dbh = C4::Context->dbh;
+ my $sth=$dbh->prepare('UPDATE borrowers SET emailaddress = ? WHERE
borrowernumber = ?');
+ $sth->execute($new_emailaddress, $borrowernumber);
+ $sth->finish;
+
+ $template->param(message => 1);
+ $template->param(email_updated => 1);
+
+} else {
+
+ $template->param(BORROWER_INFO => address@hidden);
+
+}
+
+output_html_with_http_headers $query, $cookie, $template->output;
Index: opac/opac-view-channel.pl
===================================================================
RCS file: opac/opac-view-channel.pl
diff -N opac/opac-view-channel.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac-view-channel.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::Koha;
+use C4::NewsChannels;
+use XML::RSS;
+use LWP::Simple;
+
+my $content;
+my $cgi = new CGI;
+my $id = $cgi->param('id');
+my $channel = &get_new_channel($id);
+my $panel = $cgi->param('panel');
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "opac-view-channel.tmpl",
+ type => "opac",
+ query => $cgi,
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+my $rss = new XML::RSS;
+
+# argument is a URL
+if ($channel->{'url'} =~ /http:/i) {
+ $content = get($channel->{'url'});
+ # parse the RSS content
+ $rss->parse($content);
+}
+
+my (@image, @items, @text_input, @channel_info);
+push @image, $rss->{'image'};
+my $index = 1;
+foreach my $item (@{$rss->{'items'}}) {
+ $item->{'index'} = $index;
+ $index++;
+ push @items, $item;
+}
+#push @text_input, $rss->{'textinput'};
+push @channel_info, $rss->{'channel'};
+
+#my $temp = 'Inputs : ';
+#foreach my $row (keys %{$rss->{'textinput'}}) {
+# $temp.= " " . $row . " = '" . $rss->{'textinput'}->{$row}. "'";
+
+#}
+
+#$template->param(test => $temp );
+
+$template->param(image => address@hidden);
+$template->param(items => address@hidden);
+#$template->param(text_input => address@hidden);
+$template->param(channel_info => address@hidden);
+$template->param(PANEL => $panel);
+$template->param(opac_counter => access_counter('OPAC'));
+output_html_with_http_headers $cgi, $cookie, $template->output;
\ No newline at end of file
Index: opac/opac_help.pl
===================================================================
RCS file: opac/opac_help.pl
diff -N opac/opac_help.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/opac_help.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+
+
+my $input = new CGI;
+my $helppath=$input->param('help_template');
+my $path="help/".$helppath.".tmpl";
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $path,
+ type => "opac",
+ query => $input,
+ authnotrequired => 1,
+
+ });
+
+
+
+
+output_html_with_http_headers $input, "", $template->output;
Index: opac/union-search.pl
===================================================================
RCS file: opac/union-search.pl
diff -N opac/union-search.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/union-search.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,197 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Biblio;
+use C4::Context;
+use MARC::File::USMARC;
+use MARC::File::XML;
+use ZOOM;
+use Encode;;
+
+my $input = new CGI;
+my $dbh = C4::Context->dbh;
+my $error = $input->param('error');
+
+my $field = $input->param('field');
+my $field_value = $input->param('field_value');
+
+my $op=$input->param('op');
+my $noconnection;
+my $numberpending;
+my $attr='';
+my $term;
+my $host;
+my $server;
+my $database;
+my $port;
+my $marcdata;
+my $encoding=C4::Context->preference("marcflavour");
+my @results;
+my $count;
+
+my $record;
+my $oldbiblio;
+my $errmsg;
+my @serverloop=();
+my @serverhost;
+my @breeding_loop;
+my $even=0;
+
+my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name
=> "union-searchresult.tmpl",
+ query => $input,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {catalogue => 1},
+ debug => 1,
+ });
+
+if ($op ne "do_search"){
+
+my $sth=$dbh->prepare("select id,name from z3950servers where opacshow=1 order
by name");
+$sth->execute();
+
+while ($server=$sth->fetchrow_hashref) {
+my %temploop;
+$temploop{server}=$server->{name};
+$temploop{id}=$server->{id};
+$temploop{checked}=$server->{checked};
+$temploop{even}=$even;
+$even=!$even;
+push (@serverloop, \%temploop);
+}
+
+$template->param( serverloop => address@hidden, opsearch => "search",);
+
+}elsif($input->param('id')){
+
+my @id=$input->param('id');
+my @oConnection;
+my @oResult;
+my $s=0;
+
+
+
+my $query=$field." \"".$field_value."\"";
+
+ foreach my $servid ( @id){
+ my $sth=$dbh->prepare("select * from z3950servers where id=?");
+ $sth->execute($servid);
+
+ while ($server=$sth->fetchrow_hashref) {
+ my $noconnection=0;
+ #$numberpending=1;
+
+ my $option1=new ZOOM::Options();
+ $option1->option(async=>1);
+ $option1->option('elementSetName', 'F');
+ $option1->option('databaseName',$server->{db}) ;
+ $option1->option('user',$server->{userid}) ;
+ $option1->option('password',$server->{password}) ;
+ $option1->option('preferredRecordSyntax', $server->{syntax});
+ $oConnection[$s]=create ZOOM::Connection($option1);
+ $oConnection[$s]->connect($server->{host}, $server->{port});
+ $serverhost[$s]=$server->{name};
+ $s++;
+ }## while fetch
+
+ }# foreach
+my $nremaining = $s;
+my $firstresult=1;
+ for (my $z=0 ;$z<$s;$z++){
+$oResult[$z] = $oConnection[$z]->search_pqf($query);
+
+}
+AGAIN:
+ my $k;
+my $event;
+ while (($k = ZOOM::event(address@hidden)) != 0) {
+ $event = $oConnection[$k-1]->last_event();
+# warn ("connection ", $k-1, ": event $event (", ZOOM::event_str($event),
")\n");
+ last if $event == ZOOM::Event::ZEND;
+ }
+if ($k != 0) {
+ $k--;
+#warn $serverhost[$k];
+ my($error, $errmsg, $addinfo, $diagset) = $oConnection[$k]->error_x();
+ if ($error) {
+ warn "$k $serverhost[$k] error $query: $errmsg ($error) $addinfo\n";
+ goto MAYBE_AGAIN;
+ }
+
+ my $numresults=$oResult[$k]->size() ;
+
+
+ my $i;
+ my $result='';
+ if ($numresults>0){
+ for ($i=0; $i<(($numresults<5) ? ($numresults) : (5)) ; $i++) {
+ my $rec=$oResult[$k]->record($i);
+ my $marcrecord;
+ $marcdata = $rec->raw();
+ $marcrecord = MARC::File::USMARC::decode($marcdata);
+
+ my $marcxml=$marcrecord->as_xml_record($marcrecord);
+ $marcxml=Encode::encode('utf8',$marcxml);
+
+ my $xmlhash=XML_xml2hash_onerecord($marcxml);
+ my $oldbiblio = XMLmarc2koha_onerecord($dbh,$xmlhash,'biblios');
+
+
+ my %row_data;
+
+ $row_data{even} = $even;
+ $row_data{server} = $serverhost[$k];
+ $row_data{isbn} = $oldbiblio->{isbn};
+
+ $row_data{title} =$oldbiblio->{title};
+ $row_data{author} = $oldbiblio->{author};
+ if ($oldbiblio->{classification}){
+ $row_data{classification} = $oldbiblio->{classification};
+ }else{
+ #Some universities have class in 090
+
$row_data{classification}=XML_readline_onerecord($xmlhash,"","","090","a");
+ }
+ $even=!$even;
+ push (@breeding_loop, \%row_data);
+
+
+}# $numresults
+}#for up to 5 results
+}# if $k !=0
+
+
+$numberpending=$nremaining-1;
+
+MAYBE_AGAIN:
+if (--$nremaining > 0) {
+ goto AGAIN;
+}
+$template->param(
+ breeding_loop => address@hidden,
+ numberpending => $numberpending,
+
+ );
+
+} ## if op=search
+output_html_with_http_headers $input, $cookie, $template->output;
Index: opac/wap-changepass.pl
===================================================================
RCS file: opac/wap-changepass.pl
diff -N opac/wap-changepass.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/wap-changepass.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+
+
+use C4::Auth; # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::Koha;
+use C4::Members;
+use C4::Circulation::Circ2;
+use Digest::MD5 qw(md5_base64);
+
+my $cgi = new CGI;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "wap-changepass.tmpl",
+ type => "opac",
+ query => $cgi,
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ });
+
+my ($data, $flags) = getpatroninformation(undef, $borrowernumber);
+
+if ($cgi->param('op') eq "update") {
+ my $userid = $cgi->param('userid');
+ my $password=md5_base64( $cgi->param('newpassword1'));
+ if (change_user_pass($userid,$borrowernumber, $password)) {
+ $template->param(done => 1);
+ $template->param(new_userid => $userid);
+ } else {
+ $template->param(userid_in_use => 1);
+ $template->param(userid => $data->{'userid'});
+ }
+
+} else {
+
+ $template->param(userid => $data->{'userid'});
+
+}
+
+
+
+output_html_with_http_headers $cgi, $cookie, $template->output;
Index: opac/wap-detail.pl
===================================================================
RCS file: opac/wap-detail.pl
diff -N opac/wap-detail.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/wap-detail.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,118 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI;
+use C4::Search;
+use C4::Auth;
+use C4::Serials; #uses getsubscriptionfrom biblionumber
+use C4::Interface::CGI::Output;
+use C4::Biblio;
+use C4::BookShelves;
+use C4::Amazon;
+my $query=new CGI;
+my $dbh = C4::Context->dbh;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "wap-detail.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ flagsrequired => {borrow => 1},
+ });
+
+my $print_detail=$query->param('print_detail');
+my $biblionumber=$query->param('bib');
+$template->param(biblionumber => $biblionumber);
+$template->param(print_detail => $print_detail);
+
+my $record =XMLgetbibliohash($dbh,$biblionumber);
+my $coverphoto = getcoverPhoto($record);
+$template->param(Coverphoto => $coverphoto);
+
+my @itemrecords=XMLgetallitems($dbh,$biblionumber);
+
+my $dat =
XMLmarc2koha_onerecord($dbh,$record,"biblios");
+my @items;
+ my @results;
+
+my $norequests = 1;
+foreach my $itemrecord (@itemrecords){
+$itemrecord=XML_xml2hash_onerecord($itemrecord);
+my $items= XMLmarc2koha_onerecord($dbh,$itemrecord,"holdings");
+$items=ItemInfo($dbh,$items);
+$items->{itemtype}=$dat->{itemtype};
+ $norequests = 0 unless $items->{'notforloan'};
+ $items->{$items->{'publictype'}} = 1; ## NOT sure what this is kept from
old db probably useless now
+push @items,$items;
+}
+$dat->{'count'address@hidden;
+my $subscriptionsnumber = GetSubscriptionsFromBiblionumber($biblionumber);
+$template->param(norequests => $norequests);
+
+ ## get notes and subjects from MARC record
+my $marc = C4::Context->preference("marc");
+if ($marc =1) {
+ my $marcflavour = C4::Context->preference("marcflavour");
+ my $marcnotesarray = &getMARCnotes($dbh, $record,$marcflavour);
+ my $marcauthorsarray = &getMARCadditional_authors($dbh,
$record,$marcflavour);
+ my $marcsubjctsarray = &getMARCsubjects($dbh, $record,$marcflavour);
+ my $marcurlsarray = &getMARCurls($dbh, $record,$marcflavour);
+ $template->param(MARCNOTES => $marcnotesarray);
+ $template->param(MARCURLS => $marcurlsarray);
+ $template->param(MARCSUBJCTS => $marcsubjctsarray);
+ $template->param(MARCAUTHORS => $marcauthorsarray);
+}
+
+my @results = ($dat,);
+
+my address@hidden;
+my address@hidden;
+
+
+
+
+$template->param(BIBLIO_RESULTS => $resultsarray,
+ total=>$dat->{'count'},
+ ITEM_RESULTS => $itemsarray,
+
+ subscriptionsnumber => $subscriptionsnumber,
+ LibraryName =>
C4::Context->preference("LibraryName"),
+ suggestion =>
C4::Context->preference("suggestion"),
+ virtualshelves =>
C4::Context->preference("virtualshelves"),
+);
+ ## Amazon.com stuff
+my $amazon => C4::Context->preference("Amazon");
+if ($amazon){
+my $isbn=$dat->{'isbn'};
+$isbn=~ s/(\.|\?|\;|\=|\/|\\|\||\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\}|\/)//g;
+my $amazon_details = &get_amazon_details($isbn);
+foreach my $result (@{$amazon_details->{Details}}){
+ $template->param(item_description => $result->{ProductDescription});
+ $template->param(image => $result->{ImageUrlMedium});
+
+ $template->param(list_price => $result->{ListPrice});
+ $template->param(amazon_url => $result->{url});
+ }
+
+
+my @products;
+my @reviews;
+for my $details( @{ $amazon_details->{ Details } } ) {
+ next unless $details->{ SimilarProducts };
+ for my $product ( @{ $details->{ SimilarProducts }->{ Product } } ) {
+ push @products, +{ Product => $product };
+ }
+ next unless $details->{ Reviews };
+ for my $product ( @{ $details->{ Reviews }->{ AvgCustomerRating } } ) {
+ $template->param(rating => $product);
+ }
+ for my $reviews ( @{ $details->{ Reviews }->{ CustomerReview } } ) {
+ push @reviews, +{ Summary => $reviews->{ Summary }, Comment =>
$reviews->{ Comment }, };
+ }
+}
+$template->param( SIMILAR_PRODUCTS => address@hidden );
+$template->param( REVIEWS => address@hidden );
+ ## End of Amazon Stuff
+}
+output_html_with_http_headers $query, $cookie, $template->output;
+
+
Index: opac/wap-search.pl
===================================================================
RCS file: opac/wap-search.pl
diff -N opac/wap-search.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ opac/wap-search.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,208 @@
+#!/usr/bin/perl
+use strict;
+use CGI;
+
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Acquisition;
+use C4::Biblio;
+use C4::Koha;
+use C4::BookShelves;
+use POSIX qw(ceil floor);
+use Encode;
+my $query = new CGI;
+my $dbh = C4::Context->dbh;
+my $op = $query->param('op'); #show the search form or execute the
search
+my @value=$query->param('field_value');
+my @kohafield=$query->param('kohafield');
+my @and_or=$query->param('and_or');
+my @relation=$query->param('relation');
+my $order=$query->param('order');
+my $asc=$query->param('asc');
+my $reorder=$query->param('reorder');
+my ($template, $borrowernumber, $cookie);
+# get all the common search variables,
+my @fields = ('kohafield','field_value','and_or','relation');
+
+# collect all the fields ...
+my %search;
+my @forminputs; #this is for the links to navigate among the
results when they are more than the maximum number of results per page
+my (@searchdesc, %hashdesc,$facetsdesc,%searchparams); #this is to
show the description of the current search
+my %hash; ## This helps to come back to same search
+
+foreach my $field (@fields) {
+ my @searchfield = $query->param($field);
+my $i=1;
+ foreach my $fieldvalue (@searchfield) {
+ push @forminputs, { field=>$field ,value=>$fieldvalue} unless
($field eq 'reorder');
+ $searchparams{$field.$i} =$fieldvalue;
+ $searchparams{$fieldvalue.$i} =$fieldvalue;
+ $facetsdesc.="&".$field."=".$fieldvalue;
+ $i++;
+ }
+}
+my @searchparams;
+push @searchparams,\%searchparams;
+ for (my $i=0;$i<@value;$i++){
+$hashdesc{$kohafield[$i]}.=$value[$i].", " if $value[$i];
+}
+
+
+push @searchdesc,\%hashdesc;
+
+#
+
+
+
+############################################################################
+
+#this fields is just to allow the user come back to the search form with all
the values who previously entered
+
+#Check the param to know if there is to do the search or to show the search
form.
+if ($op eq "do_search") {
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"wap-searchresults.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ $search{'from'} = 'opac';
+ $search{'borrowernumber'} = $borrowernumber;
+ $search{'remote_IP'} = $query->remote_addr();
+ $search{'remote_URL'} = $query->url(-query=>1);
+ $search{searchdesc}=join " ",@value;
+ $template->param(FORMINPUTS => address@hidden);
+
+ $template->param(facetsdesc=>$facetsdesc);
+ # do the searchs ....
+ my $number_of_results = 5; # WAPsearches are limited to 5 results pe
rpage
+ my $startfrom = $query->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+my ($count,@results,$facets);
+my $sortorder= $order.$asc if $order;
+ ($count,$facets,@results)
=ZEBRAsearch_kohafields(address@hidden,address@hidden,
address@hidden,$sortorder, address@hidden, 1,$reorder,$startfrom,
$number_of_results,"opac");
+if ($count){
+add_query_line("",\%search,$count);
+}
+
+#suggestion man
+my $displaysuggestion=C4::Context->preference("displaysuggestion");
+if ($displaysuggestion && !$count ){
+my @suggestion=spellSuggest(address@hidden,address@hidden);
+ $template->param(SUGGESTION =>address@hidden);
+}
+
+
+ my $num = scalar(@results) - 1;
+
+ # sorting out which results to display.
+ # the result number to star to show
+ $template->param(starting => $startfrom+1);
+ $template->param(ending => $startfrom+$number_of_results);
+ # the result number to end to show
+ ($startfrom+$num<=$count) ? ($template->param(endat =>
$startfrom+$num)) : ($template->param(endat => $count));
+ # the total results searched
+ $template->param(numrecords => $count);
+
+ $template->param(searchdesc => address@hidden );
+ $template->param(SEARCH_RESULTS => address@hidden,
+ opacfacets => C4::Context->preference('useFacets'),
+ facets_loop => $facets,);
+
+ #this is to show the images numbers to navigate among the results, if
it has to show the number highlighted or not
+ my $numbers;
+ @$numbers = ();
+ my $pg = 1;
+ if (defined($query->param('pg'))) {
+ $pg = $query->param('pg');
+ }
+ my $start = 0;
+
+ $start = ($pg - 1) * $number_of_results;
+ my $pages = ceil($count / $number_of_results);
+ my $total_pages = ceil($count / $number_of_results);
+
+ if ($pg > 1) {
+ my $url = $pg - 1;
+ push @$numbers, { number => "F",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ }
+ my $current_ten = $pg / 5;
+ if ($current_ten == 0) {
+ $current_ten = 0.1; # In case it´s in ten = 0
+ }
+ my $from = $current_ten * 5; # Calculate the initial page
+ my $end_ten = $from + 4;
+ my $to;
+ if ($pages > $end_ten) {
+ $to = $end_ten;
+ } else {
+ $to = $pages;
+ }
+ for (my $i =$from; $i <= $to ; $i++) {
+ if ($i == $pg) {
+ if ($count > $number_of_results) {
+ push @$numbers, { number => $i,
+ highlight =>
1 , FORMINPUTS=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => "L",
+ highlight => 0 ,
FORMINPUTS=>address@hidden,
+ startfrom =>
($total_pages-1)*$number_of_results,
+ pg => $total_pages};
+ }
+
+ $template->param(numbers => $numbers);
+
+
+
+ ###############################
+
+
+#there isn't a search, so show the advanced search form
+} else {
+
+ ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "wap-search.tmpl",
+ query => $query,
+ type => "opac",
+ authnotrequired => 1,
+ });
+
+ #show the item types
+ my ($itemtypecount,@itemtypes)= C4::Biblio::getitemtypes();
+ $template->param(itemtype_loop => address@hidden);
+
+ #show the branches
+ my (@branches)= GetBranches();
+
+ $template->param(branches => address@hidden);
+ $template->param(SEARCHPARAMS => address@hidden);
+}
+
+show:
+
+output_html_with_http_headers $query, $cookie, $template->output;
Index: reports/accounts.pl
===================================================================
RCS file: reports/accounts.pl
diff -N reports/accounts.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/accounts.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,95 @@
+#!/usr/bin/perl
+
+# Script to query the accounts between two dates
+# written 09/06 TG
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+
+use C4::Search;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use POSIX qw(strftime);
+
+my $cgi = new CGI;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"reports/accounts.tmpl",
+ query
=> $cgi,
+ type =>
"intranet",
+
authnotrequired => 0,
+ flagsrequired => {circulate => 1},
+ });
+
+my $do_it = $cgi->param('do_it');
+
+if ($do_it) {
+ my $output = $cgi->param('output');
+ my $basename = $cgi->param("basename");
+ my $mime = $cgi->param("MIME");
+ my $delimiter = $cgi->param("sep");
+
+my $date=$cgi->param("from");
+my $date2=$cgi->param("to");
+
+ #shows the requested output
+ if ($output eq "screen") {
+
+ print
$cgi->redirect("/cgi-bin/koha/reports/stats.screen.pl?from=$date&to=$date2");
+ } else {
+ print
$cgi->redirect("/cgi-bin/koha/reports/stats.csv.pl?&datefrom=$date&basename=$basename&dateto=$date2&MIME=$mime&sep=$delimiter");
+
+
+ }
+
+} else {
+
+ #Gets the current date.
+ #my @nowarr = localtime(time);
+ #my $now = (1900+$nowarr[5])."-".($nowarr[4]+1)."-".$nowarr[3];
+ my $now = strftime "%Y-%m-%d", localtime;
+ $template->param(from => $now);
+ $template->param(to => $now);
+
+
+
+ my @mime = ( C4::Context->preference("MIME") );
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param( CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+
+ output_html_with_http_headers $cgi, $cookie, $template->output;
+}
+
+
Index: reports/acquisitions_stats.pl
===================================================================
RCS file: reports/acquisitions_stats.pl
diff -N reports/acquisitions_stats.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/acquisitions_stats.pl 26 Mar 2007 00:07:52 -0000 1.12.2.2
@@ -0,0 +1,501 @@
+#!/usr/bin/perl
+
+# $Id: acquisitions_stats.pl,v 1.12.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/acquisitions_stats.tmpl";
+my $line = $input->param("Line");
+my $column = $input->param("Column");
+my @filters = $input->param("Filter");
+my $podsp = $input->param("PlacedOnDisplay");
+my $rodsp = $input->param("ReceivedOnDisplay");
+my $calc = $input->param("Cellvalue");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+ my $results = calculate($line, $column, $podsp, $rodsp, $calc,
address@hidden);
+ if ($output eq "screen"){
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+
-attachment=>"$basename.csv",
+ -name=>"$basename.csv"
);
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+ $req = $dbh->prepare("select distinctrow id,name from aqbooksellers
order by name");
+ $req->execute;
+ my @select;
+ push @select,"";
+# $select{""}="";
+ while (my ($value, $desc) =$req->fetchrow) {
+ push @select, $desc;
+# $select{$value}=$desc;
+ }
+ my $CGIBookSellers=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+# -labels => \%select,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare( "select distinctrow bookfundid,bookfundname from
aqbookfund order by bookfundname");
+ $req->execute;
+ undef @select;
+ undef %select;
+ push @select,"";
+ $select{""}="";
+ while (my ($value,$desc) =$req->fetchrow) {
+ push @select, $value;
+ $select{$value}=$desc;
+ }
+ my $CGIBudget=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare("select distinctrow sort1 from aqorders where
sort1 is not null order by sort1");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my $hassort1;
+ while (my ($value) =$req->fetchrow) {
+ $hassort1 =1 if ($value);
+ push @select, $value;
+ }
+ my $CGISort1=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare("select distinctrow sort2 from aqorders where
sort2 is not null order by sort2");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my $hassort2;
+ my $hglghtsort2;
+ while (my ($value) =$req->fetchrow) {
+ $hassort2 =1 if ($value);
+ $hglghtsort2= !($hassort1);
+ push @select, $value;
+ }
+ my $CGISort2=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @mime = ( C4::Context->preference("MIME") );
+ foreach my $mime (@mime){
+# warn "".$mime;
+ }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIBookSeller => $CGIBookSellers,
+ CGIBudget => $CGIBudget,
+ hassort1=> $hassort1,
+ hassort2=> $hassort2,
+ HlghtSort2 => $hglghtsort2,
+ CGISort1 => $CGISort1,
+ CGISort2 => $CGISort2,
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+
+}
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
+sub calculate {
+ my ($line, $column, $podsp, $rodsp, ,$process, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=7;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if ((($i==1) or ($i==3)) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Placed On From" if ($i==0);
+ $cell{crit} .="Placed On To" if ($i==1);
+ $cell{crit} .="Received On From" if ($i==2);
+ $cell{crit} .="Received On To" if ($i==3);
+ $cell{crit} .="BookSeller" if ($i==4);
+ $cell{crit} .="Budget" if ($i==5);
+ $cell{crit} .="Sort1" if ($i==6);
+ $cell{crit} .="Sort2" if ($i==7);
+ push @loopfilter, \%cell;
+ }
+ }
+
+ my @linefilter;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+
+ $linefilter[0] = @$filters[0] if ($line =~ /closedate/ ) ;
+ $linefilter[1] = @$filters[1] if ($line =~ /closedate/ ) ;
+ $linefilter[0] = @$filters[2] if ($line =~ /received/ ) ;
+ $linefilter[1] = @$filters[3] if ($line =~ /received/ ) ;
+ $linefilter[0] = @$filters[4] if ($line =~ /bookseller/ ) ;
+ $linefilter[0] = @$filters[5] if ($line =~ /bookfund/ ) ;
+ $linefilter[0] = @$filters[6] if ($line =~ /sort1/ ) ;
+ $linefilter[0] = @$filters[7] if ($line =~ /sort2/ ) ;
+#warn "filtre lignes".$linefilter[0]." ".$linefilter[1];
+#
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /closedate/ ) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /closedate/ ) ;
+ $colfilter[0] = @$filters[2] if ($column =~ /received/ ) ;
+ $colfilter[1] = @$filters[3] if ($column =~ /received/ ) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /bookseller/ );
+ $colfilter[0] = @$filters[5] if ($column =~ /bookfund/ ) ;
+ $colfilter[0] = @$filters[6] if ($column =~ /sort1/ ) ;
+ $colfilter[0] = @$filters[7] if ($column =~ /sort2/ ) ;
+#warn "filtre col ".$colfilter[0]." ".$colfilter[1];
+
+# 1st, loop rows.
+ my $linefield;
+ if (($line =~/closedate/) and ($podsp == 1)) {
+ #Display by day
+ $linefield .="dayname($line)";
+ } elsif (($line=~/closedate/) and ($podsp == 2)) {
+ #Display by Month
+ $linefield .="monthname($line)";
+ } elsif (($line=~/closedate/) and ($podsp == 3)) {
+ #Display by Year
+ $linefield .="Year($line)";
+ } elsif (($line =~/received/) and ($rodsp == 1)) {
+ #Display by day
+ $linefield .="dayname($line)";
+ } elsif (($line=~/received/) and ($rodsp == 2)) {
+ #Display by Month
+ $linefield .="monthname($line)";
+ } elsif (($line=~/received/) and ($rodsp == 3)) {
+ #Display by Year
+ $linefield .="Year($line)";
+ } else {
+ $linefield .= $line;
+ }
+
+ my $strsth;
+ $strsth .= "select distinctrow $linefield from aqorders,
aqbasket,aqorderbreakdown left join aqorderdelivery on (aqorders.ordernumber
=aqorderdelivery.ordernumber ) left join aqbooksellers on
(aqbasket.booksellerid=aqbooksellers.id) where
(aqorders.basketno=aqbasket.basketno) and
(aqorderbreakdown.ordernumber=aqorders.ordernumber) and $line is not null ";
+
+ if ( @linefilter ) {
+ if ($linefilter[1]){
+ if ($linefilter[0]){
+ $strsth .= " and $line between ? and ? " ;
+ } else {
+ $strsth .= " and $line < ? " ;
+ }
+ } elsif (($linefilter[0]) and (($line=~/closedate/) or
($line=~/received/))){
+ $strsth .= " and $line > ? " ;
+ } elsif ($linefilter[0]) {
+ $linefilter[0] =~ s/\*/%/g;
+ $strsth .= " and $line LIKE ? " ;
+ }
+ }
+ $strsth .=" group by $linefield";
+ $strsth .=" order by $linefield";
+ warn "". $strsth;
+
+ my $sth = $dbh->prepare( $strsth );
+ if (( @linefilter ) and ($linefilter[1])){
+ $sth->execute("'".$linefilter[0]."'","'".$linefilter[1]."'");
+ } elsif ($linefilter[0]) {
+ $sth->execute($linefilter[0]);
+ } else {
+ $sth->execute;
+ }
+
+ while ( my ($celvalue) = $sth->fetchrow) {
+ my %cell;
+ if ($celvalue) {
+ $cell{rowtitle} = $celvalue;
+# } else {
+# $cell{rowtitle} = "";
+ }
+ $cell{totalrow} = 0;
+ push @loopline, \%cell;
+ }
+
+# 2nd, loop cols.
+ my $colfield;
+ if (($column =~/closedate/) and ($podsp == 1)) {
+ #Display by day
+ $colfield .="dayname($column)";
+ } elsif (($column=~/closedate/) and ($podsp == 2)) {
+ #Display by Month
+ $colfield .="monthname($column)";
+ } elsif (($column=~/closedate/) and ($podsp == 3)) {
+ #Display by Year
+ $colfield .="Year($column)";
+ } elsif (($column =~/received/) and ($rodsp == 1)) {
+ #Display by day
+ $colfield .="dayname($column)";
+ } elsif (($column=~/received/) and ($rodsp == 2)) {
+ #Display by Month
+ $colfield .="monthname($column)";
+ } elsif (($column=~/received/) and ($rodsp == 3)) {
+ #Display by Year
+ $colfield .="Year($column)";
+ } else {
+ $colfield .= $column;
+ }
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield from aqorders,
aqbasket,aqorderbreakdown left join aqorderdelivery on (aqorders.ordernumber
=aqorderdelivery.ordernumber ) left join aqbooksellers on
(aqbasket.booksellerid=aqbooksellers.id) where
(aqorders.basketno=aqbasket.basketno) and
(aqorderbreakdown.ordernumber=aqorders.ordernumber) and $column is not null ";
+
+ if ( @colfilter ) {
+ if ($colfilter[1]){
+ if ($colfilter[0]){
+ $strsth2 .= " and $column between ? and ? " ;
+ } else {
+ $strsth2 .= " and $column < ? " ;
+ }
+ } elsif (($colfilter[0]) and (($column=~/closedate/) or
($column=~/received/))){
+ $strsth2 .= " and $column > ? " ;
+ } elsif ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE ? " ;
+ }
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colfield";
+# warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if (( @colfilter ) and ($colfilter[1])){
+ warn "from : ".$colfilter[0]." To :".$colfilter[1];
+ $sth2->execute("'".$colfilter[0]."'","'".$colfilter[1]."'");
+ } elsif ($colfilter[0]) {
+ $sth2->execute($colfilter[0]);
+ } else {
+ $sth2->execute;
+ }
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ if ($celvalue){
+# warn "coltitle :".$celvalue;
+ $cell{coltitle} = $celvalue;
+ }
+ push @loopcol, \%cell;
+ }
+# warn "fin des titres colonnes";
+
+ my $i=0;
+ my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my %table;
+# warn "init table";
+ foreach my $row ( @loopline ) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+ $table{$row->{rowtitle}}->{$col->{coltitle}}=0;
+ }
+ $table{$row->{rowtitle}}->{totalrow}=0;
+ }
+
+# preparing calculation
+ my $strcalc ;
+ $strcalc .= "SELECT $linefield, $colfield, ";
+ $strcalc .= "COUNT( aqorders.ordernumber ) " if ($process ==1);
+ $strcalc .= "SUM( aqorders.quantity * aqorders.listprice ) " if
($process ==2);
+ $strcalc .= "FROM aqorders, aqbasket,aqorderbreakdown left join
aqorderdelivery on (aqorders.ordernumber =aqorderdelivery.ordernumber ) left
join aqbooksellers on (aqbasket.booksellerid=aqbooksellers.id) where
(aqorders.basketno=aqbasket.basketno) and
(aqorderbreakdown.ordernumber=aqorders.ordernumber) ";
+
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND aqbasket.closedate > '" . @$filters[0] ."'" if (
@$filters[0] );
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND aqbasket.closedate < '" . @$filters[1] ."'" if (
@$filters[1] );
+ @$filters[2]=~ s/\*/%/g if (@$filters[2]);
+ $strcalc .= " AND aqorderdelivery.deliverydate > '" . @$filters[2] ."'"
if ( @$filters[2] );
+ @$filters[3]=~ s/\*/%/g if (@$filters[3]);
+ $strcalc .= " AND aqorderdelivery.deliverydate < '" . @$filters[3] ."'"
if ( @$filters[3] );
+ @$filters[4]=~ s/\*/%/g if (@$filters[4]);
+ $strcalc .= " AND aqbooksellers.name like '" . @$filters[4] ."'" if (
@$filters[4] );
+ @$filters[5]=~ s/\*/%/g if (@$filters[5]);
+ $strcalc .= " AND aqbookfund.bookfundid like '" . @$filters[5] ."'" if
( @$filters[5] );
+ @$filters[6]=~ s/\*/%/g if (@$filters[6]);
+ $strcalc .= " AND aqorders.sort1 like '" . @$filters[6] ."'" if (
@$filters[6] );
+ @$filters[7]=~ s/\*/%/g if (@$filters[7]);
+ $strcalc .= " AND aqorders.sort2 like '" . @$filters[7] ."'" if (
@$filters[7] );
+ $strcalc .= " group by $linefield, $colfield order by
$linefield,$colfield";
+# warn "". $strcalc;
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+
+# warn "filling table";
+ my $emptycol;
+ while (my ($row, $col, $value) = $dbcalc->fetchrow) {
+# warn "filling table $row / $col / $value ";
+ $emptycol = 1 if ($col eq undef);
+ $col = "zzEMPTY" if ($col eq undef);
+ $row = "zzEMPTY" if ($row eq undef);
+
+ $table{$row}->{$col}+=$value;
+ $table{$row}->{totalrow}+=$value;
+ $grantotal += $value;
+ }
+
+ push @loopcol,{coltitle => "NULL"} if ($emptycol);
+
+ foreach my $row ( sort keys %table ) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ foreach my $col ( @loopcol ) {
+ my $value =$table{$row}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+ push @loopcell, {value => $value } ;
+ }
+ push @looprow,{ 'rowtitle' => ($row eq "zzEMPTY")?"NULL":$row,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ 'totalrow' =>
$table{$row}->{totalrow}
+ };
+ $hilighted = -$hilighted;
+ }
+
+# warn "footer processing";
+ foreach my $col ( @loopcol ) {
+ my $total=0;
+ foreach my $row ( @looprow ) {
+ $total += $table{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+# warn "value added
".$table{$row->{rowtitle}}->{$col->{coltitle}}. "for line ".$row->{rowtitle};
+ }
+# warn "summ for column ".$col->{coltitle}." = ".$total;
+ push @loopfooter, {'totalcol' => $total};
+ }
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/bor_issues_top.pl
===================================================================
RCS file: reports/bor_issues_top.pl
diff -N reports/bor_issues_top.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/bor_issues_top.pl 26 Mar 2007 00:07:52 -0000 1.9.2.2
@@ -0,0 +1,371 @@
+#!/usr/bin/perl
+
+# $Id: bor_issues_top.pl,v 1.9.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/bor_issues_top.tmpl";
+my $limit = $input->param("Limit");
+my $column = $input->param("Criteria");
+my @filters = $input->param("Filter");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+# Displaying results
+ my $results = calculate($limit, $column, address@hidden);
+ if ($output eq "screen"){
+# Printing results to screen
+ $template->param(mainloop => $results, limit=>$limit);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+# Printing to a csv file
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -attachment=>"$basename.csv",
+ -filename=>"$basename.csv" );
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+# header top-right
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+# Other header
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+# Table
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+# footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+# Displaying choices
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+
+ my @mime = ( C4::Context->preference("MIME") );
+# foreach my $mime (@mime){
+# warn "".$mime;
+# }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+}
+
+
+
+
+sub calculate {
+ my ($line, $column, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=6;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if (($i==1) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Issue From" if ($i==0);
+ $cell{crit} .="Issue To" if ($i==1);
+ $cell{crit} .="Return From" if ($i==2);
+ $cell{crit} .="Return To" if ($i==3);
+ $cell{crit} .="Branch" if ($i==4);
+ $cell{crit} .="Doc Type" if ($i==5);
+ $cell{crit} .="Bor Cat" if ($i==6);
+ $cell{crit} .="Day" if ($i==7);
+ $cell{crit} .="Month" if ($i==8);
+ $cell{crit} .="Year" if ($i==9);
+ push @loopfilter, \%cell;
+ }
+ }
+ my $colfield;
+ my $colorder;
+ if ($column){
+ $column = "issues.".$column if (($column=~/branchcode/) or
($column=~/timestamp/));
+ $column = "biblioitems.".$column if $column=~/itemtype/;
+ $column = "borrowers.".$column if $column=~/categorycode/;
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /timestamp/ ) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[2] if ($column =~ /returndate/ ) ;
+ $colfilter[1] = @$filters[3] if ($column =~ /returndate/ ) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /branch/ ) ;
+ $colfilter[0] = @$filters[5] if ($column =~ /itemtype/ ) ;
+ $colfilter[0] = @$filters[6] if ($column =~ /category/ ) ;
+ # $colfilter[0] = @$filters[11] if ($column =~ /sort2/ ) ;
+ $colfilter[0] = @$filters[7] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[8] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[9] if ($column =~ /timestamp/ ) ;
+ #warn "filtre col ".$colfilter[0]." ".$colfilter[1];
+
+ # loop cols.
+ if ($column eq "Day") {
+ #Display by day
+ $column = "issues.timestamp";
+ $colfield .="dayname($column)";
+ $colorder .="weekday($column)";
+ } elsif ($column eq "Month") {
+ #Display by Month
+ $column = "issues.timestamp";
+ $colfield .="monthname($column)";
+ $colorder .="month($column)";
+ } elsif ($column eq "Year") {
+ #Display by Year
+ $column = "issues.timestamp";
+ $colfield .="Year($column)";
+ $colorder .= $column;
+ } else {
+ $colfield .= $column;
+ $colorder .= $column;
+ }
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield FROM
`issues`,borrowers,biblioitems LEFT JOIN items ON
(biblioitems.biblioitemnumber=items.biblioitemnumber) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+ if (($column=~/timestamp/) or ($column=~/returndate/)){
+ if ($colfilter[1] and ($colfilter[0])){
+ $strsth2 .= " and $column between
'$colfilter[0]' and '$colfilter[1]' " ;
+ } elsif ($colfilter[1]) {
+ $strsth2 .= " and $column <
'$colfilter[1]' " ;
+ } elsif ($colfilter[0]) {
+ $strsth2 .= " and $column > '$colfilter[0]' " ;
+ }
+ } elsif ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE '$colfilter[0]' " ;
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colorder";
+ warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ $sth2->execute;
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ $cell{coltitle} = $celvalue;
+ push @loopcol, \%cell;
+ }
+ # warn "fin des titres colonnes";
+ }
+
+ my $i=0;
+# my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my @table;
+
+# warn "init table";
+ for (my $i=1;$i<=$line;$i++) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+
$table[$i]->{($col->{coltitle})?$col->{coltitle}:"total"}->{'name'}=0;
+ }
+ }
+
+
+# preparing calculation
+ my $strcalc ;
+
+# Processing average loanperiods
+ $strcalc .= "SELECT CONCAT(borrowers.surname ,
\"\\t\",borrowers.firstname), COUNT(*) AS RANK, borrowers.borrowernumber AS
ID";
+ $strcalc .= " , $colfield " if ($colfield);
+ $strcalc .= " FROM `issues`,borrowers,biblioitems LEFT JOIN items ON
(biblioitems.biblioitemnumber=items.biblioitemnumber) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND issues.timestamp > '" . @$filters[0] ."'" if (
@$filters[0] );
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND issues.timestamp < '" . @$filters[1] ."'" if (
@$filters[1] );
+ @$filters[2]=~ s/\*/%/g if (@$filters[2]);
+ $strcalc .= " AND issues.returndate > '" . @$filters[2] ."'" if (
@$filters[2] );
+ @$filters[3]=~ s/\*/%/g if (@$filters[3]);
+ $strcalc .= " AND issues.returndate < '" . @$filters[3] ."'" if (
@$filters[3] );
+ @$filters[4]=~ s/\*/%/g if (@$filters[4]);
+ $strcalc .= " AND issues.branchcode like '" . @$filters[4] ."'" if (
@$filters[4] );
+ @$filters[5]=~ s/\*/%/g if (@$filters[5]);
+ $strcalc .= " AND biblioitems.itemtype like '" . @$filters[5] ."'" if (
@$filters[5] );
+ @$filters[6]=~ s/\*/%/g if (@$filters[6]);
+ $strcalc .= " AND borrowers.categorycode like '" . @$filters[6] ."'" if
( @$filters[6] );
+ @$filters[7]=~ s/\*/%/g if (@$filters[7]);
+ $strcalc .= " AND dayname(issues.timestamp) like '" . @$filters[7]."'"
if (@$filters[7]);
+ @$filters[8]=~ s/\*/%/g if (@$filters[8]);
+ $strcalc .= " AND monthname(issues.timestamp) like '" .
@$filters[8]."'" if (@$filters[8]);
+ @$filters[9]=~ s/\*/%/g if (@$filters[9]);
+ $strcalc .= " AND year(issues.timestamp) like '" . @$filters[9] ."'" if
( @$filters[9] );
+
+ $strcalc .= " group by borrowers.borrowernumber";
+ $strcalc .= ", $colfield" if ($column);
+ $strcalc .= " order by ";
+ $strcalc .= "$colfield, " if ($colfield);
+ $strcalc .= "RANK DESC ";
+ my $max;
+ if (@loopcol) {
+ $max = address@hidden;
+ } else { $max=$line;}
+ $strcalc .= " LIMIT 0,$max";
+ warn "SQL :". $strcalc;
+
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+ my $previous_col;
+ my $i=1;
+ while (my @data = $dbcalc->fetchrow) {
+ my ($row, $rank, $id, $col )address@hidden;
+ $col = "zzEMPTY" if ($col eq undef);
+ $i=1 if (($previous_col) and not($col eq $previous_col));
+ $table[$i]->{$col}->{'name'}=$row;
+ $table[$i]->{$col}->{'count'}=$rank;
+ $table[$i]->{$col}->{'link'}=$id;
+ warn " ".$i." ".$col. " ".$row;
+ $i++;
+ $previous_col=$col;
+ }
+
+ push @loopcol,{coltitle => "Global"} if not($column);
+
+ for ($i=1; $i<=$line;$i++) {
+ my @loopcell;
+ warn " $i";
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ my $colcount=0;
+ foreach my $col ( @loopcol ) {
+# warn " colonne :$col->{coltitle}";
+ my $value;
+ my $count=0;
+ my $link;
+ if (@loopcol){
+ $value =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq
"Global"))?"zzEMPTY":$col->{coltitle}}->{'name'};
+ $count =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq
"Global"))?"zzEMPTY":$col->{coltitle}}->{'count'};
+ $link =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq
"Global"))?"zzEMPTY":$col->{coltitle}}->{'link'};
+ } else {
+ $value =$table[$i]->{"zzEMPTY"}->{'name'};
+ $count =$table[$i]->{"zzEMPTY"}->{'count'};
+ $link =$table[$i]->{"zzEMPTY"}->{'link'};
+ }
+# warn " ".$i ." value:$value count:$count
reference:$link";
+ push @loopcell, {value => $value, count =>$count,
reference => $link} ;
+ }
+ push @looprow,{ 'rowtitle' => $i ,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ };
+ $hilighted = -$hilighted;
+ }
+#
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/borrowers_out.pl
===================================================================
RCS file: reports/borrowers_out.pl
diff -N reports/borrowers_out.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/borrowers_out.pl 26 Mar 2007 00:07:52 -0000 1.7.2.2
@@ -0,0 +1,301 @@
+#!/usr/bin/perl
+
+# $Id: borrowers_out.pl,v 1.7.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use Date::Manip;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/borrowers_out.tmpl";
+my $limit = $input->param("Limit");
+my $column = $input->param("Criteria");
+my @filters = $input->param("Filter");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+# Displaying results
+ my $results = calculate($limit, $column, address@hidden);
+ if ($output eq "screen"){
+# Printing results to screen
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+# Printing to a csv file
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -attachment=>"$basename.csv",
+ -filename=>"$basename.csv" );
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+# header top-right
+ print "num /". @$results[0]->{column} .$sep;
+# Other header
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+# Table
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+# footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+# Displaying choices
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+
+ my @mime = ( C4::Context->preference("MIME") );
+# foreach my $mime (@mime){
+# warn "".$mime;
+# }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+}
+
+
+
+
+sub calculate {
+ my ($line, $column, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=6;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if (($i==1) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Bor Cat" if ($i==0);
+ push @loopfilter, \%cell;
+ }
+ }
+ my $colfield;
+ my $colorder;
+ if ($column){
+ $column = "borrowers.".$column if $column=~/categorycode/;
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /category/ ) ;
+ # $colfilter[0] = @$filters[11] if ($column =~ /sort2/ ) ;
+ #warn "filtre col ".$colfilter[0]." ".$colfilter[1];
+
+ # loop cols.
+ $colfield .= $column;
+ $colorder .= $column;
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield FROM borrowers LEFT
JOIN `issues` ON issues.borrowernumber=borrowers.borrowernumber";
+ if ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE '$colfilter[0]' " ;
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colorder";
+ warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ $sth2->execute;
+
+
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ # my %ft;
+ # warn "coltitle :".$celvalue;
+ $cell{coltitle} = $celvalue;
+ # $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ }
+ # warn "fin des titres colonnes";
+ }
+
+ my $i=0;
+# my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my @table;
+
+# warn "init table";
+ for (my $i=1;$i<=$line;$i++) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+
$table[$i]->{($col->{coltitle})?$col->{coltitle}:"Global"}=0;
+ }
+ }
+
+
+# preparing calculation
+ my $strcalc ;
+
+# Processing average loanperiods
+ $strcalc .= "SELECT CONCAT( borrowers.surname ,
\"\\t\",borrowers.firstname, \"\\t\", borrowers.cardnumber)";
+ $strcalc .= " , $colfield " if ($colfield);
+ $strcalc .= " FROM borrowers LEFT JOIN issues ON
issues.borrowernumber=borrowers.borrowernumber WHERE issues.borrowernumber is
null";
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND borrowers.categorycode like '" . @$filters[0] ."'" if
( @$filters[0] );
+
+ $strcalc .= " group by borrowers.borrowernumber";
+ $strcalc .= ", $colfield" if ($column);
+ $strcalc .= " order by $colfield " if ($colfield);
+ my $max;
+ if (@loopcol) {
+ $max = address@hidden;
+ } else { $max=$line;}
+ $strcalc .= " LIMIT 0,$max" if ($line);
+ warn "SQL :". $strcalc;
+
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+ my $previous_col;
+ my $i=1;
+ while (my @data = $dbcalc->fetchrow) {
+ my ($row, $col )address@hidden;
+ $col = "zzEMPTY" if ($col eq undef);
+ $i=1 if (($previous_col) and not($col eq $previous_col));
+ $table[$i]->{$col}=$row;
+# warn " ".$i." ".$col. " ".$row;
+ $i++;
+ $previous_col=$col;
+ }
+
+ push @loopcol,{coltitle => "Global"} if not($column);
+
+ my $max =(($line)?$line:@table);
+ for ($i=1; $i<=$max;$i++) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ my $colcount=0;
+ foreach my $col ( @loopcol ) {
+ my $value;
+ if (@loopcol){
+ $value =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq "Global"))?"zzEMPTY":$col->{coltitle}};
+ } else {
+ $value =$table[$i]->{"zzEMPTY"};
+ }
+ push @loopcell, {value => $value} ;
+ }
+ push @looprow,{ 'rowtitle' => $i ,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ };
+ $hilighted = -$hilighted;
+ }
+
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/borrowers_stats.pl
===================================================================
RCS file: reports/borrowers_stats.pl
diff -N reports/borrowers_stats.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/borrowers_stats.pl 26 Mar 2007 00:07:52 -0000 1.11.2.2
@@ -0,0 +1,388 @@
+#!/usr/bin/perl
+
+# $Id: borrowers_stats.pl,v 1.11.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/borrowers_stats.tmpl";
+my $line = $input->param("Line");
+my $column = $input->param("Column");
+my @filters = $input->param("Filter");
+my $digits = $input->param("digits");
+my $borstat = $input->param("status");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+ my $results = calculate($line, $column, $digits, $borstat,
address@hidden);
+ if ($output eq "screen"){
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -name=>"$basename.csv",
+
-attachment=>"$basename.csv");
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my $req;
+ $req = $dbh->prepare( "select categorycode, description from categories
order by description");
+ $req->execute;
+ my %select_catcode;
+ my @select_catcode;
+ push @select_catcode,"";
+ $select_catcode{""} = "";
+ while (my ($catcode, $description) =$req->fetchrow) {
+ push @select_catcode, $catcode;
+ $select_catcode{$catcode} = $description
+ }
+ my $CGICatCode=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select_catcode,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare( "select distinctrow sort1 from borrowers order by
sort1");
+ $req->execute;
+ my @select_sort1;
+ push @select_sort1,"";
+ my $hassort1;
+ while (my ($value) =$req->fetchrow) {
+ if ($value) {
+ $hassort1=1;
+ push @select_sort1, $value;
+ }
+ }
+ my $CGIsort1=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare( "select distinctrow sort2 from borrowers order by
sort2");
+ $req->execute;
+ my @select_sort2;
+ push @select_sort2,"";
+ my $hassort2;
+ while (my ($value) =$req->fetchrow) {
+ if ($value) {
+ $hassort2 = 1;
+ push @select_sort2, $value;
+ }
+ }
+ my $CGIsort2=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @mime = ( C4::Context->preference("MIME") );
+ foreach my $mime (@mime){
+ warn "".$mime;
+ }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+ $template->param(CGICatCode => $CGICatCode,
+ CGISort1 => $CGIsort1,
+ hassort1 => $hassort1,
+ CGISort2 => $CGIsort2,
+ hassort2 => $hassort2,
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+
+}
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
+sub calculate {
+ my ($line, $column, $digits, $status, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+ my $linefilter = "";
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+
+ $linefilter = @$filters[0] if ($line =~ /categorycode/ ) ;
+ $linefilter = @$filters[1] if ($line =~ /zipcode/ ) ;
+ $linefilter = @$filters[2] if ($line =~ /sort1/ ) ;
+ $linefilter = @$filters[3] if ($line =~ /sort2/ ) ;
+#
+ my $colfilter = "";
+ $colfilter = @$filters[0] if ($column =~ /categorycode/);
+ $colfilter = @$filters[1] if ($column =~ /zipcode/);
+ $colfilter = @$filters[2] if ($column =~ /sort1/);
+ $colfilter = @$filters[3] if ($column =~ /sort2/);
+
+ my @loopfilter;
+ for (my $i=0;$i<=3;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Cat Code " if ($i==0);
+ $cell{crit} .="Zip Code" if ($i==1);
+ $cell{crit} .="Sort1" if ($i==2);
+ $cell{crit} .="Sort2" if ($i==3);
+ push @loopfilter, \%cell;
+ }
+ }
+ if ($status) {
+ push @loopfilter,{crit=>"Status",filter=>$status}
+ }
+# 1st, loop rows.
+ my $linefield;
+ if (($line =~/zipcode/) and ($digits)) {
+ $linefield .="left($line,$digits)";
+ } else{
+ $linefield .= $line;
+ }
+
+ my $strsth;
+ $strsth .= "select distinctrow $linefield from borrowers where $line is
not null ";
+ $linefilter =~ s/\*/%/g;
+ if ( $linefilter ) {
+ $strsth .= " and $linefield LIKE ? " ;
+ }
+ $strsth .= " and $status='1' " if ($status);
+ $strsth .=" order by $linefield";
+# warn "". $strsth;
+
+ my $sth = $dbh->prepare( $strsth );
+ if ( $linefilter ) {
+ $sth->execute($linefilter);
+ } else {
+ $sth->execute;
+ }
+ while ( my ($celvalue) = $sth->fetchrow) {
+ my %cell;
+ if ($celvalue) {
+ $cell{rowtitle} = $celvalue;
+# } else {
+# $cell{rowtitle} = "";
+ }
+ $cell{totalrow} = 0;
+ push @loopline, \%cell;
+ }
+
+# 2nd, loop cols.
+ my $colfield;
+ if (($column =~/zipcode/) and ($digits)) {
+ $colfield .= "left($column,$digits)";
+ } else{
+ $colfield .= $column;
+ }
+ my $strsth2;
+ $colfilter =~ s/\*/%/g;
+ $strsth2 .= "select distinctrow $colfield from borrowers where $column
is not null";
+ if ( $colfilter ) {
+ $strsth2 .= " and $colfield LIKE ? ";
+ }
+ $strsth2 .= " and $status='1' " if ($status);
+ $strsth2 .= " order by $colfield";
+ warn "". $strsth2;
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if ($colfilter) {
+ $sth2->execute($colfilter);
+ } else {
+ $sth2->execute;
+ }
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ my %ft;
+ if ($celvalue) {
+ $cell{coltitle} = $celvalue;
+ }
+ push @loopcol, \%cell;
+ }
+
+
+ my $i=0;
+ my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my %table;
+# warn "init table";
+ foreach my $row ( @loopline ) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+ $table{$row->{rowtitle}}->{$col->{coltitle}}=0;
+ }
+ $table{$row->{rowtitle}}->{totalrow}=0;
+ }
+
+# preparing calculation
+ my $strcalc .= "SELECT $linefield, $colfield, count( * ) FROM borrowers
WHERE 1 ";
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND categorycode like '" . @$filters[0] ."'" if (
@$filters[0] );
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND zipcode like '" . @$filters[1] ."'" if ( @$filters[1]
);
+ @$filters[2]=~ s/\*/%/g if (@$filters[2]);
+ $strcalc .= " AND sort1 like '" . @$filters[2] ."'" if ( @$filters[2] );
+ @$filters[3]=~ s/\*/%/g if (@$filters[3]);
+ $strcalc .= " AND sort2 like '" . @$filters[3] ."'" if ( @$filters[3] );
+ $strcalc .= " AND $status='1' " if ($status);
+ $strcalc .= " group by $linefield, $colfield";
+# warn "". $strcalc;
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+
+ my $emptycol;
+ while (my ($row, $col, $value) = $dbcalc->fetchrow) {
+# warn "filling table $row / $col / $value ";
+ $emptycol = 1 if ($col eq undef);
+ $col = "zzEMPTY" if ($col eq undef);
+ $row = "zzEMPTY" if ($row eq undef);
+
+ $table{$row}->{$col}+=$value;
+ $table{$row}->{totalrow}+=$value;
+ $grantotal += $value;
+ }
+
+ push @loopcol,{coltitle => "NULL"} if ($emptycol);
+
+ foreach my $row ( sort keys %table ) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ foreach my $col ( @loopcol ) {
+ my $value =$table{$row}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+ push @loopcell, {value => $value } ;
+ }
+ push @looprow,{ 'rowtitle' => ($row eq "zzEMPTY")?"NULL":$row,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ 'totalrow' =>
$table{$row}->{totalrow}
+ };
+ $hilighted = -$hilighted;
+ }
+
+ foreach my $col ( @loopcol ) {
+ my $total=0;
+ foreach my $row ( @looprow ) {
+ $total += $table{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+# warn "value added
".$table{$row->{rowtitle}}->{$col->{coltitle}}. "for line ".$row->{rowtitle};
+ }
+# warn "summ for column ".$col->{coltitle}." = ".$total;
+ push @loopfooter, {'totalcol' => $total};
+ }
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/borrowers_stats.plugin
===================================================================
RCS file: reports/borrowers_stats.plugin
diff -N reports/borrowers_stats.plugin
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/borrowers_stats.plugin 26 Mar 2007 00:07:52 -0000 1.2.2.2
@@ -0,0 +1,183 @@
+#!/usr/bin/perl
+
+# $Id: borrowers_stats.plugin,v 1.2.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use HTML::Template;
+use C4::Search;
+use C4::Output;
+use C4::Koha;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+sub set_parameters {
+ my ($template) = @_;
+ my $dbh = C4::Context->dbh;
+ return $template;
+}
+
+sub calculate {
+ my ($line, $column, $filters) = @_;
+ my @results =();
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+# build the SQL query & execute it
+ my $linefilter = "";
+ $linefilter = @$filters[0] if ($line =~ /categorycode/ ) ;
+ $linefilter = @$filters[4] if ($line =~ /zipcode/ ) ;
+ $linefilter = @$filters[2] if ($line =~ /sort1/ ) ;
+ $linefilter = @$filters[3] if ($line =~ /sort2/ ) ;
+
+ my $colfilter = "";
+ $colfilter = @$filters[0] if ($column =~ /categorycode/);
+ $colfilter = @$filters[4] if ($column =~ /zipcode/);
+ $colfilter = @$filters[2] if ($column =~ /sort1/);
+ $colfilter = @$filters[3] if ($column =~ /sort2/);
+
+ my @loopfilter;
+ for (my $i=0;$i<=4;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Category Code " if ($i==0);
+ $cell{crit} .="Status" if ($i==1);
+ $cell{crit} .="Sort1" if ($i==2);
+ $cell{crit} .="Sort2" if ($i==3);
+ $cell{crit} .="Zip Code" if ($i==4);
+ push @loopfilter, \%cell;
+ }
+ }
+# 1st, loop rows.
+#problem with NULL Values.
+ my $strsth;
+ $strsth .= "select distinctrow $line from borrowers";
+ $linefilter =~ s/\*/%/g;
+ if ( $linefilter ) {
+ $strsth .= " where $line LIKE ? and $line is not null" ;
+ } else {
+ $strsth .= " where $line is not null" ;
+ }
+ $strsth .=" order by $line";
+ my $sth = $dbh->prepare( $strsth );
+ if ( $linefilter ) {
+ $sth->execute($linefilter);
+ } else {
+ $sth->execute;
+ }
+ while ( my ($celvalue) = $sth->fetchrow) {
+ my %cell;
+ if ($celvalue) {
+ $cell{rowtitle} = $celvalue;
+ } else {
+ $cell{rowtitle} = "";
+ }
+ $cell{totalrow} = 0;
+ push @looprow, \%cell;
+ }
+
+# 2nd, loop cols.
+ my $strsth2;
+ $colfilter =~ s/\*/%/g;
+ $strsth2 .= "select distinctrow $column from borrowers";
+ if ( $colfilter ) {
+ $strsth2 .= " where $column LIKE ? and $column is not null";
+ } else {
+ $strsth2 .= " where $column is not null";
+ }
+ $strsth2 .= " order by $column";
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if ($colfilter) {
+ $sth2->execute($colfilter);
+ } else {
+ $sth2->execute;
+ }
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ my %ft;
+ $cell{coltitle} = $celvalue;
+ $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ push @loopfooter, \%ft;
+ }
+# now, parse each category. Before filling the result array, fill it with 0 to
have every itemtype column.
+ my $strcalc .= "SELECT count( * ) FROM borrowers WHERE $line = ? and
$column= ? ";
+ $strcalc .= " AND categorycode like '" . @$filters[1] ."%' " if (
@$filters[1] );
+ $strcalc .= " AND sort1 like ' " . @$filters[2] ."%'" if ( @$filters[2]
);
+ $strcalc .= " AND sort2 like ' " . @$filters[3] ."%'" if ( @$filters[3]
);
+ $strcalc .= " AND zipcode like ' " . @$filters[4] ."%'" if (
@$filters[4] );
+ my $dbcalc = $dbh->prepare($strcalc);
+ my $i=0;
+ my @totalcol;
+ my $hilighted=-1;
+ # for each line
+ for (my $i=0; $i<=$#looprow; $i++) {
+ my $row = $looprow[$i]->{'rowtitle'};
+ my @loopcell;
+ my $totalrow=0;
+ # for each column
+ for (my $j=0;$j<=$#loopcol;$j++) {
+ my $col = $loopcol[$j]->{'coltitle'};
+ $dbcalc->execute($row,$col);
+ my ($value) = $dbcalc->fetchrow;
+# warn "$row / $col / $value";
+ $totalrow += $value;
+ $grantotal += $value;
+ $loopfooter[$j]->{'totalcol'} +=$value;
+ push @loopcell,{value => $value};
+ }
+ $looprow[$i]->{'totalrow'}=$totalrow;
+ $looprow[$i]->{'loopcell'address@hidden;
+ $looprow[$i]->{'hilighted'} = 1 if $hilighted eq 1;
+ $hilighted = -$hilighted;
+ }
+
+# # the header of the table
+ address@hidden;
+ $globalline{looprow} = address@hidden;
+# # the core of the table
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/cat_issues_top.pl
===================================================================
RCS file: reports/cat_issues_top.pl
diff -N reports/cat_issues_top.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/cat_issues_top.pl 26 Mar 2007 00:07:52 -0000 1.11.2.2
@@ -0,0 +1,386 @@
+#!/usr/bin/perl
+
+# $Id: cat_issues_top.pl,v 1.11.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use C4::Date;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/cat_issues_top.tmpl";
+my $limit = $input->param("Limit");
+my $column = $input->param("Criteria");
+my @filters = $input->param("Filter");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+# Displaying results
+ my $results = calculate($limit, $column, address@hidden);
+ if ($output eq "screen"){
+# Printing results to screen
+ $template->param(mainloop => $results,
+ limit => $limit);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+# Printing to a csv file
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -attachment=>"$basename.csv",
+ -filename=>"$basename.csv" );
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+# header top-right
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+# Other header
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+# Table
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+# footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+# Displaying choices
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+
+ my @mime = ( C4::Context->preference("MIME") );
+# foreach my $mime (@mime){
+# warn "".$mime;
+# }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+}
+
+
+
+
+sub calculate {
+ my ($line, $column, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=6;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if (($i==1) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Issue From" if ($i==0);
+ $cell{crit} .="Issue To" if ($i==1);
+ $cell{crit} .="Return From" if ($i==2);
+ $cell{crit} .="Return To" if ($i==3);
+ $cell{crit} .="Branch" if ($i==4);
+ $cell{crit} .="Doc Type" if ($i==5);
+ $cell{crit} .="Bor Cat" if ($i==6);
+ $cell{crit} .="Day" if ($i==7);
+ $cell{crit} .="Month" if ($i==8);
+ $cell{crit} .="Year" if ($i==9);
+ push @loopfilter, \%cell;
+ }
+ }
+ my $colfield;
+ my $colorder;
+ if ($column){
+ $column = "issues.".$column if ($column=~/timestamp/);
+ $column = "biblio.".$column if $column=~/itemtype/;
+ $column = "borrowers.".$column if ($column=~/categorycode/ or
($column=~/branchcode/));
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /timestamp/ ) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[2] if ($column =~ /returndate/ ) ;
+ $colfilter[1] = @$filters[3] if ($column =~ /returndate/ ) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /branch/ ) ;
+ $colfilter[0] = @$filters[5] if ($column =~ /itemtype/ ) ;
+ $colfilter[0] = @$filters[6] if ($column =~ /category/ ) ;
+ # $colfilter[0] = @$filters[11] if ($column =~ /sort2/ ) ;
+ $colfilter[0] = @$filters[7] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[8] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[9] if ($column =~ /timestamp/ ) ;
+ #warn "filtre col ".$colfilter[0]." ".$colfilter[1];
+
+ # loop cols.
+ if ($column eq "Day") {
+ #Display by day
+ $column = "issues.timestamp";
+ $colfield .="dayname($column)";
+ $colorder .="weekday($column)";
+ } elsif ($column eq "Month") {
+ #Display by Month
+ $column = "issues.timestamp";
+ $colfield .="monthname($column)";
+ $colorder .="month($column)";
+ } elsif ($column eq "Year") {
+ #Display by Year
+ $column = "issues.timestamp";
+ $colfield .="Year($column)";
+ $colorder .= $column;
+ } else {
+ $colfield .= $column;
+ $colorder .= $column;
+ }
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield FROM
`issues`,borrowers,biblio LEFT JOIN items ON
(biblio.biblionumber=items.biblionumber) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+ if (($column=~/timestamp/) or ($column=~/returndate/)){
+ if ($colfilter[1] and ($colfilter[0])){
+ $strsth2 .= " and $column between
'$colfilter[0]' and '$colfilter[1]' " ;
+ } elsif ($colfilter[1]) {
+ $strsth2 .= " and $column <
'$colfilter[1]' " ;
+ } elsif ($colfilter[0]) {
+ $strsth2 .= " and $column > '$colfilter[0]' " ;
+ }
+ } elsif ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE '$colfilter[0]' " ;
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colorder";
+# warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if (( @colfilter ) and ($colfilter[1])){
+
$sth2->execute("'".$colfilter[0]."'","'".$colfilter[1]."'");
+ } elsif ($colfilter[0]) {
+ $sth2->execute($colfilter[0]);
+ } else {
+ $sth2->execute;
+ }
+
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ # my %ft;
+ # warn "coltitle :".$celvalue;
+ $cell{coltitle} = $celvalue;
+ # $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ }
+ # warn "fin des titres colonnes";
+ }
+
+ my $i=0;
+# my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my @table;
+
+# warn "init table";
+ for (my $i=1;$i<=$line;$i++) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+
$table[$i]->{($col->{coltitle})?$col->{coltitle}:"total"}->{'name'}=0;
+ }
+ }
+
+
+# preparing calculation
+ my $strcalc ;
+
+# Processing average loanperiods
+ $strcalc .= "SELECT DISTINCT biblio.title, COUNT(biblio.biblionumber)
AS RANK, biblio.biblionumber AS ID";
+ $strcalc .= " , $colfield " if ($colfield);
+ $strcalc .= " FROM `issues`,borrowers,items LEFT JOIN biblio ON
(biblio.biblionumber=items.biblionumber) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND issues.timestamp > '" . @$filters[0] ."'" if (
@$filters[0] );
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND issues.timestamp < '" . @$filters[1] ."'" if (
@$filters[1] );
+ @$filters[2]=~ s/\*/%/g if (@$filters[2]);
+ $strcalc .= " AND issues.returndate > '" . @$filters[2] ."'" if (
@$filters[2] );
+ @$filters[3]=~ s/\*/%/g if (@$filters[3]);
+ $strcalc .= " AND issues.returndate < '" . @$filters[3] ."'" if (
@$filters[3] );
+ @$filters[4]=~ s/\*/%/g if (@$filters[4]);
+ $strcalc .= " AND issues.branchcode like '" . @$filters[4] ."'" if (
@$filters[4] );
+ @$filters[5]=~ s/\*/%/g if (@$filters[5]);
+ $strcalc .= " AND biblioitems.itemtype like '" . @$filters[5] ."'" if (
@$filters[5] );
+ @$filters[6]=~ s/\*/%/g if (@$filters[6]);
+ $strcalc .= " AND borrowers.categorycode like '" . @$filters[6] ."'" if
( @$filters[6] );
+ @$filters[7]=~ s/\*/%/g if (@$filters[7]);
+ $strcalc .= " AND dayname(issues.timestamp) like '" . @$filters[7]."'"
if (@$filters[7]);
+ @$filters[8]=~ s/\*/%/g if (@$filters[8]);
+ $strcalc .= " AND monthname(issues.timestamp) like '" .
@$filters[8]."'" if (@$filters[8]);
+ @$filters[9]=~ s/\*/%/g if (@$filters[9]);
+ $strcalc .= " AND year(issues.timestamp) like '" . @$filters[9] ."'" if
( @$filters[9] );
+
+ $strcalc .= " group by biblio.biblionumber";
+ $strcalc .= ", $colfield" if ($column);
+ $strcalc .= " order by ";
+ $strcalc .= "$colfield, " if ($colfield);
+ $strcalc .= "RANK DESC ";
+ my $max;
+ if (@loopcol) {
+ $max = address@hidden;
+ } else { $max=$line;}
+ $strcalc .= " LIMIT 0,$max";
+# warn "SQL :". $strcalc;
+
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+ my $previous_col;
+ my $i=1;
+ while (my @data = $dbcalc->fetchrow) {
+ my ($row, $rank, $id, $col )address@hidden;
+ $col = "zzEMPTY" if ($col eq undef);
+ $i=1 if (($previous_col) and not($col eq $previous_col));
+ $table[$i]->{$col}->{'name'}=$row;
+ $table[$i]->{$col}->{'count'}=$rank;
+ $table[$i]->{$col}->{'link'}=$id;
+# warn " ".$i." ".$col. " ".$row;
+ $i++;
+ $previous_col=$col;
+ }
+
+ push @loopcol,{coltitle => "Global"} if not($column);
+
+ for ($i=1; $i<=$line;$i++) {
+ my @loopcell;
+# warn " $i";
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ my $colcount=0;
+ foreach my $col ( @loopcol ) {
+# warn " colonne :$col->{coltitle}";
+ my $value;
+ my $count=0;
+ my $link;
+ if (@loopcol){
+ $value =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq
"Global"))?"zzEMPTY":$col->{coltitle}}->{'name'};
+ $count =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq
"Global"))?"zzEMPTY":$col->{coltitle}}->{'count'};
+ $link =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq
"Global"))?"zzEMPTY":$col->{coltitle}}->{'link'};
+ } else {
+ $value =$table[$i]->{"zzEMPTY"}->{'name'};
+ $count =$table[$i]->{"zzEMPTY"}->{'count'};
+ $link =$table[$i]->{"zzEMPTY"}->{'link'};
+ }
+# warn " ".$i ." value:$value count:$count
reference:$link";
+ push @loopcell, {value => $value, count =>$count,
reference => $link} ;
+ }
+ #warn "row : $row colcount:$colcount";
+ #my $total = $table[$i]->{totalrow}/$colcount if ($colcount>0);
+ push @looprow,{ 'rowtitle' => $i ,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ #'totalrow' =>
($total)?sprintf("%.2f",$total):0
+ };
+ $hilighted = -$hilighted;
+ }
+#
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/catalogue_out.pl
===================================================================
RCS file: reports/catalogue_out.pl
diff -N reports/catalogue_out.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/catalogue_out.pl 26 Mar 2007 00:07:52 -0000 1.6.2.2
@@ -0,0 +1,312 @@
+#!/usr/bin/perl
+
+# $Id: catalogue_out.pl,v 1.6.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Output;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use C4::Date;
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/catalogue_out.tmpl";
+my $limit = $input->param("Limit");
+my $column = $input->param("Criteria");
+my @filters = $input->param("Filter");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+# Displaying results
+ my $results = calculate($limit, $column, address@hidden);
+ if ($output eq "screen"){
+# Printing results to screen
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+# Printing to a csv file
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -attachment=>"$basename.csv",
+ -filename=>"$basename.csv" );
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+# header top-right
+ print "num /". @$results[0]->{column} .$sep;
+# Other header
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+# Table
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+# footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+# Displaying choices
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+
+ my @mime = ( C4::Context->preference("MIME") );
+# foreach my $mime (@mime){
+# warn "".$mime;
+# }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+}
+
+
+
+
+sub calculate {
+ my ($line, $column, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=6;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if (($i==1) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Branch" if ($i==0);
+ $cell{crit} .="Doc Type" if ($i==1);
+ push @loopfilter, \%cell;
+ }
+ }
+ my $colfield;
+ my $colorder;
+ if ($column){
+ $column = "issues.".$column if (($column=~/branchcode/) or
($column=~/timestamp/));
+ $column = "biblio.".$column if $column=~/itemtype/;
+ $column = "borrowers.".$column if $column=~/categorycode/;
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /branch/ ) ;
+ $colfilter[0] = @$filters[1] if ($column =~ /itemtype/ ) ;
+
+ # loop cols.
+ $colfield .= $column;
+ $colorder .= $column;
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield FROM
`issues`,borrowers,biblio LEFT JOIN items ON
(biblio.biblionumber=items.biblionumber) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+ if ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE '$colfilter[0]' " ;
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colorder";
+ warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ $sth2->execute;
+
+
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ # my %ft;
+ # warn "coltitle :".$celvalue;
+ $cell{coltitle} = $celvalue;
+ # $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ }
+ # warn "fin des titres colonnes";
+ }
+
+ my $i=0;
+# my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my @table;
+
+# warn "init table";
+ for (my $i=1;$i<=$line;$i++) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+
$table[$i]->{($col->{coltitle})?$col->{coltitle}:"Global"}=0;
+ }
+ }
+
+
+# preparing calculation
+ my $strcalc ;
+
+# Processing average loanperiods
+ $strcalc .= "SELECT CONCAT( items.itemnumber, \"
\",biblio.biblionumber)";
+ $strcalc .= " , $colfield " if ($colfield);
+ $strcalc .= " FROM (items LEFT JOIN biblio ON biblio.biblionumber =
items.biblionumber) LEFT JOIN issues ON issues.itemnumber=items.itemnumber
WHERE issues.itemnumber is null";
+# @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+# $strcalc .= " AND issues.timestamp <= '" . @$filters[0] ."'" if (
@$filters[0] );
+# @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+# $strcalc .= " AND issues.timestamp >= '" . @$filters[1] ."'" if (
@$filters[1] );
+# @$filters[2]=~ s/\*/%/g if (@$filters[2]);
+# $strcalc .= " AND issues.returndate <= '" . @$filters[2] ."'" if (
@$filters[2] );
+# @$filters[3]=~ s/\*/%/g if (@$filters[3]);
+# $strcalc .= " AND issues.returndate >= '" . @$filters[3] ."'" if (
@$filters[3] );
+
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND biblio.itemtype like '" . @$filters[1] ."'" if (
@$filters[1] );
+
+ $strcalc .= " group by items.itemnumber";
+ $strcalc .= ", $colfield" if ($column);
+ $strcalc .= " order by $colfield " if ($colfield);
+ my $max;
+ if (@loopcol) {
+ $max = address@hidden;
+ } else { $max=$line;}
+ $strcalc .= " LIMIT 0,$max" if ($line);
+# warn "SQL :". $strcalc;
+
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+ my $previous_col;
+ my $i=1;
+ while (my @data = $dbcalc->fetchrow) {
+ my ($row, $col )address@hidden;
+ $col = "zzEMPTY" if ($col eq undef);
+ $i=1 if (($previous_col) and not($col eq $previous_col));
+ $table[$i]->{$col}=$row;
+# warn " ".$i." ".$col. " ".$row;
+ $i++;
+ $previous_col=$col;
+ }
+
+ push @loopcol,{coltitle => "Global"} if not($column);
+
+ my $max =(($line)?$line:@table);
+ for ($i=1; $i<$max;$i++) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ my $colcount=0;
+ foreach my $col ( @loopcol ) {
+ my $value;
+ if (@loopcol){
+ $value =$table[$i]->{(($col->{coltitle} eq
"NULL") or ($col->{coltitle} eq "Global"))?"zzEMPTY":$col->{coltitle}};
+ } else {
+ $value =$table[$i]->{"zzEMPTY"};
+ }
+ push @loopcell, {value => $value} ;
+ }
+ push @looprow,{ 'rowtitle' => $i ,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ };
+ $hilighted = -$hilighted;
+ }
+
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/catalogue_stats.pl
===================================================================
RCS file: reports/catalogue_stats.pl
diff -N reports/catalogue_stats.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/catalogue_stats.pl 26 Mar 2007 00:07:52 -0000 1.18.2.2
@@ -0,0 +1,595 @@
+#!/usr/bin/perl
+## Will not work. Requires a complete re-write for ZEBRA
+# $Id: catalogue_stats.pl,v 1.18.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Biblio;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+=head1 NAME
+
+plugin that shows a stats on catalogue
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/catalogue_stats.tmpl";
+my $line = $input->param("Line");
+my $column = $input->param("Column");
+my @filters = $input->param("Filter");
+my $deweydigits = $input->param("deweydigits");
+my $lccndigits = $input->param("lccndigits");
+my $cotedigits = $input->param("cotedigits");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+ my $results = calculate($line, $column, $deweydigits, $lccndigits,
$cotedigits, address@hidden);
+ if ($output eq "screen"){
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+
-attachment=>"$basename.csv",
+ -name=>"$basename.csv"
);
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my $count=0;
+ my $req;
+###Use mfield of koha_attr instead of dewey
+my $sth = $dbh->prepare("select authorised_value from authorised_values where
category='mfield' order by lib");
+ $sth->execute;
+ my @authorised_values;
+ #push @authorised_values,"";
+ while ((my $category) = $sth->fetchrow_array) {
+ push @authorised_values, $category;
+ }
+my $hasdewey;
+ my $CGIdewey=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+
+ my $haslccn=1;
+ my $hlghtlccn=1;
+ my @select="";
+ for my $value ("A".."Z") {
+ push @select, $value;
+ }
+ my $CGIlccn=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my $hascote;
+ my $hlghtcote;
+ $count++;
+ my $hglghtDT =$count % 2;
+ $count++;
+ my $hglghtPub =$count % 2;
+ $count++;
+ my $hglghtPY =$count % 2;
+ $count++;
+ my $hglghtHB =$count % 2;
+ $count++;
+ my $hglghtLOC =$count % 2;
+ my $hglghtSTACK =$count % 2;
+
+ my $itemtypes = GetItemTypes;
+ undef @select;
+ push @select,"";
+ my %select_item;
+ $select_item{""} = "";
+foreach my $thisitemtype (sort keys %$itemtypes) {
+ push @select,$thisitemtype;
+
$select_item{$thisitemtype}=$itemtypes->{$thisitemtype}->{'description'};
+
+}
+
+ my $CGIitemtype=CGI::scrolling_list( -name => 'Filter',
+ -id => 'itemtype',
+ -values => address@hidden,
+ -labels=>\%select_item,
+ -size => 1,
+ -multiple => 0 );
+
+
+ undef @select;
+ push @select,"";
+ my $branches=GetBranches();
+ my %select_branches;
+ $select_branches{""} = "";
+ foreach my $branch (keys %$branches) {
+ push @select, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIbranch=CGI::scrolling_list( -name => 'Filter',
+ -id => 'branch',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ my $CGIholdingbranch=CGI::scrolling_list( -name => 'Filter',
+ -id => 'holdingbranch',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+ $req = $dbh->prepare("select authorised_value,lib from
authorised_values where category='sections'");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my %desc;
+ $desc{""}="";
+ while (my ($value,$desc) =$req->fetchrow) {
+ push @select, $value;
+ $desc{$value}=$desc;
+ }
+
+ my $CGISTACK=CGI::scrolling_list( -name => 'Filter',
+ -id => 'shelf',
+ -values => address@hidden,
+ -labels =>\%desc,
+ -size => 1,
+ -multiple => 0 );
+
+ my @mime = ( C4::Context->preference("MIME") );
+ foreach my $mime (@mime){
+# warn "".$mime;
+ }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(hasdewey=>$hasdewey,
+ CGIFromDeweyClass => $CGIdewey,
+ CGIToDeweyClass => $CGIdewey,
+ haslccn=> $haslccn,
+ hlghtlccn => $hlghtlccn,
+ CGIFromLoCClass => $CGIlccn,
+ CGIToLoCClass => $CGIlccn,
+ hascote=> $hascote,
+ hlghtcote => $hlghtcote,
+ hglghtDT => $hglghtDT,
+ hglghtPub => $hglghtPub,
+ hglghtPY => $hglghtPY,
+ hglghtHB => $hglghtHB,
+ hglghtLOC => $hglghtLOC,
+ hglghtSTACK => $hglghtSTACK,
+ CGIItemType => $CGIitemtype,
+ CGIBranch => $CGIbranch,
+ CGILocation => $CGIbranch,
+ CGISTACK => $CGISTACK,
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+
+}
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
+sub calculate {
+ my ($line, $column, $deweydigits, $lccndigits, $cotedigits, $filters) =
@_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=11;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if ((($i==1) or ($i==3) or ($i==5) or ($i==9)) and
(@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Dewey Classification From" if ($i==0);
+ $cell{crit} .="Dewey Classification To" if ($i==1);
+ $cell{crit} .="Classification From" if ($i==2);
+ $cell{crit} .="Classification To" if ($i==3);
+ $cell{crit} .="Call Number From" if ($i==4);
+ $cell{crit} .="Call Number To" if ($i==5);
+ $cell{crit} .="Document type" if ($i==6);
+ $cell{crit} .="Publisher" if ($i==7);
+ $cell{crit} .="Publication year From" if ($i==8);
+ $cell{crit} .="Publication year To" if ($i==9);
+ $cell{crit} .="Branch :" if ($i==10);
+ $cell{crit} .="Location:" if ($i==11);
+ $cell{crit} .="Shelving:" if ($i==12);
+ push @loopfilter, \%cell;
+warn "cell:$cell{crit}";
+ }
+ }
+
+ my @linefilter;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+
+ $linefilter[0] = @$filters[0] if ($line =~ /dewey/ ) ;
+ $linefilter[1] = @$filters[1] if ($line =~ /dewey/ ) ;
+ $linefilter[0] = @$filters[2] if ($line =~ /classification/ ) ;
+ $linefilter[1] = @$filters[3] if ($line =~ /classification/ ) ;
+ $linefilter[0] = @$filters[4] if ($line =~ /itemcallnumber/ ) ;
+ $linefilter[1] = @$filters[5] if ($line =~ /itemcallnumber/ ) ;
+ $linefilter[0] = @$filters[6] if ($line =~ /itemtype/ ) ;
+ $linefilter[0] = @$filters[7] if ($line =~ /publishercode/ ) ;
+ $linefilter[0] = @$filters[8] if ($line =~ /publicationyear/ ) ;
+ $linefilter[1] = @$filters[9] if ($line =~ /publicationyear/ ) ;
+ $linefilter[0] = @$filters[10] if ($line =~ /homebranch/ ) ;
+ $linefilter[0] = @$filters[11] if ($line =~ /holdingbranch/ ) ;
+ $linefilter[0] = @$filters[12] if ($line =~ /shelf/ ) ;
+#
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /dewey/ ) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /dewey/ ) ;
+ $colfilter[0] = @$filters[2] if ($column =~ /classification/ ) ;
+ $colfilter[1] = @$filters[3] if ($column =~ /classification/ ) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /itemcallnumber/ ) ;
+ $colfilter[1] = @$filters[5] if ($column =~ /itemcallnumber/ ) ;
+ $colfilter[0] = @$filters[6] if ($column =~ /itemtype/ ) ;
+ $colfilter[0] = @$filters[7] if ($column =~ /publishercode/ ) ;
+ $colfilter[0] = @$filters[8] if ($column =~ /publicationyear/ ) ;
+ $colfilter[1] = @$filters[9] if ($column =~ /publicationyear/ ) ;
+ $colfilter[0] = @$filters[10] if ($column =~ /homebranch/ ) ;
+ $colfilter[0] = @$filters[11] if ($column =~ /holdingbranch/ ) ;
+ $colfilter[0] = @$filters[12] if ($column =~ /shelf/ ) ;
+# 1st, loop rows.
+ my $linefield;
+ if (($line =~/dewey/) and ($deweydigits)) {
+ $linefield .="left($line,$deweydigits)";
+ } elsif (($line=~/classification/) and ($lccndigits)) {
+ $linefield .="left($line,$lccndigits)";
+ } elsif (($line=~/itemcallnumber/) and ($cotedigits)) {
+ $linefield .="left($line,$cotedigits)";
+ }else {
+ $linefield .= $line;
+ }
+
+warn $linefield,$colfilter[0],$linefilter[0],$line;
+ my $strsth;
+ $strsth .= "select distinctrow $linefield from biblio left join items
on (items.biblionumber = biblio.biblionumber) where $line is not null ";
+ if ( @linefilter ) {
+ if ($linefilter[1]){
+ $strsth .= " and $line >= ? " ;
+ $strsth .= " and $line <= ? " ;
+ } elsif ($linefilter[0]) {
+ $linefilter[0] =~ s/\*/%/g;
+ $strsth .= " and $line LIKE ? " ;
+ }
+ }
+ $strsth .=" order by $linefield";
+ warn "". $strsth;
+
+ my $sth = $dbh->prepare( $strsth );
+ if (( @linefilter ) and ($linefilter[1])){
+ $sth->execute($linefilter[0],$linefilter[1]);
+ } elsif ($linefilter[0]) {
+ $sth->execute($linefilter[0]);
+ } else {
+ $sth->execute;
+ }
+ while ( my ($celvalue) = $sth->fetchrow) {
+ my %cell;
+ if ($celvalue) {
+ $cell{rowtitle} = $celvalue;
+# } else {
+# $cell{rowtitle} = "";
+ }
+ $cell{totalrow} = 0;
+ push @loopline, \%cell;
+ }
+
+# 2nd, loop cols.
+ my $colfield;
+ if (($column =~/dewey/) and ($deweydigits)) {
+ $colfield .="left($column,$deweydigits)";
+ }elsif (($column=~/classification/) and ($lccndigits)) {
+ $colfield .="left($column,$lccndigits)";
+ }elsif (($column=~/itemcallnumber/) and ($cotedigits)) {
+ $colfield .="left($column,$cotedigits)";
+ }else {
+ $colfield .= $column;
+ }
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield from biblio left join items
on (items.biblionumber = biblio.biblionumber) where $column is not null ";
+ if (( @colfilter ) and ($colfilter[1])) {
+ $strsth2 .= " and $column> ? and $column< ?";
+ }elsif ($colfilter[0]){
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE ? ";
+ }
+ $strsth2 .= " order by $colfield";
+ warn "". $strsth2;
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if ((@colfilter) and ($colfilter[1])) {
+ $sth2->execute($colfilter[0],$colfilter[1]);
+ } elsif ($colfilter[0]){
+ $sth2->execute($colfilter[0]);
+ } else {
+ $sth2->execute;
+ }
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ my %ft;
+ if ($celvalue) {
+ $cell{coltitle} = $celvalue;
+# } else {
+# $cell{coltitle} = "";
+ }
+ $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ }
+
+
+ my $i=0;
+ my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my %table;
+# warn "init table";
+ foreach my $row ( @loopline ) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+ $table{$row->{rowtitle}}->{$col->{coltitle}}=0;
+ }
+ $table{$row->{rowtitle}}->{totalrow}=0;
+ }
+my @kohafield;
+my @values;
+my @and_or;
+my @relations;
+# preparing calculation in zebra
+ my $strcalc .= "SELECT $linefield, $colfield, count( * ) FROM biblio
LEFT JOIN items ON (items.biblionumber = biblio.biblionumber) WHERE 1";
+ if (@$filters[0]){
+ @$filters[0]=~ s/\*//g;
+ $strcalc .= " AND dewey >" . @$filters[0] ."";
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=5 address@hidden 3=1";
+ push @kohafield, "dewey";
+ push @values, @$filters[0] ;
+
+ }
+ if (@$filters[1]){
+ @$filters[1]=~ s/\*//g ;
+ $strcalc .= " AND dewey <" . @$filters[1] ."";
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=1 address@hidden 3=1";
+ push @kohafield, "dewey";
+ push @values, @$filters[1] ;
+
+
+ }
+ if (@$filters[2]){
+ @$filters[2]=~ s/\*//g ;
+ $strcalc .= " AND classification >=" .$dbh->quote(@$filters[2])
."" ;
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=4 address@hidden 3=1";
+ push @kohafield, "classification";
+ push @values, @$filters[2];
+
+ }
+ if (@$filters[3]){
+ @$filters[3]=~ s/\*//g;
+ $strcalc .= " AND classification <=" .
$dbh->quote(@$filters[3]) ."" ;
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=2 address@hidden 3=1";
+ push @kohafield, "classification";
+ push @values, @$filters[3] ;
+ }
+ if (@$filters[4]){
+ @$filters[4]=~ s/\*//g ;
+ $strcalc .= " AND itemcallnumber >=" .
$dbh->quote(@$filters[4]) ."" ;
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=4 address@hidden 3=1";
+ push @kohafield, "itemcallnumber";
+ push @values, @$filters[4] ;
+ }
+
+ if (@$filters[5]){
+ @$filters[5]=~ s/\*//g;
+ $strcalc .= " AND itemcallnumber <=" .
$dbh->quote(@$filters[5]) ."" ;
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=2 address@hidden 3=1";
+ push @kohafield, "itemcallnumber";
+ push @values, @$filters[5] ;
+ }
+
+ if (@$filters[6]){
+ @$filters[6]=~ s/\*//g;
+ $strcalc .= " AND itemtype like '" . @$filters[6] ."'";
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=3 address@hidden 3=1";
+ push @kohafield, "itemtype";
+ push @values, @$filters[6] ;
+ }
+
+ if (@$filters[7]){
+ @$filters[7]=~ s/\*//g;
+ @$filters[7].="%" unless @$filters[7]=~/%/;
+ $strcalc .= " AND publishercode like \"" . @$filters[7] ."\"";
+ push @and_or, "address@hidden";
+ push @relations, "address@hidden 2=3 address@hidden 3=1";
+ push @kohafield, "publishercode";
+ push @values, @$filters[7];
+ }
+ if (@$filters[8]){
+ @$filters[8]=~ s/\*/%/g;
+ $strcalc .= " AND publicationyear >" . @$filters[8] ."" ;
+ }
+ if (@$filters[9]){
+ @$filters[9]=~ s/\*/%/g;
+ $strcalc .= " AND publicationyear <" . @$filters[9] ."";
+ }
+ if (@$filters[10]){
+ @$filters[10]=~ s/\*/%/g;
+ $strcalc .= " AND items.homebranch like '" . @$filters[10] ."'";
+ }
+ if (@$filters[11]){
+ @$filters[11]=~ s/\*/%/g;
+ $strcalc .= " AND items.holdingbranch like '" . @$filters[11]
."'" if ( @$filters[11] );
+ }
+ if (@$filters[12]){
+ @$filters[12]=~ s/\*/%/g;
+ $strcalc .= " AND items.stack like '" . @$filters[12] ."'" if (
@$filters[12] );
+ }
+ $strcalc .= " group by $linefield, $colfield order by
$linefield,$colfield";
+ warn "". $strcalc;
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+
+ my $emptycol;
+ while (my ($row, $col, $value) = $dbcalc->fetchrow) {
+# warn "filling table $row / $col / $value ";
+ $emptycol = 1 if ($col eq undef);
+ $col = "zzEMPTY" if ($col eq undef);
+ $row = "zzEMPTY" if ($row eq undef);
+
+ $table{$row}->{$col}+=$value;
+ $table{$row}->{totalrow}+=$value;
+ $grantotal += $value;
+ }
+
+ push @loopcol,{coltitle => "NULL"} if ($emptycol);
+
+ foreach my $row ( sort keys %table ) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ foreach my $col ( @loopcol ) {
+ my $value =$table{$row}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+ push @loopcell, {value => $value } ;
+ }
+ push @looprow,{ 'rowtitle' => ($row eq "zzEMPTY")?"NULL":$row,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ 'totalrow' =>
$table{$row}->{totalrow}
+ };
+ $hilighted = -$hilighted;
+ }
+
+# warn "footer processing";
+ foreach my $col ( @loopcol ) {
+ my $total=0;
+ foreach my $row ( @looprow ) {
+ $total += $table{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+# warn "value added
".$table{$row->{rowtitle}}->{$col->{coltitle}}. "for line ".$row->{rowtitle};
+ }
+# warn "summ for column ".$col->{coltitle}." = ".$total;
+ push @loopfooter, {'totalcol' => $total};
+ }
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/contact_history.pl
===================================================================
RCS file: reports/contact_history.pl
diff -N reports/contact_history.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/contact_history.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+
+# Display a history of attempts to contact this borrower
+# regarding overdues and fines.
+#
+# Tony McCrae
+# address@hidden 5/July/2003
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Circulation::Circ2;
+use C4::Circulation::Fines;
+use C4::Date;
+use C4::Interface::CGI::Output;
+use C4::Auth;
+
+my $input = new CGI;
+my $bornum = $input->param('bornum');
+my $sdate= format_date_in_iso($input->param('sdate'));
+my $edate=format_date_in_iso($input->param('edate'));
+my $do_contacts=$input->param('do_contacts');
+my $dateformatted=format_date(get_today());
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/contact_history.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+my $querystring;
+if ($do_contacts){
+if ($bornum) {
+
+
+
+ $querystring = "SELECT date, method, address, result, message,
borrowernumber
+ from attempted_contacts
+ where borrowernumber=$bornum
+ ";
+if ($sdate){ $querystring.= " and date >='$sdate'";}
+if ($edate){ $querystring.= " and date <='$edate'";}
+
+ }else{
+ $querystring = " SELECT date, method, address, result, message,
borrowernumber
+ from attempted_contacts
+ ";
+if ($sdate){ $querystring.= " where date >='$sdate'";}
+if ($edate){ $querystring.= " and date <='$edate'";}
+
+}
+
+$querystring.=" order by date DESC";
+ my $dbh = C4::Context->dbh;
+ my $sth=$dbh->prepare($querystring);
+ $sth->execute();
+my @contacts;
+ while (my $row=$sth->fetchrow_hashref()) {
+my $borrower = BorType($row->{'borrowernumber'});
+$row->{date}=format_date($row->{date});
+$row->{result}="Sent" if $row->{result}==1;
+$row->{name}="$borrower->{firstname} $borrower->{surname}";
+$row->{categorycode}=$borrower->{categorycode};
+push @contacts,$row;
+ }
+$sth->finish;
+
+$template->param( borrowernumber=>$bornum,
+ contacts => address@hidden );
+}
+$template->param( dateformatted=>$dateformatted,
+ do_contacts => $do_contacts );
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
Index: reports/inventory.pl
===================================================================
RCS file: reports/inventory.pl
diff -N reports/inventory.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/inventory.pl 26 Mar 2007 00:07:52 -0000 1.3.2.2
@@ -0,0 +1,130 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Search;
+use C4::Biblio;
+
+# Fixed variables
+my $linecolor1='#ffffcc';
+my $linecolor2='white';
+my $backgroundimage="/images/background-mem.gif";
+my $script_name="/cgi-bin/koha/admin/branches.pl";
+my $pagepagesize=20;
+
+
+#######################################################################################
+# Main loop....
+my $input = new CGI;
+my $minlocation=$input->param('minlocation');
+#my $maxlocation=$input->param('maxlocation');
+#$maxlocation=$minlocation.'Z' unless $maxlocation;
+my $datelastseen = $input->param('datelastseen');
+my $offset = $input->param('offset');
+my $markseen = $input->param('markseen');
+$offset=0 unless $offset;
+my $pagesize = $input->param('pagesize');
+$pagesize=20 unless $pagesize;
+
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "reports/inventory.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(minlocation => $minlocation,
+
+ offset => $offset,
+ pagesize => $pagesize,
+ datelastseen => $datelastseen,
+ );
+if ($markseen) {
+ foreach my $field ($input->param) {
+ if ($field =~ /SEEN-(.*)/) {
+ &itemseen($1);
+ &returnbook($1,"MAIN");
+ }
+ }
+}
+if ($minlocation) {
+ my @results =
listitemsforinventory($minlocation,$datelastseen,$offset,$pagesize);
+## @results is now a hash of kohaxml
+## convert to normal koha hash for the templates
+my @res;
+my $i=0;
+foreach my $xml(@results) {
+
+ my @kohafields; ## just parse the fields required
+ push
@kohafields,"title","author","biblionumber","itemnumber","barcode","itemcallnumber";
+ my $dbh=C4::Context->dbh;
+ my ($biblio,@itemrecords) = XMLmarc2koha($dbh,$xml,"",@kohafields);
+ foreach my $data(@itemrecords){
+ if ($data->{itemcallnumber}=~ /^$minlocation/){
+ $data->{title}=$biblio->{title};
+ $data->{author}=$biblio->{author};
+ push @res,$data;
+ }
+ }
+}
+ $template->param(loop =>address@hidden,
+ nextoffset => ($offset+$pagesize),
+ prevoffset =>
($offset?$offset-$pagesize:0),
+ );
+}
+output_html_with_http_headers $input, $cookie, $template->output;
+
+sub listitemsforinventory {
+ my ($minlocation,$datelastseen,$offset,$size) = @_;
+ my $count=0;
+ my @results;
+ my @kohafields;
+ my @values;
+ my @relations;
+ my $sort;
+ my @and_or;
+ my $facets;
+ if ($datelastseen){
+ push @kohafields, "itemcallnumber","datelastseen";
+ push @values,$minlocation,$datelastseen;
+ push @relations,"address@hidden 5=1 address@hidden 6=3
address@hidden 4=1 ","address@hidden 2=1 ";
+ push @and_or,"address@hidden";
+ $sort="local-number i<";
+
($count,$facets,@results)=ZEBRAsearch_kohafields(address@hidden,address@hidden,address@hidden,$sort,address@hidden,0,"",$offset,$size);
+ }else{
+ push @kohafields, "itemcallnumber";
+ push @values,$minlocation;
+ push @relations,"address@hidden 5=1 address@hidden 6=3
address@hidden 3=1 ";
+ push @and_or,"";
+ $sort="local-number i<";
+
($count,$facets,@results)=ZEBRAsearch_kohafields(address@hidden,address@hidden,address@hidden,$sort,address@hidden,0,"",$offset,$size);
+ }
+
+ return @results;
+}
+
+# Local Variables:
+# tab-width: 8
+# End:
Index: reports/issues_avg_stats.pl
===================================================================
RCS file: reports/issues_avg_stats.pl
diff -N reports/issues_avg_stats.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/issues_avg_stats.pl 26 Mar 2007 00:07:52 -0000 1.6.2.2
@@ -0,0 +1,589 @@
+#!/usr/bin/perl
+
+# $Id: issues_avg_stats.pl,v 1.6.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/issues_avg_stats.tmpl";
+my $line = $input->param("Line");
+my $column = $input->param("Column");
+my @filters = $input->param("Filter");
+my $podsp = $input->param("IssueDisplay");
+my $rodsp = $input->param("ReturnDisplay");
+my $calc = $input->param("Cellvalue");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+# Displaying results
+ my $results = calculate($line, $column, $rodsp, $podsp, $calc,
address@hidden);
+ if ($output eq "screen"){
+# Printing results to screen
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+# Printing to a csv file
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -attachment=>"$basename.csv",
+ -filename=>"$basename.csv" );
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+# header top-right
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+# Other header
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+# Table
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+# footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+# Displaying choices
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+ $req = $dbh->prepare("select distinctrow categorycode,description from
categories order by description");
+ $req->execute;
+ my @select;
+ push @select,"";
+ $select{""}="";
+ while (my ($value, $desc) =$req->fetchrow) {
+ push @select, $value;
+ $select{$value}=$desc;
+ }
+ my $CGIBorCat=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare( "select distinctrow itemtype,description from
itemtypes order by description");
+ $req->execute;
+ undef @select;
+ undef %select;
+ push @select,"";
+ $select{""}="";
+ while (my ($value,$desc) =$req->fetchrow) {
+ push @select, $value;
+ $select{$value}=$desc;
+ }
+ my $CGIItemTypes=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare("select distinctrow sort1 from borrowers where
sort1 is not null order by sort1");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my $hassort1;
+ while (my ($value) =$req->fetchrow) {
+ $hassort1 =1 if ($value);
+ push @select, $value;
+ }
+ my $branches=getbranches();
+ my @select_branch;
+ my %select_branches;
+ push @select_branch,"";
+ $select_branches{""} = "";
+ foreach my $branch (keys %$branches) {
+ push @select_branch, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIBranch=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ my $CGISort1=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare("select distinctrow sort2 from borrowers where
sort2 is not null order by sort2");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my $hassort2;
+ my $hglghtsort2;
+ while (my ($value) =$req->fetchrow) {
+ $hassort2 =1 if ($value);
+ $hglghtsort2= !($hassort1);
+ push @select, $value;
+ }
+ my $CGISort2=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @mime = ( C4::Context->preference("MIME") );
+# foreach my $mime (@mime){
+# warn "".$mime;
+# }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIBorCat => $CGIBorCat,
+ CGIItemType => $CGIItemTypes,
+ CGIBranch => $CGIBranch,
+ hassort1=> $hassort1,
+ hassort2=> $hassort2,
+ HlghtSort2 => $hglghtsort2,
+ CGISort1 => $CGISort1,
+ CGISort2 => $CGISort2,
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+}
+
+
+
+
+sub calculate {
+ my ($line, $column, $rodsp, $podsp, $process, $filters) = @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=6;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if (($i==1) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Issue From" if ($i==0);
+ $cell{crit} .="Issue To" if ($i==1);
+ $cell{crit} .="Issue Month" if ($i==2);
+ $cell{crit} .="Issue Day" if ($i==3);
+ $cell{crit} .="Return From" if ($i==4);
+ $cell{crit} .="Return To" if ($i==5);
+ $cell{crit} .="Return Month" if ($i==6);
+ $cell{crit} .="Return Day" if ($i==7);
+ $cell{crit} .="Borrower Cat" if ($i==8);
+ $cell{crit} .="Doc Type" if ($i==9);
+ $cell{crit} .="Branch" if ($i==10);
+ $cell{crit} .="Sort1" if ($i==11);
+ $cell{crit} .="Sort2" if ($i==12);
+ push @loopfilter, \%cell;
+ }
+ }
+ push @loopfilter,{crit=>"Issue Display",filter=>$rodsp} if ($rodsp);
+ push @loopfilter,{crit=>"Return Display",filter=>$podsp} if ($podsp);
+
+
+
+ my @linefilter;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+ $line = "issues.".$line if ($line=~/branchcode/) or
($line=~/timestamp/);
+ $line = "biblioitems.".$line if $line=~/itemtype/;
+
+ $linefilter[0] = @$filters[0] if ($line =~ /timestamp/ ) ;
+ $linefilter[1] = @$filters[1] if ($line =~ /timestamp/ ) ;
+ $linefilter[2] = @$filters[2] if ($line =~ /timestamp/ ) ;
+ $linefilter[3] = @$filters[3] if ($line =~ /timestamp/ ) ;
+ $linefilter[0] = @$filters[4] if ($line =~ /returndate/ ) ;
+ $linefilter[1] = @$filters[5] if ($line =~ /returndate/ ) ;
+ $linefilter[2] = @$filters[6] if ($line =~ /returndate/ ) ;
+ $linefilter[3] = @$filters[7] if ($line =~ /returndate/ ) ;
+ $linefilter[0] = @$filters[8] if ($line =~ /category/ ) ;
+ $linefilter[0] = @$filters[9] if ($line =~ /itemtype/ ) ;
+ $linefilter[0] = @$filters[10] if ($line =~ /branch/ ) ;
+# $linefilter[0] = @$filters[11] if ($line =~ /sort2/ ) ;
+ $linefilter[0] = @$filters[11] if ($line =~ /sort1/ ) ;
+ $linefilter[0] = @$filters[12] if ($line =~ /sort2/ ) ;
+#warn "filtre lignes".$linefilter[0]." ".$linefilter[1];
+#
+ $column = "issues.".$column if (($column=~/branchcode/) or
($column=~/timestamp/));
+ $column = "biblio.".$column if $column=~/itemtype/;
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /timestamp/ ) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /timestamp/ ) ;
+ $colfilter[2] = @$filters[2] if ($column =~ /timestamp/ ) ;
+ $colfilter[3] = @$filters[3] if ($column =~ /timestamp/ ) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /returndate/ ) ;
+ $colfilter[1] = @$filters[5] if ($column =~ /returndate/ ) ;
+ $colfilter[2] = @$filters[6] if ($column =~ /returndate/ ) ;
+ $colfilter[3] = @$filters[7] if ($column =~ /returndate/ ) ;
+ $colfilter[0] = @$filters[8] if ($column =~ /category/ ) ;
+ $colfilter[0] = @$filters[9] if ($column =~ /itemtype/ ) ;
+ $colfilter[0] = @$filters[10] if ($column =~ /branch/ ) ;
+# $colfilter[0] = @$filters[11] if ($column =~ /sort2/ ) ;
+ $colfilter[0] = @$filters[11] if ($column =~ /sort1/ ) ;
+ $colfilter[0] = @$filters[12] if ($column =~ /sort2/ ) ;
+#warn "filtre col ".$colfilter[0]." ".$colfilter[1];
+
+# 1st, loop rows.
+ my $linefield;
+ my $lineorder;
+ if ((($line =~/timestamp/) and ($podsp == 1)) or (($line
=~/returndate/) and ($rodsp == 1))) {
+ #Display by day
+ $linefield .="dayname($line)";
+ $lineorder .="weekday($line)";
+ } elsif ((($line =~/timestamp/) and ($podsp == 2)) or (($line
=~/returndate/) and ($rodsp == 2))) {
+ #Display by Month
+ $linefield .="monthname($line)";
+ $lineorder .="month($line)";
+ } elsif ((($line =~/timestamp/) and ($podsp == 3)) or (($line
=~/returndate/) and ($rodsp == 3))) {
+ #Display by Year
+ $linefield .="Year($line)";
+ $lineorder .= $line;
+ } elsif (($line=~/timestamp/) or ($line=~/returndate/)){
+ $linefield .= "date_format('$line',\"%Y-%m-%d\")";
+ $lineorder .= $line;
+ } else {
+ $linefield .= $line;
+ $lineorder .= $line;
+ }
+
+ my $strsth;
+ $strsth .= "select distinctrow $linefield FROM
`issues`,borrowers,biblioitems LEFT JOIN items ON
(biblioitems.biblioitemnumber=items.biblioitemnumber) LEFT JOIN issuingrules ON
(issuingrules.branchcode=issues.branchcode AND
issuingrules.itemtype=biblioitems.itemtype AND
issuingrules.categorycode=borrowers.categorycode) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+
+ if (($line=~/timestamp/) or ($line=~/returndate/)){
+ if ($linefilter[1] and ($linefilter[0])){
+ $strsth .= " and $line between '$linefilter[0]' and
'$linefilter[1]' " ;
+ } elsif ($linefilter[1]) {
+ $strsth .= " and $line < '$linefilter[1]' " ;
+ } elsif ($linefilter[0]) {
+ $strsth .= " and $line > '$linefilter[0]' " ;
+ }
+ if ($linefilter[2]){
+ $strsth .= " and dayname($line) = '$linefilter[2]' " ;
+ }
+ if ($linefilter[3]){
+ $strsth .= " and monthname($line) = '$linefilter[3]' " ;
+ }
+ } elsif ($linefilter[0]) {
+ $linefilter[0] =~ s/\*/%/g;
+ $strsth .= " and $line LIKE '$linefilter[0]' " ;
+ }
+ $strsth .=" group by $linefield";
+ $strsth .=" order by $lineorder";
+ warn "". $strsth;
+
+ my $sth = $dbh->prepare( $strsth );
+ $sth->execute;
+
+
+ while ( my ($celvalue) = $sth->fetchrow) {
+ my %cell;
+ if ($celvalue) {
+ $cell{rowtitle} = $celvalue;
+ } else {
+ $cell{rowtitle} = "";
+ }
+ $cell{totalrow} = 0;
+ push @loopline, \%cell;
+ }
+
+# 2nd, loop cols.
+ my $colfield;
+ my $colorder;
+ if ((($column =~/timestamp/) and ($podsp == 1)) or (($column
=~/returndate/) and ($rodsp == 1))) {
+ #Display by day
+ $colfield .="dayname($column)";
+ $colorder .="weekday($column)";
+ } elsif ((($column =~/timestamp/) and ($podsp == 2)) or (($column
=~/returndate/) and ($rodsp == 2))) {
+ #Display by Month
+ $colfield .="monthname($column)";
+ $colorder .="month($column)";
+ } elsif ((($column =~/timestamp/) and ($podsp == 3)) or (($column
=~/returndate/) and ($rodsp == 3))) {
+ #Display by Year
+ $colfield .="Year($column)";
+ $colorder .= $column;
+ } elsif (($column=~/timestamp/) or ($column=~/returndate/)){
+ $colfield .= 'date_format( '."'".$column."'". ', "%Y-%m-%d")';
+ $colorder .= $column;
+ } else {
+ $colfield .= $column;
+ $colorder .= $column;
+ }
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield FROM
`issues`,borrowers,biblioitems LEFT JOIN items ON
(biblioitems.biblioitemnumber=items.biblioitemnumber) LEFT JOIN issuingrules ON
(issuingrules.branchcode=issues.branchcode AND
issuingrules.itemtype=biblioitems.itemtype AND
issuingrules.categorycode=borrowers.categorycode) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+
+ if (($column=~/timestamp/) or ($column=~/returndate/)){
+ if ($colfilter[1] and ($colfilter[0])){
+ $strsth2 .= " and $column between '$colfilter[0]' and
'$colfilter[1]' " ;
+ } elsif ($colfilter[1]) {
+ $strsth2 .= " and $column < '$colfilter[1]' " ;
+ } elsif ($colfilter[0]) {
+ $strsth2 .= " and $column > '$colfilter[0]' " ;
+ }
+ if ($colfilter[2]){
+ $strsth2 .= " and dayname($column) = '$colfilter[2]' " ;
+ }
+ if ($colfilter[3]){
+ $strsth2 .= " and monthname($column) = '$colfilter[3]'
" ;
+ }
+ } elsif ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE '$colfilter[0]' " ;
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colorder";
+ warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if (( @colfilter ) and ($colfilter[1])){
+ $sth2->execute("'".$colfilter[0]."'","'".$colfilter[1]."'");
+ } elsif ($colfilter[0]) {
+ $sth2->execute($colfilter[0]);
+ } else {
+ $sth2->execute;
+ }
+
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ my %ft;
+# warn "coltitle :".$celvalue;
+ $cell{coltitle} = $celvalue;
+ $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ }
+# warn "fin des titres colonnes";
+
+ my $i=0;
+ my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my %table;
+ my %wgttable;
+ my %cnttable;
+
+# warn "init table";
+ foreach my $row ( @loopline ) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+ $table{$row->{rowtitle}}->{$col->{coltitle}}=0;
+ }
+ $table{$row->{rowtitle}}->{totalrow}=0;
+ }
+
+# preparing calculation
+ my $strcalc ;
+
+# Processing average loanperiods
+ $strcalc .= "SELECT $linefield, $colfield, ";
+ $strcalc .= " DATE_SUB(date_due, INTERVAL CAST(issuingrules.issuelength
AS SIGNED INTEGER) * (CAST(issues.renewals AS SIGNED INTEGER)+1) DAY) AS
issuedate, returndate, COUNT(*), date_due, issues.renewals, issuelength FROM
`issues`,borrowers,biblioitems LEFT JOIN items ON
(biblioitems.biblioitemnumber=items.biblioitemnumber) LEFT JOIN issuingrules ON
(issuingrules.branchcode=issues.branchcode AND
issuingrules.itemtype=biblioitems.itemtype AND
issuingrules.categorycode=borrowers.categorycode) WHERE
issues.itemnumber=items.itemnumber AND
issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
+
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND issues.timestamp > '" . @$filters[0] ."'" if (
@$filters[0] );
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND issues.timestamp < '" . @$filters[1] ."'" if (
@$filters[1] );
+ @$filters[4]=~ s/\*/%/g if (@$filters[4]);
+ $strcalc .= " AND issues.returndate > '" . @$filters[4] ."'" if (
@$filters[4] );
+ @$filters[5]=~ s/\*/%/g if (@$filters[5]);
+ $strcalc .= " AND issues.returndate < '" . @$filters[5] ."'" if (
@$filters[5] );
+ @$filters[8]=~ s/\*/%/g if (@$filters[8]);
+ $strcalc .= " AND borrowers.categorycode like '" . @$filters[8] ."'" if
( @$filters[8] );
+ @$filters[9]=~ s/\*/%/g if (@$filters[9]);
+ $strcalc .= " AND biblioitems.itemtype like '" . @$filters[9] ."'" if (
@$filters[9] );
+ @$filters[10]=~ s/\*/%/g if (@$filters[10]);
+ $strcalc .= " AND issues.branchcode like '" . @$filters[10] ."'" if (
@$filters[10] );
+ @$filters[11]=~ s/\*/%/g if (@$filters[11]);
+ $strcalc .= " AND borrowers.sort1 like '" . @$filters[11] ."'" if (
@$filters[11] );
+ @$filters[12]=~ s/\*/%/g if (@$filters[12]);
+ $strcalc .= " AND borrowers.sort2 like '" . @$filters[12] ."'" if (
@$filters[12] );
+ $strcalc .= " AND dayname(timestamp) like '" . @$filters[2]."'" if
(@$filters[2]);
+ $strcalc .= " AND monthname(timestamp) like '" . @$filters[3] ."'" if (
@$filters[3] );
+ $strcalc .= " AND dayname(returndate) like '" . @$filters[5]."'" if
(@$filters[5]);
+ $strcalc .= " AND monthname(returndate) like '" . @$filters[6] ."'" if
( @$filters[6] );
+
+ $strcalc .= " group by $linefield, $colfield, issuedate, returndate
order by $linefield, $colfield";
+ warn "SQL :". $strcalc;
+
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+ my $issues_count=0;
+ my $previous_row;
+ my $previous_col;
+ my $loanlength;
+ my $err;
+ my $emptycol;
+ my $weightrow;
+
+ while (my @data = $dbcalc->fetchrow) {
+ my ($row, $col, $issuedate, $returndate, $weight)address@hidden;
+# warn "filling table $row / $col / $issuedate / $returndate
/$weight";
+ $emptycol=1 if ($col eq undef);
+ $col = "zzEMPTY" if ($col eq undef);
+ $row = "zzEMPTY" if ($row eq undef);
+# warn "506 row :".$row." column :".$col;
+ my @result =split /:/,DateCalc($returndate,$issuedate) ;
+# DateCalc returns => 0:0:WK:DD:HH:MM:SS the weeks, days, hours, minutes,
+# and seconds between the two
+ $loanlength = $result[2]*7+$result[3];
+# warn "512 Same row and col DateCalc returns :$loanlength with
return ". $returndate ."issue ". $issuedate ."weight : ". $weight;
+# warn "513 row :".$row." column :".$col;
+ $table{$row}->{$col}+=$weight*$loanlength;
+# $table{$row}->{totalrow}+=$weight*$loanlength;
+ $cnttable{$row}->{$col}= 1;
+ $wgttable{$row}->{$col}+=$weight;
+ }
+
+ push @loopcol,{coltitle => "NULL"} if ($emptycol);
+
+ foreach my $row ( sort keys %table ) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with column
titles
+ # and the number matches the number of columns
+ my $colcount=0;
+ foreach my $col ( @loopcol ) {
+ my $value =$table{$row}->{(($col->{coltitle} eq
"NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}} /
$wgttable{$row}->{(($col->{coltitle} eq "NULL")or ($col->{coltitle} eq
""))?"zzEMPTY":$col->{coltitle}} if ($table{$row}->{(($col->{coltitle} eq
"NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}});
+
+ $table{$row}->{(($col->{coltitle} eq "NULL")or
($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}} = $value;
+ $table{$row}->{totalrow}+=$value;
+ #warn "row : $row col:$col
$cnttable{$row}->{(($col->{coltitle} eq \"NULL\")or ($col->{coltitle} eq
\"\"))?\"zzEMPTY\":$col->{coltitle}}";
+ $colcount+=$cnttable{$row}->{(($col->{coltitle} eq
"NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}};
+ push @loopcell, {value =>
($value)?sprintf("%.2f",$value):0 } ;
+ }
+ #warn "row : $row colcount:$colcount";
+ my $total = $table{$row}->{totalrow}/$colcount if ($colcount>0);
+ push @looprow,{ 'rowtitle' => ($row eq "zzEMPTY")?"NULL":$row,
+ 'loopcell' => address@hidden,
+ 'hilighted' => ($hilighted >0),
+ 'totalrow' =>
($total)?sprintf("%.2f",$total):0
+ };
+ $hilighted = -$hilighted;
+ }
+#
+# # warn "footer processing";
+ foreach my $col ( @loopcol ) {
+ my $total=0;
+ my $nbrow=0;
+ foreach my $row ( @looprow ) {
+ $total += $cnttable{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}}*$table{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+ $nbrow +=$cnttable{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};;
+# warn "value added
".$table{$row->{rowtitle}}->{$col->{coltitle}}. "for line ".$row->{rowtitle};
+ }
+# warn "summ for column ".$col->{coltitle}." = ".$total;
+ $total = $total/$nbrow if ($nbrow);
+ push @loopfooter, {'totalcol' =>
($total)?sprintf("%.2f",$total):0};
+
+ }
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/issues_by_borrower_category.plugin
===================================================================
RCS file: reports/issues_by_borrower_category.plugin
diff -N reports/issues_by_borrower_category.plugin
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/issues_by_borrower_category.plugin 26 Mar 2007 00:07:52 -0000
1.5.2.2
@@ -0,0 +1,230 @@
+#!/usr/bin/perl
+
+# $Id: issues_by_borrower_category.plugin,v 1.5.2.2 2007/03/26 00:07:52
tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Output;
+use C4::Koha;
+
+=head1 NAME
+
+plugin that shows a table with issues for categories and borrower
+
+=head1 DESCRIPTION
+
+this result is quite complex to build...
+the 2D array contains :
+* item types on lines
+* borrowers types on rows
+
+If no issues are done, the array must be filled by 0 anyway.
+So, the script works as this :
+1- parse the itemtype table to get itemtype descriptions and set itemtype
total to 0
+2- for each borrower category :
+** create an array with total = 0 for each itemtype defined in 1
+** calculate the total for each itemtype (SQL request)
+The big hash has the following structure :
+$itemtypes{itemtype}
+ ->{results}
+ ->{borrowercategorycode} => the total of issues for each cell
of the table.
+ ->{total} => the total for the itemtype
+ ->{description} => the itemtype description
+
+the borrowertype hash contains description and total for each borrowercategory.
+
+the hashes are then translated to hash / arrays to be returned to manager.pl &
send to the template
+
+=over2
+
+=cut
+
+sub set_parameters {
+ my ($template) = @_;
+ my $dbh = C4::Context->dbh;
+ my $branches=GetBranches();
+ my @branches;
+ my @select_branch;
+ my %select_branches;
+ push @select_branch,"";
+ $select_branches{""} = "";
+ foreach my $branch (keys %$branches) {
+ push @select_branch, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIbranch=CGI::scrolling_list( -name => 'value',
+ -id => 'value',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+ $template->param(CGIbranch => $CGIbranch);
+ return $template;
+}
+sub calculate {
+ my ($parameters) = @_;
+ my @results =();
+# extract parameters
+ my $borrower_category = @$parameters[0];
+ my $branch = @$parameters[1];
+ my $dbh = C4::Context->dbh;
+# build the SQL query & execute it
+
+# 1st, loop every itemtypes.
+ my $sth = $dbh->prepare("select itemtype,description from itemtypes");
+ $sth->execute;
+ my %itemtypes;
+ while (my ($itemtype,$description) = $sth->fetchrow) {
+ $itemtypes{$itemtype}->{description} = $description;
+ $itemtypes{$itemtype}->{total} = 0;
+ }
+# now, parse each category. Before filling the result array, fill it with 0 to
have every itemtype column.
+ my $strsth="SELECT itemtype, count( * )
+ FROM issues, borrowers, biblio, items
+ WHERE issues.borrowernumber =
borrowers.borrowernumber
+ AND items.itemnumber =
issues.itemnumber
+ AND biblio.biblionumber =
items.biblionumber
+ AND borrowers.categorycode = ?";
+ $strsth.= " AND borrowers.branchcode = ".$dbh->quote($branch) if
($branch);
+ $strsth .= " GROUP BY biblio.itemtype";
+ my $sth = $dbh->prepare($strsth);
+ my $sthcategories = $dbh->prepare("select categorycode,description from
categories");
+ $sthcategories->execute;
+ my %borrowertype;
+ my @categorycodeloop;
+ my $categorycode;
+ my $description;
+ my $borrower_categorycode =0;
+ my @mainloop;
+ my @itemtypeloop;
+ my @loopborrowertype;
+ my @loopborrowertotal;
+ my %globalline;
+ my $hilighted=-1;
+ my $grantotal =0;
+ #If no Borrower-category selected....
+ # Print all
+ if (!$borrower_category) {
+ while ( ($categorycode,$description) =
$sthcategories->fetchrow) {
+ $borrowertype{$categorycode}->{description} =
$description;
+ $borrowertype{$categorycode}->{total} = 0;
+ my %categorycode;
+ $categorycode{categorycode} = $description;
+ push @categorycodeloop,\%categorycode;
+ foreach my $itemtype (keys %itemtypes) {
+
$itemtypes{$itemtype}->{results}->{$categorycode} = 0;
+ }
+ $sth->execute($categorycode);
+ while (my ($itemtype, $total) = $sth->fetchrow) {
+
$itemtypes{$itemtype}->{results}->{$categorycode} = $total;
+ $borrowertype{$categorycode}->{total} += $total;
+ $itemtypes{$itemtype}->{total} += $total;
+ $grantotal += $total;
+ }
+ }
+ # build the result
+ foreach my $itemtype (keys %itemtypes) {
+ my @loopitemtype;
+ $sthcategories->execute;
+ while (($categorycode,$description) =
$sthcategories->fetchrow ) {
+ my %cell;
+ $cell{issues} =
$itemtypes{$itemtype}->{results}->{$categorycode};
+ #printf stderr "%s ",$categorycode;
+ push @loopitemtype,\%cell;
+ }
+ #printf stderr "\n";
+ my %line;
+ $line{loopitemtype} = address@hidden;
+ if ($itemtypes{$itemtype}->{description}) {
+ $line{itemtype} =
$itemtypes{$itemtype}->{description};
+ } else {
+ $line{itemtype} = "$itemtype (no entry in
itemtype table)";
+ }
+ $line{hilighted} = 1 if $hilighted eq 1;
+ $line{totalitemtype} = $itemtypes{$itemtype}->{total};
+ $hilighted = -$hilighted;
+ push @loopborrowertype, \%line;
+ }
+ $sthcategories->execute;
+ while (($categorycode,$description) = $sthcategories->fetchrow
) {
+ my %line;
+ $line{issues} = $borrowertype{$categorycode}->{total};
+ push @loopborrowertotal, \%line;
+ }
+ } else {
+ # A Borrower_category has been selected
+ # extracting corresponding data
+ $borrowertype{$categorycode}->{description} =
$borrower_category;
+ $borrowertype{$categorycode}->{total} = 0;
+ while (($categorycode,$description) = $sthcategories->fetchrow)
{
+ if ($description =~ /$borrower_category/ ) {
+ $borrower_categorycode = $categorycode;
+ my %cc;
+ $cc{categorycode} = $description;
+ push @categorycodeloop,\%cc;
+ foreach my $itemtype (keys %itemtypes) {
+
$itemtypes{$itemtype}->{results}->{$categorycode} = 0;
+ }
+ $sth->execute($categorycode);
+ while (my ($itemtype, $total) = $sth->fetchrow)
{
+
$itemtypes{$itemtype}->{results}->{$categorycode} = $total;
+ $borrowertype{$categorycode}->{total}
+= $total;
+ $itemtypes{$itemtype}->{total} +=
$total;
+ $grantotal +=$total;
+ }
+ }
+ }
+ # build the result
+ foreach my $itemtype (keys %itemtypes) {
+ my @loopitemtype;
+ my %cell;
+
$cell{issues}=$itemtypes{$itemtype}->{results}->{$borrower_categorycode};
+ push @loopitemtype, \%cell;
+ my %line;
+ $line{loopitemtype} = address@hidden;
+ if ($itemtypes{$itemtype}->{description}) {
+ $line{itemtype} =
$itemtypes{$itemtype}->{description};
+ } else {
+ $line{itemtype} = "$itemtype (no entry in
itemtype table)";
+ }
+ $line{hilighted} = 1 if $hilighted eq 1;
+ $line{totalitemtype} = $itemtypes{$itemtype}->{total};
+ $hilighted = -$hilighted;
+ push @loopborrowertype, \%line;
+ }
+ my %cell;
+ $cell{issues} = $borrowertype{$borrower_categorycode}->{total};
+ push @loopborrowertotal, \%cell;
+ }
+ # the header of the table
+ $globalline{loopborrowertype} = address@hidden;
+ # the core of the table
+ $globalline{categorycodeloop} = address@hidden;
+ # the foot (totals by borrower type)
+ $globalline{loopborrowertotal} = address@hidden;
+ $globalline{grantotal}= $grantotal;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/issues_stats.pl
===================================================================
RCS file: reports/issues_stats.pl
diff -N reports/issues_stats.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/issues_stats.pl 26 Mar 2007 00:07:52 -0000 1.14.2.2
@@ -0,0 +1,530 @@
+#!/usr/bin/perl
+
+# $Id: issues_stats.pl,v 1.14.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Koha;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use C4::Date;
+
+=head1 NAME
+
+plugin that shows a stats on borrowers
+
+=head1 DESCRIPTION
+
+
+=over2
+
+=cut
+
+
+
+my $input = new CGI;
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/issues_stats.tmpl";
+my $line = $input->param("Line");
+my $column = $input->param("Column");
+my @filters = $input->param("Filter");
+my $podsp = $input->param("DisplayBy");
+my $type = $input->param("PeriodTypeSel");
+my $daysel = $input->param("PeriodDaySel");
+my $monthsel = $input->param("PeriodMonthSel");
+my $calc = $input->param("Cellvalue");
+my $output = $input->param("output");
+my $basename = $input->param("basename");
+my $mime = $input->param("MIME");
+my $del = $input->param("sep");
+#warn "calcul : ".$calc;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it);
+if ($do_it) {
+# Displaying results
+ my $results = calculate($line, $column, $podsp, $type, $daysel,
$monthsel, $calc, address@hidden);
+ if ($output eq "screen"){
+# Printing results to screen
+ $template->param(mainloop => $results);
+ output_html_with_http_headers $input, $cookie,
$template->output;
+ exit(1);
+ } else {
+# Printing to a csv file
+ print $input->header(-type => 'application/vnd.sun.xml.calc',
+ -attachment=>"$basename.csv",
+ -filename=>"$basename.csv" );
+ my $cols = @$results[0]->{loopcol};
+ my $lines = @$results[0]->{looprow};
+ my $sep;
+ $sep =C4::Context->preference("delimiter");
+# header top-right
+ print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
+# Other header
+ foreach my $col ( @$cols ) {
+ print $col->{coltitle}.$sep;
+ }
+ print "Total\n";
+# Table
+ foreach my $line ( @$lines ) {
+ my $x = $line->{loopcell};
+ print $line->{rowtitle}.$sep;
+ foreach my $cell (@$x) {
+ print $cell->{value}.$sep;
+ }
+ print $line->{totalrow};
+ print "\n";
+ }
+# footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ foreach my $col ( @$cols ) {
+ print $sep.$col->{totalcol};
+ }
+ print address@hidden>{total};
+ exit(1);
+ }
+# Displaying choices
+} else {
+ my $dbh = C4::Context->dbh;
+ my @values;
+ my %labels;
+ my %select;
+ my $req;
+ $req = $dbh->prepare("select distinctrow categorycode,description from
categories order by description");
+ $req->execute;
+ my @select;
+ push @select,"";
+ $select{""}="";
+ while (my ($value, $desc) =$req->fetchrow) {
+ push @select, $value;
+ $select{$value}=$desc;
+ }
+ my $CGIBorCat=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare( "select distinctrow itemtype,description from
itemtypes order by description");
+ $req->execute;
+ undef @select;
+ undef %select;
+ push @select,"";
+ $select{""}="";
+ while (my ($value,$desc) =$req->fetchrow) {
+ push @select, $value;
+ $select{$value}=$desc;
+ }
+ my $CGIItemTypes=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare("select distinctrow sort1 from borrowers where
sort1 is not null order by sort1");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my $hassort1;
+ while (my ($value) =$req->fetchrow) {
+ $hassort1 =1 if ($value);
+ push @select, $value;
+ }
+ my $branches=GetBranches();
+ my @select_branch;
+ my %select_branches;
+ push @select_branch,"";
+ $select_branches{""} = "";
+ foreach my $branch (keys %$branches) {
+ push @select_branch, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIBranch=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ my $CGISort1=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $req = $dbh->prepare("select distinctrow sort2 from borrowers where
sort2 is not null order by sort2");
+ $req->execute;
+ undef @select;
+ push @select,"";
+ my $hassort2;
+ my $hglghtsort2;
+ while (my ($value) =$req->fetchrow) {
+ $hassort2 =1 if ($value);
+ $hglghtsort2= !($hassort1);
+ push @select, $value;
+ }
+ my $CGISort2=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @mime = ( C4::Context->preference("MIME") );
+# foreach my $mime (@mime){
+# warn "".$mime;
+# }
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param(
+ CGIBorCat => $CGIBorCat,
+ CGIItemType => $CGIItemTypes,
+ CGIBranch => $CGIBranch,
+ hassort1=> $hassort1,
+ hassort2=> $hassort2,
+ HlghtSort2 => $hglghtsort2,
+ CGISort1 => $CGISort1,
+ CGISort2 => $CGISort2,
+ CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+output_html_with_http_headers $input, $cookie, $template->output;
+}
+
+
+
+
+sub calculate {
+ my ($line, $column, $dsp, $type,$daysel,$monthsel ,$process, $filters)
= @_;
+ my @mainloop;
+ my @loopfooter;
+ my @loopcol;
+ my @loopline;
+ my @looprow;
+ my %globalline;
+ my $grantotal =0;
+# extract parameters
+ my $dbh = C4::Context->dbh;
+
+# Filters
+# Checking filters
+#
+ my @loopfilter;
+ for (my $i=0;$i<=6;$i++) {
+ my %cell;
+ if ( @$filters[$i] ) {
+ if (($i==1) and (@$filters[$i-1])) {
+ $cell{err} = 1 if
(@$filters[$i]<@$filters[$i-1]) ;
+ }
+ $cell{filter} .= @$filters[$i];
+ $cell{crit} .="Period From" if ($i==0);
+ $cell{crit} .="Period To" if ($i==1);
+ $cell{crit} .="Borrower Cat" if ($i==2);
+ $cell{crit} .="Doc Type" if ($i==3);
+ $cell{crit} .="Branch" if ($i==4);
+ $cell{crit} .="Sort1" if ($i==5);
+ $cell{crit} .="Sort2" if ($i==6);
+ push @loopfilter, \%cell;
+ }
+ }
+ push @loopfilter,{crit=>"Issue|Return ",filter=>$type};
+ push @loopfilter,{crit=>"Display by ",filter=>$dsp} if ($dsp);
+ push @loopfilter,{crit=>"Select Day ",filter=>$daysel} if ($daysel);
+ push @loopfilter,{crit=>"Select Month ",filter=>$monthsel} if
($monthsel);
+
+
+ my @linefilter;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+# warn "filtres "address@hidden;
+
+ $linefilter[0] = @$filters[0] if ($line =~ /datetime/ ) ;
+ $linefilter[1] = @$filters[1] if ($line =~ /datetime/ ) ;
+ $linefilter[0] = @$filters[2] if ($line =~ /category/ ) ;
+ $linefilter[0] = @$filters[3] if ($line =~ /itemtype/ ) ;
+ $linefilter[0] = @$filters[4] if ($line =~ /branch/ ) ;
+# $linefilter[0] = @$filters[11] if ($line =~ /sort2/ ) ;
+ $linefilter[0] = @$filters[5] if ($line =~ /sort1/ ) ;
+ $linefilter[0] = @$filters[6] if ($line =~ /sort2/ ) ;
+#warn "filtre lignes".$linefilter[0]." ".$linefilter[1];
+#
+ my @colfilter ;
+ $colfilter[0] = @$filters[0] if ($column =~ /datetime/) ;
+ $colfilter[1] = @$filters[1] if ($column =~ /datetime/) ;
+ $colfilter[0] = @$filters[2] if ($column =~ /category/) ;
+ $colfilter[0] = @$filters[3] if ($column =~ /itemtype/) ;
+ $colfilter[0] = @$filters[4] if ($column =~ /branch/ ) ;
+ $colfilter[0] = @$filters[5] if ($column =~ /sort1/ ) ;
+ $colfilter[0] = @$filters[6] if ($column =~ /sort2/ ) ;
+#warn "filtre col ".$colfilter[0]." ".$colfilter[1];
+
+# 1st, loop rows.
+ my $linefield;
+ if (($line =~/datetime/) and ($dsp == 1)) {
+ #Display by day
+ $linefield .="concat(weekday($line),' ',dayname($line))";
+ } elsif (($line=~/datetime/) and ($dsp == 2)) {
+ #Display by Month
+ $linefield .="monthname($line)";
+ } elsif (($line=~/datetime/) and ($dsp == 3)) {
+ #Display by Year
+ $linefield .="Year($line)";
+ } elsif ($line=~/datetime/) {
+ $linefield .= 'date_format(`datetime`,"%Y-%m-%d")';
+ } else {
+ $linefield .= $line;
+ }
+ my $lineorder = $linefield;
+ $lineorder = "weekday($line)" if $lineorder =~ "^dayname";
+
+ my $strsth;
+ $strsth .= "select distinctrow $linefield from statistics, borrowers
where (statistics.borrowernumber=borrowers.borrowernumber) and $line is not
null ";
+
+ if ($line=~/datetime/) {
+ if ($linefilter[1] and ($linefilter[0])){
+ $strsth .= " and $line between ? and ? " ;
+ } elsif ($linefilter[1]) {
+ $strsth .= " and $line < ? " ;
+ } elsif ($linefilter[0]) {
+ $strsth .= " and $line > ? " ;
+ }
+ $strsth .= " and type ='".$type."' " if $type;
+ $strsth .= " and dayname(datetime) ='". $daysel ."' " if
$daysel;
+ $strsth .= " and monthname(datetime) ='". $monthsel ."' " if
$monthsel;
+ } elsif ($linefilter[0]) {
+ $linefilter[0] =~ s/\*/%/g;
+ $strsth .= " and $line LIKE ? " ;
+ }
+ $strsth .=" group by $linefield";
+ $strsth .=" order by $lineorder";
+ warn "". $strsth;
+
+ my $sth = $dbh->prepare( $strsth );
+ if (( @linefilter ) and ($linefilter[1])){
+ $sth->execute("'".$linefilter[0]."'","'".$linefilter[1]."'");
+ } elsif ($linefilter[0]) {
+ $sth->execute($linefilter[0]);
+ } else {
+ $sth->execute;
+ }
+
+ while ( my ($celvalue) = $sth->fetchrow) {
+ my %cell;
+ if ($celvalue) {
+ $cell{rowtitle} = $celvalue;
+ } else {
+ $cell{rowtitle} = "";
+ }
+ $cell{totalrow} = 0;
+ push @loopline, \%cell;
+ }
+
+# 2nd, loop cols.
+ my $colfield;
+ if (($column =~/datetime/) and ($dsp == 1)) {
+ #Display by day
+ $colfield .="dayname($column)";
+ } elsif (($column=~/datetime/) and ($dsp == 2)) {
+ #Display by Month
+ $colfield .="monthname($column)";
+ } elsif (($column=~/datetime/) and ($dsp == 3)) {
+ #Display by Year
+ $colfield .="Year($column)";
+ } elsif ($column=~/datetime/) {
+ $colfield .='date_format(`datetime`,"%Y-%m-%d")';
+ } else {
+ $colfield .= $column;
+ }
+
+ my $strsth2;
+ $strsth2 .= "select distinctrow $colfield from statistics, borrowers
where (statistics.borrowernumber=borrowers.borrowernumber) and $column is not
null ";
+
+ if ($column=~/datetime/){
+ if (($colfilter[1]) and ($colfilter[0])){
+ $strsth2 .= " and $column between ? and ? " ;
+ } elsif ($colfilter[1]) {
+ $strsth2 .= " and $column < ? " ;
+ } elsif ($colfilter[0]) {
+ $strsth2 .= " and $column > ? " ;
+ }
+ $strsth2 .= " and type ='".$type."' " if $type;
+ $strsth2 .= " and dayname(datetime) ='". $daysel ."' " if
$daysel;
+ $strsth2 .= " and monthname(datetime) ='". $monthsel ."' " if
$monthsel;
+ } elsif ($colfilter[0]) {
+ $colfilter[0] =~ s/\*/%/g;
+ $strsth2 .= " and $column LIKE ? " ;
+ }
+ $strsth2 .=" group by $colfield";
+ $strsth2 .=" order by $colfield";
+# warn "". $strsth2;
+
+ my $sth2 = $dbh->prepare( $strsth2 );
+ if (( @colfilter ) and ($colfilter[1])){
+ $sth2->execute("'".$colfilter[0]."'","'".$colfilter[1]."'");
+ } elsif ($colfilter[0]) {
+ $sth2->execute($colfilter[0]);
+ } else {
+ $sth2->execute;
+ }
+
+
+ while (my ($celvalue) = $sth2->fetchrow) {
+ my %cell;
+ my %ft;
+# warn "coltitle :".$celvalue;
+ $cell{coltitle} = $celvalue;
+ $ft{totalcol} = 0;
+ push @loopcol, \%cell;
+ }
+# warn "fin des titres colonnes";
+
+ my $i=0;
+ my @totalcol;
+ my $hilighted=-1;
+
+ #Initialization of cell values.....
+ my %table;
+# warn "init table";
+ foreach my $row ( @loopline ) {
+ foreach my $col ( @loopcol ) {
+# warn " init table : $row->{rowtitle} / $col->{coltitle}
";
+ $table{$row->{rowtitle}}->{$col->{coltitle}}=0;
+ }
+ $table{$row->{rowtitle}}->{totalrow}=0;
+ }
+
+# preparing calculation
+ my $strcalc ;
+
+ $strcalc .= "SELECT $linefield, $colfield, ";
+ $strcalc .= "COUNT( * ) " if ($process ==1);
+ if ($process ==3){
+ my $rqbookcount = $dbh->prepare("SELECT count(*) FROM items");
+ $rqbookcount->execute;
+ my ($bookcount) = $rqbookcount->fetchrow;
+ $strcalc .= "100*(COUNT(itemnumber))/ $bookcount " ;
+ }
+ $strcalc .= "FROM statistics,borrowers where
(statistics.borrowernumber=borrowers.borrowernumber) ";
+
+ @$filters[0]=~ s/\*/%/g if (@$filters[0]);
+ $strcalc .= " AND statistics.datetime > '" . @$filters[0] ."'" if (
@$filters[0] );
+ @$filters[1]=~ s/\*/%/g if (@$filters[1]);
+ $strcalc .= " AND statistics.datetime < '" . @$filters[1] ."'" if (
@$filters[1] );
+ @$filters[2]=~ s/\*/%/g if (@$filters[2]);
+ $strcalc .= " AND borrowers.categorycode like '" . @$filters[2] ."'" if
( @$filters[2] );
+ @$filters[3]=~ s/\*/%/g if (@$filters[3]);
+ $strcalc .= " AND statistics.itemtype like '" . @$filters[3] ."'" if (
@$filters[3] );
+ @$filters[4]=~ s/\*/%/g if (@$filters[4]);
+ $strcalc .= " AND statistics.branch like '" . @$filters[4] ."'" if (
@$filters[4] );
+ @$filters[5]=~ s/\*/%/g if (@$filters[5]);
+ $strcalc .= " AND borrowers.sort1 like '" . @$filters[5] ."'" if (
@$filters[5] );
+ @$filters[6]=~ s/\*/%/g if (@$filters[6]);
+ $strcalc .= " AND borrowers.sort2 like '" . @$filters[6] ."'" if (
@$filters[6] );
+ $strcalc .= " AND dayname(datetime) like '" . $daysel ."'" if ( $daysel
);
+ $strcalc .= " AND monthname(datetime) like '" . $monthsel ."'" if (
$monthsel );
+ $strcalc .= " AND statistics.type like '" . $type ."'" if ( $type );
+
+ $strcalc .= " group by $linefield, $colfield order by
$lineorder,$colfield";
+# warn "". $strcalc;
+ my $dbcalc = $dbh->prepare($strcalc);
+ $dbcalc->execute;
+# warn "filling table";
+ my $emptycol;
+ while (my ($row, $col, $value) = $dbcalc->fetchrow) {
+# warn "filling table $row / $col / $value ";
+ $emptycol = 1 if ($col eq undef);
+ $col = "zzEMPTY" if ($col eq undef);
+ $row = "zzEMPTY" if ($row eq undef);
+
+ $table{$row}->{$col}+=$value;
+ $table{$row}->{totalrow}+=$value;
+ $grantotal += $value;
+ }
+ push @loopcol,{coltitle => "NULL"} if ($emptycol);
+
+ foreach my $row ( sort keys %table ) {
+ my @loopcell;
+ address@hidden ensures the order for columns is common with
column titles
+ # and the number matches the number of columns
+ foreach my $col ( @loopcol ) {
+ my $value =$table{$row}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+ push @loopcell, {value => $value } ;
+ }
+ push @looprow,{ 'rowtitle' => ($row eq "zzEMPTY")?"NULL":$row,
+ 'loopcell' =>
address@hidden,
+ 'hilighted' =>
($hilighted >0),
+ 'totalrow' =>
$table{$row}->{totalrow}
+ };
+ $hilighted = -$hilighted;
+ }
+
+# warn "footer processing";
+ foreach my $col ( @loopcol ) {
+ my $total=0;
+ foreach my $row ( @looprow ) {
+ $total += $table{($row->{rowtitle} eq
"NULL")?"zzEMPTY":$row->{rowtitle}}->{($col->{coltitle} eq
"NULL")?"zzEMPTY":$col->{coltitle}};
+# warn "value added
".$table{$row->{rowtitle}}->{$col->{coltitle}}. "for line ".$row->{rowtitle};
+ }
+# warn "summ for column ".$col->{coltitle}." = ".$total;
+ push @loopfooter, {'totalcol' => $total};
+ }
+
+
+ # the header of the table
+ address@hidden;
+ # the core of the table
+ $globalline{looprow} = address@hidden;
+ $globalline{loopcol} = address@hidden;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = address@hidden;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/itemtypes.plugin
===================================================================
RCS file: reports/itemtypes.plugin
diff -N reports/itemtypes.plugin
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/itemtypes.plugin 26 Mar 2007 00:07:52 -0000 1.4.2.2
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+
+# $Id: itemtypes.plugin,v 1.4.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Output;
+use C4::Koha;
+
+=head1
+
+=cut
+
+sub set_parameters {
+ my ($template) = @_;
+ my $dbh = C4::Context->dbh;
+ my $branches=GetBranches();
+ my @branches;
+ my @select_branch;
+ my %select_branches;
+ push @select_branch,"";
+ $select_branches{""} = "";
+ foreach my $branch (keys %$branches) {
+ push @select_branch, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIbranch=CGI::scrolling_list( -name => 'value',
+ -id => 'value',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+ $template->param(CGIbranch => $CGIbranch);
+ return $template;
+}
+sub calculate {
+ my ($parameters) = @_;
+ my @results =();
+ my $branch = @$parameters[0];
+ my $dbh = C4::Context->dbh;
+ my $sth;
+# if ($branch) {
+ $sth = $dbh->prepare("select description, biblio.itemtype,
count(*) as total from biblio
+ left join itemtypes on
biblio.itemtype=itemtypes.itemtype
+ left join items on
items.biblionumber=biblio.biblionumber
+ group by biblio.itemtype");
+ $sth->execute();
+# } else {
+# $sth = $dbh->prepare("select description, biblio.itemtype,
count(*) as total from itemtypes, biblio where
biblio.itemtype=itemtypes.itemtype group by biblio.itemtype");
+# $sth->execute;
+# }
+ my ($description,$biblioitems,$total);
+ my $grantotal = 0;
+ my $count = 0;
+ while (($description,$biblioitems,$total) = $sth->fetchrow) {
+ my %line;
+ if($count % 2){
+ $line{toggle} = 1;
+ } else {
+ $line{toggle} = 0;
+ }
+ $line{itemtype} = $description;
+ $line{count} = $total;
+ $grantotal += $total;
+ push @results,\%line;
+ $count ++;
+ }
+ my @mainloop;
+ my %globalline;
+ $globalline{loopitemtype} = address@hidden;
+ $globalline{total} = $grantotal;
+ $globalline{branch} = $branch;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reports/manager.pl
===================================================================
RCS file: reports/manager.pl
diff -N reports/manager.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/manager.pl 26 Mar 2007 00:07:52 -0000 1.4.2.2
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Context;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+
+my $input = new CGI;
+my $report_name=$input->param("report_name");
+my $do_it=$input->param('do_it');
+my $fullreportname = "reports/".$report_name.".tmpl";
+my @values = $input->param("value");
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => $fullreportname,
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {superlibrarian => 1},
+ debug => 1,
+ });
+$template->param(do_it => $do_it,
+ report_name => $report_name);
+my $cgidir = C4::Context->config('intranetdir')."/cgi-bin/reports/";
+unless (opendir(DIR, "$cgidir")) {
+ $cgidir = C4::Context->intranetdir."/reports/";
+}
+my $plugin = $cgidir.$report_name.".plugin";
+require $plugin;
+if ($do_it) {
+ my $results = calculate(address@hidden);
+ $template->param(mainloop => $results);
+} else {
+ $template = set_parameters($template);
+}
+output_html_with_http_headers $input, $cookie, $template->output;
Index: reports/onloan.pl
===================================================================
RCS file: reports/onloan.pl
diff -N reports/onloan.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/onloan.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,209 @@
+#!/usr/bin/perl
+
+# $Id: onloan.pl,v 1.1.2.1 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Context;
+use CGI;
+
+use C4::Auth;
+use C4::Date;
+use C4::Biblio;
+use C4::Search;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use POSIX qw(ceil floor);
+
+my $input = new CGI;
+my $type=$input->param('type');
+
+my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/onloan.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+my $duedate;
+my $bornum;
+my $itemnumber;
+my $barcode;
+my $data1;
+my $data2;
+my $data3;
+my $name;
+my $categorycode;
+my $phone;
+my $email;
+my $biblionumber;
+my $title;
+my $author;
+my $overduedate;
+my @datearr = localtime(time());
+my $todaysdate = get_today();
+
+my $dbh = C4::Context->dbh;
+my $count=0;
+my @results;
+my @kohafields;
+my @values;
+my @relations;
+my $sort;
+my @and_or;
+my $facets;
+push @kohafields,"date_due";
+push @values,"0000-00-00";
+push @relations ,"address@hidden 2=5"; ##
+ my $startfrom=$input->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+$sort="date_due,1";
+my $number_of_results=20;
+($count,$facets,@results)=ZEBRAsearch_kohafields(address@hidden,address@hidden,address@hidden,$sort,address@hidden,0,"",$startfrom,
$number_of_results,"intranet");
+
+
+my $totalcount=$input->param('totalcount');
+unless ($totalcount){
+my $sth=$dbh->prepare("Select count(itemnumber) from issues where returndate
is null");
+$sth->execute();
+$totalcount=$sth->fetchrow;
+}
+my @overduedata;
+foreach my $xml(@results) {
+my @kohafields; ## just parse the fields required
+push
@kohafields,"title","author","biblionumber","itemnumber","barcode","date_due","borrowernumber";
+my ($biblio,@itemrecords) = XMLmarc2koha($dbh,$xml,"",@kohafields);
+ foreach my $data(@itemrecords){
+ if ( $todaysdate gt $data->{'date_due'} && $data->{'date_due'}){
+ $overduedate=format_date($data->{'date_due'});
+ $duedate=''
+ }elsif ($data->{'date_due'} gt "000-00-00") {
+ $duedate=format_date($data->{'date_due'});
+ $overduedate=''
+ }else{
+ next;
+ }
+ $bornum=$data->{'borrowernumber'};
+ $itemnumber=$data->{'itemnumber'};
+ $biblionumber=$data->{'biblionumber'};
+ $barcode=$data->{'barcode'};
+
+ my $sth1=$dbh->prepare("select concat(firstname,'
',surname),phone,emailaddress,categorycode from borrowers where
borrowernumber=?");
+ $sth1->execute($bornum);
+ $data1=$sth1->fetchrow_hashref;
+ $name=$data1->{'concat(firstname,\' \',surname)'};
+ $phone=$data1->{'phone'};
+ $categorycode=$data1->{'categorycode'};
+ $email=$data1->{'emailaddress'};
+ $sth1->finish;
+
+
+
+
+
+ $title=$biblio->{'title'};
+ $author=$biblio->{'author'};
+ push (@overduedata, { duedate => $duedate,
+ bornum => $bornum,
+ itemnumber => $itemnumber,
+ name => $name,
+ categorycode => $categorycode,
+ phone => $phone,
+ email => $email,
+ biblionumber => $biblionumber,
+ overduedate => $overduedate,
+ barcode =>$barcode,
+ title => $title,
+ author => $author });
+
+
+ }##foreach item
+}## for each biblio
+#this is to show the images numbers to navigate among the results, if it has
to show the number highlighted or not
+ my $numbers;
+ @$numbers = ();
+ my $pg = 1;
+ if (defined($input->param('pg'))) {
+ $pg = $input->param('pg');
+ }
+ my $start = 0;
+
+ $start = ($pg - 1) * $number_of_results;
+ my $pages = ceil($count / $number_of_results);
+ my $total_pages = ceil($count / $number_of_results);
+
+ if ($pg > 1) {
+ my $url = $pg - 1;
+ push @$numbers, { number => "<<",
+ highlight => 0 ,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 ,
+ startfrom =>
($url-1)*$number_of_results+1,
+ pg => $url };
+ }
+ my $current_ten = $pg / 10;
+ if ($current_ten == 0) {
+ $current_ten = 0.1; # In case it´s in ten = 0
+ }
+ my $from = $current_ten * 10; # Calculate the initial page
+ my $end_ten = $from + 9;
+ my $to;
+ if ($pages > $end_ten) {
+ $to = $end_ten;
+ } else {
+ $to = $pages;
+ }
+ for (my $i = $from; $i <= $to ; $i++) {
+ if ($i == $pg) {
+ if ($count > $number_of_results) {
+ push @$numbers, { number => $i,
+ highlight =>
1 ,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 ,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 ,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 ,
+ startfrom =>
($total_pages-1)*$number_of_results,
+ pg => $total_pages};
+ }
+ $template->param(numbers =>$numbers,
+ );
+
+$template->param( dateformatted => format_date($todaysdate),
totalcount=>$totalcount,
+ overdueloop => address@hidden );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: reports/overdue.pl
===================================================================
RCS file: reports/overdue.pl
diff -N reports/overdue.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/overdue.pl 26 Mar 2007 00:07:52 -0000 1.2.2.2
@@ -0,0 +1,201 @@
+#!/usr/bin/perl
+
+# $Id: overdue.pl,v 1.2.2.2 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Context;
+use CGI;
+
+use C4::Auth;
+use C4::Date;
+use C4::Biblio;
+use C4::Search;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use POSIX qw(ceil floor);
+
+my $input = new CGI;
+my $type=$input->param('type');
+
+my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/overdue.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+my $duedate;
+my $bornum;
+my $itemnumber;
+my $barcode;
+my $data1;
+my $data2;
+my $data3;
+my $name;
+my $categorycode;
+my $phone;
+my $email;
+my $biblionumber;
+my $title;
+my $author;
+my @datearr = localtime(time());
+my $todaysdate = get_today();
+my $dateformatted= format_date($todaysdate);
+my $dbh = C4::Context->dbh;
+my $count=0;
+my @results;
+my @kohafields;
+my @values;
+my @relations;
+my $sort;
+my @and_or;
+my $facets;
+push @kohafields, "date_due","date_due";
+push @values,$todaysdate,"0000-00-00";
+push @relations ,"address@hidden 2=1","address@hidden 2=5"; ##
+push @and_or,"address@hidden";
+ my $startfrom=$input->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+$sort="date_due,1";
+my $number_of_results=20;
+
($count,$facets,@results)=ZEBRAsearch_kohafields(address@hidden,address@hidden,address@hidden,$sort,address@hidden,0,"",$startfrom,
$number_of_results,"intranet");
+
+my $totalcount=$input->param('totalcount');
+unless ($totalcount){
+my $sth=$dbh->prepare("Select count(itemnumber) from issues where returndate
is null");
+$sth->execute();
+$totalcount=$sth->fetchrow;
+}
+
+my @overduedata;
+foreach my $xml(@results) {
+my @kohafields; ## just parse the fields required
+push
@kohafields,"title","author","biblionumber","itemnumber","barcode","date_due","borrowernumber";
+my ($biblio,@itemrecords) = XMLmarc2koha($dbh,$xml,"",@kohafields);
+ foreach my $data(@itemrecords){
+ if ($data->{'date_due'} lt $todaysdate && $data->{'date_due'} ){
+ $duedate=format_date($data->{'date_due'});
+ $bornum=$data->{'borrowernumber'};
+ $itemnumber=$data->{'itemnumber'};
+ $biblionumber=$data->{'biblionumber'};
+ $barcode=$data->{'barcode'};
+
+ my $sth1=$dbh->prepare("select concat(firstname,'
',surname),phone,emailaddress,categorycode from borrowers where
borrowernumber=?");
+ $sth1->execute($bornum);
+ $data1=$sth1->fetchrow_hashref;
+ $name=$data1->{'concat(firstname,\' \',surname)'};
+ $phone=$data1->{'phone'};
+ $categorycode=$data1->{'categorycode'};
+ $email=$data1->{'emailaddress'};
+ $sth1->finish;
+
+
+
+
+
+ $title=$biblio->{'title'};
+ $author=$biblio->{'author'};
+ push (@overduedata, { duedate => $duedate,
+ bornum => $bornum,
+ itemnumber => $itemnumber,
+ name => $name,
+ categorycode => $categorycode,
+ phone => $phone,
+ email => $email,
+ biblionumber => $biblionumber,
+
+ barcode =>$barcode,
+ title => $title,
+ author => $author });
+ }## if overdue
+
+ }##foreach item
+}## for each biblio
+#this is to show the images numbers to navigate among the results, if it has
to show the number highlighted or not
+ my $numbers;
+ @$numbers = ();
+ my $pg = 1;
+ if (defined($input->param('pg'))) {
+ $pg = $input->param('pg');
+ }
+ my $start = 0;
+
+ $start = ($pg - 1) * $number_of_results;
+ my $pages = ceil($count / $number_of_results);
+ my $total_pages = ceil($count / $number_of_results);
+
+ if ($pg > 1) {
+ my $url = $pg - 1;
+ push @$numbers, { number => "<<",
+ highlight => 0 ,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 ,
+ startfrom =>
($url-1)*$number_of_results+1,
+ pg => $url };
+ }
+ my $current_ten = $pg / 10;
+ if ($current_ten == 0) {
+ $current_ten = 0.1; # In case it´s in ten = 0
+ }
+ my $from = $current_ten * 10; # Calculate the initial page
+ my $end_ten = $from + 9;
+ my $to;
+ if ($pages > $end_ten) {
+ $to = $end_ten;
+ } else {
+ $to = $pages;
+ }
+ for (my $i = $from; $i <= $to ; $i++) {
+ if ($i == $pg) {
+ if ($count > $number_of_results) {
+ push @$numbers, { number => $i,
+ highlight =>
1 ,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 ,
+ startfrom =>
($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 ,
+ startfrom =>
($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 ,
+ startfrom =>
($total_pages-1)*$number_of_results,
+ pg => $total_pages};
+ }
+ $template->param(numbers =>$numbers,
+ );
+$template->param( dateformatted => $dateformatted,
totalcount=>$totalcount,
+ overdueloop => address@hidden );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: reports/printnote.pl
===================================================================
RCS file: reports/printnote.pl
diff -N reports/printnote.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/printnote.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,99 @@
+#!/usr/bin/perl
+
+# Display a history of attempts to contact this borrower
+# regarding overdues and fines.
+#
+# Tony McCrae
+# address@hidden 5/July/2003
+# 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 lib ('/usr/local/koha/intranet/modules');
+use strict;
+use CGI;
+
+use C4::Search;
+use C4::Circulation::Circ2;
+use C4::Circulation::Fines2;
+
+use Data::Dumper;
+
+my $input = new CGI;
+my $bornum = $input->param('bornum');
+my $date= $input->param('date');
+print $input->header;
+if ($bornum) {
+ my $borrower = BorType($bornum);
+ my $dbh=C4Connect();
+ my $querystring = "select * from borrowers where borrowernumber = ?";
+ my $sth=$dbh->prepare($querystring);
+ $sth->execute($bornum);
+ my $row=$sth->fetchrow_hashref();
+# print "<body background=/images/letterhead.jpg> <p> <p> <p>";
+ print "
+ <html>
+ <head>
+ <title></title>
+ <style type=\"text/css\">
+ body {
+ padding:0
+ margin:0
+ }
+.content {
+ padding-left:30px;
+ padding-right:20px
+ }
+
+@ media print {
+ .content {
+ padding-left:20px;
+ padding-right:20px
+ }
+ }
+</style>
+ </head>
+ <body>";
+ print "<img src=\"/images/letterhead.jpg\"><br>";
+ print "<p> <p> <p>\n ";
+ print "<div class=\"content\">$row->{'firstname'} $row->{'surname'}<br>
+ $row->{'streetaddress'}<br>
+ $row->{'city'}<p> <p>";
+ $sth->finish();
+
+ $querystring = " select date, method, address, result, message,
borrowernumber
+ from attempted_contacts
+ where date = ? and borrowernumber= ?
+ ";
+
+
+
+ $sth=$dbh->prepare($querystring);
+ $sth->execute($date,$bornum);
+
+ $row=$sth->fetchrow_hashref();
+# print $row->{'date'}."<br>\n";
+# print $row->{'method'}."<br>\n";
+# print $row->{'address'}."<br>\n";
+# print $row->{'result'}."<br>\n";
+ print $row->{'message'}."<br>\n";
+ print "<p><p>";
+
+#print $querystring,$date,$bornum;
+ }
+
+
+
Index: reports/reports-home.pl
===================================================================
RCS file: reports/reports-home.pl
diff -N reports/reports-home.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/reports-home.pl 26 Mar 2007 00:07:52 -0000 1.4.2.2
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Context;
+
+my $query = new CGI;
+my ($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "reports/reports-home.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {circulate => 1},
+ debug => 1,
+ });
+output_html_with_http_headers $query, $cookie, $template->output;
Index: reports/reservereport.pl
===================================================================
RCS file: reports/reservereport.pl
diff -N reports/reservereport.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/reservereport.pl 26 Mar 2007 00:07:52 -0000 1.10.2.2
@@ -0,0 +1,72 @@
+#!/usr/bin/perl
+
+#written 26/4/2000
+#script to display reports
+
+# 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::Stats;
+use C4::Date;
+use CGI;
+use C4::Output;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+
+my $input = new CGI;
+my $time = $input->param('time');
+
+my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
+ {
+ template_name => "reports/reservereport.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => 1 },
+ debug => 1,
+ }
+);
+
+my ( $count, $data ) = unfilledreserves();
+
+my @dataloop;
+my $toggle;
+for ( my $i = 0 ; $i < $count ; $i++ ) {
+ my %line;
+ $toggle = $i%2 ? 0 : 1;
+ $line{'borrowernumber'} = $data->[$i]->{'borrowernumber'};
+ $line{'surname'} = $data->[$i]->{'surname'};
+ $line{'firstname'} = $data->[$i]->{'firstname'};
+ $line{'reservedate'} = format_date($data->[$i]->{'reservedate'});
+ $line{'biblionumber'} = $data->[$i]->{'biblionumber'};
+ $line{'title'} = $data->[$i]->{'title'};
+ $line{'classification'} = $data->[$i]->{'classification'};
+ $line{'dewey'} = $data->[$i]->{'dewey'};
+ $line{'status'} = $data->[$i]->{'found'};
+ $line{'toggle'} = $toggle;
+
+ push( @dataloop, \%line );
+}
+
+
+$template->param(
+ count => $count,
+ dataloop => address@hidden
+);
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: reports/reserves_by_biblios.pl
===================================================================
RCS file: reports/reserves_by_biblios.pl
diff -N reports/reserves_by_biblios.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/reserves_by_biblios.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,156 @@
+#!/usr/bin/perl
+
+# Script to query the renews between two dates
+# written 11/04
+# Castañeda, Carlos Sebastian - address@hidden - Physics Library UNLP Argentina
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+require Exporter;
+use CGI;
+
+use C4::Search;
+use C4::Auth;
+use C4::Acquisition;
+use C4::Interface::CGI::Output;
+use C4::Koha;
+use C4::Date;
+use POSIX qw(strftime);
+use C4::Biblio;
+my $cgi = new CGI;
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name =>
"reports/reserves_by_biblios.tmpl",
+ query
=> $cgi,
+ type =>
"intranet",
+
authnotrequired => 0,
+ flagsrequired => {circulate => 1},
+ });
+
+my $do_it = $cgi->param('do_it');
+
+if ($do_it) {
+
+ #gets the params relating to the output
+ my $output = $cgi->param('output');
+ my $basename = $cgi->param("basename");
+ my $mime = $cgi->param("MIME");
+ my $delimiter = $cgi->param("sep");
+
+ my $dbh = C4::Context->dbh;
+ my $date_from = $cgi->param('from');
+ my $date_to = $cgi->param('to');
+ my $branchcode = $cgi->param('branch');
+ my @params = ();
+
+ my $query = "SELECT biblionumber, COUNT(biblionumber) as Count
+ FROM reserves
+ WHERE (reservedate BETWEEN ? AND ? and
cancellationdate is NULL)
+ ";
+
+ push @params, $date_from, $date_to;
+
+ if ($branchcode) {
+ $query.= " AND (branchcode = ?)";
+ push @params, $branchcode;
+ }
+ $query.= " GROUP BY biblionumber ";
+
+ my $sth = $dbh->prepare($query);
+ $sth->execute(@params);
+
+ my $file = '';
+ my @results;
+ my $color = 1;
+ my $count = 0;
+
+ while (my $row = $sth->fetchrow_hashref) {
+ my ($record)=XMLgetbibliohash($dbh,$row->{'biblionumber'});
+ my $data = XMLmarc2koha_onerecord($dbh,$record,"biblios");
+
+ $row->{'title'} = $data->{'title'};
+ $row->{'author'} = $data->{'author'};
+ $row->{'index'} = $count++;
+ $file.= "$row->{'title'} - $row->{'author'}" . $delimiter;
+ $file.= "$row->{'count'}";
+
+ $row->{'color'} = $color = not $color;
+ push @results, $row;
+ }
+
+ #shows the requested output
+ if ($output eq "screen") {
+ $template->param(do_it => 1);
+ $template->param(results => address@hidden);
+ output_html_with_http_headers $cgi, $cookie, $template->output;
+ } else {
+ print $cgi->header(-type => 'application/vnd.sun.xml.calc',
+ -name=>"$basename.csv",
+
-attachment=>"$basename.csv");
+ print $file;
+ }
+
+} else {
+
+ #Gets the current date.
+ #my @nowarr = localtime(time);
+ #my $now = (1900+$nowarr[5])."-".($nowarr[4]+1)."-".$nowarr[3];
+ my $now = strftime "%Y-%m-%d", localtime;
+ $template->param(from => $now);
+ $template->param(to => $now);
+
+ #show the branches
+ my $branches=GetBranches();
+ my @select="";
+ my %select_branches;
+ $select_branches{""} = "All";
+ foreach my $branch (keys %$branches) {
+ push @select, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIbranch=CGI::scrolling_list( -name => 'branches',
+ -id => 'branch',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+ $template->param(branches =>$CGIbranch);
+
+ my @mime = ( C4::Context->preference("MIME") );
+
+ my $CGIextChoice=CGI::scrolling_list(
+ -name => 'MIME',
+ -id => 'MIME',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => address@hidden,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param( CGIextChoice => $CGIextChoice,
+ CGIsepChoice => $CGIsepChoice
+ );
+
+ output_html_with_http_headers $cgi, $cookie, $template->output;
+}
+
+
Index: reports/resonloan.pl
===================================================================
RCS file: reports/resonloan.pl
diff -N reports/resonloan.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/resonloan.pl 26 Mar 2007 00:07:52 -0000 1.1.2.1
@@ -0,0 +1,115 @@
+#!/usr/bin/perl
+
+# $Id: resonloan.pl,v 1.1.2.1 2007/03/26 00:07:52 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Context;
+use C4::Biblio;
+use CGI;
+use C4::Auth;
+use C4::Date;
+use C4::Interface::CGI::Output;
+my $input = new CGI;
+my $type=$input->param('type');
+
+my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/onloan.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+my $duedate;
+my $bornum;
+my $itemnum;
+my $barcode;
+my $data1;
+my $data2;
+my $data3;
+my $name;
+my $phone;
+my $email;
+my $biblionumber;
+my $biblioitemnumber;
+my $title;
+my $count=0;
+my $author;
+my $overduedate;
+;
+my $todaysdate = get_today();
+my $dateformatted= format_date($todaysdate);
+my $dbh = C4::Context->dbh;
+
+my $sth=$dbh->prepare("select concat(firstname,'
',surname),phone,emailaddress, duetime as date_due,i.borrowernumber,itemnumber
from reserveissue i
+ LEFT JOIN borrowers b on b.borrowernumber=i.borrowernumber
+ where isnull(rettime) order by date_due,i.borrowernumber");
+$sth->execute();
+
+my @overduedata;
+while (my $data=$sth->fetchrow_hashref) {
+ if ( $todaysdate gt $data->{'date_due'}){
+ $overduedate=$data->{'date_due'};
+ $duedate=''
+ }else {
+ $duedate=$data->{'date_due'};
+$overduedate=''
+ }
+$count++;
+ $bornum=$data->{'borrowernumber'};
+ $itemnum=$data->{'itemnumber'};
+ $name=$data->{'concat(firstname,\' \',surname)'};
+ $phone=$data->{'phone'};
+ $email=$data->{'emailaddress'};
+
+ my $sth2=$dbh->prepare("select biblionumber,barcode from items where
itemnumber=?");
+ $sth2->execute($itemnum);
+ $data2=$sth2->fetchrow_hashref;
+ $biblionumber=$data2->{'biblionumber'};
+ $barcode=$data2->{'barcode'};
+ $sth2->finish;
+
+ my ($record)=XMLgetbibliohash($dbh,$biblionumber);
+ my $data3=XMLmarc2koha_onerecord($dbh,$record,"biblios");
+ $title=$data3->{'title'};
+ $author=$data3->{'author'};
+ push (@overduedata, { overduedate=> format_date($overduedate),
+ duedate => format_date($duedate),
+ bornum => $bornum,
+ itemnum => $itemnum,
+
+ name => $name,
+ phone => $phone,
+ email => $email,
+ biblionumber => $biblionumber,
+ barcode =>$barcode,
+ title => $title,
+ author => $author });
+
+}
+
+$sth->finish;
+$template->param( count => $count);
+$template->param( dateformatted => $dateformatted,
+ overdueloop => address@hidden );
+
+print "Content-Type: text/html\n\n", $template->output;
Index: reports/shelf.pl
===================================================================
RCS file: reports/shelf.pl
diff -N reports/shelf.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/shelf.pl 26 Mar 2007 00:07:53 -0000 1.1.2.1
@@ -0,0 +1,117 @@
+#!/usr/bin/perl
+#########
+# Reads a text file of barcodes or reads barcodes online &sets item as seen
&returned.
+#Written by TG address@hidden 12/01/2006
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Context;
+use C4::Biblio;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+use C4::Koha;
+
+
+
+#######################################################################################
+
+my $dbh = C4::Context->dbh;
+my $input = new CGI;
+my $op=$input->param('op');
+my $barcode=$input->param('barcode');
+my $shelf=$input->param('shelf');
+my $uploadbarcode=$input->param('uploadbarcode');
+my $upload=$input->param('upload');
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "reports/shelf.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+
+
+
+
+
+if ($op eq "dostock") {
+
+ if ( $uploadbarcode ) {
+ my $uploadfile=$input->upload('uploadbarcode');
+
+ open INFILE, "<$uploadfile" ;
+
+
+ while (<$uploadfile>) { # assigns each line in turn to $_
+ my $line=substr($_,0,10); #Barcode lenght is hardcoded as 10 for
NEU to prevent the end-of-line-character
+ &changeshelf($dbh,$line,$shelf);
+ &itemseenbarcode($dbh,$barcode);
+ }
+
+ close INFILE;
+ }elsif ($barcode){
+
+ my $error=&changeshelf($dbh,$barcode,$shelf);
+ if ($error){
+ $template->param(error => 1);
+ goto OUT;
+ }
+ &itemseenbarcode($dbh,$barcode);
+ }
+print $input->redirect("/cgi-bin/koha/reports/shelf.pl?op=&shelf=$shelf");
+}else{
+
+my $sth = $dbh->prepare("select authorised_value,lib from authorised_values
where category='sections' order by lib");
+ $sth->execute();
+ my @shelves;
+ while (my $shelflist = $sth->fetchrow_hashref) {
+ my $selected=1 if ($shelf eq $shelflist->{authorised_value});
+ my %row=(shelf=>$shelflist->{authorised_value}, selected
=> $selected,shelfname=>$shelflist->{lib},);
+ push @shelves,\%row;
+ }
+ $sth->finish;
+ $template->param(shelves => address@hidden);
+
+}
+OUT:
+output_html_with_http_headers $input, $cookie, $template->output;
+
+sub changeshelf {
+my ($dbh,$barcode,$shelf)address@hidden;
+my %floor_list = (
+ 'Res'=>'1st Floor',
+ 'Ser'=>'1st Floor',
+ 'AVR'=>'Grnd Floor',
+ 'Cyp'=>'Grnd Floor',
+ 'Chd'=>'1st Floor',
+ 'SPE'=>'1st Floor',
+ 'REF'=>'Grnd Floor',
+ 'GEN'=>'',
+ 'YENI'=>'1st Floor',
+ );
+my $itemrec=XMLgetitemhash($dbh,"",$barcode);
+return 1 unless $itemrec;
+$itemrec=XML_writeline($itemrec,"shelf",$shelf,"holdings");
+$itemrec=XML_writeline($itemrec,"location",$floor_list{$shelf},"holdings")
unless ($shelf eq "GEN");
+my $itemxml=XML_hash2xml($itemrec);
+my $sth2=$dbh->prepare("Update items set marcxml=? where barcode=?");
+$sth2->execute($itemxml,$barcode);
+$sth2->finish;
+return 0;
+}
Index: reports/shelforder.pl
===================================================================
RCS file: reports/shelforder.pl
diff -N reports/shelforder.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/shelforder.pl 26 Mar 2007 00:07:53 -0000 1.1.2.1
@@ -0,0 +1,216 @@
+#!/usr/bin/perl
+#shelforder.pl for checking shelf order
+#Written by T.garip on 21/10/2005
+
+use strict;
+use C4::Context;
+use C4::Circulation::Circ2;
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use Tie::IxHash;
+use C4::Date;
+my $input = new CGI;
+my $dbh = C4::Context->dbh;
+my @overduedata;
+my $barcode;
+my $itemcallnumber;
+my $status;
+my %yedek;
+
+my $todaysdate = get_today;
+my $dateformatted=format_date($todaysdate);
+my ($template, $loggedinuser, $cookie) ;
+my $uploadmarc;
+my $callnumber;
+my $endnumber;
+my $shelf;
+my $brief;
+my @briefloop;
+ $uploadmarc=$input->param('uploadmarc');
+my $upload=$input->param('upload');
+if ($upload && $uploadmarc ) {
+ $uploadmarc=$input->param('uploadmarc');
+ $callnumber = $input->param('callnumber');
+ $endnumber = $input->param('endnumber');
+ $shelf = $input->param('shelf');
+$brief=$input->param('brief');
+my $uploadfile=$input->upload('uploadmarc');
+
+open INFILE, "<$uploadfile" ;
+
+ my $largehash=Tie::IxHash->new();
+
+ while (<$uploadfile>) { # assigns each line in turn to $_
+ my $line=substr($_,0,10);
+ $largehash->Push($line=>0);
+ $yedek{$line}=0;
+ }
+
+close INFILE;
+my $sth2=$dbh->prepare("select barcode,i.itemnumber,itemcallnumber from items
i left join biblioitems b on b.biblionumber=i.biblionumber where stack=? and
itemcallnumber>=? and itemcallnumber<=? and holdingbranch='MAIN' order by
lcsort, Cutterextra");
+ $sth2->execute($shelf,$callnumber,$endnumber);
+my $n;
+while (my $data2=$sth2->fetchrow_hashref){
+my $barcod=$data2->{barcode};
+
+ if (exists $yedek{$barcod} ) {
+ $n=$largehash->Indices($barcod);
+ $largehash->Push($barcod=>1) ;
+ $yedek{$barcod}=1;
+ itemseenbarcode(undef,$data2->{barcode});
+ my $sth_issue = $dbh->prepare("select date_due,returndate from issues
where itemnumber=?");
+ $sth_issue->execute($data2->{itemnumber});
+ while (my $loan = $sth_issue->fetchrow_hashref) {
+ if ($loan->{date_due} and !$loan->{returndate})
{
+ $largehash->Push($barcod=>2);
+ }
+ }
+ $sth_issue->finish;
+ }else{
+ $largehash->Push($barcod=>3);
+ $yedek{$barcod}=3;
+ my $sth_issue = $dbh->prepare("select date_due,returndate from issues
where itemnumber=?");
+ $sth_issue->execute($data2->{itemnumber});
+ while (my $loan = $sth_issue->fetchrow_hashref) {
+ if ($loan->{date_due} and !$loan->{returndate})
{
+ $largehash->Delete($barcod);
+ $yedek{$barcod}=0;
+ }
+ }
+ $sth_issue->finish;
+ }
+
+}
+
+my $i=0;
+ $sth2->execute($shelf,$callnumber,$endnumber);
+while (my $data2=$sth2->fetchrow_hashref){
+my $barcod=$data2->{barcode};
+ $itemcallnumber=$data2->{'itemcallnumber'};
+
+
+ $status=$largehash->Values($i);
+ $barcode=$largehash->Keys($i);
+ if($status==0){
+ $status="WRONG SHELF";
+my $itemcallnumber2=callnumber(undef,$barcode);
+
+ $i++;
+
+ push (@overduedata, {
+ barcode =>$barcode,
+ callnumber => $itemcallnumber2,
+ status => $status });
+ $status=$largehash->Values($i);
+ $barcode=$largehash->Keys($i);
+ }#status0
+ if ($barcode eq $barcod){
+ if ($status == 1){$status="Correct";}
+ if ($status == 3){$status="MISSING BOOK"; }
+ if ($status == 2){$status="Something wrong this book looks
<b>ISSUED -forgot to RETURN?</b>"; }
+ $i++;
+
+ push (@overduedata, {barcode =>$barcode,
+ callnumber => $itemcallnumber,
+ status => $status });
+ }elsif ($status == 1){
+ if ( $yedek{$barcod}==1){
+ my $itemcallnumber2=callnumber(undef,$barcode);
+ if ($itemcallnumber2 eq $itemcallnumber){
+ $status="Correct";
+
+ }else{
+ my $title=calltitle(undef,$barcode);
+ my $title2=calltitle(undef,$barcod);
+ $status="<b>$title</b> wrong position. Correct:
<b>$title2</b>";
+ $itemcallnumber=$itemcallnumber2;
+ }
+ $i++;
+
+ }elsif( $yedek{$barcod}==3){
+ $barcode=$barcod;
+ my $title=calltitle(undef,$barcod);
+ $status="<b>$title is MISSING here</b>";
+ }else{
+
+ $barcode=$barcod;
+ $status="ON loan";
+ }
+ push (@overduedata, {barcode =>$barcode,
+ callnumber => $itemcallnumber,
+ status => $status });
+ }#
+
+}#while database
+ $sth2->finish;
+
+if ($brief){
+my $count=0;
+my $z;
+for ( $z==0;$z<=$largehash->Length;$z++)
+{
+ if ($overduedata[$z]->{'status'} ne "Correct") {
+ if ($count==$z-1){
+ push (@briefloop, { barcode
=>$overduedata[$count]->{'barcode'},
+ callnumber =>
$overduedata[$count]->{'callnumber'},
+ status => $overduedata[$count]->{'status'}});
+ }
+ push (@briefloop, { barcode
=>$overduedata[$z]->{'barcode'},
+ callnumber => $overduedata[$z]->{'callnumber'},
+ status => $overduedata[$z]->{'status'}});
+ }else{
+ $count=$z;
+ }#Correct
+ } #loop
+}#brief
+
+
+ ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name =>
"reports/shelforderresult.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrow => 1},
+ debug => 1,
+ });
+
+$template->param( dateformatted => $dateformatted,
+ total =>$largehash->Length,
+ starting=>$callnumber,
+ ending=>$endnumber
+ );
+ if($brief){
+ $template->param(overdueloop => address@hidden);
+ }else{
+ $template->param(overdueloop => address@hidden);
+ }
+}else{
+ ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/shelforder.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalog => 1},
+ debug => 1,
+ });
+
+}
+
+sub callnumber {
+my ($env,$bar)address@hidden;
+my $st=$dbh->prepare("Select itemcallnumber from items where barcode=?");
+$st->execute($bar);
+my $res=$st->fetchrow_hashref;
+return ($res->{'itemcallnumber'});
+$st->finish;
+}
+sub calltitle {
+my ($env,$bar)address@hidden;
+my $st=$dbh->prepare("Select title from biblio b,items i where
b.biblionumber=i.biblionumber and barcode=?");
+$st->execute($bar);
+my $res=$st->fetchrow_hashref;
+return ($res->{'title'});
+$st->finish;
+}
+print "Content-Type: text/html\n\n", $template->output;
\ No newline at end of file
Index: reports/sms_history.pl
===================================================================
RCS file: reports/sms_history.pl
diff -N reports/sms_history.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/sms_history.pl 26 Mar 2007 00:07:53 -0000 1.1.2.1
@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+
+# Display a history of attempts to contact this borrower
+# regarding overdues and fines.
+#
+# Tony McCrae
+# address@hidden 5/July/2003
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Context;
+use C4::Search;
+#use C4::Circulation::Circ2;
+use C4::Members;
+use C4::Date;
+use C4::Interface::CGI::Output;
+use C4::Auth;
+
+my $input = new CGI;
+my $cardnumber = $input->param('cardnumber');
+my $sdate= format_date_in_iso($input->param('sdate'));
+
+my $edate=format_date_in_iso($input->param('edate'));
+my $do_contacts=$input->param('do_contacts');
+my $dateformatted=format_date(get_today());
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/sms_history.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+my $querystring;
+if ($do_contacts){
+if ($cardnumber) {
+
+
+
+ $querystring = "SELECT userid, message, reply, user_phone,
date_received
+ from sms_messages
+ where userid=$cardnumber
+ ";
+if ($sdate){ $querystring.= " and date_received >='$sdate'";}
+if ($edate){ $querystring.= " and date_received <='$edate'";}
+
+ }else{
+ $querystring = " SELECT userid, message, reply, user_phone, date_received
+ from sms_messages
+ where userid like '%'
+ ";
+if ($sdate){ $querystring.= " and date_received >='$sdate'";}
+if ($edate){ $querystring.= " and date_received <='$edate'";}
+
+}
+
+$querystring.=" order by date_received DESC";
+ my $dbh = C4::Context->dbh;
+ my $sth=$dbh->prepare($querystring);
+ $sth->execute();
+my @contacts;
+ while (my $row=$sth->fetchrow_hashref()) {
+my $borrower = borrdata($row->{'userid'});
+$row->{date}=format_date($row->{date_received});
+$row->{name}="$borrower->{firstname} $borrower->{surname}";
+$row->{categorycode}=$borrower->{categorycode};
+$row->{borrowernumber}=$borrower->{borrowernumber};
+push @contacts,$row;
+ }
+$sth->finish;
+
+$template->param( contacts => address@hidden );
+}
+$template->param( dateformatted=>$dateformatted,
+ do_contacts => $do_contacts );
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
Index: reports/stats.csv.pl
===================================================================
RCS file: reports/stats.csv.pl
diff -N reports/stats.csv.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/stats.csv.pl 26 Mar 2007 00:07:53 -0000 1.1.2.1
@@ -0,0 +1,141 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Context;
+use C4::Interface::CGI::Output;
+use C4::Date;
+use C4::Stats;
+binmode ">:utf8";
+
+
+my $input=new CGI;
+my $date=$input->param("datefrom");
+my $date2=$input->param("dateto");
+my $basename = $input->param("basename");
+ my $mime = $input->param("MIME");
+ my $sep = C4::Context->preference("delimiter");
+
+#get a list of every payment
+my @payments=TotalPaid($date,$date2);
+
+my address@hidden;
+
+my $i=0;
+my $totalcharges=0;
+my $totalcredits=0;
+my $totalpaid=0;
+my $totalwritten=0;
+my $totalwrittenamount=0;
+my $totalinvoicesamount=0;
+my $totalinvoices=0;
+
+my @loop3;
+
+print $input->header(-type => 'application/$mime',
-charset=>"utf-8",
+ -name=>"$basename.csv",
+
-attachment=>"$basename.csv");
+print "Payments received \n";
+print " Datetime; Surname; Firstnames; Description; Charge Type; Invoice
amount; Payment type; Payment Amount \n";
+
+
+# lets get a a list of all individual item charges paid for by that payment
+while ($i<$count ){
+
+ my $count;
+ my @charges;
+
+ if ($payments[$i]->{'accounttype'} ne 'W'){ # lets ignore
writeoff payments!.
+ @charges=getcharges($payments[$i]{'borrowernumber'},
$payments[$i]{'offset'}, $payments[$i]{'accountno'});
+ $totalcharges++;
+ address@hidden;
+
+ # getting each of the charges and putting them into a array to be
printed out
+ #this loops per charge per person
+ for (my $i2=0;$i2<$count;$i2++){
+
+ my $time2="$payments[$i]{'date'}";
+# my
$branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
+
+ # lets build up a row
+ my %rows1 = ( datetime => $payments[$i]->{'timestamp'},
+ surname => $payments[$i]->{'surname'},
+ firstname => $payments[$i]->{'firstname'},
+ description => $payments[$i]->{'description'},
+ accounttype => $charges[$i2]->{'accounttype'},
+ amount => sprintf("%.2f",
$charges[$i2]->{'amount'}), # rounding amounts to 2dp
+ type => $payments[$i]->{'accounttype'},
+ value => sprintf("%.2f",
$payments[$i]->{'amount'}*(-1))); # rounding amounts to 2dp
+print
$rows1{datetime}.$sep.$rows1{surname}.$sep.$rows1{firstname}.$sep.$rows1{description}.$sep.$rows1{accounttype}.$sep.$rows1{amount}.";\n";
+ $totalpaid = sprintf("%.2f",$totalpaid + $payments[$i]->{'amount'}*(-1));
+ }
+ } else {
+$totalwrittenamount= sprintf("%.2f",$totalwrittenamount +
$payments[$i]->{'amount'}*(-1));
+ ++$totalwritten;
+ }
+
+ $i++; #increment the while loop
+}
+print "Total:".$sep.$totalpaid."\n";
+print "\n";
+print " Datetime; Surname; Firstnames; Description;Charge Type; Credit
Amount\n";
+
+#get credits and append to the bottom of payments
+my @credits=getcredits($date,$date2);
+
+my address@hidden;
+my $i=0;
+
+while ($i<$count ){
+
+
+
+ print format_date($credits[$i]->{'date'}).$sep;
+ print $credits[$i]->{'surname'}.$sep;
+ print $credits[$i]->{'description'}.$sep;
+ print $credits[$i]->{'accounttype'}.$sep;
+ print sprintf("%.2f",$credits[$i]->{'amount'}*(-1))."\n";
+ $totalcredits =sprintf("%.2f", $totalcredits +
$credits[$i]->{'amount'});
+ $i++; #increment the while loop
+
+}
+
+
+#takes off first char minus sign "-100.00"
+$totalcredits = substr($totalcredits, 1);
+
+my @invoices=getinvoices($date,$date2);
+my address@hidden;
+my $i=0;
+
+while ($i<$count ){
+
+ my %rows3 = (invoicesdate =>
format_date($invoices[$i]->{'date'}),
+ invoicessurname => $invoices[$i]->{'surname'},
+ invoicesfirstname => $invoices[$i]->{'firstname'},
+ invoicesdescription => $invoices[$i]->{'description'},
+ invoicesaccounttype => $invoices[$i]->{'accounttype'},
+ invoicesamount =>
sprintf("%.2f",$invoices[$i]->{'amount'}),
+
invoicesamountremaining=>sprintf("%.2f",$invoices[$i]->{'amountoutstanding'}));
+
+ $totalinvoicesamount =sprintf("%.2f", $totalinvoicesamount +
$invoices[$i]->{'amountoutstanding'});
+ $totalinvoices =sprintf("%.2f", $totalinvoices +
$invoices[$i]->{'amount'});
+ $i++; #increment the while loop
+
+}
+
+
+
+#print ",,,,,,,\n";
+
+
+
+print " Datetime, Surname, Firstnames, Description, Charge Type, Invoice
amount, Amount Remaining\n";
+
+
+
+
+print $sep. $sep."Total Amount Paid".$sep. $totalpaid.$sep."\n";
+print "Total Number Written, $totalwritten\n";
+print ",,Total Amount Credits, $totalcredits\n";
Index: reports/stats.pl
===================================================================
RCS file: reports/stats.pl
diff -N reports/stats.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/stats.pl 26 Mar 2007 00:07:53 -0000 1.2.2.2
@@ -0,0 +1,137 @@
+#!/usr/bin/perl
+
+# $Id: stats.pl,v 1.2.2.2 2007/03/26 00:07:53 tgarip1957 Exp $
+
+#written 14/1/2000
+#script to display reports
+
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Output;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use C4::Stats;
+
+my $input=new CGI;
+my $time=$input->param('time');
+my $date=$input->param('from');
+my $date2=$input->param('to');
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "stats.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+
+
+my @payments=TotalPaid($date,$date2);
+my address@hidden;
+my $total=0;
+my $oldtime;
+my $totalw=0;
+my @loop;
+my %row;
+my $i=0;
+while ($i<$count){
+# warn " pay : ".$payments[$i]{'timestamp'};
+ my $time=$payments[$i]{'datetime'};
+ my $payments=$payments[$i]{'value'};
+ my $charge=0;
+ my @temp=split(/ /,$payments[$i]{'datetime'});
+ my $date=$payments[$i]{'date'};
+
+ my
@charges=getcharges($payments[$i]{'borrowernumber'},$payments[$i]{'date'});
+ my address@hidden;
+#warn "$count2";
+ my $temptotalf=0;
+ my $temptotalr=0;
+ my $temptotalres=0;
+ my $temptotalren=0;
+ my $temptotalw=0;
+ for (my $i2=0;$i2<$count2;$i2++){
+ $charge+=$charges[$i2]->{'amount'};
+ %row = ( name => $charges[$i2]->{'description'},
+ type =>
$charges[$i2]->{'accounttype'},
+ time => $charges[$i2]->{'timestamp'},
+ amount => $charges[$i2]->{'amount'},
+ branch =>
$charges[$i2]->{'amountoutstanding'} );
+ push(@loop, \%row);
+ if ($payments[$i]{'accountytpe'} ne 'W'){
+ if ($charges[$i2]->{'accounttype'} eq 'Rent'){
+
$temptotalr+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
+ }
+ if ($charges[$i2]->{'accounttype'} eq 'F' ||
$charges[$i2]->{'accounttype'} eq 'FU' || $charges[$i2]->{'accounttype'} eq
'FN' ){
+
$temptotalf+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
+ }
+ if ($charges[$i2]->{'accounttype'} eq 'Res'){
+
$temptotalres+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
+ }
+ if ($charges[$i2]->{'accounttype'} eq 'R'){
+
$temptotalren+=$charges[$i2]->{'amount'}-$charges[$i2]->{'amountoutstanding'};
+ }
+ }
+ }
+ my $hour=substr($payments[$i]{'timestamp'},8,2);
+ my $min=substr($payments[$i]{'timestamp'},10,2);
+ my $sec=substr($payments[$i]{'timestamp'},12,2);
+ my $time="$hour:$min:$sec";
+ my $time2="$payments[$i]{'date'}";
+ my $branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
+ my $bornum=$payments[$i]{'borrowernumber'};
+ my $oldtime=$payments[$i]{'timestamp'};
+ my $oldtype=$payments[$i]{'accounttype'};
+ while ($bornum eq $payments[$i]{'borrowernumber'} && $oldtype ==
$payments[$i]{'accounttype'} && $oldtime eq $payments[$i]{'timestamp'}){
+ my $hour=substr($payments[$i]{'timestamp'},8,2);
+ my $min=substr($payments[$i]{'timestamp'},10,2);
+ my $sec=substr($payments[$i]{'timestamp'},12,2);
+ my $time="$hour:$min:$sec";
+ my $time2="$payments[$i]{'date'}";
+ my
$branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
+ if ($payments[$i]{'accounttype'} eq 'W'){
+ $totalw+=$payments[$i]{'amount'};
+ } else {
+ $payments[$i]{'amount'}=$payments[$i]{'amount'}*-1;
+ $total+=$payments[$i]{'amount'};
+ }
+
+ %row = ( name =>
"<b>".$payments[$i]{'firstname'}.$payments[$i]{'surname'} . "</b>",
+ type => $payments[$i]{'accounttype'},
time => $payments[$i]{'date'},
+ amount => $payments[$i]{'amount'},
branch => $branch );
+ push(@loop, \%row);
+ $oldtype=$payments[$i]{'accounttype'};
+ $oldtime=$payments[$i]{'timestamp'};
+ $bornum=$payments[$i]{'borrowernumber'};
+ $i++;
+ }
+
+}
+
+$template->param( loop1 => address@hidden,
+ totalw => $totalw,
+ total => $total );
+
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
Index: reports/stats.print.pl
===================================================================
RCS file: reports/stats.print.pl
diff -N reports/stats.print.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/stats.print.pl 26 Mar 2007 00:07:53 -0000 1.2.2.2
@@ -0,0 +1,168 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use C4::Date;
+use C4::Stats;
+use Text::CSV_XS;
+
+my $csv = Text::CSV_XS->new(
+ {
+ 'quote_char' => '"',
+ 'escape_char' => '"',
+ 'sep_char' => ';',
+ 'binary' => 1
+ }
+);
+
+my $input=new CGI;
+my $time=$input->param('time');
+my $date=$input->param('from');
+my $date2=$input->param('to');
+
+
+
+#get a list of every payment
+my @payments=TotalPaid($date,$date2);
+
+my address@hidden;
+# warn "number of payments=$count\n";
+
+my $i=0;
+my $totalcharges=0;
+my $totalcredits=0;
+my $totalpaid=0;
+my $totalwritten=0;
+my $totalwrittenamount=0;
+my $totalinvoicesamount=0;
+my $totalinvoices=0;
+my @loop1;
+my @loop2;
+my @loop3;
+
+print $input->header(-type => 'application/vnd.sun.xml.calc',
+
-attachment=>"accounts.csv",
+ -name=>"accounts.csv"
);
+print " Datetime, Surname, Firstnames, Description, Charge Type, Invoice
amount, Payment type, Payment Amount \n";
+
+
+# lets get a a list of all individual item charges paid for by that payment
+while ($i<$count ){
+
+ my $count;
+ my @charges;
+
+ if ($payments[$i]->{'accounttype'} ne 'W'){ # lets ignore
writeoff payments!.
+ @charges=getcharges($payments[$i]{'borrowernumber'},
$payments[$i]{'offset'}, $payments[$i]{'accountno'});
+ $totalcharges++;
+ address@hidden;
+
+ # getting each of the charges and putting them into a array to be
printed out
+ #this loops per charge per person
+ for (my $i2=0;$i2<$count;$i2++){
+
+ my $time2="$payments[$i]{'date'}";
+# my
$branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
+
+ # lets build up a row
+ my %rows1 = ( datetime => $payments[$i]->{'timestamp'},
+ surname => $payments[$i]->{'surname'},
+ firstname => $payments[$i]->{'firstname'},
+ description => $payments[$i]->{'description'},
+ accounttype => $charges[$i2]->{'accounttype'},
+ amount => sprintf("%.2f",
$charges[$i2]->{'amount'}), # rounding amounts to 2dp
+ type => $payments[$i]->{'accounttype'},
+ value => sprintf("%.2f",
$payments[$i]->{'amount'}*(-1))); # rounding amounts to 2dp
+
+ push (@loop1, \%rows1);
+print
$rows1{datetime}.";".$rows1{surname}.";".$rows1{firstname}.";".$rows1{description}.";".$rows1{accounttype}.";".$rows1{amount}.";\n";
+ $totalpaid = sprintf("%.2f",$totalpaid + $payments[$i]->{'amount'}*(-1));
+ }
+ } else {
+$totalwrittenamount= sprintf("%.2f",$totalwrittenamount +
$payments[$i]->{'amount'}*(-1));
+ ++$totalwritten;
+ }
+
+
+ $i++; #increment the while loop
+}
+
+#get credits and append to the bottom of payments
+my @credits=getcredits($date,$date2);
+
+my address@hidden;
+my $i=0;
+
+while ($i<$count ){
+
+ my %rows2 = (creditdate => format_date($credits[$i]->{'date'}),
+ creditsurname => $credits[$i]->{'surname'},
+ creditfirstname => $credits[$i]->{'firstname'},
+ creditdescription => $credits[$i]->{'description'},
+ creditaccounttype => $credits[$i]->{'accounttype'},
+ creditamount =>
sprintf("%.2f",$credits[$i]->{'amount'}*(-1)));
+
+ push (@loop2, \%rows2);
+
+ $totalcredits =sprintf("%.2f", $totalcredits +
$credits[$i]->{'amount'});
+ $i++; #increment the while loop
+
+}
+
+
+#takes off first char minus sign "-100.00"
+$totalcredits = substr($totalcredits, 1);
+
+my @invoices=getinvoices($date,$date2);
+my address@hidden;
+my $i=0;
+
+while ($i<$count ){
+
+ my %rows3 = (invoicesdate =>
format_date($invoices[$i]->{'date'}),
+ invoicessurname => $invoices[$i]->{'surname'},
+ invoicesfirstname => $invoices[$i]->{'firstname'},
+ invoicesdescription => $invoices[$i]->{'description'},
+ invoicesaccounttype => $invoices[$i]->{'accounttype'},
+ invoicesamount =>
sprintf("%.2f",$invoices[$i]->{'amount'}),
+
invoicesamountremaining=>sprintf("%.2f",$invoices[$i]->{'amountoutstanding'}));
+ push (@loop3, \%rows3);
+ $totalinvoicesamount =sprintf("%.2f", $totalinvoicesamount +
$invoices[$i]->{'amountoutstanding'});
+ $totalinvoices =sprintf("%.2f", $totalinvoices +
$invoices[$i]->{'amount'});
+ $i++; #increment the while loop
+
+}
+
+foreach my $row ( @loop1 ) {
+
+ $csv->combine(@$row);
+ my $string = $csv->string;
+ print $string, "\n";
+}
+
+print ",,,,,,,\n";
+print " Datetime, Surname, Firstnames, Description, Charge Type, Credit
Amount\n";
+
+foreach my $row ( @loop2 ) {
+
+ $csv->combine(@$row);
+ my $string = $csv->string;
+ print $string, "\n";
+}
+
+print " Datetime, Surname, Firstnames, Description, Charge Type, Invoice
amount, Amount Remaining\n";
+
+foreach my $row ( @loop3 ) {
+
+ $csv->combine(@$row);
+ my $string = $csv->string;
+ print $string, "\n";
+}
+
+print ",,,,,,,\n";
+print ",,Total Amount Paid, $totalpaid\n";
+print ",,Total Number Written, $totalwritten\n";
+print ",,Total Amount Credits, $totalcredits\n";
Index: reports/stats.screen.pl
===================================================================
RCS file: reports/stats.screen.pl
diff -N reports/stats.screen.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/stats.screen.pl 26 Mar 2007 00:07:53 -0000 1.2.2.2
@@ -0,0 +1,138 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use C4::Date;
+use C4::Stats;
+
+my $input=new CGI;
+my $time=$input->param('time');
+my $date=$input->param('from');
+my $date2=$input->param('to');
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "reports/stats.screen.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+
+#get a list of every payment
+my @payments=TotalPaid($date,$date2);
+
+my address@hidden;
+# warn "number of payments=$count\n";
+
+my $i=0;
+my $totalcharges=0;
+my $totalcredits=0;
+my $totalpaid=0;
+my $totalwritten=0;
+my $totalwrittenamount=0;
+my $totalinvoicesamount=0;
+my $totalinvoices=0;
+my @loop1;
+my @loop2;
+my @loop3;
+
+# lets get a a list of all individual item charges paid for by that payment
+while ($i<$count ){
+
+ my $count;
+ my @charges;
+
+ if ($payments[$i]->{'accounttype'} ne 'W'){ # lets ignore
writeoff payments!.
+ @charges=getcharges($payments[$i]{'borrowernumber'},
$payments[$i]{'offset'}, $payments[$i]{'accountno'});
+ $totalcharges++;
+ address@hidden;
+
+ # getting each of the charges and putting them into a array to be
printed out
+ #this loops per charge per person
+ for (my $i2=0;$i2<$count;$i2++){
+
+ my $time2="$payments[$i]{'date'}";
+# my
$branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
+
+ # lets build up a row
+ my %rows1 = ( datetime => $payments[$i]->{'timestamp'},
+ surname => $payments[$i]->{'surname'},
+ firstname => $payments[$i]->{'firstname'},
+ description => $payments[$i]->{'description'},
+ accounttype => $charges[$i2]->{'accounttype'},
+ amount => sprintf("%.2f",
$charges[$i2]->{'amount'}), # rounding amounts to 2dp
+ type => $payments[$i]->{'accounttype'},
+ value => sprintf("%.2f",
$payments[$i]->{'amount'}*(-1))); # rounding amounts to 2dp
+
+ push (@loop1, \%rows1);
+ $totalpaid = sprintf("%.2f",$totalpaid + $payments[$i]->{'amount'}*(-1));
+ }
+ } else {
+$totalwrittenamount= sprintf("%.2f",$totalwrittenamount +
$payments[$i]->{'amount'}*(-1));
+ ++$totalwritten;
+ }
+
+
+ $i++; #increment the while loop
+}
+
+#get credits and append to the bottom of payments
+my @credits=getcredits($date,$date2);
+
+my address@hidden;
+my $i=0;
+
+while ($i<$count ){
+
+ my %rows2 = (creditdate => format_date($credits[$i]->{'date'}),
+ creditsurname => $credits[$i]->{'surname'},
+ creditfirstname => $credits[$i]->{'firstname'},
+ creditdescription => $credits[$i]->{'description'},
+ creditaccounttype => $credits[$i]->{'accounttype'},
+ creditamount =>
sprintf("%.2f",$credits[$i]->{'amount'}*(-1)));
+
+ push (@loop2, \%rows2);
+
+ $totalcredits =sprintf("%.2f", $totalcredits +
$credits[$i]->{'amount'});
+ $i++; #increment the while loop
+
+}
+
+
+#takes off first char minus sign "-100.00"
+$totalcredits = substr($totalcredits, 1);
+
+my @invoices=getinvoices($date,$date2);
+my address@hidden;
+my $i=0;
+
+while ($i<$count ){
+
+ my %rows3 = (invoicesdate =>
format_date($invoices[$i]->{'date'}),
+ invoicessurname => $invoices[$i]->{'surname'},
+ invoicesfirstname => $invoices[$i]->{'firstname'},
+ invoicesdescription => $invoices[$i]->{'description'},
+ invoicesaccounttype => $invoices[$i]->{'accounttype'},
+ invoicesamount =>
sprintf("%.2f",$invoices[$i]->{'amount'}),
+
invoicesamountremaining=>sprintf("%.2f",$invoices[$i]->{'amountoutstanding'}));
+ push (@loop3, \%rows3);
+ $totalinvoicesamount =sprintf("%.2f", $totalinvoicesamount +
$invoices[$i]->{'amountoutstanding'});
+ $totalinvoices =sprintf("%.2f", $totalinvoices +
$invoices[$i]->{'amount'});
+ $i++; #increment the while loop
+
+}
+$template->param( loop1 => address@hidden,
+ loop2 => address@hidden,
+ loop3 => address@hidden,
+ totalpaid => $totalpaid,
+ totalcredits => $totalcredits,
+ totalcreditsamount =>
sprintf("%.2f",$totalcredits-$totalwrittenamount),
+ totalwrittenamount => $totalwrittenamount,
+ totalwritten => $totalwritten ,
+ totalinvoices=>$totalinvoices,
totalinvoicesamount=>$totalinvoicesamount );
+
+output_html_with_http_headers $input, $cookie, $template->output;
Index: reports/stats2.pl
===================================================================
RCS file: reports/stats2.pl
diff -N reports/stats2.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/stats2.pl 26 Mar 2007 00:07:53 -0000 1.1.2.1
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+
+# $Id: stats2.pl,v 1.1.2.1 2007/03/26 00:07:53 tgarip1957 Exp $
+
+#written 14/1/2000
+#script to display reports
+
+
+# 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::Context;
+use C4::Stats;
+use Date::Manip;
+use CGI;
+use C4::Output;
+use DBI;
+
+my $input=new CGI;
+my $time=$input->param('time');
+print $input->header;
+
+print startpage;
+print startmenu('report');
+print center;
+
+my $date;
+my $date2;
+if ($time eq 'yesterday'){
+ $date=ParseDate('yesterday');
+ $date2=ParseDate('today');
+}
+if ($time eq 'today'){
+ $date=ParseDate('today');
+ $date2=ParseDate('tomorrow');
+}
+if ($time eq 'daybefore'){
+ $date=ParseDate('2 days ago');
+ $date2=ParseDate('yesterday');
+}
+if ($time=~ /\//){
+ $date=ParseDate($time);
+ $date2=ParseDateDelta('+ 1 day');
+ $date2=DateCalc($date,$date2);
+}
+$date=UnixDate($date,'%Y-%m-%d');
+$date2=UnixDate($date2,'%Y-%m-%d');
+
+my $dbh = C4::Context->dbh;
+my $sth=$dbh->prepare("select *
+from accountlines,accountoffsets,borrowers where
+accountlines.borrowernumber=accountoffsets.borrowernumber and
+(accountlines.accountno=accountoffsets.accountno or accountlines.accountno
+=accountoffsets.offsetaccount) and accountlines.timestamp >=20000621000000
+and borrowers.borrowernumber=accountlines.borrowernumber
+group by accountlines.borrowernumber,accountlines.accountno");
+$sth->execute();
+
+
+
+print mktablehdr;
+while (my $data=$sth->fetchrow_hashref){
+ print
"<TR><Td>$data->{'surname'}</td><td>$data->{'description'}</td><td>$data->{'amount'}
+ </td>";
+ if ($data->{'accountype'}='Pay'){ # FIXME - This should be "==", not "=",
right?
+ my $branch=Getpaidbranch($data->{'timestamp'});
+ print "<td>$branch</td>";
+ }
+ print "</tr>";
+
+}
+
+
+print mktableft;
+print endcenter;
+#print "<p><b>$total</b>";
+
+
+
+print endmenu('report');
+print endpage;
+$sth->finish;
Index: reports/stock.pl
===================================================================
RCS file: reports/stock.pl
diff -N reports/stock.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/stock.pl 26 Mar 2007 00:07:53 -0000 1.1.2.1
@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+#########
+# Reads a text file of barcodes or reads barcodes online &sets item as seen
&returned.
+#Written by TG address@hidden 12/01/2006
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Circulation::Circ2;
+
+use C4::Koha;
+
+
+
+#######################################################################################
+
+my $dbh = C4::Context->dbh;
+my $input = new CGI;
+my $op=$input->param('op');
+my $barcode=$input->param('barcode');
+
+my $uploadbarcode=$input->param('uploadbarcode');
+my $upload=$input->param('upload');
+
+my $branches = GetBranches();
+my $branch = getbranch($input, $branches);
+$branch="MAIN";
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "reports/stock.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {editcatalogue => 1},
+ debug => 1,
+ });
+
+if ($op eq "dostock") {
+ if ( $uploadbarcode ) {
+# $uploadbarcode=$input->param('uploadbarcode');
+
+ my $uploadfile=$input->upload('uploadbarcode');
+
+ open INFILE, "<$uploadfile" ;
+
+
+ while (<$uploadfile>) { # assigns each line in turn to $_
+ my $line=substr($_,0,10); #Barcode lenght is hardcoded as 10 for
NEU to prevent the end-of-line-character
+ &itemseenbarcode($dbh,$line);
+ &returnbook($line,$branch);
+ }
+
+ close INFILE;
+ }elsif ($barcode){
+ &itemseenbarcode($dbh,$barcode);
+ &returnbook($barcode,$branch);
+
+ }
+}
+
+output_html_with_http_headers $input, $cookie, $template->output;
+
+
+
+# End:
Index: reports/transfers.plugin
===================================================================
RCS file: reports/transfers.plugin
diff -N reports/transfers.plugin
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reports/transfers.plugin 26 Mar 2007 00:07:53 -0000 1.1.2.2
@@ -0,0 +1,105 @@
+#!/usr/bin/perl
+
+# $Id: transfers.plugin,v 1.1.2.2 2007/03/26 00:07:53 tgarip1957 Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+use strict;
+use C4::Auth;
+use CGI;
+use C4::Context;
+use C4::Search;
+use C4::Output;
+use C4::Koha;
+
+=head1
+
+=cut
+
+sub set_parameters {
+ my ($template) = @_;
+ my $dbh = C4::Context->dbh;
+ my $branches=GetBranches();
+ my @branches;
+ my @select_branch;
+ my %select_branches;
+ push @select_branch,"";
+ $select_branches{""} = "";
+ foreach my $branch (keys %$branches) {
+ push @select_branch, $branch;
+ $select_branches{$branch} =
$branches->{$branch}->{'branchname'};
+ }
+ my $CGIbranch=CGI::scrolling_list( -name => 'value',
+ -id => 'value',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+ $template->param(CGIbranch => $CGIbranch);
+ return $template;
+}
+sub calculate {
+ my ($parameters) = @_;
+ my @results =();
+ my $branch = @$parameters[0];
+ my $dbh = C4::Context->dbh;
+ my $sth;
+ if ($branch) {
+ $sth = $dbh->prepare("SELECT
i.itemnumber,i.barcode,i.biblionumber,ms.tobranch,ms.frombranch,ms.datearrived,ms.comments
FROM `items` i
+ left join branchtransfers as ms on i.itemnumber=ms.itemnumber
+ where ms.frombranch=? order by ms.datearrived desc");
+ $sth->execute($branch);
+ } else {
+ $sth = $dbh->prepare("SELECT
i.itemnumber,i.barcode,i.biblionumber,ms.tobranch,ms.frombranch,ms.datearrived,ms.comments
FROM `items` i, branchtransfers as ms
+ where i.itemnumber=ms.itemnumber and ms.itemnumber is not null
order by ms.datearrived desc");
+ $sth->execute;
+ }
+
+ my
($itemnumber,$barcode,$biblionumber,$currentbranch,$origbranch,$date,$by);
+ my $nbresult=$dbh->prepare("SELECT FOUND_ROWS()");
+ $nbresult->execute;
+ my $grantotal = $nbresult->fetchrow;
+ my $count = 0;
+ while
(($itemnumber,$barcode,$biblionumber,$currentbranch,$origbranch,$date,$by) =
$sth->fetchrow) {
+ my %line;
+ if($count % 2){
+ $line{toggle} = 1;
+ } else {
+ $line{toggle} = 0;
+ }
+ $line{itemnumber} = $itemnumber;
+ $line{barcode} = $barcode;
+ $line{biblionumber} = $biblionumber;
+
+ $line{currentb} = $currentbranch;
+ $line{origb} = $origbranch;
+ $line{date} = $date;
+ $line{by} = $by;
+ push @results,\%line;
+ $count ++;
+ }
+ my @mainloop;
+ my %globalline;
+ $globalline{loopitemtype} = address@hidden;
+ $globalline{total} = $grantotal;
+ $globalline{branch} = $branch;
+ push @mainloop,\%globalline;
+ return address@hidden;
+}
+
+1;
\ No newline at end of file
Index: reserve/modrequest.pl
===================================================================
RCS file: reserve/modrequest.pl
diff -N reserve/modrequest.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reserve/modrequest.pl 26 Mar 2007 00:07:53 -0000 1.3.2.2
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+#script to modify reserves/requests
+#written 2/1/00 by address@hidden
+#last update 27/1/2000 by address@hidden
+
+
+# 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::Search;
+use CGI;
+use C4::Output;
+use C4::Reserves2;
+use C4::Members;
+my $input = new CGI;
+
+my @rank=$input->param('rank-request');
+my @biblionumber=$input->param('biblionumber');
+my @borrower=$input->param('borrowernumber');
+my @branch=$input->param('pickup');
+my address@hidden;
+my $cataloger=$input->param('loggedinuser');
+# goes through and manually changes the reserves record....
+# no attempt is made to check consistency.
+for (my $i=0;$i<$count;$i++){
+
UpdateReserves($rank[$i],$biblionumber[$i],$borrower[$i],$branch[$i],$cataloger);
#from C4::Reserves2
+}
+
+my $from=$input->param('from');
+if ($from eq 'borrower'){
+ print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrower[0]");
+ } else {
+ print
$input->redirect("/cgi-bin/koha/reserve/request.pl?biblionumber=$biblionumber[0]");
+}
Index: reserve/placerequest.pl
===================================================================
RCS file: reserve/placerequest.pl
diff -N reserve/placerequest.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reserve/placerequest.pl 26 Mar 2007 00:07:53 -0000 1.4.2.2
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+
+#script to place reserves/requests
+#writen 2/1/00 by address@hidden
+
+
+# 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::Search;
+use CGI;
+use C4::Output;
+use C4::Reserves2;
+use C4::Members;
+my $input = new CGI;
+my $itemnumber=$input->param('itemnumber');
+my @bibitems=$input->param('biblioitem');
+my @reqbib=$input->param('reqbib');
+my $biblionumber=$input->param('biblionumber');
+my $borrower=$input->param('member');
+my $notes=$input->param('notes');
+my $branch=$input->param('pickup');
+my @rank=$input->param('rank-request');
+my $type=$input->param('type');
+my $title=$input->param('title');
+my $bornum=borrdata($borrower,'');
+my $cataloger=$input->param('loggedinuser');
+
+if ($type eq 'str8' && $bornum ne ''){
+ my address@hidden;
+ @bibitems=sort @bibitems;
+ my $i2=1;
+ my @realbi;
+ $realbi[0]=$bibitems[0];
+for (my $i=1;$i<$count;$i++){
+ my $i3=$i2-1;
+ if ($realbi[$i3] ne $bibitems[$i]){
+ $realbi[$i2]=$bibitems[$i];
+ $i2++;
+ }
+}
+
+my $env;
+
+my $const;
+
+
+for (my $i=0; $i<@reqbib; $i++){
+if ($reqbib[$i] ne ''){
+ $const='o';
+
CreateReserve(\$env,$bornum->{'borrowernumber'},$cataloger,$biblionumber,'','',$branch,$const,$rank[0],$notes,$title,"",$reqbib[$i]);
+}
+}
+
+print $input->redirect("request.pl?biblionumber=$biblionumber");
+} elsif ($bornum eq ''){
+ print $input->header();
+ print "Invalid card number please try again";
+ print $input->Dump;
+}
Index: reserve/request.pl
===================================================================
RCS file: reserve/request.pl
diff -N reserve/request.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ reserve/request.pl 26 Mar 2007 00:07:53 -0000 1.7.2.2
@@ -0,0 +1,203 @@
+#!/usr/bin/perl
+
+# $Id: request.pl,v 1.7.2.2 2007/03/26 00:07:53 tgarip1957 Exp $
+
+#script to place reserves/requests
+#writen 2/1/00 by address@hidden
+
+
+# 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::Search;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Auth;
+use C4::Reserves2;
+use C4::Biblio;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Acquisition;
+use CGI;
+use C4::Date;
+
+my $input = new CGI;
+my $dbh=C4::Context->dbh;
+# get biblio information....
+my $biblionumber = $input->param('biblionumber');
+my ($record) = XMLgetbiblio($dbh,$biblionumber);
+$record=XML_xml2hash_onerecord($record);
+my $dat=XMLmarc2koha_onerecord($dbh,$record,"biblios");
+# get existing reserves .....
+my ($count,$reserves) = FindReserves($biblionumber);
+my $totalcount = $count;
+foreach my $res (@$reserves) {
+ if ($res->{'found'} eq 'W') {
+ $count--;
+ }
+}
+
+# make priorities options
+my $num = $count + 1;
+
+#priorityoptions building
+my @optionloop;
+for (my $i=1; $i<=$num; $i++){
+ my %option;
+ $option{num}=$i;
+ $option{selected}=($i==$num);
+ push(@optionloop, \%option);
+}
+
+# todays date
+
+my $date=format_date(get_today());
+my $time=localtime(time);
+my @bibitemloop;
+
+ my %abibitem;
+ my @barcodeloop;
+ my @barcodes = barcodes($biblionumber);
+#warn @barcodes;
+ foreach my $num (@barcodes) {
+ my %barcode;
+ $barcode{'date_due'}=$num->{'date_due'} if $num->{'date_due'}
gt "0000-00-00" ;
+ $barcode{'barcode'}=$num->{'barcode'};
+ $barcode{'itemnumber'}=$num->{'itemnumber'};
+ $barcode{'message'}=$num->{'itemlost'} == 1 ? "(lost)" :
+ $num->{'itemlost'} == 2 ? "(long overdue)" : "";
+ $barcode{'class'}=$num->{'itemcallnumber'};
+ $abibitem{'itemlost'}=(($num->{'notforloan'})||
($num->{'itemlost'} == 1)) ;
+ $abibitem{'itemlost'}=($num->{'wthdrawn'}) ;
+ push(@barcodeloop, \%barcode);
+ }
+#
+
$abibitem{'class'}="$dat->{'classification'}$dat->{'dewey'}$dat->{'subclass'}";
+ $abibitem{'biblionumber'}=$dat->{'biblionumber'};
+ $abibitem{'description'}=$dat->{'itemtype'};
+ $abibitem{'volumeddesc'}=$dat->{'volumeddesc'};
+ $abibitem{'publicationyear'}=$dat->{'publicationyear'};
+
+ $abibitem{'barcodeloop'address@hidden;
+ push(@bibitemloop,\%abibitem);
+
+
+
+
+#existingreserves building
+my @reserveloop;
+my $branches = GetBranches();
+
+foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
+ my %reserve;
+if ($res->{'priority'}>$totalcount){$totalcount=$res->{'priority'};}
+# my $prioropt = priorityoptions($totalcount, $res->{'priority'});
+ my @optionloop;
+ for (my $i=1; $i<=$totalcount; $i++){
+ my %option;
+ $option{num}=$i;
+ $option{selected}=($i==$res->{'priority'});
+ push(@optionloop, \%option);
+ }
+ my @branchloop;
+
+ foreach my $br (keys %$branches) {
+
+
+
+ (next) unless $branches->{$br}->{'IS'};
+
+ # Only branches with the 'IS' branchrelation
+ # can issue books
+ my %abranch;
+ $abranch{'selected'}=($br eq $res->{'branchcode'});
+ $abranch{'branch'}=$br;
+ $abranch{'branchname'}=$branches->{$br}->{'branchname'};
+ push(@branchloop,\%abranch);
+ }
+my %env;
+# my $item = $res->{'itemnumber'};
+# $item = getiteminformation(\%env,$item);
+
+ if ($res->{'found'} eq 'W') {
+
+ $reserve{'holdingbranch'}=$res->{'holdingbranch'};
+ $reserve{'barcode'}=$res->{'barcode'};
+ $reserve{'biblionumber'}=$res->{'biblionumber'};
+ $reserve{'wbrcode'} = $res->{'branchcode'};
+ $reserve{'wbrname'} =
$branches->{$res->{'branchcode'}}->{'branchname'};
+ if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){
+ $reserve{'atdestination'} = 1;
+ }
+ }
+ $reserve{'barcode'}=$res->{'barcode'};
+ $reserve{'date'} = format_date($res->{'reservedate'});
+ $reserve{'borrowernumber'}=$res->{'borrowernumber'};
+ $reserve{'biblionumber'}=$res->{'biblionumber'};
+ $reserve{'bornum'}=$res->{'borrowernumber'};
+ $reserve{'firstname'}=$res->{'firstname'};
+ $reserve{'surname'}=$res->{'surname'};
+ $reserve{'bornum'}=$res->{'borrowernumber'};
+ $reserve{'notes'}=$res->{'reservenotes'};
+ $reserve{'wait'}=($res->{'found'} eq 'W');
+ $reserve{'constrainttypea'}=($res->{'constrainttype'} eq 'a');
+ $reserve{'constrainttypeo'}=($res->{'constrainttype'} eq 'o');
+ $reserve{'voldesc'}=$res->{'volumeddesc'};
+ $reserve{'itemtype'}=$res->{'ctype'};
+ $reserve{'branchloop'address@hidden;
+ $reserve{'optionloop'address@hidden;
+ push(@reserveloop,\%reserve);
+}
+
+my @branches;
+my @select_branch;
+my %select_branches;
+my $branches=GetBranches;
+#my $count2=scalar(@branches);
+foreach my $br (keys %$branches) {
+
+ push @select_branch, $br;
+ $select_branches{$br}= $branches->{$br}->{'branchname'};
+}
+my $CGIbranch=CGI::scrolling_list( -name => 'pickup',
+ -values => address@hidden,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+#get the time for the form name...
+my $time = time();
+
+#setup colours
+my ($template, $borrowernumber, $cookie)
+ = get_template_and_user({template_name => "reserve/request.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ });
+$template->param( optionloop =>address@hidden,
+ CGIbranch =>
$CGIbranch,
+ reserveloop =>
address@hidden,
+ 'time' => $time,
+ bibitemloop =>
address@hidden,
+ date => $date,
+ biblionumber =>
$biblionumber,
+ title
=>$dat->{title});
+# printout the page
+output_html_with_http_headers $input, $cookie, $template->output;
\ No newline at end of file
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha koha-tmpl/opac-tmpl/css/tr/includes/opac-t... [rel_TG],
Tumer Garip <=