[Koha-cvs] koha koha.conf.in koha.t search-test.pl sec/wri... [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/09/01 07:47:14

Removed files:
        .              : koha.conf.in koha.t search-test.pl 
        sec            : writeoff.pl 

Log message:
        these file aren't used in rel_3_0

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha.conf.in?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/koha.t?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/search-test.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/sec/writeoff.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.7&r2=0

Patches:
Index: koha.conf.in
===================================================================
RCS file: koha.conf.in
diff -N koha.conf.in
--- koha.conf.in        30 Oct 2002 14:06:54 -0000      1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-# koha.conf
-# This is the Koha configuration file.
-
-# $Id: koha.conf.in,v 1.1 2002/10/30 14:06:54 arensb Exp $
-
-# Database access
-database =     @db_name@
-hostname =     @db_host@
-user =         @db_user@
-pass =         @db_passwd@
-
-# XXX
-#includes =    
-#opachtdocs =  
-#intrahtdocs = 
-#templatedirectory =

Index: koha.t
===================================================================
RCS file: koha.t
diff -N koha.t
--- koha.t      8 Apr 2002 23:44:43 -0000       1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,14 +0,0 @@
-BEGIN { $| = 1; print "1..2\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use C4::Koha;
-$loaded = 1;
-print "ok 1\n";
-
-$date = "01/01/2002";
-$newdate = &slashifyDate("2002-01-01");
-
-if ($date eq $newdate) {
-    print "ok 2\n";
-} else {
-    print "not ok 2\n";
-}

Index: search-test.pl
===================================================================
RCS file: search-test.pl
diff -N search-test.pl
--- search-test.pl      16 Feb 2006 20:51:07 -0000      1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,42 +0,0 @@
-#!/usr/bin/perl 
-
-# simple script to test cql searching
-# written by address@hidden 17/2/06
-
-use C4::Search;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-
-use CGI;
-use Smart::Comments;
-use strict;
-use warnings;
-
-my $input = new CGI;
-
-my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
-    {
-        template_name   => "search-test.tmpl",
-        type            => "opac",
-        query           => $input,
-        authnotrequired => 1,
-        flagsrequired   => { borrow => 1 },
-    }
-);
-
-my $cql=$input->param('cql');
-if ($cql){
-    my %search;
-    $search{'cql'} = $cql;
-    my $results = search( \%search, 'CQL' , 10);
-    $template->param(CQL => 'yes'       
-    );
-    $template->param(results => $results);
-}
-#my $record = get_record($result);
-
-
-
- 
-
-output_html_with_http_headers $input, $cookie, $template->output;

Index: sec/writeoff.pl
===================================================================
RCS file: sec/writeoff.pl
diff -N sec/writeoff.pl
--- sec/writeoff.pl     11 Feb 2004 08:44:30 -0000      1.7
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,91 +0,0 @@
-#!/usr/bin/perl
-
-#written 11/1/2000 by address@hidden
-#script to write off accounts
-
-
-# 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::Stats;
-my $input=new CGI;
-
-#print $input->header;
-#print $input->dump;
-
-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");
-  if ($accounttype eq 'Res'){
-    my $accountno=$input->param("accountno$value");
-    writeoff($bornum,$accountno,$itemno,$accounttype,$amount);
-  } else {
-    writeoff($bornum,'',$itemno,$accounttype,$amount);
-  }
-}
-#print $input->header;
-$bornum=$input->param('bornum');
-print $input->redirect("/cgi-bin/koha/pay.pl?bornum=$bornum");
-
-#needs to be shifted to a module when time permits
-sub writeoff{
-  my ($bornum,$accountnum,$itemnum,$accounttype,$amount)address@hidden;
-  my $user=$input->remote_user;
-  $user=~ s/Levin/C/;
-  $user=~ s/Foxton/F/;
-  $user=~ s/Shannon/S/;
-  my $dbh = C4::Context->dbh;
-  my $env;
-  my $sth;
-  if ($accounttype eq 'Res'){
-    $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where 
accounttype='Res' and accountno=? and borrowernumber=?");
-    $sth->execute($accountnum,$bornum);
-  } else {
-    $sth=$dbh->prepare("Update accountlines set amountoutstanding=0 where 
accounttype=? and itemnumber=? and borrowernumber=?");
-    $sth->execute($accounttype,$itemnum,$bornum);
-  }
-  $sth->finish;
-  $sth=$dbh->prepare("select max(accountno) from accountlines");
-  $sth->execute;
-  my $account=$sth->fetchrow_hashref;
-  $sth->finish;
-  $account->{'max(accountno)'}++;
-  $sth=$dbh->prepare("insert into accountlines 
(borrowernumber,accountno,itemnumber,date,amount,description,accounttype)
-  values (?,?,?,now(),?,'Writeoff','W')");
-  $sth->execute($bornum,$account->{'max(accountno)'},$itemnum,$amount);
-  $sth->finish;
-#  print $query;
-  UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum);
-}