[Koha-cvs] CVS: koha Install.pm,1.1.2.6,1.1.2.7 detail.pl,1.3.2.3,1.3.2.4 koha.upgrade,1.1.2.15,1.1.2.16 search.pl,1.6.2.10,1.6.2.11 subjectsearch.pl,1.1.1.1.2.1,1.1.1.1.2.2

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	Install.pm detail.pl koha.upgrade search.pl subjectsearch.pl 
Log Message:
Added flags to borrowers table and userflags table.  Also, OPAC scripts now
check for the existence of a file named 'opac' in the directory they are run
from and set the $type variable to 'opac' if it exists.  No longer have to 
"trust" that the type query parameter is correct.


Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/Attic/Install.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -r1.1.2.6 -r1.1.2.7
*** Install.pm	26 Jul 2002 13:46:50 -0000	1.1.2.6
--- Install.pm	26 Jul 2002 18:23:54 -0000	1.1.2.7
***************
*** 947,950 ****
--- 947,951 ----
      print getmessage('CopyingFiles', ['opac-cgi', "$::opacdir/cgi-bin" ]);
      system("cp -R opac-cgi/* $::opacdir/cgi-bin/");
+     system("touch $::opacdir/cgi-bin/opac");
  
      system("chown -R root.$::httpduser $::opacdir");

Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.3.2.3
retrieving revision 1.3.2.4
diff -C2 -r1.3.2.3 -r1.3.2.4
*** detail.pl	11 Jul 2002 18:05:28 -0000	1.3.2.3
--- detail.pl	26 Jul 2002 18:23:54 -0000	1.3.2.4
***************
*** 11,14 ****
--- 11,15 ----
  my $query=new CGI;
  my $type=$query->param('type');
+ (-e "opac") && ($type='opac');
  ($type) || ($type='intra');
  my ($loggedinuser, $cookie, $sessionID) = checkauth($query, ($type eq 'opac') ? (1) : (0));

Index: koha.upgrade
===================================================================
RCS file: /cvsroot/koha/koha/koha.upgrade,v
retrieving revision 1.1.2.15
retrieving revision 1.1.2.16
diff -C2 -r1.1.2.15 -r1.1.2.16
*** koha.upgrade	26 Jul 2002 13:46:50 -0000	1.1.2.15
--- koha.upgrade	26 Jul 2002 18:23:54 -0000	1.1.2.16
***************
*** 311,314 ****
--- 311,315 ----
  print "Copying opac-cgi files to $opacdir/cgi-bin...\n";
  system("cp -R opac-cgi/* $opacdir/cgi-bin/");
+ system("touch $::opacdir/cgi-bin/opac");
  
  system("chown -R root.$httpduser $opacdir");

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.6.2.10
retrieving revision 1.6.2.11
diff -C2 -r1.6.2.10 -r1.6.2.11
*** search.pl	25 Jul 2002 04:05:59 -0000	1.6.2.10
--- search.pl	26 Jul 2002 18:23:54 -0000	1.6.2.11
***************
*** 11,14 ****
--- 11,16 ----
  my $query=new CGI;
  my $type=$query->param('type');
+ (-e "opac") && ($type='opac');
+ 
  my ($loggedinuser, $cookie, $sessionID) = checkauth($query, ($type eq 'opac') ? (1) : (0));
  

Index: subjectsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/subjectsearch.pl,v
retrieving revision 1.1.1.1.2.1
retrieving revision 1.1.1.1.2.2
diff -C2 -r1.1.1.1.2.1 -r1.1.1.1.2.2
*** subjectsearch.pl	9 Jul 2002 03:06:42 -0000	1.1.1.1.2.1
--- subjectsearch.pl	26 Jul 2002 18:23:54 -0000	1.1.1.1.2.2
***************
*** 13,16 ****
--- 13,17 ----
  print $input->header;
  my $type=$input->param('type');
+ (-e "opac") && ($type='opac');
  print startpage();
  print startmenu($type);