[Koha-cvs] koha koha-tmpl/opac-tmpl/css/tr/includes/opac-t... [rel_TG]
Tumer Garip
tgarip at neu.edu.tr
Mon Mar 26 02:07:55 CEST 2007
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:tgarip at neu.edu.tr" class="style3">tgarip at neu.edu.tr</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:ykiziltoprak at neu.edu.tr" class="style3">ykiziltoprak at neu.edu.tr</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:iaksular at neu.edu.tr" class="style3">iaksular at neu.edu.tr</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:msunalp at neu.edu.tr" class="style3">msunalp at neu.edu.tr</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:charasol at neu.edu.tr" class="style3">charasol at neu.edu.tr</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:sdonangil at neu.edu.tr" class="style3">sdonangil at neu.edu.tr</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:ekarahasan at neu.edu.tr" class="style3">ekarahasan at neu.edu.tr</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:katamer at neu.edu.tr" class="style3">katamer at neu.edu.tr</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:gcivi at neu.edu.tr" class="style3">gcivi at neu.edu.tr</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:emacila at neu.edu.tr" class="style3">emacila at neu.edu.tr</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:nyakup at neu.edu.tr" class="style3">nyakup at neu.edu.tr</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:edanis at neu.edu.tr" class="style3">edanis at neu.edu.tr</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 dnmeid at gmx.de 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 chris at katipo.oc.nz
+#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 => \@accountrows );
+
+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 chris at katipo.co.nz
+
+
+# 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 chris at katipo.co.nz
+
+
+# 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 => \@resultsdata );
+
+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 chris at katipo.oc.nz
+#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 => \@loop,
+ 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 chris at katipo.co.nz
+#converted to using templates 3/16/03 by mwhansen at hmc.edu
+
+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 (genjimoto at sourceforge) 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 chris at katipo.co.nz
+
+
+# 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 => \@resultsdata );
+
+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 chris at katipo.co.nz
+
+
+# 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 => \@select_branch,
+ -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 => \@flagdata,
+ relshiploop => \@relshipdata,
+ "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 chris at katipo.co.nz
+# last modified 21/1/2000 by chris at katipo.co.nz
+# modified 31/1/2001 by chris at katipo.co.nz
+# 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 => \@guaranteedata);
+
+} 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 => \@issuedata,
+ 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 chris at katipo.oc.nz
+# 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 => \@loop_pay,
+ 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 chris at katipo.oc.nz
+#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 => \@loop_reading);
+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 oleonard at athenscounty.lib.oh.us
+
+
+# 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,"\@or";
+ push @value, at value[0] if @kohafield>1;
+ push @relation ,"\@attr 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'} = \@searchdesc;
+ $template->param(FORMINPUTS => \@forminputs);
+ $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, at 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=" \@attr 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(\@oConnection)) != 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 => \@forminputs );
+ $template->param(searchdesc => \@searchdesc );
+
+ # 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 => \@results,
+ );
+
+ #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=>\@forminputs,
+ highlight => 0 ,
+ startfrom => 1,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 , forminputs=>\@forminputs,
+ 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=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 , forminputs=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 , forminputs=>\@forminputs,
+ startfrom => ($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 , forminputs=>\@forminputs,
+ 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, at results,$facets);
+
+
+
+my @oConnection;
+my $oResult;
+
+my $serverquery;
+
+
+
+
+ $oConnection[0]=C4::Context->Zconn("cyprus");
+
+ $serverquery="\@attr 1=local-number"." \"".$id."\"";
+
+
+$oResult = $oConnection[0]->search_pqf($serverquery);
+
+ my $k;
+my $event;
+ while (($k = ZOOM::event(\@oConnection)) != 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 = " \@attr 1=1016 \@attr 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} = \@tmp;
+ 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} = \@tmp;
+ 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} = \@tmp;
+ push (@loop_data, \%tag_data);
+ undef @subfields_data;
+ }
+ }##Subfield
+ }
+
+
+
+
+ $template->param($tabloop."XX" =>\@loop_data);
+}
+# 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");
+ at big_array = 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 => \@item_value_loop,
+ item_header_loop => \@header_value_loop,
+ 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 finlay at katipo.oc.nz
+# 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 => \@bordat );
+
+
+#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 - seba3c at yahoo.com.ar - 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 => \@shelvesloop,
+ -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 => \@bordat );
+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 => \@loop_reading
+ );
+
+
+
+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} = \@items;
+ push (@results, $dat);
+}
+
+my $resultsarray=\@results;
+# my $itemsarray=\@items;
+
+$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'}=@items;
+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 $resultsarray=\@results;
+my $itemsarray=\@items;
+
+
+#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 => \@shelvesloop);
+
+$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 => \@products );
+$template->param( REVIEWS => \@reviews );
+ ## 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'}=@items;
+$dat->{'norequests'} = $norequests;
+
+
+my @results;
+
+$results[0]=$dat;
+
+my $resultsarray=\@results;
+my $itemsarray=\@items;
+
+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, at marclist, at 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, \@marclist, \@operator, \@search,$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, \@marclist, \@operator, \@search,$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, "\@attr 4=1 \@attr 5=1 \@attr 6=3";
+
+ ($total,$facets, at results) =ZEBRAsearch_kohafields(\@kohafield,\@value, \@relation,$sortorder, \@and_or, 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};
+}
+ at results=@titles;
+ $template->param(titles => 1);
+} elsif ($dictionary eq 'publishercode') {
+push @kohafield,"publishercode";
+push @value,$search;
+push @relation, "\@attr 4=1 \@attr 5=100";
+
+ ($total,$facets, at results) =ZEBRAsearch_kohafields(\@kohafield,\@value, \@relation,$sortorder, \@and_or, 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};
+}
+ at results=@publishers;
+$template->param(publishers => 1);
+}
+my @values;
+$total=$resultsperpage if $total>$resultsperpage;
+
+$template->param(count => $total);
+$template->param(values => \@results);
+$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 " ", at value;
+ $template->param(FORMINPUTS => \@forminputs);
+
+ $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(\@oConnection)) != 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=>\@onlineloop,);
+}##serverid==0
+my $timetaken;
+my ($count, at results,$facets);
+my $sortorder= $order.$asc if $order;
+ ($count,$facets, at results) =ZEBRAsearch_kohafields(\@kohafield,\@value, \@relation,$sortorder, \@and_or, 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(\@kohafield,\@value);
+ $template->param(SUGGESTION =>\@suggestion);
+}
+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 => \@searchdesc );
+ 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 => \@results,
+ 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 => "<<",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ 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=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => ($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ 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 => \@shelvesloop);
+ $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, at itemtypes)= C4::Biblio::getitemtypes();
+ $template->param(itemtype_loop => \@itemtypes);
+
+ #show the branches -- This is hardcoded in OPAC templates-- TG
+# my (@branches)= GetBranches();
+
+# $template->param(branches => \@branches);
+ $template->param(SEARCHPARAMS => \@searchparams);
+}
+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 => \@itemtype,
+ -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 => \@options,
+ 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 - matias_veleda at hotmail.com - Physics Library UNLP Argentina and
+# Castañeda Sebastian - seba3c at yahoo.com.ar - 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 => \@Sresults );
+#$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 - matias_veleda at hotmail.com - 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 chris at katipo.co.nz
+# adapted for use in the hlt opac by finlay at katipo.co.nz 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'} = scalar at items;
+ $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 => \@bibitemloop);
+ $template->param(RESERVELOOP => \@reserveloop);
+
+ # 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 " ", at value;
+ $template->param(FORMINPUTS => \@forminputs);
+
+ $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(\@oConnection)) != 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=>\@onlineloop,);
+}##serverid==0
+my $timetaken;
+my ($count, at results,$facets);
+my $sortorder= $order.$asc if $order;
+ ($count,$facets, at results) =ZEBRAsearch_kohafields(\@kohafield,\@value, \@relation,$sortorder, \@and_or, 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(\@kohafield,\@value);
+ $template->param(SUGGESTION =>\@suggestion);
+}
+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 => \@searchdesc );
+ 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 => \@results,
+ 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 => "<<",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ 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=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => ($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => ">>",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ 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 => \@shelvesloop);
+ $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, at itemtypes)= C4::Biblio::getitemtypes();
+ $template->param(itemtype_loop => \@itemtypes);
+
+ my (@branches)= GetallBranches();
+
+ $template->param(branches => \@branches);
+ $template->param(SEARCHPARAMS => \@searchparams);
+}
+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} = \@items;
+ my $xml = XMLgetbiblio($dbh,$biblionumber);
+ if ($marcfile){
+ my $marc=MARC::Record->new_from_xml($xml,"MARC8");
+ $iso2709 .= $marc->as_usmarc();
+ }
+ push (@results, $dat);
+ }
+
+ my $resultsarray=\@results;
+ $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, at 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 => \@serialslist,
+ 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 => \@messages);
+ }
+
+#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 => \@shelvesloop,
+ shelves => 1,
+ );
+
+ $template->param(institutions => \@shelvesloop);
+
+}
+
+$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 => \@bordat);
+$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 => \@issuedat);
+$template->param(issues_count => $count);
+
+$template->param(OVERDUES => \@overdues);
+$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 => \@waiting);
+$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 => \@bordat);
+
+}
+
+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 => \@image);
+$template->param(items => \@items);
+#$template->param(text_input => \@text_input);
+$template->param(channel_info => \@channel_info);
+$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 => \@serverloop, 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(\@oConnection)) != 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 => \@breeding_loop,
+ 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'}=@items;
+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 $resultsarray=\@results;
+my $itemsarray=\@items;
+
+
+
+
+$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 => \@products );
+$template->param( REVIEWS => \@reviews );
+ ## 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 " ", at value;
+ $template->param(FORMINPUTS => \@forminputs);
+
+ $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, at results,$facets);
+my $sortorder= $order.$asc if $order;
+ ($count,$facets, at results) =ZEBRAsearch_kohafields(\@kohafield,\@value, \@relation,$sortorder, \@and_or, 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(\@kohafield,\@value);
+ $template->param(SUGGESTION =>\@suggestion);
+}
+
+
+ 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 => \@searchdesc );
+ $template->param(SEARCH_RESULTS => \@results,
+ 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=>\@forminputs,
+ startfrom => 0,
+ pg => '1' };
+ push @$numbers, { number => "<",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ 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=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ } else {
+ push @$numbers, { number => $i,
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => ($i-1)*$number_of_results ,
+ pg => $i };
+ }
+ }
+ if ($pg < $pages) {
+ my $url = $pg + 1;
+ push @$numbers, { number => ">",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ startfrom => ($url-1)*$number_of_results,
+ pg => $url };
+ push @$numbers, { number => "L",
+ highlight => 0 , FORMINPUTS=>\@forminputs,
+ 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, at itemtypes)= C4::Biblio::getitemtypes();
+ $template->param(itemtype_loop => \@itemtypes);
+
+ #show the branches
+ my (@branches)= GetBranches();
+
+ $template->param(branches => \@branches);
+ $template->param(SEARCHPARAMS => \@searchparams);
+}
+
+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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@select,
+# -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 => \@select,
+ -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 => \@select,
+ -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 => \@select,
+ -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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 ". at filters[0];
+# warn "filtres ". at filters[1];
+# warn "filtres ". at filters[2];
+# warn "filtres ". at filters[3];
+
+ $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;
+ #@loopcol 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' => \@loopcell,
+ '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
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 = $line*@loopcol;
+ } 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 )=@data;
+ $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";
+ #@loopcol 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' => \@loopcell,
+ 'hilighted' => ($hilighted >0),
+ };
+ $hilighted = -$hilighted;
+ }
+#
+
+
+ # the header of the table
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 = $line*@loopcol;
+ } 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 )=@data;
+ $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;
+ #@loopcol 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' => \@loopcell,
+ 'hilighted' => ($hilighted >0),
+ };
+ $hilighted = -$hilighted;
+ }
+
+
+
+ # the header of the table
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@select_catcode,
+ -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 => \@select_sort1,
+ -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 => \@select_sort2,
+ -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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 ". at filters[0];
+# warn "filtres ". at filters[1];
+# warn "filtres ". at filters[2];
+# warn "filtres ". at filters[3];
+
+ $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;
+ #@loopcol 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' => \@loopcell,
+ '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
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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'}=\@loopcell;
+ $looprow[$i]->{'hilighted'} = 1 if $hilighted eq 1;
+ $hilighted = -$hilighted;
+ }
+
+# # the header of the table
+ $globalline{loopfilter}=\@loopfilter;
+ $globalline{looprow} = \@looprow;
+# # the core of the table
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 = $line*@loopcol;
+ } 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 )=@data;
+ $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";
+ #@loopcol 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' => \@loopcell,
+ 'hilighted' => ($hilighted >0),
+ #'totalrow' => ($total)?sprintf("%.2f",$total):0
+ };
+ $hilighted = -$hilighted;
+ }
+#
+
+
+ # the header of the table
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 = $line*@loopcol;
+ } 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 )=@data;
+ $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;
+ #@loopcol 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' => \@loopcell,
+ 'hilighted' => ($hilighted >0),
+ };
+ $hilighted = -$hilighted;
+ }
+
+
+
+ # the header of the table
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@authorised_values,
+ -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 => \@select,
+ -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 => \@select,
+ -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 => \@select,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ my $CGIholdingbranch=CGI::scrolling_list( -name => 'Filter',
+ -id => 'holdingbranch',
+ -values => \@select,
+ -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 => \@select,
+ -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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 ". at filters[0];
+# warn "filtres ". at filters[1];
+# warn "filtres ". at filters[2];
+# warn "filtres ". at filters[3];
+
+ $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, "\@and";
+ push @relations, "\@attr 2=5 \@attr 3=1";
+ push @kohafield, "dewey";
+ push @values, @$filters[0] ;
+
+ }
+ if (@$filters[1]){
+ @$filters[1]=~ s/\*//g ;
+ $strcalc .= " AND dewey <" . @$filters[1] ."";
+ push @and_or, "\@and";
+ push @relations, "\@attr 2=1 \@attr 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, "\@and";
+ push @relations, "\@attr 2=4 \@attr 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, "\@and";
+ push @relations, "\@attr 2=2 \@attr 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, "\@and";
+ push @relations, "\@attr 2=4 \@attr 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, "\@and";
+ push @relations, "\@attr 2=2 \@attr 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, "\@and";
+ push @relations, "\@attr 2=3 \@attr 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, "\@and";
+ push @relations, "\@attr 2=3 \@attr 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;
+ #@loopcol 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' => \@loopcell,
+ '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
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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
+# tony at katipo.co.nz 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 => \@contacts );
+}
+$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, at itemrecords) = XMLmarc2koha($dbh,$xml,"", at kohafields);
+ foreach my $data(@itemrecords){
+ if ($data->{itemcallnumber}=~ /^$minlocation/){
+ $data->{title}=$biblio->{title};
+ $data->{author}=$biblio->{author};
+ push @res,$data;
+ }
+ }
+}
+ $template->param(loop =>\@res,
+ 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,"\@attr 5=1 \@attr 6=3 \@attr 4=1 ","\@attr 2=1 ";
+ push @and_or,"\@and";
+ $sort="local-number i<";
+ ($count,$facets, at results)=ZEBRAsearch_kohafields(\@kohafields,\@values,\@relations,$sort,\@and_or,0,"",$offset,$size);
+ }else{
+ push @kohafields, "itemcallnumber";
+ push @values,$minlocation;
+ push @relations,"\@attr 5=1 \@attr 6=3 \@attr 3=1 ";
+ push @and_or,"";
+ $sort="local-number i<";
+ ($count,$facets, at results)=ZEBRAsearch_kohafields(\@kohafields,\@values,\@relations,$sort,\@and_or,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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@select,
+ -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 => \@select,
+ -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 => \@select_branch,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ my $CGISort1=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => \@select,
+ -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 => \@select,
+ -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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 ". at filters[0];
+# warn "filtres ". at filters[1];
+# warn "filtres ". at filters[2];
+# warn "filtres ". at filters[3];
+ $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)=@data;
+# 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;
+ #@loopcol 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' => \@loopcell,
+ '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
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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 => \@select_branch,
+ -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} = \@loopitemtype;
+ 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} = \@loopitemtype;
+ 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} = \@loopborrowertype;
+ # the core of the table
+ $globalline{categorycodeloop} = \@categorycodeloop;
+ # the foot (totals by borrower type)
+ $globalline{loopborrowertotal} = \@loopborrowertotal;
+ $globalline{grantotal}= $grantotal;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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, \@filters);
+ 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 $sep.@$results[0]->{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 => \@select,
+ -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 => \@select,
+ -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 => \@select_branch,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+ my $CGISort1=CGI::scrolling_list( -name => 'Filter',
+ -id => 'Filter',
+ -values => \@select,
+ -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 => \@select,
+ -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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 ". at filters[0];
+# warn "filtres ". at filters[1];
+# warn "filtres ". at filters[2];
+# warn "filtres ". at filters[3];
+
+ $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;
+ #@loopcol 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' => \@loopcell,
+ '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
+ $globalline{loopfilter}=\@loopfilter;
+ # the core of the table
+ $globalline{looprow} = \@looprow;
+ $globalline{loopcol} = \@loopcol;
+# # the foot (totals by borrower type)
+ $globalline{loopfooter} = \@loopfooter;
+ $globalline{total}= $grantotal;
+ $globalline{line} = $line;
+ $globalline{column} = $column;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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 => \@select_branch,
+ -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} = \@results;
+ $globalline{total} = $grantotal;
+ $globalline{branch} = $branch;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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(\@values);
+ $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 ,"\@attr 2=5"; ##
+ my $startfrom=$input->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+$sort="date_due,1";
+my $number_of_results=20;
+($count,$facets, at results)=ZEBRAsearch_kohafields(\@kohafields,\@values,\@relations,$sort,\@and_or,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, at itemrecords) = XMLmarc2koha($dbh,$xml,"", at 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 => \@overduedata );
+
+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 ,"\@attr 2=1","\@attr 2=5"; ##
+push @and_or,"\@and";
+ my $startfrom=$input->param('startfrom');
+ ($startfrom) || ($startfrom=0);
+$sort="date_due,1";
+my $number_of_results=20;
+ ($count,$facets, at results)=ZEBRAsearch_kohafields(\@kohafields,\@values,\@relations,$sort,\@and_or,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, at itemrecords) = XMLmarc2koha($dbh,$xml,"", at 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 => \@overduedata );
+
+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
+# tony at katipo.co.nz 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 => \@dataloop
+);
+
+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 - seba3c at yahoo.com.ar - 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 => \@results);
+ 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 => \@select,
+ -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 => \@mime,
+ -size => 1,
+ -multiple => 0 );
+
+ my @dels = ( C4::Context->preference("delimiter") );
+ my $CGIsepChoice=CGI::scrolling_list(
+ -name => 'sep',
+ -id => 'sep',
+ -values => \@dels,
+ -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 => \@overduedata );
+
+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 tgarip at neu.edu.tr 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 => \@shelves);
+
+}
+OUT:
+output_html_with_http_headers $input, $cookie, $template->output;
+
+sub changeshelf {
+my ($dbh,$barcode,$shelf)=@_;
+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 => \@briefloop);
+ }else{
+ $template->param(overdueloop => \@overduedata);
+ }
+}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)=@_;
+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)=@_;
+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
+# tony at katipo.co.nz 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 => \@contacts );
+}
+$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 $count=@payments;
+
+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++;
+ $count=@charges;
+
+ # 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 $count=@credits;
+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 $count=@invoices;
+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 $count=@payments;
+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 $count2=@charges;
+#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 => \@loop,
+ 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 $count=@payments;
+# 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++;
+ $count=@charges;
+
+ # 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 $count=@credits;
+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 $count=@invoices;
+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 $count=@payments;
+# 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++;
+ $count=@charges;
+
+ # 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 $count=@credits;
+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 $count=@invoices;
+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 => \@loop1,
+ loop2 => \@loop2,
+ loop3 => \@loop3,
+ 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 tgarip at neu.edu.tr 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 => \@select_branch,
+ -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} = \@results;
+ $globalline{total} = $grantotal;
+ $globalline{branch} = $branch;
+ push @mainloop,\%globalline;
+ return \@mainloop;
+}
+
+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 chris at katipo.oc.nz
+#last update 27/1/2000 by chris at katipo.co.nz
+
+
+# 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 $count=@rank;
+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 chris at katipo.oc.nz
+
+
+# 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 $count=@bibitems;
+ @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 chris at katipo.oc.nz
+
+
+# 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'}=\@barcodeloop;
+ 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'}=\@branchloop;
+ $reserve{'optionloop'}=\@optionloop;
+ 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 => \@select_branch,
+ -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 =>\@optionloop,
+ CGIbranch => $CGIbranch,
+ reserveloop => \@reserveloop,
+ 'time' => $time,
+ bibitemloop => \@bibitemloop,
+ 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
More information about the Koha-cvs
mailing list