[Koha-cvs] CVS: koha/admin z3950servers.pl,1.1.2.1,1.1.2.2

[Steve Tonnesen]

Update of /cvsroot/koha/koha/admin
In directory usw-pr-cvs1:/tmp/cvs-serv8409/admin

Modified Files:
      Tag: rel-1-2
        z3950servers.pl 
Log Message:
Added admin script for editing z39.50 server list.


Index: z3950servers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/Attic/z3950servers.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** z3950servers.pl     11 Jul 2002 18:05:29 -0000      1.1.2.1
--- z3950servers.pl     25 Oct 2002 18:28:39 -0000      1.1.2.2
***************
*** 32,36 ****
        my @data=split(' ',$searchstring);
        my address@hidden;
!       my $query="Select host,port,db,userid,password,name,id,checked,rank 
from z3950servers where (name like "$data[0]%\") order by rank,name";
        my $sth=$dbh->prepare($query);
        $sth->execute;
--- 32,36 ----
        my @data=split(' ',$searchstring);
        my address@hidden;
!       my $query="Select host,port,db,userid,password,name,id,checked,rank 
from z3950servers where (name like \"$data[0]\%\") order by rank,name";
        my $sth=$dbh->prepare($query);
        $sth->execute;
***************
*** 114,121 ****
                var alertString2;
                if (f.searchfield.value.length==0) {
!                       _alertString += "- branch code missing\\n";
                }
!               if (f.branchname.value.length==0) {
!                       _alertString += "- branch name missing\\n";
                }
                if (_alertString.length==0) {
--- 114,127 ----
                var alertString2;
                if (f.searchfield.value.length==0) {
!                       _alertString += "- site name missing\\n";
                }
!               if (f.host.value.length==0) {
!                       _alertString += "- host missing\\n";
!               }
!               if (f.port.value.length==0) {
!                       _alertString += "- port missing\\n";
!               }
!               if (f.db.value.length==0) {
!                       _alertString += "- database missing\\n";
                }
                if (_alertString.length==0) {
***************
*** 140,152 ****
        print "<table>";
        if ($searchfield) {
!               print "<tr><td>Z39.50 Server</td><td><input type=hidden 
name=searchfield value=$searchfield>$searchfield</td></tr>";
        } else {
!               print "<tr><td>Z39.50 Server</td><td><input type=text 
name=searchfield size=5 maxlength=5></td></tr>";
        }
!       print "<tr><td>Hostname</td><td><input type=text name=host size=40 
maxlength=80 value='$data->{'host'}'></td></tr>";
!       print "<tr><td>Port</td><td><input type=text name=port 
value='$data->{'port'}' onBlur=isNum(this)></td></tr>";
!       print "<tr><td>Database</td><td><input type=text name=db 
value='$data->{'db'}'></td></tr>";
!       print "<tr><td>Userid</td><td><input type=text name=userid 
value='$data->{'userid'}'></td></tr>";
!       print "<tr><td>Password</td><td><input type=text name=password 
value='$data->{'password'}'></td></tr>";
        print "<tr><td>Checked (searched by default)</td><td><input type=text 
name=checked value='$data->{'checked'}' onBlur=isNum(this)></td></tr>";
        print "<tr><td>Rank (display order)</td><td><input type=text name=rank 
value='$data->{'rank'}' onBlur=isNum(this)></td></tr>";
--- 146,158 ----
        print "<table>";
        if ($searchfield) {
!               print "<tr><td>Z39.50 Server</td><td><input type=hidden 
name=searchfield value=\"$searchfield\">$searchfield</td></tr>\n";
        } else {
!               print "<tr><td>Z39.50 Server</td><td><input type=text 
name=searchfield size=5 maxlength=5></td></tr>\n";
        }
!       print "<tr><td>Hostname</td><td><input type=text name=host size=40 
maxlength=80 value='$data->{'host'}'></td></tr>\n";
!       print "<tr><td>Port</td><td><input type=text name=port 
value='$data->{'port'}' onBlur=isNum(this)></td></tr>\n";
!       print "<tr><td>Database</td><td><input type=text name=db 
value='$data->{'db'}'></td></tr>\n";
!       print "<tr><td>Userid</td><td><input type=text name=userid 
value='$data->{'userid'}'></td></tr>\n";
!       print "<tr><td>Password</td><td><input type=text name=password 
value='$data->{'password'}'></td></tr>\n";
        print "<tr><td>Checked (searched by default)</td><td><input type=text 
name=checked value='$data->{'checked'}' onBlur=isNum(this)></td></tr>";
        print "<tr><td>Rank (display order)</td><td><input type=text name=rank 
value='$data->{'rank'}' onBlur=isNum(this)></td></tr>";
***************
*** 160,176 ****
  } elsif ($op eq 'add_validate') {
        my $dbh=C4Connect;
!       my $query = "replace branches 
(branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing)
 values (";
!       $query.= $dbh->quote($input->param('searchfield')).",";
!       $query.= $dbh->quote($input->param('branchname')).",";
!       $query.= $dbh->quote($input->param('branchaddress1')).",";
!       $query.= $dbh->quote($input->param('branchaddress2')).",";
!       $query.= $dbh->quote($input->param('branchaddress3')).",";
!       $query.= $dbh->quote($input->param('branchphone')).",";
!       $query.= $dbh->quote($input->param('branchfax')).",";
!       $query.= $dbh->quote($input->param('branchemail')).",";
!       $query.= $dbh->quote($input->param('issuing')).")";
!       my $query="replace z3950servers 
(host,port,db,userid,password,name,checked,rank) values (?, ?, ?, ?, ?, ?, ?, 
?)");
!       my $sth=$dbh->prepare($query);
!       $sth->execute($input->param('host'),
                      $input->param('port'),
                      $input->param('db'),
--- 166,174 ----
  } elsif ($op eq 'add_validate') {
        my $dbh=C4Connect;
!       my $sth=$dbh->prepare("select * from z3950servers where name=?");
!       $sth->execute($input->param('searchfield'));
!       if ($sth->rows) {
!               $sth=$dbh->prepare("update z3950servers set host=?, port=?, 
db=?, userid=?, password=?, name=?, checked=?, rank=? where name=?");
!               $sth->execute($input->param('host'),
                      $input->param('port'),
                      $input->param('db'),
***************
*** 180,184 ****
--- 178,195 ----
                      $input->param('checked'),
                      $input->param('rank'),
+                     $input->param('searchfield')
                      );
+       } else {
+               $sth=$dbh->prepare("insert into z3950servers 
(host,port,db,userid,password,name,checked,rank) values (?, ?, ?, ?, ?, ?, ?, 
?)");
+               $sth->execute($input->param('host'),
+                     $input->param('port'),
+                     $input->param('db'),
+                     $input->param('userid'),
+                     $input->param('password'),
+                     $input->param('searchfield'),
+                     $input->param('checked'),
+                     $input->param('rank'),
+                     );
+       }
        $sth->finish;
        print "data recorded";
***************
*** 247,252 ****
        }
        print mktablehdr;
!       print mktablerow(9,'#99cc33',bold('Branch 
code'),bold('Name'),bold('Address'),
!       bold('Phone'),bold('Fax'),bold('E-mail'),bold('Issuing'),
        '&nbsp;','&nbsp;','/images/background-mem.gif');
        my $env;
--- 258,263 ----
        }
        print mktablehdr;
!       print 
mktablerow(10,'#99cc33',bold('Site'),bold('hostname'),bold('port'),
!       
bold('database'),bold('Userid'),bold('Password'),bold('Checked'),bold('Rank'),
        '&nbsp;','&nbsp;','/images/background-mem.gif');
        my $env;
***************
*** 254,260 ****
        my $toggle="white";
        for (my $i=$offset; $i < 
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
-               #find out stats
-       #       my 
($od,$issue,$fines)=categdata2($env,$results->[$i]{'borrowernumber'});
-       #       $fines=$fines+0;
                if ($toggle eq 'white'){
                        $toggle="#ffffcc";
--- 265,268 ----
***************
*** 262,270 ****
                        $toggle="white";
                }
!               print 
mktablerow(9,$toggle,$results->[$i]{'branchcode'},$results->[$i]{'branchname'},
!               
$results->[$i]{'branchaddress1'}.$results->[$i]{'branchaddress2'}.$results->[$i]{'branchaddress3'},
!               
$results->[$i]{'branchphone'},,$results->[$i]{'branchfax'},,$results->[$i]{'branchemail'},,$results->[$i]{'issuing'},
!               
mklink("$script_name?op=add_form&searchfield=".$results->[$i]{'branchcode'},'Edit'),
!               
mklink("$script_name?op=delete_confirm&searchfield=".$results->[$i]{'branchcode'},'Delete'));
        }
        print mktableft;
--- 270,287 ----
                        $toggle="white";
                }
!               
!               my $urlsearchfield=$results->[$i]{name};
!               $urlsearchfield=~s/ /%20/g;
!               print mktablerow(10,$toggle,
!                       $results->[$i]{'name'},
!                       $results->[$i]{'host'},
!                       $results->[$i]{'port'},
!                       $results->[$i]{'db'},
!                       $results->[$i]{'userid'},
!                       ($results->[$i]{'password'}) ? ('#######') : ('&nbsp;'),
!                       $results->[$i]{'checked'},
!                       $results->[$i]{'rank'},
!               
mklink("$script_name?op=add_form&searchfield=$urlsearchfield".'','Edit'),
!               
mklink("$script_name?op=delete_confirm&searchfield=$urlsearchfield",'Delete'));
        }
        print mktableft;