From 472e162730a8cbc2423a0668f226689b91806837 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Tue, 1 Oct 2002 09:28:29 +0000
Subject: [PATCH] replaced with opac-user.pl

---
 opac/userpage.pl | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100755 opac/userpage.pl

diff --git a/opac/userpage.pl b/opac/userpage.pl
deleted file mode 100755
index 9ecc679025..0000000000
--- a/opac/userpage.pl
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-use HTML::Template;
-use strict;
-require Exporter;
-use C4::Database;
-use C4::Output;  # contains picktemplate
-use CGI;
-use C4::Search;
-use C4::Auth;
- 
-my $query=new CGI;
-my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
-
-
-
-my %configfile;
-open (KC, "/etc/koha.conf");
-while (<KC>) {
- chomp;
- (next) if (/^\s*#/);
- if (/(.*)\s*=\s*(.*)/) {
-   my $variable=$1;
-   my $value=$2;
-   # Clean up white space at beginning and end
-   $variable=~s/^\s*//g;
-   $variable=~s/\s*$//g;
-   $value=~s/^\s*//g;
-   $value=~s/\s*$//g;
-   $configfile{$variable}=$value;
- }
-}
-
-
-
-my $includes=$configfile{'includes'};
-($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
-my $templatebase="user/userpage.tmpl";
-my $theme=picktemplate($includes, $templatebase);
-
-my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
-
-$template->param(loggedinuser => $loggedinuser);
-
-print $query->header(-cookie => $cookie), $template->output;
-- 
2.39.5