package MyLibrary; # Thi library is a part of system of files called # MyLibrary@NCState, a user-driven, customizable # interface to a library's collection of information # resources. # # Copyright (C) 1999-2000, NCSU Libraries # # This program 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. # # This program 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 this program; if not, write # to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA # # For more information about this program write or visit: # # MyLibrary@NCState # NCSU Libraries # Box 7111 # Raleigh, NC 27695-7111 # # mylibrary@listserv.ncsu.edu # http://my.lib.ncsu.edu/ #use strict; use vars qw($VERSION $HOME $DATE @ISA @EXPORT @EXPORT_OK); use CGI; use DBI; use HTTP::Request; use HTTP::Response; use LWP::UserAgent; use MIME::Entity; use Net::FTP; use Text::Wrap; use Time::CTime; use Time::ParseDate; use URI::Escape; use URI::URL; use utf8; require Exporter; @ISA = qw(Exporter AutoLoader); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. @EXPORT = qw(); @EXPORT_OK = qw (); $VERSION = '2.50'; $HOME = 'http://hegel.lib.ncsu.edu/development/mylibrary/'; $DATE = 'December 19, 2000'; # for later changes see the change log that came along with this module --ELM # # 2.2.3 - 01/10/00 - ready for first distribution # moved (copied) release notes to the README file # 2.2.2 - 12/17/99 - started cleaning it up for distribution # 2.0.1 - 08/24/99 - made opac qsearches search via draweb ii, except for nccu # 2.0.0 - 08/16/99 - from berekely at sigir 99, added support for draweb ii, but # draweb ii support most likely needs to be added for other trln # libraries. i believe we are calling this version 2.0 as well. # 1.1.1 - 07/13/99 - removed the definition of $gPort if the port is 80 # 1.1.0 - 07/07/99 - added updateUsageData to save information about the user and the # number of times they visit. Remember to update the data dictionary! # The begining of time is 1999-07-07 16:58:38. # 1.0.9 - 06/21/99 - added merge option when changing disciplines (first day of summer) # 1.0.8 - 06/18/99 - added keep and replace options when changing disciplines # 1.0.7 - 06/01/99 - implemented a impersonate feature to edit patron records # 1.0.6 - 05/06/99 - added alphabetic list of databases and journals for customization # 1.0.5 - 03/08/99 - enhanced send mail function to allow delivery to librarians # 1.0.4 - 03/03/99 - implemented a simple link checker # 1.0.3 - 02/23/99 - added ability to view recommended/non-recommend lists of resources # 1.0.2 - 02/08/99 - added the guestbook # 1.0.1 - 01/31/99 - added the beginings of a disciplines browsable page function # 1.4.1b - 01/14/99 - edited the redirection links to point to $gHome # 1.4.0b - 01/12/99 - the footer is no longer hard coded # 1.3.9b - 12/17/98 - removed usernames and passwords by relying on WRAP and Unity IDs # 1.3.8b - 12/16/98 - added anchors to each section to suppliment navigation on the page # 1.3.7b - 12/11/98 - (Linclon's birthday) we now live on port 80 of a netscape server # 1.3.6b - 12/09/98 - moved to my.lib.ncsu.edu on port 8080 with apache # 1.3.5b - 12/03/98 - commented out addUniversity and created addCAM in its place # 1.3.4b - 10/20/98 - add the report "Who's got the discipline" # 1.3.3b - 10/07/98 - added ability to send patron mail based on disciplines; checked # for existance of datbase id (cookie) when people log on # 1.3.2b - 10/06/98 - debugged CAM so it works now (calcuated dates correctly and # updated some variables to the appropriate values) # 1.3.1b - 10/01/98 - added bunches more o' help texts # 1.3.0b - 09/30/98 - changed the email addres to go to the mylibrary mailing list; # cleaned up CAM; commented out postal address; implemented # cascading style sheets; modifyed displaySimpleHelp to sometime # include a HTML header; if-thened the display of CAM profiles as # well as personal links; added PILES of Simple Help texts. # 1.2.9b - 09/28/98 - changed the domain of the cookie to ncsulib9 and not just our # subnet. Started dis-integrating CAM from general profiles # 1.2.8b - 09/25/98 - removed possibility of multiple accounts with same names and # did other login verifications; reorganized the initial login # screen making extensive use of the displaySimpleHelp routine; # changed the way a person customizes databases, journals and # reference items; added many about texts; only displayed the # discipline-specific MOTD if there was one; moved University # Links to the left side of the window # 1.2.7b - 09/22/98 - started to escape quote marks so things can contain HTML # 1.2.6b - 09/21/98 - removed duplicate entries when updating resource selections # added ability to create simple help texts at top of some pages # 1.2.5b - 09/18/98 - started creating context-sensitive help # 1.2.4b - 09/15/98 - created the option of having your cookie permenatly saved nor not # 1.2.3b - 09/14/98 - can now create default resource lists for specific disciplines # and those defaults will be displayed when a new user logs in # 1.2.2b - 09/11/98 - can now add subject headings to reference, databases, and journals # and when customizing reference, databases, or journal selections the # selections are grouped by discipline # 1.2.1b - 09/09/98 - added the ability to edit the legal disclaimer # 1.2.0b - 09/08/98 - can now get output of current awareness, but not for everybody, # nor regularly. # 1.1.9b - 09/04/98 - fix the title in one place but broke it in another # started adding Current Awareness (can add and delete profiles # but they don't get searched.) # 1.1.8b - 09/03/98 - added keywords for freetext description of interests # initilized variables in different order for the purposes of WRAP # created manage patrons function # 1.1.7b - 07/17/98 - can create/edit/delete disciplines as well as # managers and librarians # 1.1.6b - 07/16/98 - started management of librarians and disciplines # 1.1.5b - 07/15/98 - by using simple copy and paste functions, created # editing routines for libraries, journals, databases, and # university links. All these things now contain descriptions # of some sort or direct links to descriptions in the OPAC # 1.1.4b - 07/14/98 - created menu to edit reference sources and made it fuctional # 1.1.3b - 07/13/98 - moved to ncsulib9, and it moved rather easily! :-) # 1.1.2b - 06/08/98 - added a bit of access control to port 8000 # generated dynamic $gHome variable for footer # 1.1.1b - 06/05/98 - made it so people can come in on port 8000 # 1.1.0b - 06/05/98 - I believe we are pure Netscrape now # 1.0.9b - 06/04/98 - getting closer to pure Netscrape! # 1.0.8b - 06/02/98 - started recovering from the Netscrape cuo # 1.0.7b - 04/08/98 - added a new global variable, $gTableWidth # centered all the content # 1.0.6b - 04/07/98 - added etexts # added links to administrate chat to the administrate page # added NCSU Libraries links # inserted the MOTD into a table for better formatting # made left-hand items thinner and right-hand items wider for readabilitiy # removed 'newuser' from the main page # 1.0.5b - 04/06/98 - added rank to profile # added ability to save quick search # moved the customizable items to the right # moved the uncustomizable items to the left # reorderd the customizable items # made the discipline-motd a separate item on the left # 1.0.4b - 04/02/98 - added university and reference links # 1.0.3b - 03/29/98 - add pesonal links # added ability to edit discipline-motd # 1.0.2b - 03/27/98 - add the administation menu # added editable global motd # added editable banner # added librarians depending on discipline # added collection managers depending on discipline # added Ask Alcuin in a new window # make chat appear in a new window # 1.0.1b - 03/26/98 - added messages of the day (motd) # 1.0b - 03/24/98 - first demo ############### # subroutines # ############### sub updateBanner { if (! $bannerColor->{color_code}) { # find default banner color my $q = "SELECT * FROM colors WHERE color_id = '$gColor_banner_id'"; &findBannerColors ($q); } my %tokens = (bannerColor => $bannerColor->{color_code}); $gBanner = &fillTemplate($gBanner, \%tokens); } sub readConfig { my $config = @_[0]; # read configuration file open (CONFIG, "< $config"); while () { # process each line chomp; s/#.*//; s/^\s+//; s/\s+$//; next unless length; my ($var, $value) = split(/\s*=\s*/, $_, 2); # save the name/value pairs to a hash $CONFIGURATIONS{$var} = $value; } close CONFIG; } sub initalizeHome { # scope input my $gRelativePath; # get input $gRelativePath = $_[0]; # gFullPath - the full path to mylibrary documents (shouldn't need editing) #$gFullPath = "$::gDocsRoot$::gRelativePath"; # gHost - the name of the HTTP host $gHost = $ENV{SERVER_NAME}; # gScript - the name of the script being executed #$::gScript = $ENV{SCRIPT_NAME}; # gPort - the TCP/IP port the HTTP server is listening to if ($ENV{SERVER_PORT} ne '80') { $gPort = $ENV{SERVER_PORT} } else { $gPort = '' } # gRrestricted - used to hide librarians and messages from the librarians # from people who are not your clients/patrons (almost depreciated) if ($gPort eq '') { $gRestricted = 1 } # gHome - the full path back home again if ($gRestricted) { $gHome = "http://$gHost$gRelativePath" } else { $gHome = "http://$gHost:8080$gRelativePath"; } return "$gHome"; } sub initalizeDBIO { # scope input my ($dbDriver, $database, $dbhost, $username, $password); # assign input $dbDriver = $MyLibrary::CONFIGURATIONS{'dbDriver'}; $database = $MyLibrary::CONFIGURATIONS{'database'}; $dbhost = $MyLibrary::CONFIGURATIONS{'dbhost'}; $username = $MyLibrary::CONFIGURATIONS{'username'}; $password = $MyLibrary::CONFIGURATIONS{'password'}; # gDBhandle - database I/O $gDBhandle = DBI->connect("DBI:$dbDriver:$database:$dbhost", "$username", "$password"); } sub initalizeCGI { # initalized CGI I/O; should be re-named to gInput and gOuput, but... $input = new CGI; $output = new CGI (""); } sub redirectHome { # scope input my $gRelativePath; # get input $gRelativePath = $_[0]; # build a url ($u) of where we came from $u = "http://"; $u .= "$gHost"; if (length ($gPort) > 0) { $u .= ":$gPort"; } $u .= "$gRelativePath"; # send them back to where they came print $output->redirect($u); #done exit; } sub simpleRedirect { local $u; # get the input my $section = $input->param('section'); my $resourceID = $input->param('resourceID'); my $query = $input->param('query'); # if necessary, give query a value if ($section ne 'Q') { $query = ''} # branch according to section code if ($section eq 'R') { # reference my $q = "SELECT reference_url FROM reference WHERE reference_id = $resourceID"; &prepareAndExecuteSQL ($q); &findAllReferences ($q); $u = $referenceURLs[0]; } elsif ($section eq 'B') { # bibliograhic databases my $q = "SELECT bib_database_url FROM bib_databases WHERE bib_database_id = $resourceID"; &prepareAndExecuteSQL ($q); &findAllDatabases ($q); $u = $databaseURLs[0]; } elsif ($section eq 'E') { # etexts (journals) my $q = "SELECT etext_url FROM etexts WHERE etext_id = $resourceID"; &prepareAndExecuteSQL ($q); &findAllJournals ($q); $u = $journalURLs[0]; } elsif ($section eq 'L') { # library links my $q = "SELECT libraries_url FROM libraries WHERE libraries_id = $resourceID"; &prepareAndExecuteSQL ($q); &findAllLibraries ($q); $u = $librariesURLs[0]; } elsif ($section eq 'U') { # library links my $q = "SELECT university_url FROM university WHERE university_id = $resourceID"; &prepareAndExecuteSQL ($q); &findAllUniversity ($q); $u = $universityURLs[0]; } elsif ($section eq 'Q') { # do nothing; } else { &returnError ("Unknown section code: $sectionCode."); } # get a primary key my $sequence = getNewSequence(); # escape the query my $escQuery = $gDBhandle->quote($query); # save the statistic my $q = qq [INSERT INTO statistics (statistic_id, patron_id, section_code, resource_id, date_used, engine, query) VALUES ('$sequence', '$patronRecord->{patron_id}', '$section', '$resourceID', NOW(), '$engine', $escQuery)]; &prepareAndExecuteSQL ($q); # redirect them accordingly if ($section eq 'Q') { # proecess the quick search &processQSearch ($resourceID, $query); } else { # redirect them to the resource print $output->redirect($u) } #done exit; } sub removeDuplicates { # remove duplicate items from a list # from Perl Cookbook, page 102 my @l = @_; my %s = (); my @u = grep { ! $s{$_} ++ } @l; return @u; } sub gracefulExit { # print the footer &printFooter; # close the html print $output->end_html; # disconnect the handle to the database if ($gSth) { $gSth->finish; } $gDBhandle->disconnect; # quit gracefully exit; } ############################### # subroutines for patron data # ############################### sub updateUsageData { # initialize the search key my $id = @_[0]; # get the environment variables my $remoteIP = $ENV{REMOTE_ADDR}; my $remoteName = $ENV{REMOTE_HOST}; my $browser = $ENV{HTTP_USER_AGENT}; # save the information my $q = qq {update patrons set remote_ip = "$remoteIP", remote_name = "$remoteName", browser = "$browser", last_visit = now(), total_visits = total_visits + 1 where patron_id = $id}; &prepareAndExecuteSQL ($q); } sub disciplineChange { # get the input my $typeOfChange = $input->param('typeOfChange'); my $oldId = $input->param('oldId'); my $newId = $input->param('newId'); # branch accordingly if (! $typeOfChange) { # print my header &printHeader; # start the html &displaySimpleHelpMessage (220, 1); # create a base href my $href = "./?cmd=disciplineChange&oldId=$oldId&newId=$newId"; # display the choices print qq(
    ); print qq(
  1. Mantenere le personalizzazioni precedentemente impostate.); print qq(
  2. Sostituire le personalizzazioni precedentemente impostate con quelle suggerite per la nuova disciplina. ATTENZIONE! Verranno perse le personalizzazioni create finora sulla propria pagina personale!); print qq(
  3. Unire le personalizzazioni precedentemente impostate a quelle suggerite per la nuova disciplina.); print qq(
); } else { # branch according to the type of change selected if ($typeOfChange eq "keep") { # keep changes; just save their new discipline id and redirect them home my $q = qq (update patrons set discipline_id = $newId where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); # redirect them home &MyLibrary::redirectHome($CONFIGURATIONS{'gRelativePath'}); } elsif ($typeOfChange eq "replace") { # replace changes; first save their discipline id my $q = qq (update patrons set discipline_id = $newId where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); # delete the existing records for this patron's LIBRARIES $q = qq (delete from items4libraries where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # set defaults for LIBRARIES my $q = qq(select * from defaultLibraries where discipline_id = "$newId"); &findDefaultResources ($q, "libraries_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{insert into items4libraries (patron_id, libraries_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # delete the existing records for this patron's UNIVERSITY $q = qq (delete from items4university where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # set defaults for UNIVERSITY my $q = qq(select * from defaultUniversity where discipline_id = "$newId"); &findDefaultResources ($q, "university_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq(insert into items4university (patron_id, university_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])); &prepareAndExecuteSQL ($q); } # delete the existing records for this patron's QUICK SEARCHES $q = qq (delete from items4qsearches where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # set defaults for QUICK SEARCHES my $q = qq(select * from defaultQseaches where discipline_id = "$newId"); &findDefaultResources ($q, "qsearch_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq(insert into items4qsearches (patron_id, qsearch_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])); &prepareAndExecuteSQL ($q); } # delete the existing records for this patron's REFERENCE $q = qq(delete from items4references where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # set defaults for REFERENCE my $q = qq(select * from defaultReferences where discipline_id = "$newId"); &findDefaultResources ($q, "reference_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq(insert into items4references (patron_id, reference_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])); &prepareAndExecuteSQL ($q); } # delete the existing records for this patron's JOURNALS $q = qq(delete from items4etexts where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # set defaults for JOURNALS my $q = qq(select * from defaultEtexts where discipline_id = "$newId"); &findDefaultResources ($q, "etext_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq(insert into items4etexts (patron_id, etext_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])); &prepareAndExecuteSQL ($q); } # delete the existing records for this patron's BIBLIOGRAHIC DATABASES $q = qq(delete from items4bibdatabases where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # set defaults for BIBLIOGRAHIC DATABASES my $q = qq(select * from defaultBibdatabases where discipline_id = "$newId"); &findDefaultResources ($q, "bib_database_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq(insert into items4bibdatabases (patron_id, bib_database_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])); &prepareAndExecuteSQL ($q); } # redirect them home &MyLibrary::redirectHome($CONFIGURATIONS{'gRelativePath'}); } elsif ($typeOfChange eq "merge") { # replace changes; first save their discipline id my $q = qq (update patrons set discipline_id = $newId where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); ##### quick searches # find the default LIBRARIES resources for this discipline my $q = qq(select * from defaultQseaches where discipline_id = "$newId"); &findDefaultResources ($q, "qsearch_id"); # concatonate their previous selects to the new selections push @patronQSearchIDs, @defaultIDs; # remove duplicates @patronQSearchIDs = &MyLibrary::removeDuplicates(@patronQSearchIDs); # delete the existing records for this patron $q = qq (delete from items4qsearches where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); for ($i = 0; $i <= $#patronQSearchIDs; $i++) { $q = qq(insert into items4qsearches (patron_id, qsearch_id) values ($patronRecord->{patron_id}, $patronQSearchIDs[$i])); &prepareAndExecuteSQL ($q); } ##### libraries shelf # find the default LIBRARIES resources for this discipline my $q = qq(select * from defaultLibraries where discipline_id = "$newId"); &findDefaultResources ($q, "libraries_id"); # concatonate their previous selects to the new selections push @patronLibrariesIDs, @defaultIDs; # remove duplicates @patronLibrariesIDs = &MyLibrary::removeDuplicates(@patronLibrariesIDs); # delete the existing records for this patron $q = qq (delete from items4libraries where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); for ($i = 0; $i <= $#patronLibrariesIDs; $i++) { $q = qq(insert into items4libraries (patron_id, libraries_id) values ($patronRecord->{patron_id}, $patronLibrariesIDs[$i])); &prepareAndExecuteSQL ($q); } ##### univeresity shelf # find the default UNIVERSITY resources for this discipline my $q = qq(select * from defaultUniversity where discipline_id = "$newId"); &findDefaultResources ($q, "university_id"); # concatonate their previous selects to the new selections push @patronUniversityIDs, @defaultIDs; # remove duplicates @patronUniversityIDs = &MyLibrary::removeDuplicates(@patronUniversityIDs); # delete the existing records for this patron $q = qq (delete from items4university where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); for ($i = 0; $i <= $#patronUniversityIDs; $i++) { $q = qq(insert into items4university (patron_id, university_id) values ($patronRecord->{patron_id}, $patronUniversityIDs[$i])); &prepareAndExecuteSQL ($q); } ##### reference shelf # find the default REFERENCE resources for this discipline my $q = qq(select * from defaultReferences where discipline_id = "$newId"); &findDefaultResources ($q, "reference_id"); # concatonate their previous selects to the new selections push @patronReferenceIDs, @defaultIDs; # remove duplicates @patronReferenceIDs = &MyLibrary::removeDuplicates(@patronReferenceIDs); # delete the existing records for this patron $q = qq(delete from items4references where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); for ($i = 0; $i <= $#patronReferenceIDs; $i++) { $q = qq(insert into items4references (patron_id, reference_id) values ($patronRecord->{patron_id}, $patronReferenceIDs[$i])); &prepareAndExecuteSQL ($q); } ##### databases # find the default DATABASES resources for this discipline my $q = qq(select * from defaultBibdatabases where discipline_id = "$newId"); &findDefaultResources ($q, "bib_database_id"); # concatonate their previous selects to the new selections push @patronDatabaseIDs, @defaultIDs; # remove duplicates @patronDatabaseIDs = &MyLibrary::removeDuplicates(@patronDatabaseIDs); # delete the existing records for this patron $q = qq(delete from items4bibdatabases where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); for ($i = 0; $i <= $#patronDatabaseIDs; $i++) { $q = qq(insert into items4bibdatabases (patron_id, bib_database_id) values ($patronRecord->{patron_id}, $patronDatabaseIDs[$i])); &prepareAndExecuteSQL ($q); } ##### journals # find the default JOURNALS resources for this discipline my $q = qq(select * from defaultEtexts where discipline_id = "$newId"); &findDefaultResources ($q, "etext_id"); # concatonate their previous selects to the new selections push @patronJournalIDs, @defaultIDs; # remove duplicates @patronJournalIDs = &MyLibrary::removeDuplicates(@patronJournalIDs); # delete the existing records for this patron $q = qq(delete from items4etexts where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); for ($i = 0; $i <= $#patronJournalIDs; $i++) { $q = qq(insert into items4etexts (patron_id, etext_id) values ($patronRecord->{patron_id}, $patronJournalIDs[$i])); &prepareAndExecuteSQL ($q); } # redirect them home &MyLibrary::redirectHome($CONFIGURATIONS{'gRelativePath'}); } else { # error &returnError ("Unknown value for typeOfChange: $typeOfChange."); } } } sub setProfile { # inialize the to-do list (@todo) @todo = ('name_f', 'name_l', 'telephone_number_start', 'telephone_number_end', 'telephone_extention', 'can_contact', 'email', 'rank_id', 'keywords'); # process every item in the to-do list, tricky for $t (@todo) { # get the input my $v = $input->param($t); # make sure there is a FIRST name if ($t eq 'name_f' && $v eq "") { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (11, 1); # exit gracefully &gracefulExit; } # make sure there is a LAST name if ($t eq 'name_l' && $v eq "") { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (11, 1); # exit gracefully &gracefulExit; } # make sure there is a EMAIL ADDRESS if ($t eq 'email' && $v eq "") { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (11, 1); # exit gracefully &gracefulExit; } # escape any quotes $v = $MyLibrary::gDBhandle->quote($v); # create a query and execute it my $q = qq (update patrons set $t = $v where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); } # process the discipline my $v = $input->param('discipline_id'); # check to see if the discipine has changed if ($v eq $patronRecord->{discipline_id}) { # do nothing, just resave their discipline id my $q = qq (update patrons set discipline_id = $v where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); } else { # redirect them to the change discipline page and quit my $oldId = $patronRecord->{discipline_id}; my $newId = $v; &MyLibrary::redirectHome("$CONFIGURATIONS{'gRelativePath'}/?cmd=disciplineChange&oldId=$oldId&newId=$newId"); exit; } } sub customizeProfile { # find all the disciplines my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines ($q); # read the ranks my $q = "select * from ranks"; &findAllRanks ($q); # find the help $q = qq(select * from help_simple where help_id = "8"); &findAllSimpleHelp ($q); # print my header &printHeader; # start the html &displaySimpleHelpMessage (8, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setProfile'); print qq (
\n); print qq (\n); # user id print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # first name print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # last name print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # disciplines print qq (\n); print qq (\n); print qq (\n); print qq (\n); # keywords #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); # rank print qq (\n); print qq (\n); print qq (\n); print qq (\n); # email address print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # can contact print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # telephone number print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # postal address 1 #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); # postal address 2 #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); # city #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); # state #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); # zip #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); #print qq (\n); # end the table print qq (
\n); print qq (Username (ID)); print qq (\n); print qq($patronRecord->{username} ($patronRecord->{patron_id})); print qq (\n); print qq (Questi sono lo username e l'ID. Non è possibile cambiarli.); print qq (
\n); print qq (Nome); print qq (\n); print $output->textfield(-name => 'name_f', -size => "50", -value => "$patronRecord->{name_f}"); print qq (\n); print qq (Inserire il nome (Help)); print qq (
\n); print qq (Cognome); print qq (\n); print $output->textfield(-name => 'name_l', -size => "50", -value => "$patronRecord->{name_l}"); print qq (\n); print qq (Inserire il cognome (Help)); print qq (
\n); print qq (Disciplina); print qq (\n); print qq (); print qq (\n); print qq (Selezionare l'area di interesse principale. (Help)); print qq (
\n); #print qq (Keywords); #print qq (\n); #print $output->textarea(-name => 'keywords', -rows => 3, -columns => 50, -value => "$patronRecord->{keywords}"); #print qq (\n); #print qq (Inserire una o due frasi che descrivano i tuoi interessi. (Help)); #print qq (
\n); print qq (Status); print qq (\n); print qq (); print qq (\n); print qq (Scegliere la categoria. (Help)); print qq (
\n); print qq (Indirizzo email); print qq (\n); print $output->textfield(-name => 'email', -size => "50", -value => "$patronRecord->{email}"); print qq (\n); print qq (Inserire il proprio indirizzo email. (Help)); print qq (
\n); print qq (Contatto); print qq (\n); if ($patronRecord->{can_contact}) { print qq (Si ); print qq (No); } else { print qq (Yes ); print qq (No); } print qq (\n); print qq (Possiamo inviarti email? (Help)); print qq (
\n); print qq (Telefono); print qq (\n); print "+"; print $output->textfield(-name => 'telephone_area', -value => "$patronRecord->{telephone_area}", -size => 10, -maxlength => 10); print $output->textfield(-name => 'telephone_number_start', -value => "$patronRecord->{telephone_number_start}", -size => 10, -maxlength => 10); print qq (-); print $output->textfield(-name => 'telephone_number_end', -value => "$patronRecord->{telephone_number_end}", -size => 10, -maxlength => 10); print qq (\n); print qq (Numero di telefono (Es.: +0039 0331-572265) (Help)); print qq (
\n); #print qq (Indirizzo postale 1\n); #print qq (\n); #print $output->textfield(-name => 'address_1', -value => "$patronRecord->{address_1}"); #print qq (\n); #print qq (Prima linea dell'indirizzo di posta (More help)); #print qq (
\n); #print qq (Indirizzo postale 2\n); #print qq (\n); #print $output->textfield(-name => 'address_2', -value => "$patronRecord->{address_2}"); #print qq (\n); #print qq (Seconda linea dell'indirizzo di posta (More help)); #print qq (
\n); #print qq (Città\n); #print qq (\n); #print $output->textfield(-name => 'city', -value => "$patronRecord->{city}"); #print qq (\n); #print qq (Città di residenza (More help)); #print qq (
\n); #print qq (Stato\n); #print qq (\n); #print $output->textfield(-name => 'state', -value => "$patronRecord->{state}", -size => 2, -maxlength => 2); #print qq (\n); #print qq (Nazione di residenza (More help)); #print qq (
\n); #print qq (CAP\n); #print qq (\n); #print $output->textfield(-name => 'zip_base', -value => "$patronRecord->{zip_base}", -size => 5, -maxlength => 5); #print qq (-); #print $output->textfield(-name => 'zip_four', -value => "$patronRecord->{zip_four}", -size => 4, -maxlength => 4); #print qq (\n); #print qq (Codice di avviamento postale (More help)); #print qq (
\n); # add a submit and reset button print qq (

\n); print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print qq (

\n); # finish the form print qq (
\n); print $output->endform; } sub readPatron { # initialize the search key my $id = @_[0]; # find the patron my $q = qq (select * from patrons where patron_id = $id); &findPatrons ($q); # check to see whether or not the id was found if (! $patronRecord->{patron_id}) { # redefine their cookie my $cookie = $output->cookie(-name => 'uid', -value => "$id", -expires => '-1y', -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); # output an http header print $output->header(-expires => '-1d', -cookie => "$cookie"); # display the error message &displaySimpleHelpMessage (203, 1); # quit gracefully &gracefulExit; } # find the banner color $q = qq (select color_id, color_code from colors, patrons where patrons.color_banner_id=colors.color_id and patrons.patron_id= '$patronRecord->{patron_id}'); &findBannerColors ($q); # find the background color $q = qq (select color_id, color_code from colors, patrons where patrons.color_bg_id=colors.color_id and patrons.patron_id = '$patronRecord->{patron_id}'); &findBackgroundColors ($q); # find the text color $q = qq (select color_id, color_code from colors, patrons where patrons.color_text_id=colors.color_id and patrons.patron_id = '$patronRecord->{patron_id}'); &findTextColors ($q); # find link color $q = qq (select color_id, color_code from colors, patrons where patrons.color_link_id=colors.color_id and patrons.patron_id = '$patronRecord->{patron_id}'); &findLinkColors ($q); # find alink color $q = qq (select color_id, color_code from colors, patrons where patrons.color_alink_id=colors.color_id and patrons.patron_id = '$patronRecord->{patron_id}'); &findAlinkColors ($q); # find vlink color $q = qq (select color_id, color_code from colors, patrons where patrons.color_vlink_id=colors.color_id and patrons.patron_id = '$patronRecord->{patron_id}'); &findVlinkColors ($q); # find quick searches $q = qq (select * from items4qsearches, qsearches where items4qsearches.patron_id = '$patronRecord->{patron_id}' and items4qsearches.qsearch_id=qsearches.qsearch_id order by qsearch_name); &findPatronQSearches ($q); # find last quick search query $q = qq (select last_query from patrons where patrons.patron_id = '$patronRecord->{patron_id}'); &findQuickSearchQuerys ($q); # find patron references $q = qq (select reference_url, reference_name from items4references, reference where items4references.patron_id = '$patronRecord->{patron_id}' and items4references.reference_id = reference.reference_id order by reference_name); &findPatronReferences ($q); # find bibliographic databases $q = qq (select bib_database_url, bib_database_name, bib_databases.bib_database_id from items4bibdatabases, bib_databases where items4bibdatabases.patron_id = '$patronRecord->{patron_id}' and items4bibdatabases.bib_database_id=bib_databases.bib_database_id order by bib_database_name); &findPatronDatabases ($q); # find reference sources $q = qq (select reference_url, reference_name, reference.reference_id from items4references, reference where items4references.patron_id = '$patronRecord->{patron_id}' and items4references.reference_id=reference.reference_id order by reference_name); &findPatronReferences ($q); # find library urls $q = qq (select * from items4libraries, libraries where items4libraries.patron_id = '$patronRecord->{patron_id}' and items4libraries.libraries_id=libraries.libraries_id order by libraries_name); &findPatronLibraries ($q); # find etext urls $q = qq (select etext_url, etext_name, etexts.etext_id from etexts, items4etexts where items4etexts.patron_id = '$patronRecord->{patron_id}' and items4etexts.etext_id=etexts.etext_id order by etext_name); &findPatronJournals ($q); # find university urls $q = qq (select * from items4university, university where items4university.patron_id = '$patronRecord->{patron_id}' and items4university.university_id=university.university_id order by university_name); &findPatronUniversity ($q); # find discipline-specific MOTD $q = qq (select * from disciplines where discipline_id = '$patronRecord->{discipline_id}'); &findAllDisciplines ($q); # find librarians $q = qq (select name, email_address, url, telephone_start, telephone_end from librarians, patrons, items4librarians where patrons.patron_id = '$patronRecord->{patron_id}' and patrons.discipline_id = items4librarians.discipline_id and items4librarians.librarian_id = librarians.librarian_id order by name); &findLibrarians ($q); # find the collection managers $q = qq (select name, email_address, url, telephone_start, telephone_end from managers, patrons, items4managers where patrons.patron_id= '$patronRecord->{patron_id}' and patrons.discipline_id = items4managers.discipline_id and items4managers.manager_id = managers.manager_id order by name); &findCollectionManagers ($q); # find selected template $q = qq (select template from templates, patrons where patrons.template_id = templates.template_id and patrons.template_id = '$patronRecord->{template_id}'); &findPatronTemplate ($q); } ############### # databases # ############### sub displayAlphabeticDatabases { # find all the databases my $q = qq (SELECT * FROM bib_databases ORDER BY bib_database_name); &findAllDatabases ($q); # print my header &printHeader; # display simple help &displaySimpleHelpMessage (217, 1); # display the form &displayDatabaseSelectionForm; } sub displayDatabaseSelectionForm { # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setDatabases'); # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # start the table print "\n"; # process each quick search for (my $i=0; $i <= $#databaseNames; $i++) { # check to see what was previously selected my $ps = 0; for $m (@patronDatabaseNames) { if ($databaseNames[$i] eq $m) { $ps = 1; last; } } # print the row print "\n"; if ($ps) { print qq (\n); } else { print qq (\n); } if ($gSaveStatistics) { print qq[\n); } # end the table print "
$databaseNames[$i]]; } else { print qq ($databaseNames[$i]\n);} if ($databaseNotes[$i]) { print " - $databaseNotes[$i]"; } if ($databaseFKeys[$i]) { print " (full record)"; } print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "\n"; print $output->endform; } sub customizeDatabases { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # print my header &printHeader; # display simple help &displaySimpleHelpMessage (2, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setDefaultDatabases'); # process every database they have selected print "
    "; for ($i = 0; $i <= $#patronDatabaseIDs; $i++) { print qq(
  1. $patronDatabaseNames[$i]\n); } print "
"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # return to MyLibrary print "

\n"; print qq(Torna a Segnaweb); print "

\n"; # end the form print $output->endform; # display simple help &displaySimpleHelpMessage (216, 0); # display simple help &displaySimpleHelpMessage (27, 0); # display a list of all the disciplines print "
    "; for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq(
  1. $disciplineNames[$i]\n); } print "
"; # return to MyLibrary print "

\n"; print qq(Torna a Segnaweb); print "

\n"; } sub setDefaultDatabases { my @b = $input->param('databases'); # delete the existing records for this patron $q = qq(delete from items4bibdatabases where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(insert into items4bibdatabases values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } sub displayDisciplineDatabases { # get the discipline id my $id = $input->param('id'); # find all the resources for this discipline $q = qq (SELECT bib_databases.* FROM bib_databases, items4DisBibdatabases WHERE items4DisBibdatabases.discipline_id = '$id' AND items4DisBibdatabases.bib_database_id = bib_databases.bib_database_id ORDER BY bib_databases.bib_database_name); &findAllDatabases ($q); # print my header &printHeader; # display the form if ($#databaseIDs >= 0) { # display simple help &displaySimpleHelpMessage (30, 1); # display the form &displayDatabaseSelectionForm; } # explain that no titles were found else {&displaySimpleHelpMessage (218, 1);} } sub setDatabases { my @b = $input->param('database'); # concatonate their previous selects to the new selections push @b, @patronDatabaseIDs; # remove duplicates @b = &removeDuplicates(@b); # delete the existing records for this patron $q = qq(DELETE FROM items4bibdatabases WHERE patron_id = '$patronRecord->{patron_id}'); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(INSERT INTO items4bibdatabases VALUES ('$patronRecord->{patron_id}', '$b')); &prepareAndExecuteSQL ($q); } } ############### # colors # ############### sub customizeColors { # find all the colors my $q = "select * from colors order by color_name"; &findAllColors ($q); # find all templates my $q = "select * from templates order by template_name"; &findAllTemplates ($q); # print my header &printHeader; # find the help &displaySimpleHelpMessage (9, 1); # build the labels for the select statement for ($i=0; $i < $#colorId+1; $i++) { $labels{$colorId[$i]} = $colorNames[$i]; } # build the labels for templates for ($i=0; $i < $#templateIDs+1; $i++) { $templateLabels{$templateIDs[$i]} = $templateNames[$i]; } # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setColors'); print "
\n"; print "\n"; # title print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # print the banner selections print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # print the background selections print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # print the text selections print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # print the link selections print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # print the alink selections print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # print the vlink selections print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # end the table print "
Titolo\n"; print qq(); print "\n); print qq (Titolo della pagina principale (Help)); print qq (
Colore delle intestazioni\n"; print $output->popup_menu(-name => 'color_banner_id', -value => \@colorId, -default => "$bannerColor->{color_id}", -labels => \%labels); print "
\n"; print "		\n); print qq (Scegliere il colore delle intestazioni. (Help)); print qq (
Colore di background\n"; print $output->popup_menu(-name => 'color_bg_id', -value => \@colorId, -default => "$backgroundColor->{color_id}", -labels => \%labels); print "
\n"; print "		\n); print qq (Scegliere il colore di background. (Help)); print qq (
Colore del testo\n"; print $output->popup_menu(-name => 'color_text_id', -value => \@colorId, -default => "$textColor->{color_id}", -labels => \%labels); print "
\n"; print "		\n); print qq (Scegliere il colore del testo. (Help)); print qq (
Colore dei links\n"; print $output->popup_menu(-name => 'color_link_id', -value => \@colorId, -default => "$linkColor->{color_id}", -labels => \%labels); print "
\n"; print "		\n); print qq (Scegliere il colore dei links non ancora visitati. (Help)); print qq (
Colore dei links attivi\n"; print $output->popup_menu(-name => 'color_alink_id', -value => \@colorId, -default => "$alinkColor->{color_id}", -labels => \%labels); print "
\n"; print "		\n); print qq (Scegliere il colore dei links attivi. (Help)); print qq (
Colore dei links visitati\n"; print $output->popup_menu(-name => 'color_vlink_id', -value => \@colorId, -default => "$vlinkColor->{color_id}", -labels => \%labels); print "
\n"; print "		\n); print qq (Scegliere il colore dei links visitati. (Help)); print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->submit(-name => 'submit', -value => 'Impostazioni di default'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "
\n"; print $output->endform; } sub setColors { # get the value of the submit button my $b = $input->param('submit'); # check to see if they want the default colors if ($b eq "Impostazioni di default") { # create a query and exectue it my $query = qq (update patrons set color_bg_id = "$gColor_bg_id", color_text_id = "$gColor_text_id", color_link_id = "$gColor_link_id", color_vlink_id = "$gColor_vlink_id", color_alink_id = "$gColor_alink_id", color_banner_id = "$gColor_banner_id", template_id = "$gTemplateID" where patron_id = $patronRecord->{patron_id}); &updatePatron ($query); } # save their customizations else { # inialize the to-do list (@todo) @todo = ('page_title', 'color_bg_id', 'color_banner_id', 'color_text_id', 'color_link_id', 'color_alink_id', 'color_vlink_id'); # process every item in the to-do list, tricky for $t (@todo) { # get the form's input my $v = $input->param($t); # escape any quotes $v = $gDBhandle->quote($v); # create a query and exectue it my $query = qq (update patrons set $t = $v where patron_id = $patronRecord->{patron_id}); &updatePatron ($query); } } } ############### # html # ############### sub displaySimpleHelpMessage { # get the input my $n = @_[0]; # message number my $h = @_[1]; # a boolean whether or not to display a header # find the help my $q = qq(select * from help_simple where help_id = "$n"); &findAllSimpleHelp ($q); # define the title my $title = "$simpleHelpTitle[0]"; # output a header? if ($h) { print $output->start_html (-title => "$title", -style => "$gStyleSheet"); if ($::gShowBanner) { &updateBanner; print qq($gBanner); } else { &displayAdminBanner; } } # display the title and texts print "\n\n"; print qq(

$title

\n); print "$simpleHelpText[0]"; } sub printHeader { # do they want a cookie? if ($patronRecord->{wants_cookie}) { $cookie = $output->cookie(-name => 'uid', -value => "$patronRecord->{patron_id}", -expires => "$gExpires", -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); } else { $cookie = $output->cookie(-name => 'uid', -value => "$patronRecord->{patron_id}", -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); } # output the header print $output->header(-expires => '-1d', -cookie => $cookie); } sub printFooter { # if the footer file exists ($footer), then slup it up and print it #print "\n\n\n"; #if (-e $footer) { # # my $b = `cat $footer`; # print $b; # #} print $gFooter; } sub returnError { my $errorMessage = @_[0]; &printHeader; print qq(ERROR: $errorMessage Email biblioteca.); } sub notImplemented { &returnError("Funzione non ancora implementata."); } sub fillTemplate { # this code is based on (stolen from) the Perl Cookbook, pg. 721 my ($text, $fillings) = @_; $text =~ s{ %% ( .*? ) %% } { exists ( $fillings->{$1} ) ? $fillings->{$1} : "" }gsex; return $text; } sub outputMyLibrary { my %tokens; my $librarians; my $listLibraryLinks; my $listUniversityLinks; my $formCurrentAwareness; my $listPersonalLinks; my $formQuickSearches; my $listReferenceLinks; my $listDatabaseLinks; my $listJournalLinks; # output a header &printHeader; # get the librarians $librarians = &addLibrarians(); # get the library links $listLibraryLinks = &addLibraries(); # get the university links $listUniversityLinks = &addUniversity(); # get the current awareness $formCurrentAwareness = &addCAM(); # get the what's new form $formWhatsNew = &addWhatsNew(); # get the personal links $listPersonalLinks = &addPersonal(); # get the quick searches $formQuickSearches = &addQuickSearches(); # get the reference links $listReferenceShelf = &addReference(); # get the bibliograhic databases $listDatabaseLinks = &addDatabases(); # get the journals $listJournalLinks = &addJournals(); # update the banner &updateBanner; # fill up the token list %tokens = ( patronFirst => $patronRecord->{name_f}, title => $patronRecord->{page_title}, bgcolor => $backgroundColor->{color_code}, link => $linkColor->{color_code}, alink => $alinkColor->{color_code}, vlink => $vlinkColor->{color_code}, text => $textColor->{color_code}, bannerColor => $bannerColor->{color_code}, banner => $gBanner, motd => $gGlobalMessage, aboutMyLibrary => './?cmd=about&id=39', customizeProfile => './?cmd=about&id=43', logout => './?cmd=killCookie', messageFromLibrarian => $gMessageFromTheLibrarian, aboutMessageFromLibrarian => './?cmd=about&id=42', disciplineMotd => $disciplineMOTDs[0], yourLibrarians => $gYourLibrarians, aboutLibrarians => './?cmd=about&id=36', librarians => $librarians, libraryLinks => $gLibraryLinks, aboutLibraryLinks => './?cmd=about&id=38', customizeLibraryLinks => './?cmd=customizeLibraries', listLibraryLinks => $listLibraryLinks, universityLinks => $gUniversityLinks, aboutUniversityLinks => './?cmd=about&id=37', customizeUniversityLinks => './?cmd=customizeUniversity', listUniversityLinks => $listUniversityLinks, currentAwareness => $gCurrentAwarenessManager, aboutCurrentAwareness => './?cmd=about&id=45', customizeCurrentAwareness => './?cmd=customizeCAMProfile', formCurrentAwareness => $formCurrentAwareness, personalLinks => $gPersonalLinks, aboutPersonalLinks => './?cmd=about&id=31', customizePersonalLinks => './?cmd=customizePersonalLinks', listPersonalLinks => $listPersonalLinks, quickSearches => $gQuickSearches, aboutQuickSearches => './?cmd=about&id=32', customizeQuickSearches => './?cmd=customizeQSearches', formQuickSearches => $formQuickSearches, referenceShelf => $gReferenceShelf, aboutReferenceShelf => './?cmd=about&id=33', customizeReferenceShelf => './?cmd=customizeReference', listReferenceShelf => $listReferenceShelf, databaseLinks => $gBibliographicDatabaseLinks, aboutDatabaseLinks => './?cmd=about&id=34', customizeDatabaseLinks => './?cmd=customizeDatabases', listDatabaseLinks => $listDatabaseLinks, journalLinks => $gElectronicJournals, aboutJournalLinks => './?cmd=about&id=35', customizeJournalLinks => './?cmd=customizeJournals', listJournalLinks => $listJournalLinks, formWhatsNew => $formWhatsNew ); # finally, output the html print &fillTemplate($gPatronTemplate[0], \%tokens); } sub addLibrarians { my $librarians; # start with the reference librarians for ($i = 0; $i <= $#librarianNames; $i++) { # get the subject specalist librarian(s) my $l = $librarianNames[$i]; my $e = $librarianEmailAddress[$i]; my $t = "$librarianTelephoneStart[$i]-$librarianTelephoneEnd[$i]"; my $u = $librarianURL[$i]; if ($#librarianNames == 0 && $i == 0) { # display the librarian's name $librarians = "

$gLibrarianBlurb $l ($t, $e)"; } elsif ($#librarianNames > 0 && $i == 0) { # display the librarian's name $librarians .= "

$gLibrarianBlurb $l ($t, $e)"; } else { # display more names $librarians .= " and $l ($t, $e)"; } } # end the sentence $librarians .= ".

\n"; # check for collection managers if ($gShowCollectionManagers) { # display the collection managers for ($i = 0; $i <= $#managerNames; $i++) { # get the subject specalist librarian(s) my $l = $managerNames[$i]; my $e = $managerEmailAddress[$i]; my $t = "$managerTelephoneStart[$i]-$managerTelephoneEnd[$i]"; my $u = $managerURL[$i]; if ($#managerNames == 0 && $i == 0) { # display the manager's name $librarians .= "

$gManagerBlurb $l ($t, $e)"; } elsif ($#managerNames > 0 && $i == 0) { # display the librarian's name $librarians .= "

$gManagerBlurb $l ($t, $e)"; } else { # display more names $librarians .= " and $l ($t, $e)"; } } # end the sentence $librarians .= ".

\n"; } # check for libref if ($gShowLibRef) { # display more traditional help modes $librarians .= "$gGenericBlurb\n"; } return $librarians; } sub addReference { my $listReferenceShelf; $listReferenceShelf = '
    '; # display every selected database for ($i = 0; $i <= $#patronReferenceNames; $i++) { if ($gSaveStatistics) { $listReferenceShelf .= "
  1. $patronReferenceNames[$i]"; } else { $listReferenceShelf .= qq (
  2. $patronReferenceNames[$i]\n);} } $listReferenceShelf .= '
'; return $listReferenceShelf; } sub addDatabases { my $listDatabaseLinks; $listDatabaseLinks = "
    \n"; # display every selected database for ($i=0; $i <= $#patronDatabaseNames; $i++) { if ($gSaveStatistics) { $listDatabaseLinks .= "
  1. $patronDatabaseNames[$i]"; } else { $listDatabaseLinks .= qq (
  2. $patronDatabaseNames[$i]\n);} } $listDatabaseLinks .= "
\n"; return $listDatabaseLinks; } sub addUniversity { my $universityLinks; $universityLinks = "
    "; # display every selected database for ($i = 0; $i <= $#patronUniversityURLs; $i++) { if ($gSaveStatistics) { $universityLinks .= "
  1. $patronUniversityNames[$i]"; } else { $universityLinks .= qq (
  2. $patronUniversityNames[$i]);} } $universityLinks .= "
"; return $universityLinks; } sub addLibraries { my $libraryLinks; $libraryLinks = "
    "; # display every selected database for ($i=0; $i <= $#patronLibrariesURLs; $i++) { if ($gSaveStatistics) { $libraryLinks .= "
  1. $patronLibrariesNames[$i]"; } else { $libraryLinks .= qq (
  2. $patronLibrariesNames[$i]);} } $libraryLinks .= "
"; return $libraryLinks; } sub addJournals { my $listJournalLinks; $listJournalLinks = "
    \n"; # display every selected database for ($i=0; $i <= $#patronJournalNames; $i++) { if ($gSaveStatistics) { $listJournalLinks .= "
  1. $patronJournalNames[$i]"; } else { $listJournalLinks .= qq (
  2. $patronJournalNames[$i]\n);} } $listJournalLinks .= "
\n"; return $listJournalLinks; } sub addQuickSearches { my $formQuickSearches; $formQuickSearches = qq (
\n); # branch according to gSaveStatistics if ($gSaveStatistics) { # capture statistics $formQuickSearches .= ""; $formQuickSearches .= ""; } else { # just a plain search $formQuickSearches .= ""; } $formQuickSearches .= qq (
\n"; $formQuickSearches .= ""; $formQuickSearches .= ' '; $formQuickSearches .= ''; $formQuickSearches .= "
\n"; return $formQuickSearches; } ################## # personal links # ################## sub customizePersonalLinks { # get the personal links $q = qq (select link_id, link_name, link_url from personallinks where patron_id = '$patronRecord->{patron_id}' order by link_name); &findPersonalLinks ($q); # display the header &printHeader; # start the html &displaySimpleHelpMessage (6, 1); # print the help text print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setPersonalLinks'); print "\n"; # name of link print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # url of link print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; print "
Nome"; print $output->textfield(-name => 'link_name'); print "\n); print qq (Inserire il titolo di una risorsa Internet. (Help)); print qq (
Localizzazione"; print $output->textfield(-name => 'link_url', -value=> "http://"); print "\n); print qq (URL della risorsa. (Help)); print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; print $output->endform; # return home print "

\n"; print "Torna a Segnaweb\n"; print "

\n"; print "
\n"; # check for personal links existance if ($#personalLinksIDs > -1) { # display help for editing personal links &displaySimpleHelpMessage (24, 0); # dislay the existing links print "
\n"; print "

\n"; print "\n"; print "\n"; print "\n"; for ($i=0; $i <= $#personalLinksIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq| \n|; print "\n"; } print "
Link\n"; print "Localizzazione\n"; print "Azione\n"; print "
$personalLinksNames[$i]$personalLinksURLs[$i]Elimina (Help)
\n"; print "

\n"; # return home print "

\n"; print "Torna a Segnaweb\n"; print "

\n"; } print "
\n"; } sub addPersonal { my $listPersonalLinks; # get the personal links $q = qq [select link_id, link_name, link_url from personallinks where patron_id = '$patronRecord->{patron_id}' order by link_name]; &findPersonalLinks ($q); $listPersonalLinks = "
    \n"; for ($i = 0; $i <= $#personalLinksIDs; $i++) { $listPersonalLinks .= "
  1. $personalLinksNames[$i]\n"; } $listPersonalLinks .= "
\n"; return $listPersonalLinks; } sub deletePersonalLinks { my $patron_id = $input->param('uid'); my $link_id = $input->param('link_id'); # set the personal link $q = qq (delete from personallinks where patron_id = '$patron_id' and link_id = '$link_id'); # prepare the query and execute it &prepareAndExecuteSQL ($q); } sub setPersonalLinks { my $link_name = $MyLibrary::gDBhandle->quote($input->param('link_name')); my $link_url = $input->param('link_url'); # get a new sequence my $sequence = getNewSequence(); # set the personal link $q = qq[insert into personallinks (link_id, patron_id, link_name, link_url) values ('$sequence', '$patronRecord->{patron_id}', $link_name, '$link_url')]; # prepare the query and execute it &prepareAndExecuteSQL ($q); } ################## # quick searches # ################## sub setQSearches { # get the input my @e = $input->param('engine'); # delete the existing records for this patron $q = qq (delete from items4qsearches where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $e (@e) { $q = qq (insert into items4qsearches values ("$patronRecord->{patron_id}", "$e")); &prepareAndExecuteSQL ($q); } } sub customizeQSearches { # define the query ($q), execute it, and put it into $allColors my $q = "SELECT * FROM qsearches ORDER BY qsearch_name"; &findAllQSearches ($q); # print my header &printHeader; # start the html &displaySimpleHelpMessage (1, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setQSearches'); print "
\n"; print "\n"; # process each quick search for ($i = 0; $i <= $#qSearchIDs; $i++) { # check to see what was previously selected my $ps = 0; for $m (@patronQSearchNames) { if ($qSearchNames[$i] eq $m) { $ps = 1; last; } } # print the row print "\n"; if ($ps) { print qq (\n); } else { print qq (\n); } if ($gSaveStatistics) { print qq[\n); } # end the table print "
$qSearchNames[$i]]; } else { print qq ($qSearchNames[$i]\n);} if ($qSearchNotes[$i]) { print " - $qSearchNotes[$i]"; } if ($qSearchFKeys[$i]) { print " (full record)"; } print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "
\n"; print $output->endform; } sub processQSearch { # get the engine ($engine) and the query ($query) my $engine = @_[0]; my $query = @_[1]; # escape the query my $escQuery = $gDBhandle->quote($query); # save the query for future use my $q = qq (update patrons set last_query = $escQuery where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # get the prefix and suffix for this engine my $q = "SELECT * FROM qsearches WHERE qsearch_id = '$engine'"; &findAllQSearches($q); # search &searchViaGETQuery($query, $qSearchPrefixes[0], $qSearchSuffixes[0]); } sub searchViaGETQuery { # get the input: query ($q), prefix ($p), suffix ($s) my $q = @_[0]; my $p = @_[1]; my $s = @_[2]; # escape the query $q = uri_escape("$q"); # create a new URL object ($url) and encode it $url = new URI::URL "$q"; $url = $url->as_string; # build the encloded URL $url = $p.$url.$s; $url = uri_escape("$url","+"); # redirect the browser accordingly print $output->redirect("$url"); # quit exit; } ############### # libraries # ############### sub setLibraries { # get the input my @b = $input->param('libraries'); # delete the existing records for this patron $q = qq (delete from items4libraries where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(insert into items4libraries values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } sub customizeLibraries { # find the help $q = qq(select * from help_simple where help_id = "7"); &findAllSimpleHelp ($q); # define the query ($q), execute it, and put it into $allColors my $q = "select * from libraries order by libraries_name"; &findAllLibraries ($q); # print my header &printHeader; # start the html &displaySimpleHelpMessage (7, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setLibraries'); print "
\n"; print "\n"; # process each quick search for (my $i=0; $i <= $#librariesNames; $i++) { # check to see if it was Previosly Selected my $ps = 0; for $m (@patronLibrariesNames) { if ($librariesNames[$i] eq $m) { $ps = 1; last; } } # print the row print "\n"; if ($ps) { print qq (\n); } else { print qq (\n); } if ($gSaveStatistics) { print "\n); } # end the table print "
$librariesNames[$i]"; } else { print qq ($librariesNames[$i]);} if ($librariesNotes[$i]) { print " - $librariesNotes[$i]"; } if ($librariesFKeys[$i]) { print " (full record)"; } print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "
\n"; print $output->endform; } ############### # university # ############### sub setUniversity { # get the input my @b = $input->param('university'); # delete the existing records for this patron $q = qq (delete from items4university where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq (insert into items4university values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } sub customizeUniversity { # find all university my $q = "SELECT * FROM university ORDER BY university_name"; &findAllUniversity ($q); # print my header &printHeader; # start the html &displaySimpleHelpMessage (3, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setUniversity'); # display the table print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # process each quick search for (my $i=0; $i <= $#universityNames; $i++) { # see which databases were Previously Selected my $ps = 0; for $m (@patronUniversityNames) { if ($universityNames[$i] eq $m) { $ps = 1; last; } } # print the row print "\n"; if ($ps) { print qq (\n); } else { print qq (\n); } if ($gSaveStatistics) { print qq[\n); } # end the table print "
SelectionItem
$universityNames[$i]]; } else { print qq ($universityNames[$i]\n);} if ($universityNotes[$i]) { print " - $universityNotes[$i]"; } if ($universityFKeys[$i]) { print " (full record)"; } print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "
\n"; print $output->endform; } ############### # reference # ############### sub displayDisciplineReference { # get the discipline id my $id = $input->param('id'); # find all the resources for this discipline $q = qq (SELECT reference.* FROM reference, items4DisReference WHERE items4DisReference.discipline_id = '$id' AND items4DisReference.reference_id = reference.reference_id ORDER BY reference.reference_name); &findAllReferences ($q); # print my header &printHeader; # display simple help &displaySimpleHelpMessage (29, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setReference'); # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # start the table print "\n"; # process each quick search for (my $i=0; $i <= $#referenceNames; $i++) { # check to see what was previously selected my $ps = 0; for $m (@patronReferenceNames) { if ($referenceNames[$i] eq $m) { $ps = 1; last; } } # print the row print "\n"; if ($ps) { print qq (\n); } else { print qq (\n); } if ($gSaveStatistics) { print qq[\n); } # end the table print "
$referenceNames[$i]]; } else { print qq ($referenceNames[$i]\n);} if ($referenceNotes[$i]) { print " - $referenceNotes[$i]"; } if ($referenceFKeys[$i]) { print " (full record)"; } print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "\n"; print $output->endform; } sub setDefaultReferences { my @b = $input->param('references'); # delete the existing records for this patron $q = qq(delete from items4references where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(insert into items4references values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } sub setReference { my @b = $input->param('reference'); # concatonate their previous selects to the new selections push @b, @patronReferenceIDs; # remove duplicates @b = &removeDuplicates(@b); # delete the existing records for this patron $q = qq(delete from items4references where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(insert into items4references values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } sub customizeReference { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # print my header &printHeader; # display simple help &displaySimpleHelpMessage (5, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setDefaultReferences'); # process every reference they have selected print "
    "; for ($i = 0; $i <= $#patronReferenceIDs; $i++) { print qq(
  1. $patronReferenceNames[$i]\n); } print "
"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # return to MyLibrary print "

\n"; print qq(Torna a Segnaweb); print "

\n"; # end the form print $output->endform; # display simple help &displaySimpleHelpMessage (28, 0); # display a list of all the disciplines print "
    "; for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq(
  1. $disciplineNames[$i]\n) unless $disciplineNames[$i] =~ /[A-Z]{3,}/; } print "
"; # return to MyLibrary print "

\n"; print qq(Torna a Segnaweb); print "

\n"; } ############### # journals # ############### sub displayAlphabeticJournals { # find all the journals # my $q = qq (select * # from etexts # order by etext_name); my $q = qq (select * from etexts where etext_id = 531); &findAllJournals ($q); # print my header &printHeader; # display simple help &displaySimpleHelpMessage (215, 1); # display the form &displayJournalSelectionForm; } sub displayJournalSelectionForm { # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setJournals'); # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # start the table print "\n"; # process each quick search for (my $i=0; $i <= $#journalNames; $i++) { # check to see what was previously selected my $ps = 0; for $m (@patronJournalNames) { if ($journalNames[$i] eq $m) { $ps = 1; last; } } # print the row print "\n"; if ($ps) { print qq (\n); } else { print qq (\n); } if ($gSaveStatistics) { print qq[\n); } # end the table print "
$journalNames[$i]]; } else { print qq ($journalNames[$i]\n);} if ($journalNotes[$i]) { print " - $journalNotes[$i]"; } if ($journalFKeys[$i]) { print " (full record)"; } print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print ' '; print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "\n"; print $output->endform; } sub customizeJournals { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # print my header &printHeader; # display simple help &displaySimpleHelpMessage (4, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setDefaultJournals'); # process every journal they have selected print "
    "; for ($i = 0; $i <= $#patronJournalIDs; $i++) { print qq(
  1. $patronJournalNames[$i]\n); } print "
"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # return to MyLibrary print "

\n"; print qq(Torna a Segnaweb); print "

\n"; # end the form print $output->endform; # display simple help message to list all journals; it links to ./?cmd=displayAlphabeticJournals &displaySimpleHelpMessage (214, 0); # display simple help &displaySimpleHelpMessage (26, 0); # display a list of all the disciplines print "
    "; for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq(
  1. $disciplineNames[$i]\n); } print "
"; # return to MyLibrary print "

\n"; print qq(Torna a Segnaweb); print "

\n"; } sub setDefaultJournals { my @b = $input->param('journals'); # delete the existing records for this patron $q = qq(delete from items4etexts where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(insert into items4etexts values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } sub displayDisciplineJournals { # get the discipline id my $id = $input->param('id'); # find all the resources for this discipline $q = qq (SELECT etexts.* FROM etexts, items4DisEtexts WHERE items4DisEtexts.discipline_id = $id AND items4DisEtexts.etext_id = etexts.etext_id ORDER BY etexts.etext_name); &findAllJournals ($q); # print my header &printHeader; # display the form if ($#journalIDs >= 0) { # display simple help &displaySimpleHelpMessage (25, 1); # display the form &displayJournalSelectionForm; } # explain that no titles were found else {&displaySimpleHelpMessage (218, 1);} } sub setJournals { my @b = $input->param('journal'); # concatonate their previous selects to the new selections push @b, @patronJournalIDs; # remove duplicates @b = &removeDuplicates(@b); # delete the existing records for this patron $q = qq(delete from items4etexts where patron_id = "$patronRecord->{patron_id}"); &prepareAndExecuteSQL ($q); # create new records for each new selection for $b (@b) { $q = qq(insert into items4etexts values ("$patronRecord->{patron_id}", "$b")); &prepareAndExecuteSQL ($q); } } ################## # login / logout # ################## sub findPatron { local $username, $pwd, $q; # check for WRAP if ($CONFIGURATIONS{'gUsingWrap'}) { # authenticate the user &::WRAP_AUTHENTICATE; # read the cookie my @wrapCookie = split (/ /, $input->cookie(-name => 'WRAP')); # read the unity id, element 0 of the array $username = $wrapCookie[0]; # define query to find the patron $q = qq(SELECT * FROM patrons WHERE username = "$username"); } # not using WRAP else { # get the username and password $username = $input->param('username'); $pwd = $input->param('password'); # check for input if (! $username) { # display a login form print $output->header(-expires => '-1d'); # display the loging message &displaySimpleHelpMessage(16, 1); print "
\n"; print "\n"; print $output->startform(-method => 'POST', -action => './'); print $output->hidden(-name => 'cmd', -value => 'findPatron'); # user name print "\n"; print "\n"; print "\n"; print qq{\n}; print "\n"; # password print "\n"; print "\n"; print "\n"; print qq{\n}; print "\n"; # end the table print "
Username\n"; print $output->textfield(-name => 'username'); print "
\n"; print "		Inserire lo username.
Password\n"; print $output->password_field(-name => 'password'); print "
\n"; print "		Inserire la password.
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Login'); print "

\n"; # finish the form print "
\n"; print $output->endform; # exit gracefully &MyLibrary::gracefulExit; } else { # Need to look up password first to get the salt $q = qq(select password from patrons where username ="$username"); &findPatrons($q); my $salt = substr $patronRecord->{password}, 0, 2; my $crypted_pw = crypt($pwd, $salt); # define query to find the patron $q = qq(select * from patrons where username = "$username" and password = "$crypted_pw"); } } # find the user id &findPatrons ($q); # make sure the username and password were valid my $n = $gSth->rows; if (! $n) { # start the output &printHeader; # display error message &displaySimpleHelpMessage (20, 1); # exit gracefully &gracefulExit; } # define the title my $title = "Collegato!"; # do they want a cookie? if ($patronRecord->{wants_cookie}) { $cookie = $output->cookie(-name => 'uid', -value => "$patronRecord->{patron_id}", -expires => "$gExpires", -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); } else { $cookie = $output->cookie(-name => 'uid', -value => "$patronRecord->{patron_id}", -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); } # start the output print $output->header(-expires => '-1d', -cookie => $cookie); # display the login message &displaySimpleHelpMessage (21, 1); } sub setNewUser { local $pwd_1, $pwd_2, crypted_pw; # intilize the input my $username = $input->param('username'); my $name_f = $input->param('name_f'); my $name_l = $input->param('name_l'); my $email = $input->param('email'); my $canContact = $input->param('can_contact'); my $discipline_id = $input->param('discipline_id'); my $rank_id = $input->param('rank_id'); # check for WRAP if (! $CONFIGURATIONS{'gUsingWrap'}) { # get password $pwd_1 = $input->param('password_1'); $pwd_2 = $input->param('password_2'); } # check for WRAP if ($CONFIGURATIONS{'gUsingWrap'}) { # make sure all field have values if ($username eq "" || $name_f eq "" || $name_l eq "" || $email eq "" ) { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (11, 1); # exit gracefully &gracefulExit; } } # not using WRAP else { # make sure all field have values if ($username eq "" || $pwd_1 eq "" || $pwd_2 eq "" || $name_f eq "" || $name_l eq "" || $email eq "" ) { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (11, 1); # exit gracefully &gracefulExit; } # make sure the username is at least 6 characters long if (length ($username) < 6) { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (14, 1); # exit gracefully &gracefulExit; } # make sure the password is at least 8 characters long if (length ($pwd_1) < 8) { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (15, 1); # exit gracefully &gracefulExit; } # make sure the passwords match if ($pwd_1 ne $pwd_2) { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (12, 1); # exit gracefully &gracefulExit; } # Password is ok, crypt it for storage my $salt = (localtime)[0]; $crypted_pw = crypt($pwd_1, $salt); } # search for the username my $q = qq(select username from patrons where username = '$username'); &prepareAndExecuteSQL ($q); my $n = $gSth->rows; # make sure the username is unique if ($n) { # start the output print $output->header(-expires => '-1d'); # display error message &displaySimpleHelpMessage (13, 1); # exit gracefully &gracefulExit; } # get a new sequence my $sequence = &getNewSequence(); # create defaults settings for the new user my $q = qq{INSERT INTO patrons ( patron_id, username, password, name_f, name_l, email, can_contact, discipline_id, rank_id, template_id, page_title, color_bg_id, color_text_id, color_link_id, color_vlink_id, color_alink_id, color_banner_id, wants_cookie ) VALUES ( "$sequence", "$username", "$crypted_pw", "$name_f", "$name_l", "$email", "$canContact", "$discipline_id", "$rank_id", "$gTemplateID", "$gPage_title", "$gColor_bg_id", "$gColor_text_id", "$gColor_link_id", "$gColor_vlink_id", "$gColor_alink_id", "$gColor_banner_id", "0" )}; &prepareAndExecuteSQL ($q); # find the record my $q = qq (select patron_id from patrons where username="$username"); &findPatrons ($q); # set defaults for LIBRARIES my $q = qq(select * from defaultLibraries where discipline_id = "$discipline_id"); &findDefaultResources ($q, "libraries_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{INSERT INTO items4libraries (patron_id, libraries_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # set defaults for UNIVERSITY my $q = qq(select * from defaultUniversity where discipline_id = "$discipline_id"); &findDefaultResources ($q, "university_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{INSERT INTO items4university (patron_id, university_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # set defaults for CAM my $q = qq(SELECT * FROM defaultProfiles WHERE discipline_id = "$discipline_id"); &findAllDefaultProfiles ($q); for ($i = 0; $i <= $#defaultProfileIDs; $i++) { my $sequence = &getNewSequence(); $q = qq{INSERT INTO profiles (profile_id, patron_id, lower_bounds, upper_bounds) VALUES ('$sequence', $patronRecord->{patron_id}, '$lowerBounds[$i]', '$upperBounds[$i]')}; &prepareAndExecuteSQL ($q); } # set defaults for QUICK SEARCHES my $q = qq(select * from defaultQseaches where discipline_id = "$discipline_id"); &findDefaultResources ($q, "qsearch_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{INSERT INTO items4qsearches (patron_id, qsearch_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # set defaults for REFERENCE my $q = qq(select * from defaultReferences where discipline_id = "$discipline_id"); &findDefaultResources ($q, "reference_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{INSERT INTO items4references (patron_id, reference_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # set defaults for BIBLIOGRAHIC DATABASES my $q = qq(select * from defaultBibdatabases where discipline_id = "$discipline_id"); &findDefaultResources ($q, "bib_database_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{INSERT INTO items4bibdatabases (patron_id, bib_database_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # set defaults for JOURNALS my $q = qq(select * from defaultEtexts where discipline_id = "$discipline_id"); &findDefaultResources ($q, "etext_id"); for ($i = 0; $i <= $#defaultIDs; $i++) { $q = qq{INSERT INTO items4etexts (patron_id, etext_id) values ($patronRecord->{patron_id}, $defaultIDs[$i])}; &prepareAndExecuteSQL ($q); } # set their cookie my $cookie = $output->cookie(-name => 'uid', -value => "$patronRecord->{patron_id}", -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); print $output->header(-expires => '-1d', -cookie => $cookie); # display the login message &displaySimpleHelpMessage (21, 1); } sub search { local $unityID; # check for WRAP if ($CONFIGURATIONS{'gUsingWrap'}) { # get the unity id $unityID = &getUnityID; } # print a generic header print $output->header(-expires => '-1d'); &updateBanner; print qq($gBanner); my $query = $input->param('query'); my $start = $input->param('start'); $start =~ s/[^0-9]//g; if ($start eq '') { $start=0; } my $group = $CONFIGURATIONS{'searchGrouping'}; if ($query !~ m/^[a-zA-Z0-9 *+-]+$/) { #if ($query !~ m/^[a-zA-Z0-9Á-Uá-u +-]+$/) { #if ($query !~ m/^[a-zA-Z0-9Ã| èìòù +-]+$/) { lettere accentate??? print << "EOF"; Attenzione, la stringa che hai inserito contiene caratteri non validi.
I caratteri validi per la ricerca sono quelli alfanumerici, gli spazi, i segni *, + e -.
Inoltre la stringa di ricerca non puo` essere vuota. Premere il tasto "Indietro" per riprovare. EOF &gracefulExit; exit; } if (length ($query)<=3) { #if (length ($query)<=2) { print << "EOF"; Errore nell'input: $query.
Le parole da ricercare devono essere almeno di 4 caratteri.
Premere il tasto "Indietro" per riprovare. EOF &gracefulExit; exit; } #$query =~ s/ +/ /g; # l'url qui sotto va sotituita con una form my $newstart = $start+$group; print <<"EOF";
EOF my $qn = "select count(*) as conto from reference where match(reference_name,reference_note) against ('$query' IN BOOLEAN MODE )"; my $q = "select reference_name, reference_url, reference_note, match(reference_name,reference_note) against ('$query' IN BOOLEAN MODE ) as score from reference where match(reference_name,reference_note,reference_url) against ('$query' IN BOOLEAN MODE ) ORDER BY score DESC"; #&prepareAndExecuteSQL($qn); #$row=$gSth->fetchrow_hashref; #my $conto=$row->{conto}; &prepareAndExecuteSQL($q); #my $next= $start + $group; #my $prev= $start - $group;; #if($prev>=0) { # #print "Risultati precedenti"; # #} #if ($prev>=0 && $next < $conto) { #print " | "; #} #if($next<$conto) { #print "Risultati seguenti"; #} print "

Informazioni rapide

"; print "
    \n"; while($row=$gSth->fetchrow_hashref) { print "
  1. {reference_url}\">$row->{reference_name}   < $row->{reference_url} >
    \n"; print "$row->{reference_note}
    \n"; # print "Rilevanza $row->{score}\n"; } print "
"; $q = "select bib_database_name, bib_database_url, bib_database_note, match(bib_database_name,bib_database_note) against ('$query' IN BOOLEAN MODE) as score from bib_databases where match(bib_database_name,bib_database_note,bib_database_url) against ('$query' IN BOOLEAN MODE) ORDER BY score DESC"; &prepareAndExecuteSQL($q); print "

Cerca per argomenti

"; print "
    \n"; while($row=$gSth->fetchrow_hashref) { print "
  1. {bib_database_url}\">$row->{bib_database_name}   < $row->{bib_database_url} >
    \n"; print "$row->{reference_note}
    \n"; # print "Rilevanza $row->{score}\n"; } print "
"; $q = "select etext_name, etext_url, etext_note, match(etext_name,etext_note) against ('$query' IN BOOLEAN MODE) as score from etexts where match(etext_name,etext_note,etext_url) against ('$query' IN BOOLEAN MODE) ORDER BY score DESC"; &prepareAndExecuteSQL($q); print "

Ricerche

"; print "
    \n"; while($row=$gSth->fetchrow_hashref) { print "
  1. {etext_url}\">$row->{etext_name}   <  $row->{etext_url}  >
    \n"; print "$row->{etext_note}
    \n"; # print "Rilevanza $row->{score}\n"; } print "
"; } sub customizeNewUser { local $unityID; # check for WRAP if ($CONFIGURATIONS{'gUsingWrap'}) { # get the unity id $unityID = &getUnityID; } # read the disciplines my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines ($q); # read the ranks my $q = "select * from ranks"; &findAllRanks ($q); # print a generic header print $output->header(-expires => '-1d'); # display the help message &displaySimpleHelpMessage(10, 1); # start the form print $output->startform(-method => 'POST', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setNewUser'); print "
\n"; print "\n"; # check for WRAP if ($CONFIGURATIONS{'gUsingWrap'}) { # supply the unity id print $output->hidden(-name => 'username', -value => "$unityID"); } else { # user name print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # password print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # echo password print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } # first name print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # last name print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # email address print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # can contact print qq (\n); print qq (\n); print qq (\n"; print "\n"; print "\n"; # disciplines print qq(\n); print "\n"; print "\n"; print "\n"; # rank print qq (\n); print qq (\n); print qq (
\n"; print "Username\n"; print "\n"; print $output->textfield(-name => 'username'); print "\n"; print qq(Assegnati uno username (almeno 6 caratteri). (Help)); print "
\n"; print "Password\n"; print "\n"; print $output->password_field(-name => 'password_1'); print "\n"; print qq(Assegnati una password (Almeno 8 caratteri). (Help)); print "
\n"; print "Password (di nuovo)\n"; print "\n"; print $output->password_field(-name => 'password_2'); print "\n"; print qq(Ridigita la password. (Help)); print "
\n"; print "Nome o nome della Biblioteca\n"; print "\n"; print $output->textfield(-name => 'name_f'); print "\n"; print qq(Inserire il nome. (Help)); print "
\n"; print "Cognome o nome dell'Ente\n"; print "\n"; print $output->textfield(-name => 'name_l'); print "\n"; print qq(Inserire il cognome. (Help)); print "
\n"; print "Indirizzo email"; print "\n"; print $output->textfield(-name => 'email'); print "\n"; print qq(Inserire il proprio indirizzo email. (Help)); print "
\n); print qq (Contatto); print qq (\n); print qq (Si ); print qq (No); print "\n"; print qq(Possiamo inviarti email? (Help)); print "
\n"; print "Disciplina\n"; print "\n"; print qq("; print "\n"; print qq(Selezionare l'area di interesse principale. Questa selezione non limiterà la possibilità di scegliere risorse di altre discipline. (Help)); print "
\n); print qq (Status); print qq (\n); print qq (); print qq (\n); print qq (Scegliere la categoria. (Help)); # end the table print "
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Crea'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; # finish the form print "
\n"; print $output->endform; } sub getUnityID { # authenticate the user &::WRAP_AUTHENTICATE; # read the cookie my @wrapCookie = split (/ /, $input->cookie(-name => 'WRAP')); # return the unity id, element 0 of the array return $wrapCookie[0]; } sub killCookie { # redefine their cookie my $cookie = $output->cookie(-name => 'uid', -value => "$patronRecord->{patron_id}", -expires => '-1y', -path => "$MyLibrary::CONFIGURATIONS{'gRelativePath'}/"); print $output->header(-expires => '-1d', -cookie => "$cookie"); # display error message &displaySimpleHelpMessage (17, 1); } sub logout { # start the output &printHeader; # display error message &displaySimpleHelpMessage (18, 1); } sub splash { my %tokens; my $librarians; my $listLibraryLinks; my $listUniversityLinks; my $formCurrentAwareness; my $listPersonalLinks; my $formQuickSearches; my $listReferenceShelf; my $listDatabaseLinks; my $listJournalLinks; # get the default template $q = "SELECT * FROM templates_free WHERE template_free_id = '$gTemplateFreeID'"; &findAllFreeTemplates($q); # find default background color $q = "SELECT * FROM colors WHERE color_id = '$gColor_bg_id'"; &findBackgroundColors ($q); # find default link color $q = "SELECT * FROM colors WHERE color_id = '$gColor_link_id'"; &findLinkColors ($q); # find default banner color $q = "SELECT * FROM colors WHERE color_id = '$gColor_banner_id'"; &findBannerColors ($q); # find default text color $q = "SELECT * FROM colors WHERE color_id = '$gColor_text_id'"; &findTextColors ($q); # find default active link color $q = "SELECT * FROM colors WHERE color_id = '$gColor_alink_id'"; &findAlinkColors ($q); # find default visited link color $q = "SELECT * FROM colors WHERE color_id = '$gColor_vlink_id'"; &findVlinkColors ($q); # find all LCD references $q = qq(SELECT * FROM reference WHERE reference_lcd = '1' ORDER BY reference_name); &findAllReferences($q); $listReferenceShelf = '
    '; for ($i = 0; $i <= $#referenceIDs; $i++) { if ($gSaveStatistics) { $listReferenceShelf .= "
  1. $referenceNames[$i]"} else { $listReferenceShelf .= "
  2. $referenceNames[$i]"; } } $listReferenceShelf .= '
'; # find all LCD journals $q = qq(SELECT * FROM etexts WHERE etext_lcd = '1' ORDER BY etext_name); &findAllJournals($q); $listJournalLinks = '
    '; for ($i = 0; $i <= $#journalIDs; $i++) { if ($gSaveStatistics) { $listJournalLinks .= "
  1. $journalNames[$i]"} else { $listJournalLinks .= "
  2. $journalNames[$i]"; } } $listJournalLinks .= '
'; # find all LCD databases $q = qq(SELECT * FROM bib_databases WHERE bib_database_lcd = '1' ORDER BY bib_database_name); &findAllDatabases($q); $listDatabaseLinks = '
    '; for ($i = 0; $i <= $#databaseIDs; $i++) { if ($gSaveStatistics) { $listDatabaseLinks .= "
  1. $databaseNames[$i]"} else { $listDatabaseLinks .= "
  2. $databaseNames[$i]"; } } $listDatabaseLinks .= '
'; # find all LCD library links $q = qq(SELECT * FROM libraries WHERE libraries_lcd = '1' ORDER BY libraries_name); &findAllLibraries($q); $listLibraryLinks = '
    '; for ($i = 0; $i <= $#librariesIDs; $i++) { if ($gSaveStatistics) { $listLibraryLinks .= "
  1. $librariesNames[$i]"} else { $listLibraryLinks .= "
  2. $librariesNames[$i]"; } } $listLibraryLinks .= '
'; # find all LCD university links $q = qq(SELECT * FROM university WHERE university_lcd = '1' ORDER BY university_name); &findAllUniversity($q); $listUniversityLinks = '
    '; for ($i = 0; $i <= $#universityIDs; $i++) { if ($gSaveStatistics) { $listUniversityLinks .= "
  1. $universityNames[$i]"} else { $listUniversityLinks .= "
  2. $universityNames[$i]"; } } $listUniversityLinks .= '
'; # find all LCD quick searches $q = qq(SELECT * FROM qsearches WHERE qsearch_lcd = '1' ORDER BY qsearch_name); &findAllQSearches($q); $formQuickSearches = qq (
\n); if ($gSaveStatistics) { # capture statistics $formQuickSearches .= ""; $formQuickSearches .= ""; } else { # just a plain search $formQuickSearches .= ""; } $formQuickSearches .= qq (
\n"; $formQuickSearches .= " "; $formQuickSearches .= ''; $formQuickSearches .= "
\n"; # update the banner &updateBanner; # fill up the token list %tokens = ( title => $gPage_title, bgcolor => $backgroundColor->{color_code}, link => $linkColor->{color_code}, alink => $alinkColor->{color_code}, vlink => $vlinkColor->{color_code}, text => $textColor->{color_code}, bannerColor => $bannerColor->{color_code}, banner => $gBanner, motd => $gGlobalMessage, aboutMyLibrary => './?cmd=about&id=39', customizeProfile => './?cmd=about&id=43', logout => './?cmd=killCookie', yourLibrarians => $gYourLibrarians, aboutLibrarians => './?cmd=about&id=36', librarians => $gGenericBlurb, libraryLinks => $gLibraryLinks, aboutLibraryLinks => './?cmd=about&id=38', customizeLibraryLinks => './?cmd=customizeLibraries', listLibraryLinks => $listLibraryLinks, universityLinks => $gUniversityLinks, aboutUniversityLinks => './?cmd=about&id=37', customizeUniversityLinks => './?cmd=customizeUniversity', listUniversityLinks => $listUniversityLinks, currentAwareness => $gCurrentAwarenessManager, aboutCurrentAwareness => './?cmd=about&id=45', customizeCurrentAwareness => './?cmd=customizeCAMProfile', formCurrentAwareness => $formCurrentAwareness, personalLinks => $gPersonalLinks, aboutPersonalLinks => './?cmd=about&id=31', customizePersonalLinks => './?cmd=customizePersonalLinks', listPersonalLinks => $listPersonalLinks, quickSearches => $gQuickSearches, aboutQuickSearches => './?cmd=about&id=32', customizeQuickSearches => './?cmd=customizeQSearches', formQuickSearches => $formQuickSearches, referenceShelf => $gReferenceShelf, aboutReferenceShelf => './?cmd=about&id=33', customizeReferenceShelf => './?cmd=customizeReference', listReferenceShelf => $listReferenceShelf, databaseLinks => $gBibliographicDatabaseLinks, aboutDatabaseLinks => './?cmd=about&id=34', customizeDatabaseLinks => './?cmd=customizeDatabases', listDatabaseLinks => $listDatabaseLinks, journalLinks => $gElectronicJournals, aboutJournalLinks => './?cmd=about&id=35', customizeJournalLinks => './?cmd=customizeJournals', listJournalLinks => $listJournalLinks, ); # output a header &printHeader; # finally, output the html print &fillTemplate($templatesFree[0], \%tokens); } sub saveCookie { # get the input my $wants_cookie = $input->param('wants_cookie'); # update wants_cookie to true my $q = qq(update patrons set wants_cookie = $wants_cookie where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); } ############### # mysql # ############### sub getNewSequence { # get a new sequence number # this is a function that will have to be re-written for every database backend # NEVER DELETE FROM THE SEQUENCE TABLE OR YOU WILL NOT BE ABLE TO GARENTEE # UNIQUNE NUMBERS! # update the sequence table my $q = 'UPDATE sequence SET id = id + 1'; &prepareAndExecuteSQL ($q); # select the new value my $q = 'select id FROM sequence'; &prepareAndExecuteSQL ($q); # extract the value my $h = $gSth->fetchrow_hashref; my $id = $h->{id}; # return it return ($id); } sub getGlobalVariables { # create and execute an sql query getting the preferences my $q = "SELECT * FROM preferences"; &prepareAndExecuteSQL ($q); # extract the values my $h = $gSth->fetchrow_hashref; $gShowCollectionManagers = $h->{'SHOW_COLLECTION_MANAGERS'}; $gShowQuickSearches = $h->{'SHOW_QUICK_SEARCHES'}; $gMessageFromTheLibrarian = $h->{'MESSSAGE_FROM_LIBRARIAN'}; $gYourLibrarians = $h->{'YOUR_LIBRARIANS'}; $gLibraryLinks = $h->{'LIBRARY_LINKS'}; $gUniversityLinks = $h->{'UNIVERSITY_LINKS'}; $gCurrentAwarenessManager = $h->{'CURRENT_AWARENESS'}; $gPersonalLinks = $h->{'PERSONAL_LINKS'}; $gQuickSearches = $h->{'QUICK_SEARCHES'}; $gReferenceShelf = $h->{'REFERENCE_SHELF'}; $gBibliographicDatabaseLinks = $h->{'BIBLIOGRAPHIC_DATABASES'}; $gElectronicJournals = $h->{'ETEXTS'}; $gGlobalMessage = $h->{'GLOBAL_MESSAGE'}; $gFooter = $h->{'FOOTER'}; $gBanner = $h->{'BANNER'}; $gShowLibRef = $h->{'SHOW_LIBREF'}; $gGenericBlurb = $h->{'GENERIC_BLURB'}; $gShowCAM = $h->{'SHOW_CAM'}; $gMarion = $h->{'MARION'}; $gDisclaimer = $h->{'DISCLAIMER'}; $gFromAddress = $h->{'FROM_ADDRESS'}; $gExpires = $h->{'EXPIRES'}; $gTableWidth = $h->{'TABLE_WIDTH'}; $gPage_title = $h->{'PAGE_TITLE'}; $gColor_bg_id = $h->{'COLOR_BACKGROUND'}; $gColor_text_id = $h->{'COLOR_TEXT'}; $gColor_link_id = $h->{'COLOR_LINK'}; $gColor_vlink_id = $h->{'COLOR_VLINK'}; $gColor_alink_id = $h->{'COLOR_ALINK'}; $gColor_banner_id = $h->{'COLOR_BANNER'}; $gSaveStatistics = $h->{'SAVE_STATISTICS'}; $gStyleSheet = $h->{'STYLE_SHEET'}; $gShowStaticPageCreation = $h->{'STATIC_PAGES_SHOW'}; $gManageDiscipline = $h->{'MANAGE_DISCIPLINE'}; $gLibrarianBlurb = $h->{'LIBRARIAN_BLURB'}; $gManagerBlurb = $h->{'MANAGER_BLURB'}; $gTemplateID = $h->{'TEMPLATEID'}; $gTemplateFreeID = $h->{'TEMPLATE_FREE_ID'}; } sub findItems4DisJoins { # get the query my $q = $_[0]; # initialize the join table array @I4DisJoinIDs = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@I4DisJoinIDs, $h->{discipline_id}); } } sub getNewTitles { # get the query my $q = @_[0]; # initilize title arrays @gCallNumbers = (); @gAuthors = (); @gTitles = (); @gControlNumbers = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); # slurp up the results while ($h = $gSth->fetchrow_hashref) { push (@gCallNumbers, $h->{call_number}); push (@gAuthors, $h->{author}); push (@gTitles, $h->{title}); push (@gControlNumbers, $h->{control_number}); } } sub getCAProfiles { # get the query my $q = @_[0]; # initialize the arrays @gProfileIDs = (); @gLowerBounds = (); @gUpperBounds = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); # slurp up the results while ($h = $gSth->fetchrow_hashref) { push (@gProfileIDs, $h->{profile_id}); push (@gLowerBounds, $h->{lower_bounds}); push (@gUpperBounds, $h->{upper_bounds}); } } sub prepareAndExecuteSQL { # get the query my $q = $_[0]; #$q = $gDBhandle->quote($q); # prepare and execute the query $gSth = $MyLibrary::gDBhandle->prepare("$q"); if (! $gSth) { &returnError ( "query: $q" . $MyLibrary::gDBhandle->errstr); } if (! $gSth->execute) { &returnError ("query: $q" . $MyLibrary::gDBhandle->errstr); } } sub findItems4Librarians { # get the query my $q = $_[0]; # initialize the reference sources arrays @I4LibrariansIDs = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@I4LibrariansIDs, $h->{discipline_id}); } } sub findItems4Managers { # get the query my $q = $_[0]; # initialize the reference sources arrays @I4ManagersIDsIDs = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@I4ManagersIDs, $h->{discipline_id}); } } sub findAllSimpleHelp { # get the query my $q = $_[0]; # initialize the reference sources arrays @simpleHelpID = (); @simpleHelpTitle = (); @simpleHelpText = (); @simpleHelpURL = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@simpleHelpID, $h->{help_id}); push (@simpleHelpTitle, $h->{help_title}); push (@simpleHelpText, $h->{help_text}); push (@simpleHelpURL, $h->{help_url}); } } sub findAllDisciplines { # get the query my $q = $_[0]; # initialize the reference sources arrays @disciplineIDs = (); @disciplineNames = (); @disciplineMOTDs = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@disciplineIDs, $h->{discipline_id}); push (@disciplineNames, $h->{discipline_name}); push (@disciplineMOTDs, $h->{motd_text}); } } sub findAllDefaultProfiles { # get the query my $q = $_[0]; # initialize the reference sources arrays @defaultProfileIDs = (); @disciplineIDs = (); @lowerBounds = (); @upperBounds = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@defaultProfileIDs, $h->{defaultProfile_id}); push (@disciplineIDs, $h->{discipline_id}); push (@lowerBounds, $h->{lower_bounds}); push (@upperBounds, $h->{upper_bounds}); } } sub findAllQSearches { # get the query my $q = $_[0]; # initialize the reference sources arrays @qSearchIDs = (); @qSearchURLs = (); @qSearchPrefixes = (); @qSearchSuffixes = (); @qSearchNames = (); @qSearchNotes = (); @qSearchDates = (); @qSearchLCDs = (); @qSearchFKeys = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@qSearchIDs, $h->{qsearch_id}); push (@qSearchURLs, $h->{qsearch_url}); push (@qSearchPrefixes, $h->{prefix}); push (@qSearchSuffixes, $h->{suffix }); push (@qSearchNames, $h->{qsearch_name}); push (@qSearchNotes, $h->{note}); push (@qSearchDates, $h->{qsearch_date}); push (@qSearchLCDs, $h->{qsearch_lcd}); push (@qSearchFKeys, $h->{qsearch_fkey}); } } sub findAllJournals { # get the query my $q = $_[0]; # initialize the reference sources arrays @journalIDs = (); @journalURLs = (); @journalNames = (); @journalNotes = (); @journalDates = (); @journalLCDs = (); @journalFKeys = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@journalIDs, $h->{etext_id}); push (@journalURLs, $h->{etext_url}); push (@journalNames, $h->{etext_name}); push (@journalNotes, $h->{etext_note}); push (@journalDates, $h->{etext_date}); push (@journalLCDs, $h->{etext_lcd}); push (@journalFKeys, $h->{etext_fkey}); } } sub findPatronLibraries { # get the query my $q = $_[0]; # initialize the reference sources arrays @patronLibrariesIDs = (); @patronLibrariesURLs = (); @patronLibrariesNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patronLibrariesIDs, $h->{libraries_id}); push (@patronLibrariesURLs, $h->{libraries_url}); push (@patronLibrariesNames, $h->{libraries_name}); } } sub findDefaultResources { # get the query my $q = $_[0]; my $f = $_[1]; # initialize the reference sources arrays @defaultIDs = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@defaultIDs, $h->{$f}); } } sub findAllLibraries { # get the query my $q = $_[0]; # initialize the reference sources arrays @librariesIDs = (); @librariesURLs = (); @librariesNames = (); @librariesNotes = (); @librariesDates = (); @librariesLCDs = (); @librariesFKeys = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@librariesIDs, $h->{libraries_id}); push (@librariesURLs, $h->{libraries_url}); push (@librariesNames, $h->{libraries_name}); push (@librariesNotes, $h->{libraries_note}); push (@librariesDates, $h->{libraries_date}); push (@librariesLCDs, $h->{libraries_lcd}); push (@librariesFKeys, $h->{libraries_fkey}); } } sub findPatronUniversity { # get the query my $q = $_[0]; # initialize the reference sources arrays @patronUniversityIDs = (); @patronUniversityURLs = (); @patronUniversityNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patronUniversityIDs, $h->{university_id}); push (@patronUniversityURLs, $h->{university_url}); push (@patronUniversityNames, $h->{university_name}); } } sub findAllUniversity { # get the query my $q = $_[0]; # initialize the reference sources arrays @universityIDs = (); @universityURLs = (); @universityNames = (); @universityNotes = (); @universityDates = (); @universityLCDs = (); @universityFKeys = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@universityIDs, $h->{university_id}); push (@universityURLs, $h->{university_url}); push (@universityNames, $h->{university_name}); push (@universityNotes, $h->{university_note}); push (@universityDates, $h->{university_date}); push (@universityLCDs, $h->{university_lcd}); push (@universityFKeys, $h->{university_fkey}); } } sub findAllDatabases { # get the query my $q = $_[0]; # initialize the reference sources arrays @databaseIDs = (); @databaseURLs = (); @databaseNames = (); @databaseNotes = (); @databaseDates = (); @databaseLCDs = (); @databaseFKeys = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@databaseIDs, $h->{bib_database_id}); push (@databaseURLs, $h->{bib_database_url}); push (@databaseNames, $h->{bib_database_name}); push (@databaseNotes, $h->{bib_database_note}); push (@databaseDates, $h->{bib_database_date}); push (@databaseLCDs, $h->{bib_database_lcd}); push (@databaseFKeys, $h->{bib_database_fkey}); } } sub findPatronDatabases { # get the query my $q = $_[0]; # initialize the reference sources arrays @patronDatabaseIDs = (); @patronDatabaseURLs = (); @patronDatabaseNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patronDatabaseIDs, $h->{bib_database_id}); push (@patronDatabaseURLs, $h->{bib_database_url}); push (@patronDatabaseNames, $h->{bib_database_name}); } } sub findPatronReferences { # get the query my $q = $_[0]; # initialize the reference sources arrays @patronReferenceIDs = (); @patronReferenceURLs = (); @patronReferenceNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patronReferenceIDs, $h->{reference_id}); push (@patronReferenceURLs, $h->{reference_url}); push (@patronReferenceNames, $h->{reference_name}); } } sub findAllReferences { # get the query my $q = $_[0]; # initialize the reference sources arrays @referenceIDs = (); @referenceURLs = (); @referenceNames = (); @referenceNotes = (); @referenceDates = (); @referenceLCDs = (); @referenceFKeys = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@referenceIDs, $h->{reference_id}); push (@referenceURLs, $h->{reference_url}); push (@referenceNames, $h->{reference_name}); push (@referenceNotes, $h->{reference_note}); push (@referenceDates, $h->{reference_date}); push (@referenceLCDs, $h->{reference_lcd}); push (@referenceFKeys, $h->{reference_fkey}); } } sub findAllRanks { # get the query my $q = $_[0]; # initialize the reference sources arrays @rankIDs = (); @rankNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@rankIDs, $h->{rank_id}); push (@rankNames, $h->{rank_name}); } } sub updatePatron { # initialize the query my $q = @_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); } sub findPatrons { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $patronRecord = $gSth->fetchrow_hashref; } sub findPatrons4CAM { # get the query my $q = $_[0]; # initialize the reference sources arrays @patrons4CAMIDs = (); @patrons4CAMFirst = (); @patrons4CAMLast = (); @patrons4CAMEmail = (); @patrons4CAMWantsHTML = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patrons4CAMIDs, $h->{patron_id}); push (@patrons4CAMFirst, $h->{name_f}); push (@patrons4CAMLast, $h->{name_l}); push (@patrons4CAMEmail, $h->{email}); push (@patrons4CAMWantsHTML, $h->{wants_html}); } } sub findPatrons4Email { # get the query my $q = $_[0]; # initialize the reference sources arrays @patrons4EmailFirst = (); @patrons4EmailLast = (); @patrons4EmailEmail = (); @patrons4EmailDiscipline = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patrons4EmailFirst, $h->{name_f}); push (@patrons4EmailLast, $h->{name_l}); push (@patrons4EmailEmail, $h->{email}); push (@patrons4EmailDiscipline, $h->{discipline_id}); } } sub findLibrarians4Email { # get the query my $q = $_[0]; # initialize the reference sources arrays @librarians4EmailFirst = (); @librarians4EmailLast = (); @librarians4EmailEmail = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@librarians4EmailFirst, $h->{name}); push (@librarians4EmailLast, ''); push (@librarians4EmailEmail, $h->{email_address}); } } sub findPatrons4Manage { # get the query my $q = $_[0]; # initialize the reference sources arrays @patrons4ManageIDs = (); @patrons4ManageFirst = (); @patrons4ManageLast = (); @patrons4ManageUsername = (); @patrons4ManageEmail = (); @patrons4ManagePassword = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patrons4ManageIDs, $h->{patron_id}); push (@patrons4ManageFirst, $h->{name_f}); push (@patrons4ManageLast, $h->{name_l}); push (@patrons4ManageUsername, $h->{username}); push (@patrons4ManageEmail, $h->{email}); push (@patrons4ManagePassword, $h->{password}); } } sub findBannerColors { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $bannerColor = $gSth->fetchrow_hashref; } sub findBackgroundColors { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $backgroundColor = $gSth->fetchrow_hashref; } sub findTextColors { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $textColor = $gSth->fetchrow_hashref; } sub findPatronTemplate { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $gPatronTemplate[0] = $gSth->fetchrow_array; } sub findAllTemplates { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); # initialize the reference sources arrays @templateIDs = (); @templateNames = (); @templateDescriptions = (); @templates = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@templateIDs, $h->{template_id}); push (@templateNames, $h->{template_name}); push (@templateDescriptions, $h->{template_description}); push (@templates, $h->{template}); } } sub findAllFreeTemplates { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); # initialize the reference sources arrays @templateFreeIDs = (); @templateFreeNames = (); @templateFreeDescriptions = (); @templatesFree = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@templateFreeIDs, $h->{template_free_id}); push (@templateFreeNames, $h->{template_free_name}); push (@templateFreeDescriptions, $h->{template_free_description}); push (@templatesFree, $h->{template}); } } sub findAllStaticTemplates { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); # initialize the reference sources arrays @templateStaticIDs = (); @templateStaticNames = (); @templateStaticDescriptions = (); @templatesStatic = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@templateStaticIDs, $h->{template_static_id}); push (@templateStaticNames, $h->{template_static_name}); push (@templateStaticDescriptions, $h->{template_static_description}); push (@templatesStatic, $h->{template_static}); } } sub findLinkColors { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $linkColor = $gSth->fetchrow_hashref; } sub findAlinkColors { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $alinkColor = $gSth->fetchrow_hashref; } sub findVlinkColors { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $vlinkColor = $gSth->fetchrow_hashref; } sub findPatronJournals { # get the query my $q = $_[0]; # initialize the reference sources arrays @patronJournalIDs = (); @patronJournalURLs = (); @patronJournalNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patronJournalIDs, $h->{etext_id}); push (@patronJournalURLs, $h->{etext_url}); push (@patronJournalNames, $h->{etext_name}); } } sub findReferenceSources { # get the query my $q = $_[0]; # initialize the reference sources arrays @referenceURLs = (); @referenceNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@referenceURLs, $h->{reference_url}); push (@referenceNames, $h->{reference_name}); } } sub findPatronQSearches { # get the query my $q = $_[0]; # initialize the quick search arrays @patronQSearchIDs = (); @patronQSearchCodes = (); @patronQSearchNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@patronQSearchIDs, $h->{qsearch_id}); push (@patronQSearchCodes, $h->{qsearch_code}); push (@patronQSearchNames, $h->{qsearch_name}); } } sub findLibrarians { # get the query my $q = $_[0]; # initialize the quick search arrays @librarianIDs = (); @librarianNames = (); @librarianURL = (); @librarianTelephoneArea = (); @librarianTelephoneStart = (); @librarianTelephoneEnd = (); @librarianEmailAddress = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@librarianIDs, $h->{librarian_id}); push (@librarianNames, $h->{name}); push (@librarianURL, $h->{url}); push (@librarianTelephoneArea, $h->{telephone_area}); push (@librarianTelephoneStart, $h->{telephone_start}); push (@librarianTelephoneEnd, $h->{telephone_end}); push (@librarianEmailAddress, $h->{email_address}); } } sub findCollectionManagers { # get the query my $q = $_[0]; # initialize the quick search arrays @managerIDs = (); @managerNames = (); @managerURL = (); @managerTelephoneArea = (); @managerTelephoneStart = (); @managerTelephoneEnd = (); @managerEmailAddress = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@managerIDs, $h->{manager_id}); push (@managerNames, $h->{name}); push (@managerURL, $h->{url}); push (@managerTelephoneArea, $h->{telephone_area}); push (@managerTelephoneStart, $h->{telephone_start}); push (@managerTelephoneEnd, $h->{telephone_end}); push (@managerEmailAddress, $h->{email_address}); } } sub findDisciplineMOTDs { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $disciplineMotd = $gSth->fetchrow_hashref; } sub findQuickSearchQuerys { # get the query my $q = $_[0]; # prepare the query and execute it &prepareAndExecuteSQL ($q); $lastQuery = $gSth->fetchrow_hashref; } sub findAllColors { # get the query my $q = $_[0]; # initialize the reference sources arrays @colorId = (); @colorCodes = (); @colorNames = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@colorId, $h->{color_id}); push (@colorCodes, $h->{color_code}); push (@colorNames, $h->{color_name}); } } sub findPersonalLinks { # get the query my $q = $_[0]; # initialize the reference sources arrays @personalLinksIDs = (); @personalLinksNames = (); @personalLinksURLs = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); while ($h = $gSth->fetchrow_hashref) { push (@personalLinksIDs, $h->{link_id}); push (@personalLinksNames, $h->{link_name}); push (@personalLinksURLs, $h->{link_url}); } } ############### # CAM # ############### sub addCAM { my $formCurrentAwareness; # query for CAM profiles my $id = $patronRecord->{patron_id}; $q = qq (select * from profiles where patron_id = '$id' order by lower_bounds); &getCAProfiles($q); # no profiles if ($#gProfileIDs < 0) { $formCurrentAwareness = qq (

Non esiste un profilo. Usare l'hotlink "personalizza" per crearne uno.

); } # has profiles else { # display the profiles $formCurrentAwareness = "

Il profilo attuale include i seguenti ranges di call number:"; for ($i=0; $i <= $#gProfileIDs; $i++) { if ($i == $#gProfileIDs) { $formCurrentAwareness .= " $gLowerBounds[$i] - $gUpperBounds[$i].\n"; } else { $formCurrentAwareness .= " $gLowerBounds[$i] - $gUpperBounds[$i],\n"; } } $formCurrentAwareness .= "

"; # display some directions $formCurrentAwareness .= qq(

Usare il form per cercare questi ranges oppure cliccare sull'hotlink "personalizza" per modificarli, come pure per modificare altre parti del profilo.

); # start the form $formCurrentAwareness .= '
'; $formCurrentAwareness .= $output->startform(-method => 'GET', -action => './'); $formCurrentAwareness .= $output->hidden(-name => 'cmd', -value => 'cam4one'); $formCurrentAwareness .= $output->hidden(-name => 'id', -value => "$patronRecord->{patron_id}"); # headers $formCurrentAwareness .= "\n"; # early date range $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; # late date range $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; # output $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "\n"; # end the table $formCurrentAwareness .= "
Da"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "
Fino a"; $formCurrentAwareness .= "\n"; $formCurrentAwareness .= "
Output"; $formCurrentAwareness .= "schermo
"; $formCurrentAwareness .= "email"; $formCurrentAwareness .= "
\n"; # add a submit and reset button $formCurrentAwareness .= '
'; $formCurrentAwareness .= '
'; $formCurrentAwareness .= ''; $formCurrentAwareness .= ' '; $formCurrentAwareness .= ''; $formCurrentAwareness .= '
'; $formCurrentAwareness .= ''; $formCurrentAwareness .= '
'; } return $formCurrentAwareness; } ############### # What's new # ############### sub addWhatsNew { my $formWhatsNew; # start the form $formWhatsNew = "
"; $formWhatsNew .= $output->startform(-method => 'GET', -action => './'); $formWhatsNew .= $output->hidden(-name => 'cmd', -value => 'whatsNew'); $formWhatsNew .= $output->hidden(-name => 'id', -value => "$patronRecord->{patron_id}"); $formWhatsNew .= "

\n"; $formWhatsNew .= "Solo nella disciplina scelta

"; # add a submit button $formWhatsNew .= ''; $formWhatsNew .= ''; $formWhatsNew .= '
'; return $formWhatsNew; } sub whatsNew { my $id = $input->param('id'); my $daysAgo = $input->param('daysAgo'); my $only = $input->param('only'); my $sql; # calculate date $daysAgo = strftime ("%Y-%m-%d", localtime(parsedate ("-$daysAgo days", NOW))); # branch according to $only if ($only) { # create sql query $sql = "SELECT reference.reference_name FROM reference, items4DisReference WHERE items4DisReference.discipline_id = '$patronRecord->{discipline_id}' AND items4DisReference.reference_id = reference.reference_id AND reference.reference_date > '$daysAgo' ORDER BY reference.reference_name"; } else { # create sql query $sql = "SELECT reference.reference_name FROM reference, items4references WHERE reference.reference_date > '$daysAgo' ORDER BY reference_name"; } &returnError ("
$sql
"); } sub getCAMDisclaimer { # get submit button my $submit = $input->param('submit'); # start the output print $output->header(); # check for submit if (! $submit) { # start the html &displaySimpleHelpMessage (61, 1); # output the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'getCAMDisclaimer'); print qq (); print "

\n"; print $output->submit(-name => 'submit', -value => 'Modifica'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; print "
\n"; print $output->endform; } else { # get the global message my $gDisclaimer = $gDBhandle->quote($input->param('gDisclaimer')); # update the database my $q = "UPDATE preferences SET disclaimer = $gDisclaimer"; &prepareAndExecuteSQL ($q); # start the html &displaySimpleHelpMessage (62, 1); # echo the input print "
" . $input->param('gDisclaimer') . "
"; } } sub setCAMDisclaimer { # read the contents of the form my $m = $input->param('disclaimer'); # save it open (DISCLAIMER, "> $gDisclaimer") or &returnError("Non è possibile aprire il file di rinuncia per l'output ($!). "); print DISCLAIMER $m; close (DISCLAIMER); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (62, 1); # display the text print "
"; print "
";
	print `cat $gDisclaimer`;
	print "
"; print "
"; } sub customizeCAMProfile { # create a query for the profile data my $q = qq (select * from profiles where patron_id = '$patronRecord->{patron_id}' order by lower_bounds); &getCAProfiles ($q); # print my header &printHeader; # dislay about message for profiles &displaySimpleHelpMessage (22, 1); # start the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setCAM'); print qq (\n); # wants current awareness print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # wants html print qq (\n); print qq (\n); print qq (\n); print qq (\n); print qq (\n); # end the table print qq (
Ultime accessioni\n); if ($patronRecord->{wants_ca} == 0) { print qq (Yes ); print qq (No); } else { print qq (Yes ); print qq (No); } print qq (\n); print qq (Desideri ricevere le ultime accessioni? (Help)); print qq (
HTML\n); if ($patronRecord->{wants_html} == 0) { print qq (Yes ); print qq (No); } else { print qq (Yes ); print qq (No); } print qq (\n); print qq (Desideri ricevere l'output HTML? (Help)); print qq (
\n); # add a submit and reset button print qq (

\n); print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print qq (

\n); print $output->endform; # return home print "

\n"; print qq(Torna a Segnaweb \n); print "

\n"; print "
"; # check to see whether or not they have profiles created if ($#gProfileIDs > -1) { # dislay about message for profiles &displaySimpleHelpMessage (23, 0); # dislay the existing links print "
\n"; print "

\n"; print "\n"; for ($i=0; $i <= $#gProfileIDs; $i++) { print "\n"; print "\n"; print qq{}; print "\n"; } print "
$gLowerBounds[$i] - $gUpperBounds[$i]Elimina (Help)
\n"; print "

\n"; # return home print "

\n"; print qq(Torna a Segnaweb \n); print "

\n"; print "
"; } # dislay about message for profiles &displaySimpleHelpMessage (47, 0); # display a table/form of the profiles print "

\n"; print "

\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setCAProfile'); print "\n"; # lower bounds print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # upper bounds print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # finish the table print "
Limite inferiore"; print $output->textfield(-name => 'lower_bounds'); print "\n); print qq (Call number più basso. (Help)); print qq (
Limite superiore"; print $output->textfield(-name => 'upper_bounds'); print "\n); print qq (Call number più alto. (Help)); print qq (
\n"; # add a submit and reset button print qq (

\n); print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print qq (

\n); print $output->endform; # return home print "

\n"; print qq(Torna a Segnaweb \n); print "

\n"; print "
"; } sub setCAM { # inialize the to-do list (@todo) @todo = ('wants_html', 'wants_ca'); # process every item in the to-do list, tricky for $t (@todo) { # get the input my $v = $input->param($t); # create a query and execute it my $q = qq (update patrons set $t = $v where patron_id = $patronRecord->{patron_id}); &prepareAndExecuteSQL ($q); } } sub setCAProfile { my $id = $patronRecord->{patron_id}; my $lower_bounds = $input->param('lower_bounds'); my $upper_bounds = $input->param('upper_bounds'); # get a new sequence my $sequence = getNewSequence(); # set the profile $q = qq [insert into profiles (profile_id, patron_id, lower_bounds, upper_bounds) values ('$sequence', '$id', '$lower_bounds', '$upper_bounds')]; &prepareAndExecuteSQL ($q); } sub cam4one { my $id = $input->param('id'); my $outfile = $input->param('outfile'); my $earlyDate = $input->param('earlyDate'); my $lateDate = $input->param('lateDate'); # INSERT ERROR CHECKING ROUTINE HERE! if (! $id) { # start the output print $output->header(-expires => '-1d'); # start HTML &displaySimpleHelpMessage (48, 1); # start the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'cam4one'); print $output->hidden(-name => 'id', -value => "$patronRecord->{patron_id}"); # headers print "\n"; # early date range print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # late date range print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # output print "\n"; print "\n"; print "\n"; print qq (\n); print "\n"; # end the table print "
Da"; print "\n"; print "\n); print qq (Data più prossima (Help)); print qq (
Fino a"; print "\n"; print "\n); print qq (Data più lontana (Help)); print qq (
Output"; print "schermo
"; print "email"; print "		\n); print qq (Dove si desidera l'output? (Help)); print qq (
\n"; # add a submit and reset button print "

\n"; print $output->submit(-name => 'submit', -value => 'Invia'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; print $output->endform; print "
\n"; } else { # convert the date input into actual dates $earlyDate = strftime ("%Y/%m/%d", localtime(parsedate ("-$earlyDate days", NOW))); $lateDate = strftime ("%Y/%m/%d", localtime(parsedate ("-$lateDate days", NOW))); # get the patron $q = qq (select * from patrons where patron_id = '$id'); &findPatrons ($q); # start the ouput my $title = "$patronRecord->{name_f} $patronRecord->{name_l}"; print $output->header(-expires => '-1d'); print $output->start_html(-title => "$title"); # get the upper and lower bounds for the selected patron $q = qq (select * from profiles where patron_id = '$id' order by lower_bounds); &getCAProfiles($q); # process every profile for ($i = 0; $i <= $#gProfileIDs; $i++) { # get the new titles $q = qq (select * from new_titles where call_number >= '$gLowerBounds[$i]' and call_number <= '$gUpperBounds[$i]' and inventory_date >= '$earlyDate' and inventory_date <= '$lateDate' group by call_number); &getNewTitles($q); # return the output if ($outfile eq "screen") { # dislay a header print "

\n"; print "Nome: $patronRecord->{name_f} $patronRecord->{name_l} ({email}\">$patronRecord->{email})
\n"; print "Range dei Call number: $gLowerBounds[$i] - $gUpperBounds[$i]
\n"; print "Range delle date: $earlyDate - $lateDate\n"; # process every located record print "\n"; for ($j=0; $j <= $#gCallNumbers; $j++) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "
$gCallNumbers[$j]$gAuthors[$j]$gTitles[$j]
\n"; print "

\n"; } elsif ($outfile eq "email") { # build and email message &buildEmail ($patronRecord->{name_f}, $patronRecord->{name_l}, $patronRecord->{email}, $patronRecord->{wants_html}, $earlyDate, $lateDate); #&buildEmail ($patronRecord->{name_f}, $patronRecord->{name_l}, "emorgan\@sunsite.berkeley.edu", $patronRecord->{wants_html}, $earlyDate, $lateDate); } # return to the main menu print "

\n"; print "Torna a Segnaweb \n"; print "

\n"; } } } sub buildEmail { # get the parameters $f = $_[0]; # first name $l = $_[1]; # last name $e = $_[2]; # email $h = $_[3]; # wants HTML $ed = $_[4]; # early date $ld = $_[5]; # late date # branch according to the type of email they want if ($h) { # open my temporary file $htmlFile = "/tmp/current-awareness.html"; open OUT, "> $htmlFile"; # start the html $htmlTitle = ($#gCallNumbers + 1 ) ." records found ($gLowerBounds[$i] - $gUpperBounds[$i])"; print OUT "$htmlTitle\n"; print OUT "

$htmlTitle

\n"; print OUT "Range delle date: $ed - $ld\n"; # process every located record print OUT "\n"; print OUT "\n"; print OUT ""; print OUT ""; print OUT ""; print OUT ""; for ($k = 0; $k <= $#gCallNumbers; $k++) { print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; print OUT "\n"; } print OUT "
Call numberAutoreTitolo
$gCallNumbers[$k]$gAuthors[$k]$gTitles[$k]
\n"; print OUT "

\n"; # close the output close OUT; # build a MIME message $top = build MIME::Entity Type => "multipart/mixed", 'Errors-to:' => "$gFromAddress", Subject => ($#gCallNumbers + 1 ) ." records found ($gLowerBounds[$i] - $gUpperBounds[$i])"; # attatch the disclaimer $message = `cat $gDisclaimer`; attach $top Data => $message; # append the output attach $top Path => "$htmlFile", Type => "text/html"; } else { # wants simple ascii, open my temporary file $textFile = "/tmp/current-awareness.txt"; open OUT, "> $textFile"; # start the output $textTitle = ($#gCallNumbers + 1 ) ." records found ($gLowerBounds[$i] - $gUpperBounds[$i])"; print OUT "$gDisclaimer"; print OUT "\n\n$textTitle\n"; print OUT "Range delle date: $ed - $ld\n\n"; # process every located record for ($k=0; $k <= $#gCallNumbers; $k++) { $n = $k+1; print OUT "$n. Call number: $gCallNumbers[$k]\n"; print OUT " Author: $gAuthors[$k]\n"; print OUT " Title: $gTitles[$k]\n"; print OUT " URL: $gMarion$gControlNumbers[$k]\n\n"; } # close the output close OUT; # slurp up the output $message = `cat $textFile`; # construct it $top = build MIME::Entity 'Errors-To:' => "$gFromAddress", Subject => ($#gCallNumbers + 1 ) ." records found ($gLowerBounds[$i] - $gUpperBounds[$i])", Data => "$message"; } # send it open MAIL, qq(| /usr/lib/sendmail -t -i -f "$gFromAddress" "$e") or die "open: $!"; $top->print(\*MAIL); close MAIL; # return success print "

"; print "La ricerca per $gLowerBounds[$i] - $gUpperBounds[$i] è stata effettuata e il risultato è stato inviato a $f $l ($e)."; print "

"; } sub deleteCAProfile { my $patronID = $patronRecord->{patron_id}; my $profileID = $input->param('profile_id'); # define the query and execute it $q = qq(delete from profiles where patron_id = '$patronID' and profile_id = '$profileID'); &prepareAndExecuteSQL ($q); } sub cam4all { # define the date ranges $earlyDate = strftime ("%Y/%m/%d", localtime(parsedate ("-35 days", NOW))); $lateDate = strftime ("%Y/%m/%d", localtime(parsedate ("-27 days", NOW))); # find all the patrons $q = "select * from patrons where wants_ca = '1'"; &findPatrons4CAM($q); # start the ouput my $title = "Run 4 All"; print $output->header(-expires => '-1d'); print $output->start_html(-title => "$title"); # process each patron for ($j = 0; $j <= $#patrons4CAMIDs; $j++) { # get the upper and lower bounds for the selected patron $q = qq (select * from profiles where patron_id = '$patrons4CAMIDs[$j]' order by lower_bounds); &getCAProfiles($q); # process every profile for ($i = 0; $i <= $#gProfileIDs; $i++) { # get the new titles $q = qq (select * from new_titles where call_number >= '$gLowerBounds[$i]' and call_number <= '$gUpperBounds[$i]' and inventory_date >= '$earlyDate' and inventory_date < '$lateDate' group by call_number); &getNewTitles($q); # build and email message &buildEmail ($patrons4CAMFirst[$j], $patrons4CAMLast[$j], $patrons4CAMEmail[$j], $patrons4CAMWantsHTML[$j], $earlyDate, $lateDate); #&buildEmail ($patrons4CAMFirst[$j], $patrons4CAMLast[$j], "eric_morgan\@ncsu.edu", $patrons4CAMWantsHTML[$j], $earlyDate, $lateDate); } } } ################################################################# # administrative functions # ################################################################# ################################## # administrative interface menu # ################################## sub displayAdminBanner { print ''; print ''; print ''; print '\n); print qq(\n); print qq(\n); print "\n"; print "\n"; } sub displayAllDisciplines { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; } sub displayDisciplinesMenu { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (92, 1); print qq(
    ); print qq(
  1. Create discipline); print qq(
  2. Find and then edit or delete a discipline); #print qq(
  3. Edit discipline); #print qq(
  4. Delete discipline); print qq(
); } sub displayDisciplinesInputForm { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (93, 1); # display the input form print "
"; print "

"; print qq(
\n); print qq(\n); print qq(

'; print '
'; print 'Home
'; print '

'; print ''; print ''; print 'Gestori di contenuti
'; print qq($gMessageFromTheLibrarian
); print qq($gLibraryLinks
); print qq($gUniversityLinks
); if ($gShowQuickSearches) { print qq($gQuickSearches
); } print qq($gReferenceShelf
); print qq($gBibliographicDatabaseLinks
); print qq($gElectronicJournals
); print qq(Defaults delle discipline
); if ($gShowCAM) { print qq(Profili delle discipline
); } print qq(Patrons
); print qq(Send mail
); print '
'; print 'Reports
'; print qq(Chi si occupa delle discipline
); if ($gShowStaticPageCreation) { print qq(Creare le pagine statiche
); } print qq(Liste delle discipline
); print qq(Link checker
); print '
'; print 'Webmasters
'; print qq(Style sheet
); print qq(Banner
); print qq(Footer
); print qq(Messaggio generale
); print qq(Free templates
); print qq(User templates
); print qq(Static templates
); print '
'; print 'Amministratori di sistema
'; print qq(Preferenze globali
); print qq(Discipline
); print qq(Reference librarians
); if ($gShowCollectionManagers) { print qq(Collection managers
); } print qq(Simple help texts
); if ($gShowCAM) { print qq($gCurrentAwarenessManager disclaimer
); } print '
'; print ''; print ''; print '		'; } sub displayMainMenu { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (49, 1); print '
'; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
"; print "

Gestori di contenuti

"; print "
    \n"; print qq(
  1. Modifica $gMessageFromTheLibrarian\n); print qq(
  2. Amministra $gLibraryLinks\n); print qq(
  3. Amministra $gUniversityLinks\n); if ($gShowQuickSearches) { print qq(
  4. Amministra $gQuickSearches\n); } print qq(
  5. Amministra $gReferenceShelf\n); print qq(
  6. Amministra $gBibliographicDatabaseLinks\n); print qq(
  7. Amministra $gElectronicJournals\n); print qq(
  8. Modifica i defaults delle discipline\n); if ($gShowCAM) { print qq(
  9. Modifica il range del profilo della disciplina\n); } print qq(
  10. Amministra i patrons\n); print qq(
  11. Invia una mail\n); print "
\n"; print "		"; print "

Reports

"; print "
    \n"; print qq(
  1. Chi si occupa delle discipline\n); if ($gShowStaticPageCreation) { print qq(
  2. Crea le pagine statiche\n); } print qq(
  3. Mostra le liste delle discipline\n); print qq(
  4. Link checker\n); if ($gManageDiscipline) { # one-stop shopping for maintaining a discipline --CG 3/25/2000 print qq(
  5. \n); print qq(\n); print qq(
    \n); print qq(
    6. \n"; } print "
\n"; print "
"; print "

Webmasters

"; print "
    \n"; print qq(
  1. Modifica lo style sheet\n); print qq(
  2. Modifica il banner\n); print qq(
  3. Modifica il footer\n); print qq(
  4. Modifica il global message of the day\n); print qq(
  5. Amministra i free templates\n); print qq(
  6. Amministra gli user templates\n); print qq(
  7. Amministra gli static templates\n); print "
\n"; print "		"; print "

Amministratori di sistema

"; print "
    "; print qq(
  1. Set le preferenze globali\n); print qq(
  2. Amministra le disciplines\n); print qq(
  3. Amministra i reference librarians\n); if ($gShowCollectionManagers) { print qq(
  4. Amministra i collection managers\n); } print qq(
  5. Modifica i simple help texts\n); if ($gShowCAM) { print qq(
  6. Modifica il $gCurrentAwarenessManager disclaimer\n); } print "
"; print "
"; print '
'; } ################################## # mystery function (utilitites) # ################################## sub addUserNames { # get the id's and first names of all the current patrons my $q = qq(select patron_id, name_f from patrons); # initialize the arrays I will use my @ids = (); my @names = (); # prepare the query and execute it &prepareAndExecuteSQL ($q); # slurp up the output while ($h = $gSth->fetchrow_hashref) { push (@ids, $h->{patron_id}); push (@names, $h->{name_f}); } # process each record for ($i = 0; $i <= $#ids; $i++) { # copy the first name to the username field $q = qq(update patrons set username = '$names[$i]' where patron_id = $ids[$i]); &prepareAndExecuteSQL ($q); } &returnError ("Done."); } ##################### # university admin # ##################### sub displayUniversityMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (128, 1); # display the menu print qq(
    ); print qq(
  1. Crea una risorsa $gUniversityLinks); print qq(
  2. Trova e modifica o elimina una risorsa $gUniversityLinks); print qq(
  3. Modifica un item $gUniversityLinks); print qq(
  4. Elimina un item $gUniversityLinks); print qq(
); } sub displayUniversityInputForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (129, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; print "
F KeyForeign key
$gUniversityLinksInserire un termine $gUniversityLinks
URLInserire l'URL
LCDRisorsa LCD?
Descrizione\n); print "Inserire una nota di commento
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createUniversity { # get the input my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # INSERT ERROR CHECKING HERE! # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq(INSERT INTO university (university_id, university_name, university_url, university_note, university_date, university_lcd, university_fkey) VALUES ($sequence, $name, '$url', $note, '$today', '$lcd', '$fkey')); &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM university WHERE university_name = $name); &findAllUniversity($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (130, 1); # display it for confirmation &displayTabledUniversityOutput; } sub displayTabledUniversityOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#universityIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
ID$gUniversityLinksDataAzione
$universityIDs[$i]$universityNames[$i]$universityDates[$i]Modifica or Elimina
\n"; print "

\n"; print "
\n"; } sub displayUniversityFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (131, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayUniversitySearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(SELECT * FROM university WHERE university_name $searchOperator '$searchString' ORDER BY university_name); &findAllUniversity($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (132, 1); # display the results &displayTabledUniversityOutput; } sub deleteUniversity { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (133, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the university from the university table my $q = qq(delete from university where university_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4university where university_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (134, 1); } } sub editUniversity { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (135, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(SELECT * FROM university WHERE university_id = "$id"); &findAllUniversity($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (136, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); if ($universityLCDs[0]) { print qq(\n); } else { print qq(\n); } print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; print "
ItemSelectionDescription
ID$universityIDs[0]Record number
Date$universityDates[0]Last modified
F KeyForeign key
$gUniversityLinksEnter a $gUniversityLinks term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateUniversity { # get the input my $id = $input->param('id'); my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # create the query and update the database my $q = qq(UPDATE university SET university_name = $name, university_url = '$url', university_note = $note, university_date = '$today', university_lcd = '$lcd', university_fkey = '$fkey' WHERE university_id = '$id'); &prepareAndExecuteSQL ($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (137, 1); } ################ # style-sheet # ################ sub customizeStyleSheet { # get submit button my $submit = $input->param('submit'); # start the output print $output->header(); # check for submit if (! $submit) { # start the html &displaySimpleHelpMessage (52, 1); # output the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'customizeStyleSheet'); print qq (); print "

\n"; print $output->submit(-name => 'submit', -value => 'Modifica'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; print "
\n"; print $output->endform; } else { # get the global message my $gStyleSheet = $gDBhandle->quote($input->param('gStyleSheet')); # update the database my $q = "UPDATE preferences SET style_sheet = $gStyleSheet"; &prepareAndExecuteSQL ($q); # start the html &displaySimpleHelpMessage (53, 1); # echo the input print "
";
		print $input->param('gStyleSheet');
		print "
"; } } ############### # send mail # ############### sub sendMail { # get the input my $results = $input->param(results); my @disciplines = $input->param(IDs); my $honor = $input->param(honor); my $audience = $input->param(audience); my $firstName = $input->param(firstName); my $lastName = $input->param(lastName); my $emailAddress = $input->param(emailAddress); my $subject = $input->param(subject); my $message = $input->param(message); # display an input form if (! $results) { # find all the disciplines my $q = qq(select * from disciplines order by discipline_name); &findAllDisciplines($q); # start the header print $output->header(); # start the html &displaySimpleHelpMessage (191, 1); # start the form print "
"; print "

"; print qq(

); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); # disciplines print qq(); print qq(); print qq(); print qq(); print qq(); # audience print qq(); print qq(); print qq(); print qq(); print qq(); # honor can contact print qq(); print qq(); print qq(); print qq(); print qq(); # first name print qq(); print qq(); print qq(); print qq(); print qq(); # last name print qq(); print qq(); print qq(); print qq(); print qq(); # email address print qq(); print qq(); print qq(); print qq(); print qq(); # subject print qq(); print qq(); print qq(); print qq(); print qq(); # message print qq(); print qq(); print qq(); print qq(); print qq(); # output print qq(); print qq(); print qq(); print qq(); print qq(); # end the table print qq(
ItemSelectionDescription
DisciplinesSelect the disciplines of the people who will get this message. Multiple disciplines may be selected.
Audience); print qq(All collection managers for the selected disciplines classified in MyLibrary
); print qq(All reference librarians for the selected disciplines classified in MyLibrary
); print qq(All patrons for the selected disciplines classified in MyLibrary); print qq(		From the selected disciplines, who is the audience for your message?
Honor); print qq(Yes
); print qq(No); print qq(		Do you want to honor the user's "Can contact" stipulation?
First nameWhat is your first name?
Last nameWhat is your last name?
Email addressWhat is your email address?
SubjectWhat is the subject of this message?
MessageWhat do you want to say?
Results); print qq(Show me the SQL query
); print qq(Show me the SQL results
); print qq(Show me the money
); print qq(Send me the message only
); print qq(Send everybody the message
); print qq(		What sort of results do you want to see?
); print "

"; # end the form print "

"; print qq( ); print qq( ); print "

"; print qq(
); } # see the SQL query results elsif ($results eq 'sqlQuery') { # build the sql query if ($audience eq 'referenceLibrarians' || $audience eq 'collectionManagers') { # create librarian query $q = &buildSQL4Librarians (\@disciplines, $audience); } elsif ($audience eq 'patrons') { # create patron query $q = &buildSQL (\@disciplines, $honor); } else { # error &returnError ("Programmer error: Unknown value for audience ($audience)."); return; } # start the output print $output->header(); # start the html &displaySimpleHelpMessage (192, 1); # display the query print "
$q
"; } # see the SQL query elsif ($results eq 'sqlResults') { # build the sql query if ($audience eq 'referenceLibrarians' || $audience eq 'collectionManagers') { # create librarian query my $q = &buildSQL4Librarians (\@disciplines, $audience); &findLibrarians4Email ($q) } elsif ($audience eq 'patrons') { # patrons query my $q = &buildSQL (\@disciplines, $honor); &findPatrons4Email ($q); } else { # error &returnError ("Programmer error: Unknown value for audience ($audience)."); return; } # start the output print $output->header(); # start the html &displaySimpleHelpMessage (193, 1); # display each hit if ($audience eq 'patrons') { # start the table/results print "

"; print "

"; print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); # patrons for ($i = 0; $i <= $#patrons4EmailFirst; $i++) { print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); } } elsif ($audience eq 'referenceLibrarians' || $audience eq 'collectionManagers') { # start the table/results print "

"; print "

"; print qq(
Discipline IDLast nameFirst nameEmail address
$patrons4EmailDiscipline[$i]$patrons4EmailLast[$i]$patrons4EmailFirst[$i]$patrons4EmailEmail[$i]
); print qq(); print qq(); print qq(); print qq(); # librarians for ($i = 0; $i <= $#librarians4EmailFirst; $i++) { print qq(); print qq(); print qq(); print qq(); } } print qq(
NameEmail address
$librarians4EmailFirst[$i]$librarians4EmailEmail[$i]
); print "
"; print "

"; } # show me the money :-) elsif ($results eq 'money') { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (194, 1); } # just email the sender elsif ($results eq 'emailSender') { # validate first name &validateEmailInput (1, $firstName); # validate last name &validateEmailInput (2, $lastName); # validate subject &validateEmailInput (3, $emailAddress); # validate subject &validateEmailInput (4, $subject); # validate subject &validateEmailInput (5, $message); # initalize the arrays my @firstNames = ($firstName); my @lastNames = ($lastName); my @emailAddresses = ($emailAddress); # send the message &sendTheMessage (\@firstNames, \@lastNames, \@emailAddresses, $firstName, $lastName, $emailAddress, $subject, $message, $audience); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (196, 1); # display the email address print qq(
$emailAddress
); } # go for it; mail everybody elsif ($results eq 'emailEverybody') { # validate first name &validateEmailInput (1, $firstName); # validate last name &validateEmailInput (2, $lastName); # validate subject &validateEmailInput (3, $emailAddress); # validate subject &validateEmailInput (4, $subject); # validate subject &validateEmailInput (5, $message); # build the sql query and exectute it if ($audience eq 'patrons') { # patrons my $q = &buildSQL (\@disciplines, $honor); &findPatrons4Email ($q); # append sender's data to the data for the message push @patrons4EmailFirst, $firstName; push @patrons4EmailLast, $lastName; push @patrons4EmailEmail, $emailAddress; # email patrons &sendTheMessage (\@patrons4EmailFirst, \@patrons4EmailLast, \@patrons4EmailEmail, $firstName, $lastName, $emailAddress, $subject, $message, $audience); } elsif ($audience eq 'referenceLibrarians' || $audience eq 'collectionManagers') { # create librarian query my $q = &buildSQL4Librarians (\@disciplines, $audience); &findLibrarians4Email ($q); # append sender's data to the data for the message push @librarians4EmailFirst, $firstName; push @librarians4EmailLast, $lastName; push @librarians4EmailEmail, $emailAddress; # email patrons &sendTheMessage (\@librarians4EmailFirst, \@librarians4EmailLast, \@librarians4EmailEmail, $firstName, $lastName, $emailAddress, $subject, $message, $audience); } # start the output print $output->header(); # start the html &displaySimpleHelpMessage (202, 1); # start the list print qq(
); print qq(); print qq(); print qq(); print qq(); print qq(); # process every email address if ($audience eq 'patrons') { # patrons for ($i = 0; $i <= $#patrons4EmailEmail; $i++) { print qq(); print qq(); print qq(); print qq(); } } elsif ($audience eq 'referenceLibrarians' || $audience eq 'collectionManagers') { # librarians for ($i = 0; $i <= $#librarians4EmailFirst; $i++) { print qq(); print qq(); print qq(); print qq(); } } # finish the table print qq(
NameAddress
$patrons4EmailLast[$i], $patrons4EmailFirst[$i]); print qq($patrons4EmailEmail[$i]); print qq(
$librarians4EmailFirst[$i]); print qq($librarians4EmailEmail[$i]); print qq(
); print qq(
); } # unknown results option else { &returnError ("Unknown results option '$results'."); } } sub sendTheMessage { my $firstNames = @_[0]; # a referenced array my $lastNames = @_[1]; # a referenced array my $emailAddresses = @_[2]; # a referenced array my $f = @_[3]; my $l = @_[4]; my $e = @_[5]; my $s = @_[6]; my $m = @_[7]; my $a = @_[8]; # wrap the message $m = wrap ("", "", $m); # process each emailAddress for ($i = 0; $i <= $#$emailAddresses; $i++) { # construct the message if ($a eq 'patrons') { # email patrons $mail = build MIME::Entity 'Errors-to:' => "$e", Subject => "$s", Data => "$m"; } elsif ($a eq 'referenceLibrarians' || $a eq 'collectionManagers') { # email librarians $mail = build MIME::Entity 'Errors-to:' => "$e", Subject => "$s", Data => "$m"; } else { # error &returnError ("Programmer error: Unknown value for a ($a)"); return; } # send it open MAIL, qq(| /usr/lib/sendmail -t -i -f "$e" "$emailAddresses->[$i]") || &returnError ("Couldn't open mail: $!"); $mail->print(\*MAIL); close MAIL; } } sub buildSQL { # get the input my $ids = @_[0]; my $h = @_[1]; # validate the input if ($#$ids < 0) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (195, 1); # exit gracefully &gracefulExit; } # initalize the query my $q = "select name_f, name_l, email, discipline_id from patrons where\n"; # make sure there is an email address $q .= "email <> '' and "; # honor can contact? if ($h) { $q .= "can_contact = '1' and " } # start the phrase $q .= "("; # process each discipline for ($i = 0; $i <= $#$ids; $i++) { # append a boolean operation if ($i == $#$ids) { $q .= "discipline_id = '$$ids[$i]')\n" } # finish the boolean operation else { $q .= "discipline_id = '$$ids[$i]' or \n" } } # finish the query $q .= "order by name_l"; # return the result return $q; } sub buildSQL4Librarians { # get the input my $ids = @_[0]; my $a = @_[1]; # validate the input if ($#$ids < 0) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (195, 1); # exit gracefully &gracefulExit; } # initalize the query if ($a eq 'referenceLibrarians') { # initialize the query for reference librarians $q = "select name, email_address from librarians, items4librarians\n"; $q .= "where librarians.librarian_id = items4librarians.librarian_id\n"; } elsif ($a eq 'collectionManagers') { # initialize the query for collection managers $q = "select name, email_address from managers, items4managers\n"; $q .= "where managers.manager_id = items4managers.manager_id\n"; } else { # error &returnError ("Unknown value for a: ($a)"); return; } # start the phrase $q .= "and ("; # process each discipline for ($i = 0; $i <= $#$ids; $i++) { # append a boolean operation if ($i == $#$ids) { $q .= "discipline_id = '$$ids[$i]')\n" } # finish the boolean operation else { $q .= "discipline_id = '$$ids[$i]' or \n" } } # finish the query $q .= "group by name"; # return the result return $q; } sub validateEmailInput { # get the input my $check = @_[0]; my $value = @_[1]; # check for first name if ($check == 1 && ! $value) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (197, 1); # exit gracefully &gracefulExit; } # check for last name elsif ($check == 2 && ! $value) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (198, 1); # exit gracefully &gracefulExit; } # check for email address elsif ($check == 3 && ! $value) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (199, 1); # exit gracefully &gracefulExit; } # check for subject elsif ($check == 4 && ! $value) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (200, 1); # exit gracefully &gracefulExit; } # check for message elsif ($check == 5 && ! $value) { # start the output print $output->header(); # display the error message &displaySimpleHelpMessage (201, 1); # exit gracefully &gracefulExit; } } ############### # reports # ############### sub whosGotTheDiscipline { # find all the disciplines my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (205, 1); # start the table print qq(\n); print "\n"; print qq(\n); if ($gShowCollectionManagers) { print "\n"; } print "\n"; print "\n"; # process each discipline for ($i = 0; $i <= $#disciplineIDs; $i++) { # start the row and display the discipline print qq(\n); print qq(); if ($gShowCollectionManagers) { # get the managers for this discipline $q = qq(select name, email_address from managers, items4managers, disciplines where items4managers.discipline_id = $disciplineIDs[$i] and disciplines.discipline_id = items4managers.discipline_id and items4managers.manager_id = managers.manager_id order by name); &findCollectionManagers ($q); # process each manager print ""; } # get the librarians for this discipline $q = qq(select name, email_address from librarians, items4librarians, disciplines where items4librarians.discipline_id = $disciplineIDs[$i] and disciplines.discipline_id = items4librarians.discipline_id and items4librarians.librarian_id = librarians.librarian_id order by name); &findLibrarians ($q); # process each librarian print ""; # end the row print "\n"; } # end the table print "
DisciplineCollection ManagersReference Librarians
$disciplineNames[$i]"; for ($j = 0; $j <= $#managerIDs; $j++) { print $j + 1 . qq(. $managerNames[$j]
); } print "		"; for ($j = 0; $j <= $#librarianIDs; $j++) { print $j + 1 . qq(. $librarianNames[$j]
); } print "
\n"; } #################### # reference admin # #################### sub displayReferenceMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (148, 1); $q = "SELECT count(*) as conto from reference"; &prepareAndExecuteSQL($q); $row=$gSth->fetchrow_hashref; my $conto = $row->{conto}; print qq(L'archivio contiene $conto Informazioni rapide); # display the menu print qq(
    ); print qq(
  1. Create a $gReferenceShelf resource); print qq(
  2. Find and then edit or delete a $gReferenceShelf resource); print qq(
  3. Edit a $gReferenceShelf item); print qq(
  4. Delete a $gReferenceShelf item); print qq(
); } sub displayReferenceInputForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (149, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the disciplines &displayAllDisciplines; print "
ItemSelectionDescription
F KeyForeign key
$gReferenceShelfEnter a $gReferenceShelf term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createReference { # get the input my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # INSERT ERROR CHECKING HERE! # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{INSERT INTO reference (reference_id, reference_name, reference_url, reference_note, reference_date, reference_lcd, reference_fkey) VALUES ($sequence, $name, '$url', $note, '$today', '$lcd', '$fkey')}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM reference WHERE reference_id = '$sequence'); &findAllReferences($q); # update discipline descriptions for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4DisReference (discipline_id, reference_id) VALUES ('$disciplineIDs[$i]', '$referenceIDs[0]')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (150, 1); # display it for confirmation &displayTabledReferenceOutput; } sub displayTabledReferenceOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#referenceIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
ID$gReferenceShelfDateAction
$referenceIDs[$i]$referenceNames[$i]$referenceDates[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayReferenceFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (151, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayReferenceSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(SELECT * FROM reference WHERE reference_name $searchOperator '$searchString' ORDER BY reference_name); &findAllReferences($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (152, 1); # display the results &displayTabledReferenceOutput; } sub deleteReference { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (153, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the reference from the reference table my $q = qq(DELETE FROM reference WHERE reference_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(DELETE FROM items4references WHERE reference_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(DELETE FROM items4DisReference WHERE reference_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (154, 1); } } sub editReference { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (155, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(SELECT * FROM reference WHERE reference_id = '$id'); &findAllReferences($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (156, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); if ($referenceLCDs[0]) { print qq(\n); } else { print qq(\n); } print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; # get and display all the previouslyu selected disciplines &displayAllSelectedDisciplines ($id, 'items4DisReference', 'reference_id'); print "
ItemSelectionDescription
ID$referenceIDs[0]Record number
Date$referenceDates[0]Last modified
F KeyForeign key
$gReferenceShelfEnter a $gReferenceShelf term
URLWhat is the URL?
LCDLCD Resource?
DescriptionEnter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateReference { # get the input my $id = $input->param('id'); my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # create the query and update the database my $q = qq(UPDATE reference SET reference_name = $name, reference_url = '$url', reference_note = $note, reference_date = '$today', reference_lcd = '$lcd', reference_fkey = '$fkey' WHERE reference_id = '$id'); &prepareAndExecuteSQL ($q); # delete old join relationships $q = qq(DELETE FROM items4DisReference WHERE reference_id = '$id'); &prepareAndExecuteSQL ($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4DisReference (discipline_id, reference_id) VALUES ('$disciplineIDs[$i]', '$id')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (157, 1); } #################### # qsearches admin # #################### sub editQSearch { # get the input my $id = $input->param('id'); my $name = $input->param('name'); # check for id's existance if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (231, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } # check for the name's existance elsif (! $name) { # find the record to edit my $q = qq(select * from qsearches where qsearch_id = "$id"); &findAllQSearches($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (232, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); if ($qSearchLCDs[0]) { print qq(\n); } else { print qq(\n); } print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the previouslyu selected disciplines &displayAllSelectedDisciplines ($id, "items4DisQSearches", "qsearch_id"); print "
ItemSelectionDescription
ID$qSearchIDs[0]Record number
Date$qSearchDates[0]Last modified
F KeyForeign key
$gQuickSearchesEnter a $gQuickSearches term
URLWhat is the URL?
PrefixWhat is the prefix of the engine?
SuffixWhat is the suffix of the engine?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get the rest of the input my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $prefix = $input->param('prefix'); my $suffix = $input->param('suffix'); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # create the query and update the database my $q = qq(UPDATE qsearches SET qsearch_name = $name, qsearch_url = '$url', prefix = '$prefix', suffix = '$suffix', note = $note, qsearch_date = '$today', qsearch_lcd = '$lcd', qsearch_fkey = '$fkey' WHERE qsearch_id = '$id'); &prepareAndExecuteSQL ($q); # delete any old join relationships $q = qq(DELETE FROM items4DisQSearches WHERE qsearch_id = '$id'); &prepareAndExecuteSQL ($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4DisQSearches (discipline_id, qsearch_id) VALUES ('$disciplineIDs[$i]', '$id')); &prepareAndExecuteSQL($q); } # start the output print $output->header(); # start the html &displaySimpleHelpMessage (233, 1); } } sub findQSearch { # get the value of submit my $submit = $input->param('submit'); # branch according to submit's existance if (! $submit) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (229, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(select * from qsearches where qsearch_name $searchOperator "$searchString" order by qsearch_name); &findAllQSearches($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (230, 1); # display the results &displayTabledQSearchesOutput; } } sub deleteQSearch { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (235, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the reference from the reference table my $q = qq(delete from qsearches where qsearch_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4qsearches where qsearch_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4DisQSearches where qsearch_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (236, 1); } } sub displayQSearchesMenu { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (234, 1); # display the menu print qq(
    ); print qq(
  1. Create a $gQuickSearches resource); print qq(
  2. Find and then edit or delete a $gQuickSearches resource); print qq(
  3. Edit a $gQuickSearches item); print qq(
  4. Delete a $gQuickSearches item); print qq(
); } sub createQSearch { # get the value of submit my $submit = $input->param('submit'); # branch according to submit's existance if (! $submit) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (227, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the disciplines &displayAllDisciplines; print "
ItemSelectionDescription
F KeyForeign key
$gQuickSearchesEnter a $gQuickSearches name
URLWhat is the URL of this $gQuickSearches
PrefixWhat is the prefix of the engine?
SuffixWhat is the suffix of the engine?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get the input my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $prefix = $input->param('prefix'); my $suffix = $input->param('suffix'); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # INSERT ERROR CHECKING HERE! # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{INSERT INTO qsearches (qsearch_id, qsearch_name, qsearch_url, prefix, suffix, note, qsearch_date, qsearch_lcd, qsearch_fkey) VALUES ($sequence, $name, '$url', '$prefix', '$suffix', $note, '$today', '$lcd', '$fkey')}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM qsearches WHERE qsearch_id = '$sequence'); &findAllQSearches($q); # update discipline descriptions for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4DisQSearches (discipline_id, qsearch_id) VALUES ('$disciplineIDs[$i]', '$qSearchIDs[0]')); &prepareAndExecuteSQL($q); } # start the output print $output->header(); # start the html &displaySimpleHelpMessage (228, 1); # display it for confirmation &displayTabledQSearchesOutput; } } sub displayTabledQSearchesOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#qSearchIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
ID$gQuickSearchesDateAction
$qSearchIDs[$i]$qSearchNames[$i]$qSearchDates[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } ################ # preferences # ################ sub setPreferences { # get the value of submit my $submit = $input->param('submit'); # branch according to value if (! $submit) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (225, 1); # begin the form print "
"; print "

"; print "

"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; # page look and feel print ""; # define TABLE WIDTH print ""; print ""; print ""; print ""; print ""; # default title of user's page print ""; print ""; print ""; print ""; print ""; # find all the USER templates my $q = "select * from templates order by template_name"; &findAllTemplates ($q); # build the labels for the select statement for ($i=0; $i < $#templateIDs+1; $i++) { $templateLabels{$templateIDs[$i]} = $templateNames[$i]; } # default template print ""; print ""; print ""; print ""; print ""; # find all the FREE templates my $q = "select * from templates_free order by template_free_name"; &findAllFreeTemplates ($q); # build the labels for the select statement for ($i=0; $i < $#templateFreeIDs+1; $i++) { $templateFreeLabels{$templateFreeIDs[$i]} = $templateFreeNames[$i]; } # default TEMPLATE print ""; print ""; print ""; print ""; print ""; # find all the colors my $q = "select * from colors order by color_name"; &findAllColors ($q); # build the labels for the select statement for ($i=0; $i < $#colorId+1; $i++) { $labels{$colorId[$i]} = $colorNames[$i]; } # default BANNER COLOR print ""; print ""; print ""; print ""; print ""; # default BACKGROUND COLOR print ""; print ""; print ""; print ""; print ""; # default TEXT COLOR print ""; print ""; print ""; print ""; print ""; # default LINK COLOR print ""; print ""; print ""; print ""; print ""; # default ACTIVE LINK COLOR print ""; print ""; print ""; print ""; print ""; # default VISITED LINK COLOR print ""; print ""; print ""; print ""; print ""; # define MESSAGE FROM THE LIBRARIAN print ""; print ""; print ""; print ""; print ""; # librarian stuff print ""; # define LIBRARIANS print ""; print ""; print ""; print ""; print ""; # show COLLECTION MANAGERS print ""; print ""; print ""; print ""; print ""; # COLLECTION MANAGERS BLURB print ""; print ""; print ""; print ""; print ""; # show LIBREF print ""; print ""; print ""; print ""; print ""; # REFERENCE LIBRARIAN BLURB print ""; print ""; print ""; print ""; print ""; # define LIBREF EMAIL print ""; print ""; print ""; print ""; print ""; # resources stuff print ""; # define LIBRARY LINKS print ""; print ""; print ""; print ""; print ""; # define UNIVERSITY LINKS print ""; print ""; print ""; print ""; print ""; # define PERSONAL LINKS print ""; print ""; print ""; print ""; print ""; # show QUICK SEARCHES print ""; print ""; print ""; print ""; print ""; # define QUICK SEARCHES print ""; print ""; print ""; print ""; print ""; # define REFERENCE SHELF print ""; print ""; print ""; print ""; print ""; # define BIBLIOGRAHIC DATABASES print ""; print ""; print ""; print ""; print ""; # define ETEXTS print ""; print ""; print ""; print ""; print ""; # CAM stuff print ""; # show CURRENT AWARENESS MANAGER print ""; print ""; print ""; print ""; print ""; # define CURRENT AWARENESS MANAGER print ""; print ""; print ""; print ""; print ""; # define MARION print ""; print ""; print ""; print ""; print ""; # define FROM ADDRESS print ""; print ""; print ""; print ""; print ""; # other stuff print ""; # show STATIC PAGE CREATION ON OR OFF print ""; print ""; print ""; print ""; print ""; # other stuff print ""; # show MANAGE DISCIPLINE print ""; print ""; print ""; print ""; print ""; # save STATISTICS print ""; print ""; print ""; print ""; print ""; # define COOKIE EXPIRES print ""; print ""; print ""; print ""; print ""; # end the table and the form print "
ItemSettingNote
User page look and feel
Table widthHow wide, in pixels, is the user page?
Page titleWhat is the default title of the patron's page?
Template"; print $output->popup_menu(-name => 'gTemplateID', -value => \@templateIDs, -default => "$gTemplateID", -labels => \%templateLabels); print "What is the default template?
Free template"; print $output->popup_menu(-name => 'gTemplateFreeID', -value => \@templateFreeIDs, -default => "$gTemplateFreeID", -labels => \%templateFreeLabels); print "What is the default free template?
Banner color"; print $output->popup_menu(-name => 'gColor_banner_id', -value => \@colorId, -default => "$gColor_banner_id", -labels => \%labels); print "Default banner color
Background color"; print $output->popup_menu(-name => 'gColor_bg_id', -value => \@colorId, -default => "$gColor_bg_id", -labels => \%labels); print "Default background color
Text color"; print $output->popup_menu(-name => 'gColor_text_id', -value => \@colorId, -default => "$gColor_text_id", -labels => \%labels); print "Default text color
Link color"; print $output->popup_menu(-name => 'gColor_link_id', -value => \@colorId, -default => "$gColor_link_id", -labels => \%labels); print "Default link color
Active link color"; print $output->popup_menu(-name => 'gColor_alink_id', -value => \@colorId, -default => "$gColor_alink_id", -labels => \%labels); print "Default active link color
Visited link color"; print $output->popup_menu(-name => 'gColor_vlink_id', -value => \@colorId, -default => "$gColor_vlink_id", -labels => \%labels); print "Default visited link color
$gMessageFromTheLibrarianWhat do you want to call $gMessageFromTheLibrarian?
Librarians
$gYourLibrariansWhat do you want to call $gYourLibrarians?
Collection managers"; if ($gShowCollectionManagers) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want to show the collection managers?
Collection manager blurbWhat is your collection manager blurb?
Library Reference"; if ($gShowLibRef) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want to show the links to library reference?
Reference Librarian blurbWhat is your reference librarian blurb?
Generic serviceWhat text points to your generic information service?
Resources
$gLibraryLinksWhat do you want to call $gLibraryLinks?
$gUniversityLinksWhat do you want to call $gUniversityLinks?
$gPersonalLinksWhat do you want to call $gPersonalLinks?
$gQuickSearches"; if ($gShowQuickSearches) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want to show $gQuickSearches?
$gQuickSearchesWhat do you want to call $gQuickSearches?
$gReferenceShelfWhat do you want to call $gReferenceShelf?
$gBibliographicDatabaseLinksWhat do you want to call $gBibliographicDatabaseLinks?
$gElectronicJournalsWhat do you want to call $gElectronicJournals?
Current Awareness Manager
Show $gCurrentAwarenessManager"; if ($gShowCAM) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want to show the $gCurrentAwarenessManager?
$gCurrentAwarenessManagerWhat do you want to call $gCurrentAwarenessManager?
URL rootWhat is URL root of a known item search?
$gCurrentAwarenessManager emailWhat is the email address sending $gCurrentAwarenessManager?
Static page creation
Static page creation"; if ($gShowStaticPageCreation) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want to turn on the static page creation option?
Other stuff
Manage discipline"; if ($gManageDiscipline) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want use the experimental 'Manage discipline' option?
Save statistics"; if ($gSaveStatistics) { print "Yes "; print "No"; } else { print "Yes "; print "No"; } print "Do you want to save usage statistics?
Cookie expiresHow long 'till cookies expire? (See CGI.pm)
"; print "

"; print "

"; print " "; print "

"; print "

"; print "
"; } else { # get the form's contents my $gShowCollectionManagers = $input->param('gShowCollectionManagers'); my $gShowQuickSearches = $input->param('gShowQuickSearches'); my $gPersonalLinks = $input->param('gPersonalLinks'); my $gReferenceShelf = $input->param('gReferenceShelf'); my $gBibliographicDatabaseLinks = $input->param('gBibliographicDatabaseLinks'); my $gElectronicJournals = $input->param('gElectronicJournals'); my $gYourLibrarians = $input->param('gYourLibrarians'); my $gMessageFromTheLibrarian = $input->param('gMessageFromTheLibrarian'); my $gLibraryLinks = $input->param('gLibraryLinks'); my $gUniversityLinks = $input->param('gUniversityLinks'); my $gCurrentAwarenessManager = $input->param('gCurrentAwarenessManager'); my $gQuickSearches = $input->param('gQuickSearches'); my $gShowLibRef = $input->param('gShowLibRef'); my $gGenericBlurb = $input->param('gGenericBlurb'); my $gFromAddress = $input->param('gFromAddress'); my $gShowCAM = $input->param('gShowCAM'); my $gMarion = $input->param('gMarion'); my $gFromAddress = $input->param('gFromAddress'); my $gExpires = $input->param('gExpires'); my $gTableWidth = $input->param('tableWidth'); my $gPage_title = $input->param('gPage_title'); my $gColor_banner_id = $input->param('gColor_banner_id'); my $gColor_bg_id = $input->param('gColor_bg_id'); my $gColor_text_id = $input->param('gColor_text_id'); my $gColor_link_id = $input->param('gColor_link_id'); my $gColor_alink_id = $input->param('gColor_alink_id'); my $gColor_vlink_id = $input->param('gColor_vlink_id'); my $gSaveStatistics = $input->param('gSaveStatistics'); my $gManageDiscipline = $input->param('gManageDiscipline'); my $gShowStaticPageCreation = $input->param('gShowStaticPageCreation'); my $gManagerBlurb = $input->param('gManagerBlurb'); my $gLibrarianBlurb = $input->param('gLibrarianBlurb'); my $gTemplateID = $input->param('gTemplateID'); my $gTemplateFreeID = $input->param('gTemplateFreeID'); # update the database my $q = "UPDATE preferences SET show_collection_managers = '$gShowCollectionManagers', show_quick_searches = '$gShowQuickSearches', personal_links = '$gPersonalLinks', reference_shelf = '$gReferenceShelf', bibliographic_databases = '$gBibliographicDatabaseLinks', etexts = '$gElectronicJournals', your_librarians = '$gYourLibrarians', messsage_from_librarian = '$gMessageFromTheLibrarian', library_links = '$gLibraryLinks', university_links = '$gUniversityLinks', current_awareness = '$gCurrentAwarenessManager', quick_searches = '$gQuickSearches', show_libref = '$gShowLibRef', generic_blurb = '$gGenericBlurb', show_cam = '$gShowCAM', marion = '$gMarion', from_address = '$gFromAddress', expires = '$gExpires', table_width = '$gTableWidth', page_title = '$gPage_title', color_banner = '$gColor_banner_id', color_background = '$gColor_bg_id', color_text = '$gColor_text_id', color_link = '$gColor_link_id', color_alink = '$gColor_alink_id', color_vlink = '$gColor_vlink_id', save_statistics = '$gSaveStatistics', manage_discipline = '$gManageDiscipline', static_pages_show = '$gShowStaticPageCreation', manager_blurb = '$gManagerBlurb', librarian_blurb = '$gLibrarianBlurb', templateID = '$gTemplateID', template_free_ID = '$gTemplateFreeID'"; &prepareAndExecuteSQL ($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (226, 1); } } ############### # patrons # ############### sub impersonatePatron { # get my input my $id = $input->param('id'); # get the patron's record my $q = qq(select * from patrons where patron_id = "$id"); &findPatrons($q); # extract the parts from the patron's record that I want my $patronId = "$patronRecord->{patron_id}"; my $firstName = "$patronRecord->{name_f}"; my $lastName = "$patronRecord->{name_l}"; my $email = "$patronRecord->{email}"; my $browser = "$patronRecord->{browser}"; my $remoteIP = "$patronRecord->{remote_ip}"; my $remoteName = "$patronRecord->{remote_name}"; my $lastVisit = "$patronRecord->{last_visit}"; my $totalVisits = "$patronRecord->{total_visits}"; my $phone = "($patronRecord->{telephone_area}) $patronRecord->{telephone_number_start}-$patronRecord->{telephone_number_end}"; if ($patronRecord->{can_contact} eq 0) { $canContact = "No"} else {$canContact = "Yes"} # find their discipline $q = qq(select discipline_name from disciplines where discipline_id = "$patronRecord->{discipline_id}"); &findAllDisciplines($q); # give myself their cookie $cookie = $output->cookie(-name => 'uid', -value => "$id", -path => "/", -domain => "$gHost"); # start the output print $output->header(-cookie => $cookie); # start the html &displaySimpleHelpMessage (219, 1); # build a pretty table with the output print qq(
); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(); print qq(
FieldValue
ID$patronId
First name$firstName
Last name$lastName
Email$email
Browser$browser
Remote IP$remoteIP
Remote name$remoteName
Last visit$lastVisit
Total visits$totalVisits
Can contact$canContact
Phone$phone
Discipline$disciplineNames[0]
); print qq(
); } sub displayPatronsMenu { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (63, 1); print qq(
    ); print qq(
  1. Find and then impersonate or delete a patron); print qq(
  2. Edit patron); #print qq(
  3. Delete patron); print qq(
); } sub displayTabledPatronsOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i; $i <= $#patrons4ManageIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
IDPatronsAction
$patrons4ManageIDs[$i]$patrons4ManageLast[$i], $patrons4ManageFirst[$i] ($patrons4ManageUsername[$i], $patrons4ManageEmail[$i])Edit or DeleteImpersonate patron or Delete
\n"; print "

\n"; print "
\n"; } sub displayPatronsFindForm { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (64, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Field\n); print qq(\n); print qq(Instructions go here.
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayPatronsSearchResults { # get the input my $searchField = $input->param('searchField'); my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(select * from patrons where $searchField $searchOperator "$searchString" order by name_l, name_f); &findPatrons4Manage($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (66, 1); # display the results &displayTabledPatronsOutput; } sub deletePatrons { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (67, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the patron from the patron table my $q = qq(delete from patrons where patron_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from each of the join tables; clean up $q = qq(delete from items4bibdatabases where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from items4etexts where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from items4libraries where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from items4qsearches where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from items4references where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from items4university where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from items4references where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from personallinks where patron_id = '$id'); &prepareAndExecuteSQL($q); $q = qq(delete from profiles where patron_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (68, 1); } } sub editPatrons { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (69, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit $q = qq(select * from patrons where patron_id = "$id"); &findPatrons($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (70, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
ID$patronRecord->{'patron_id'}Record number
First nameEnter the patron's first name
Last nameEnter the patron's last name
Email addressWhat is their email address?
PasswordWhat is their new password?
Password againRetype new password
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updatePatrons { # get the input my $id = $input->param('id'); my $name_f = $input->param('name_f'); my $name_l = $input->param('name_l'); my $email = $input->param('email'); my $pwd_1 = $input->param('pwd_1'); my $pwd_2 = $input->param('pwd_2'); # make sure the passwords match if ($pwd_1 ne $pwd_2) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (12, 1); # exit gracefully &gracefulExit; } # Password is ok, crypt it for storage my $salt = (localtime)[0]; my $crypted_pw = crypt($pwd_1, $salt); # create the query and update the database my $q = qq(update patrons set name_f = '$name_f', name_l = '$name_l', email = '$email', password = '$crypted_pw' where patron_id = '$id'); &prepareAndExecuteSQL ($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (71, 1); } ############### # managers # ############### sub displayManagersMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (72, 1); # display the menu print qq(
    ); print qq(
  1. Create collection manager); print qq(
  2. Find and then edit or delete a collection manager); #print qq(
  3. Edit manager); #print qq(
  4. Delete manager); print qq(
); } sub displayManagersInputForm { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (73, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
NameEnter the manager's name
Email addressWhat is their email address?
Telephone number\n); print qq(\n); print qq(\n); print qq(\n); print qq(Enter the telephone number?
URLWhat is the URL of their home page?
Disciplines\n); for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq($disciplineNames[$i]
\n); } print qq(		Select the disciplines.
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createManagers { # get the input my $name = $gDBhandle->quote($input->param('name')); my $email = $input->param('email'); my $area = $input->param('area'); my $start = $input->param('start'); my $end = $input->param('end'); my $url = $input->param('url'); my @disciplineIDs = $input->param('disciplineIDs'); # INSERT ERROR CHECKING HERE! # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{insert into managers (manager_id, name, telephone_area, telephone_start, telephone_end, email_address, url) values ('$sequence', $name, '$area', '$start', '$end', '$email', '$url')}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(select * from managers where manager_id = '$sequence'); &findCollectionManagers($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(insert into items4managers (discipline_id, manager_id) values ('$disciplineIDs[$i]', '$managerIDs[0]')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (74, 1); # display it for confirmation &displayTabledManagersOutput; } sub displayTabledManagersOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#managerIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
IDManagersAction
$managerIDs[$i]$managerNames[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayManagersFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (75, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayManagersSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(select * from managers where name $searchOperator "$searchString" order by name); &findCollectionManagers($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (76, 1); # display the results &displayTabledManagersOutput; } sub deleteManagers { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (77, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the manager from the manager table my $q = qq(delete from managers where manager_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4managers where manager_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (78, 1); } } sub editManagers { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (79, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # find the record to edit $q = qq(select * from managers where manager_id = "$id"); &findCollectionManagers($q); # find the linked items for managers $q = qq(select discipline_id from items4managers where manager_id = '$id'); &findItems4Managers($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (80, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
ID$managerIDs[0]Record number
NameEnter the manager's name
Email addressWhat is their email address?
Telephone number\n); print qq(\n); print qq(\n); print qq(\n); print qq(Enter the telephone number?
URLWhat is the URL of their home page?
Disciplines\n); # process every discipline id for ($i = 0; $i <= $#disciplineIDs; $i++) { # check to see if the reference was Previously Selected my $ps = 0; for $m (@I4ManagersIDs) { if ($disciplineIDs[$i] eq $m) { $ps = 1; last; } } if ($ps) { print qq($disciplineNames[$i]
\n); } else { print qq($disciplineNames[$i]
\n); } } print qq(		Select the disciplines.
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateManagers { # get the input my $id = $input->param('id'); my $name = $input->param('name'); my $email = $input->param('email'); my $area = $input->param('area'); my $start = $input->param('start'); my $end = $input->param('end'); my $url = $input->param('url'); my @disciplineIDs = $input->param('disciplineIDs'); # create the query and update the database my $q = qq(update managers set name = '$name', email_address = '$email', telephone_area = '$area', telephone_start = '$start', telephone_end = '$end', url = '$url' where manager_id = '$id'); &prepareAndExecuteSQL ($q); # delete any old item links 4 managers $q = qq(delete from items4managers where manager_id = '$id'); &prepareAndExecuteSQL ($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(insert into items4managers (discipline_id, manager_id) values ('$disciplineIDs[$i]', '$id')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (81, 1); } ####################### # manage disciplines # ####################### sub manageDiscipline { # start the output print $output->header(); &displaySimpleHelpMessage(222, 1); # added simple help message 300 to help_simple table # get the selected discipline my $disc = $input->param('disc'); $q = qq(SELECT * FROM disciplines WHERE discipline_id = $disc); &findAllDisciplines($q); print qq(

$disciplineNames[0]

\n); print qq(\n"; print qq(
); print "\n\n\n\n"; # get and/or motd my $m = $input->param('dmotd'); if ($m) { $dmotd = $gDBhandle->quote($input->param('dmotd')); my $q = qq (update disciplines set motd_text = $dmotd where discipline_id = "$disc"); &prepareAndExecuteSQL ($q); } # display moth edit form &displaySimpleHelpMessage (103, 0); print qq(
\n); print qq(\n); print qq(\n); if ($m) { print qq(

Message has been changed!

\n); } $q = qq(SELECT * FROM disciplines WHERE discipline_id = $disc); &findAllDisciplines($q); print qq (\n); print qq(
\n); print qq( \n); print "
\n"; print "\n"; # display form to create new resource &displaySimpleHelpMessage(223, 0); # get input my $n = $input->param('name'); if ($n) { my $type = $input->param('type'); my $rec = $input->param('rec'); my $name = $gDBhandle->quote($input->param('name')); my $url = $gDBhandle->quote($input->param('url')); my $note = $gDBhandle->quote($input->param('note')); # INSERT ERROR CHECKING HERE! # create a query to update the database and update it if ($type eq 'libraries') { # get a new sequence my $sequence = getNewSequence(); my $q = qq(INSERT INTO libraries (libraries_id, libraries_name, libraries_url, libraries_note) VALUES ($sequence, $name, $url, $note)); &prepareAndExecuteSQL($q); if ($rec) { $q = qq(SELECT * FROM libraries WHERE libraries_name = $name); &findAllLibraries($q); $q = qq(INSERT INTO defaultLibraries (discipline_id, libraries_id) VALUES ('$disc', '$librariesIDs[0]')); &prepareAndExecuteSQL($q); } print qq(Resource created!); } elsif ($type eq 'university') { # get a new sequence my $sequence = getNewSequence(); my $q = qq(INSERT INTO university (university_id, university_name, university_url, university_note) VALUES ($sequence, $name, $url, $note)); &prepareAndExecuteSQL($q); if ($rec) { $q = qq(SELECT * FROM university WHERE university_name = $name); &findAllUniversity($q); $q = qq(INSERT INTO defaultUniversity (discipline_id, university_id) VALUES ('$disc', '$universityIDs[0]')); &prepareAndExecuteSQL($q); } print qq(Resource created!); } elsif ($type eq 'reference') { # get a new sequence my $sequence = getNewSequence(); my $q = qq(INSERT INTO reference (reference_id, reference_name, reference_url, reference_note) VALUES ($sequence, $name, $url, $note)); &prepareAndExecuteSQL($q); $q = qq(SELECT * FROM reference WHERE reference_name = $name); &findAllReferences($q); # update discipline descriptions $q = qq(INSERT INTO items4DisReference (discipline_id, reference_id) VALUES ('$disc', '$referenceIDs[0]')); &prepareAndExecuteSQL($q); if ($rec) { $q = qq(insert into defaultReferences (discipline_id, reference_id) values ('$disc', '$referenceIDs[0]')); &prepareAndExecuteSQL($q); } print qq(Resource created!); } elsif ($type eq 'database') { # get a new sequence my $sequence = getNewSequence(); my $q = qq(INSERT INTO bib_databases (bib_database_id, bib_database_name, bib_database_url, bib_database_note) VALUES ($sequence, $name, $url, $note)); &prepareAndExecuteSQL($q); $q = qq(SELECT * FROM bib_databases WHERE bib_database_name = $name); &findAllDatabases($q); # update discipline descriptions $q = qq(INSERT INTO items4DisBibdatabases (discipline_id, bib_database_id) VALUES ('$disc', '$databaseIDs[0]')); &prepareAndExecuteSQL($q); if ($rec) { $q = qq(INSERT INTO defaultBibdatabases (discipline_id, bib_database_id) VALUES ('$disc', '$databaseIDs[0]')); &prepareAndExecuteSQL($q); } print qq(Resource created!); } elsif ($type eq 'journal') { # get a new sequence my $sequence = getNewSequence(); my $q = qq(INSERT INTO etexts (etext_id, etext_name, etext_url, etext_note) VALUES ($sequence, $name, $url, $note)); &prepareAndExecuteSQL($q); $q = qq(SELECT * FROM etexts WHERE etext_name = $name); &findAllJournals($q); # update discipline descriptions $q = qq(INSERT INTO items4DisEtexts (discipline_id, etext_id) VALUES ('$disc', '$journalIDs[0]')); &prepareAndExecuteSQL($q); if ($rec) { $q =qq(INSERT INTO defaultEtexts (discipline_id, etext_id) values ('$disc', '$journalIDs[0]')); &prepareAndExecuteSQL($q); } print qq(Resource created!); } else { print qq(

Please select a type!

\n); } } # display the input form print qq(
\n); print qq(\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n"; print "
Type \n); print qq(); print qq(Default: ); print qq(
Resource\n); print qq(
URL\n); print qq(
Description\n); print qq(\n); print "
\n"; print "\n"; print qq( \n); print qq(\n); print "
\n"; print "		); # start the html &displaySimpleHelpMessage (224, 0); # process input if defaults were changed my $def = $input->param('def'); if ($def) { # read the contents of the form my @librariesIDs = $input->param(librariesIDs); my @universityIDs = $input->param(universityIDs); my @qSearchIDs = $input->param(qSearchIDs); my @referenceIDs = $input->param(referenceIDs); my @databaseIDs = $input->param(databaseIDs); my @journalIDs = $input->param(journalIDs); # delete old LIBRARIES data and update it accordingly my $q = qq(delete from defaultLibraries where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#librariesIDs; $i++) { $q = qq(insert into defaultLibraries (discipline_id, libraries_id) values ("$disc", "$librariesIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old UNIVERSITY data and update it accordingly my $q = qq(delete from defaultUniversity where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#universityIDs; $i++) { $q = qq(insert into defaultUniversity (discipline_id, university_id) values ("$disc", "$universityIDs[$i]")); &prepareAndExecuteSQL($q); } # check for quick searches if ($gShowQuickSearches) { # delete old QUICK SEARCHES data and update it accordingly my $q = qq(delete from defaultQseaches where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#qSearchIDs; $i++) { $q = qq(insert into defaultQseaches (discipline_id, qsearch_id) values ("$disc", "$qSearchIDs[$i]")); &prepareAndExecuteSQL($q); } } # delete old REFERENCE data and update it accordingly my $q = qq(delete from defaultReferences where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#referenceIDs; $i++) { $q = qq(insert into defaultReferences (discipline_id, reference_id) values ("$disc", "$referenceIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old REFERENCE data and update it accordingly my $q = qq(delete from defaultReferences where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#referenceIDs; $i++) { $q = qq(insert into defaultReferences (discipline_id, reference_id) values ("$disc", "$referenceIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old BIBLIOGRAPHIC DATABASES data and update it accordingly my $q = qq(delete from defaultBibdatabases where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#databaseIDs; $i++) { $q = qq(insert into defaultBibdatabases (discipline_id, bib_database_id) values ("$disc", "$databaseIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old JOURNALS data and update it accordingly my $q = qq(delete from defaultEtexts where discipline_id = "$disc"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#journalIDs; $i++) { $q = qq(insert into defaultEtexts (discipline_id, etext_id) values ("$disc", "$journalIDs[$i]")); &prepareAndExecuteSQL($q); } print qq(

Defaults Changed

); } # start edit defaults form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'manageDiscipline'); print $output->hidden(-name => 'disc', -value => $disc); print $output->hidden(-name => 'def', -value => 'on'); # get all the LIBRARIES resources and display them $q = qq(select * from libraries order by libraries_name); &findAllLibraries($q); $q = qq(select * from defaultLibraries where discipline_id = "$disc"); &findDefaultResources($q, "libraries_id"); print "

$gLibraryLinks resources

\n"; print qq("; # get all the UNIVERSITY resources and display them $q = qq(select * from university order by university_name); &findAllUniversity($q); $q = qq(select * from defaultUniversity where discipline_id = "$disc"); &findDefaultResources($q, "university_id"); print "

$gUniversityLinks resources

\n"; print qq("; # check for quick searches if ($gShowQuickSearches) { # get all the QUICK SEARCHES resources and display them $q = qq(select * from qsearches order by qsearch_name); &findAllQSearches($q); $q = qq(select * from defaultQseaches where discipline_id = "$disc"); &findDefaultResources($q, "qsearch_id"); print "

$gQuickSearches

\n"; print qq("; } # get all the REFERENCE resources and display them $q = qq(select * from reference order by reference_name); &findAllReferences($q); $q = qq(select * from defaultReferences where discipline_id = "$disc"); &findDefaultResources($q, "reference_id"); print "

$gReferenceShelf resources

\n"; print qq("; # get all the BIBLIOGRAPHIC DATABASES resources and display them $q = qq(select * from bib_databases order by bib_database_name); &findAllDatabases($q); $q = qq(select * from defaultBibdatabases where discipline_id = "$disc"); &findDefaultResources($q, "bib_database_id"); print "

$gBibliographicDatabaseLinks resources

\n"; print qq("; # get all the JOURNALS resources and display them $q = qq(select * from etexts order by etext_name); &findAllJournals($q); $q = qq(select * from defaultEtexts where discipline_id = "$disc"); &findDefaultResources($q, "etext_id"); print "

$gElectronicJournals resources

\n"; print qq("; print "

"; print $output->submit(-name => 'submit', -value => ' Change Defaults '); print " "; print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print $output->endform; print "
"; } ################# # link checker # ################# sub checkLinksTXT { # get the input my @disciplineIDs = $input->param('disciplineIDs'); my @sections = $input->param('sections'); my $libraryPart = $input->param('libraryPart'); my $universityPart = $input->param('universityPart'); my $resultOutput = $input->param('resultOutput'); # check for selected discipline if (! $disciplineIDs[0]) { &returnError ("No discipline(s) selected"); return; } # check for selected section if (! $sections[0]) { &returnError ("No section selected"); return; } # get today my $today = strftime ("%m/%d/%Y", localtime(parsedate ('now', NOW))); # flush output $| = 1; # start the output # print $output->header(); print "Content-Type: text/html\n\n"; # start the html # &displaySimpleHelpMessage (213, 1); # process every discipline for ($j = 0; $j <= $#disciplineIDs; $j++ ) { # get the discipline ID's name $q = qq(select * from disciplines where discipline_id = $disciplineIDs[$j]); &findAllDisciplines($q); # display a header #print "$disciplineNames[0] as of $today\n"; # process every section for ($i = 0; $i <= $#sections; $i++) { # library links if ($sections[$i] eq 'libraries') { # process the part if ($libraryPart eq 'thisDiscipline') { # find just this discipline's links my $q = qq(select libraries.libraries_id, libraries_url, libraries_name from libraries, defaultLibraries where libraries.libraries_id = defaultLibraries.libraries_id and discipline_id = $disciplineIDs[$j] order by libraries_name); &findAllLibraries ($q); } elsif ($libraryPart eq 'everything') { # find all the links my $q = qq(select * from libraries order by libraries_name); &findAllLibraries ($q); } else { # error &returnError ("Programmer error: Unknown value for libraryPart ($libraryPart)"); return; } # process the links &processLinksTXT (\@librariesIDs, \@librariesURLs, \@librariesNames, "Biblioteche e Cataloghi", "editLibraries", "deleteLibraries"); } # university links elsif ($sections[$i] eq 'university') { # process the part if ($universityPart eq 'thisDiscipline') { # find all the university links my $q = qq(select university.university_id, university_url, university_name from university, defaultUniversity where university.university_id = defaultUniversity.university_id and discipline_id = $disciplineIDs[$j] order by university_name); &findAllUniversity ($q); } elsif ($universityPart eq 'everything') { # find all the links my $q = qq(select * from university order by university_name); &findAllUniversity ($q); } else { # error &returnError ("Programmer error: Unknown value for universityPart ($universityPart)"); return; } # process the links &processLinksTXT (\@universityIDs, \@universityURLs, \@universityNames, "Altri come Segnaweb", "editUniversity", "deleteUniversity"); } # reference shelf elsif ($sections[$i] eq 'referenceShelf') { #find all reference shelf resoruces for the selected discipline $q = qq(select reference.reference_id, reference.reference_name, reference.reference_url, reference.reference_note from reference, items4DisReference where items4DisReference.discipline_id = $disciplineIDs[$j] and items4DisReference.reference_id = reference.reference_id order by reference.reference_name); &findAllReferences($q); # process the links &processLinksTXT (\@referenceIDs, \@referenceURLs, \@referenceNames, "Informazioni Rapide", "editReference", "deleteReference"); } # bibliographic databases elsif ($sections[$i] eq 'bibliographicDatabases') { # find all bibliographic database resoruces for this discipline $q = qq(select bib_databases.bib_database_id, bib_databases.bib_database_name, bib_databases.bib_database_url, bib_databases.bib_database_note from bib_databases, items4DisBibdatabases where items4DisBibdatabases.discipline_id = $disciplineIDs[$j] and items4DisBibdatabases.bib_database_id = bib_databases.bib_database_id order by bib_databases.bib_database_name); &findAllDatabases($q); # process the links &processLinksTXT (\@databaseIDs, \@databaseURLs, \@databaseNames, "Cerca per Argomenti", "editDatabase", "deleteDatabase"); } # ejournals elsif ($sections[$i] eq 'electronicJournals') { # find all electronic journals resoruces for this discipline $q = qq (select etexts.etext_id, etexts.etext_name, etexts.etext_url, etexts.etext_note from etexts, items4DisEtexts where items4DisEtexts.discipline_id = $disciplineIDs[$j] and items4DisEtexts.etext_id = etexts.etext_id order by etexts.etext_name); &findAllJournals($q); # process the links &processLinksTXT (\@journalIDs, \@journalURLs, \@journalNames, "Ricerche", "editJournal", "deleteJournal"); } # error else { &returnError ("Programmer error; Unknown section ($section[$i]). ") } } } } ################# # link checker # ################# sub checkLinks { # get the input my @disciplineIDs = $input->param('disciplineIDs'); my @sections = $input->param('sections'); my $libraryPart = $input->param('libraryPart'); my $universityPart = $input->param('universityPart'); my $resultOutput = $input->param('resultOutput'); # check for selected discipline if (! $disciplineIDs[0]) { &returnError ("No discipline(s) selected"); return; } # check for selected section if (! $sections[0]) { &returnError ("No section selected"); return; } # get today my $today = strftime ("%m/%d/%Y", localtime(parsedate ('now', NOW))); # flush output $| = 1; # start the output print $output->header(); # start the html &displaySimpleHelpMessage (213, 1); # process every discipline for ($j = 0; $j <= $#disciplineIDs; $j++ ) { # get the discipline ID's name $q = qq(select * from disciplines where discipline_id = $disciplineIDs[$j]); &findAllDisciplines($q); # display a header print "

$disciplineNames[0] as of $today

"; # process every section for ($i = 0; $i <= $#sections; $i++) { # library links if ($sections[$i] eq 'libraries') { # process the part if ($libraryPart eq 'thisDiscipline') { # find just this discipline's links my $q = qq(select libraries.libraries_id, libraries_url, libraries_name from libraries, defaultLibraries where libraries.libraries_id = defaultLibraries.libraries_id and discipline_id = $disciplineIDs[$j] order by libraries_name); &findAllLibraries ($q); } elsif ($libraryPart eq 'everything') { # find all the links my $q = qq(select * from libraries order by libraries_name); &findAllLibraries ($q); } else { # error &returnError ("Programmer error: Unknown value for libraryPart ($libraryPart)"); return; } # process the links &processLinks (\@librariesIDs, \@librariesURLs, \@librariesNames, "Biblioteche e Cataloghi", "editLibraries", "deleteLibraries"); } # university links elsif ($sections[$i] eq 'university') { # process the part if ($universityPart eq 'thisDiscipline') { # find all the university links my $q = qq(select university.university_id, university_url, university_name from university, defaultUniversity where university.university_id = defaultUniversity.university_id and discipline_id = $disciplineIDs[$j] order by university_name); &findAllUniversity ($q); } elsif ($universityPart eq 'everything') { # find all the links my $q = qq(select * from university order by university_name); &findAllUniversity ($q); } else { # error &returnError ("Programmer error: Unknown value for universityPart ($universityPart)"); return; } # process the links &processLinks(\@universityIDs, \@universityURLs, \@universityNames, "Altri come Segnaweb", "editUniversity", "deleteUniversity"); } # reference shelf elsif ($sections[$i] eq 'referenceShelf') { #find all reference shelf resoruces for the selected discipline $q = qq(select reference.reference_id, reference.reference_name, reference.reference_url, reference.reference_note from reference, items4DisReference where items4DisReference.discipline_id = $disciplineIDs[$j] and items4DisReference.reference_id = reference.reference_id order by reference.reference_name); &findAllReferences($q); # process the links &processLinks (\@referenceIDs, \@referenceURLs, \@referenceNames, "Informazioni Rapide", "editReference", "deleteReference"); } # bibliographic databases elsif ($sections[$i] eq 'bibliographicDatabases') { # find all bibliographic database resoruces for this discipline $q = qq(select bib_databases.bib_database_id, bib_databases.bib_database_name, bib_databases.bib_database_url, bib_databases.bib_database_note from bib_databases, items4DisBibdatabases where items4DisBibdatabases.discipline_id = $disciplineIDs[$j] and items4DisBibdatabases.bib_database_id = bib_databases.bib_database_id order by bib_databases.bib_database_name); &findAllDatabases($q); # process the links &processLinks (\@databaseIDs, \@databaseURLs, \@databaseNames, "Cerca per Argomenti", "editDatabase", "deleteDatabase"); } # ejournals elsif ($sections[$i] eq 'electronicJournals') { # find all electronic journals resoruces for this discipline $q = qq (select etexts.etext_id, etexts.etext_name, etexts.etext_url, etexts.etext_note from etexts, items4DisEtexts where items4DisEtexts.discipline_id = $disciplineIDs[$j] and items4DisEtexts.etext_id = etexts.etext_id order by etexts.etext_name); &findAllJournals($q); # process the links &processLinks (\@journalIDs, \@journalURLs, \@journalNames, "Ricerche", "editJournal", "deleteJournal"); } # error else { &returnError ("Programmer error; Unknown section ($section[$i]). ") } } } } sub displayLinkCheckerMenu { # read all the discipline MOTDs my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (212, 1); # start form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'checkLinks'); # display a pop-up list of disciplines print "Select the discipline(s) to check:"; print qq(

\n"; # display the sections print "

Select the sections within that discipline to check:
"; print "

    "; print "
  1. Biblioteche e cataloghi "; print qq(Solo i link della disciplina ); print qq(Tutti i link); print "
  2. Altri come Segnaweb\n"; print qq(Solo i link della disciplina ); print qq(Tutti i link); print "
  3. Informazioni rapide\n"; print "
  4. Cerca per argomenti\n"; print "
  5. Ricerche\n"; print "

\n"; # select where the output goes #print "

Where do you want the output to go:"; #print "

    "; #print "
  1. My screen"; #print "
  2. My email"; #print "

\n"; # end the form print "

"; print $output->submit(-name => 'submit', -value => 'Spunta'); print $output->reset(-name => 'Reset', -value => 'Azzera'); print "

\n"; print $output->endform; } sub processLinks { # get the input my $IDs = @_[0]; my $URLs = @_[1]; my $names = @_[2]; my $section = @_[3]; my $editFunction = @_[4]; my $deleteFunction = @_[5]; # create a user agent my $ua = LWP::UserAgent->new(); $ua->agent ("MyLibrary\@NCState Link Checker/v1.0"); $ua->from ($gFromAddress); # process every URL print "

$section, ". ($#$IDs + 1) ." links

\n"; print "
    "; for (my $i = 0; $i <= $#$IDs; $i++) { # create a new request my $request = HTTP::Request->new(); $request->method ("HEAD"); $request->url ($URLs->[$i]); #$request->referer ($gHome); # get the response my $response = $ua->simple_request ($request); my $c = $response->code; my $m = $response->message; my $d = $IDs->[$i]; my $u = $URLs->[$i]; my $n = $names->[$i]; # display the return code print qq(
  1. $c [ Edit | Delete ] $n - $m\n); } print "
"; return; } sub processLinksTXT { # get the input my $IDs = @_[0]; my $URLs = @_[1]; my $names = @_[2]; my $section = @_[3]; my $editFunction = @_[4]; my $deleteFunction = @_[5]; # create a user agent my $ua = LWP::UserAgent->new(); $ua->agent ("MyLibrary\@NCState Link Checker/v1.0"); $ua->from ($gFromAddress); # process every URL # print "

$section, ". ($#$IDs + 1) ." links

\n"; print "
    "; for (my $i = 0; $i <= $#$IDs; $i++) { # create a new request my $request = HTTP::Request->new(); $request->method ("HEAD"); $request->url ($URLs->[$i]); #$request->referer ($gHome); # get the response my $response = $ua->simple_request ($request); my $c = $response->code; my $m = $response->message; my $d = $IDs->[$i]; my $u = $URLs->[$i]; my $n = $names->[$i]; # display the return code if( $c !='200' && $c!='302' && $c!='304') { print qq(
  • $c - $n
    \n $u - $m\n); } } print "
"; return; } ############################ # static templates admin # ############################ sub displayStaticTemplateMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (269, 1); print qq(
    ); print qq(
  1. Create a new static template); print qq(
  2. Find and then edit or delete a static template); print qq(
  3. Edit a static template); print qq(
  4. Delete a static template); print qq(
); } sub createStaticTemplate { # start the output print $output->header(-expires => '-1d'); # check for submit button if (! $input->param('submit')) { # start the html &displaySimpleHelpMessage (270, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "
ItemSelection
Name
Description
Template\n); print "
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } # save their customizations else { # get the input my $name = $gDBhandle->quote($input->param('name')); my $description = $gDBhandle->quote($input->param('description')); my $template = $gDBhandle->quote($input->param('template')); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{insert into templates_static (template_static_id, template_static_name, template_static_description, template_static) values ($sequence, $name, $description, $template)}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(select * from templates_static where template_static_name = $name); &findAllStaticTemplates($q); # start the html &displaySimpleHelpMessage (271, 1); # display it for confirmation &displayTabledStaticTemplateOutput; } } sub displayTabledStaticTemplateOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#templateStaticIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
IDNameAction
$templateStaticIDs[$i]$templateStaticNames[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub deleteStaticTemplate { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (277, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the libraries from the libraries table my $q = qq(delete from templates_static where template_static_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (273, 1); } } sub listAllStaticTemplates { # find the record just added $q = qq(select * from templates_static order by template_static_name); &findAllStaticTemplates($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (276, 1); # display it for confirmation &displayTabledStaticTemplateOutput; } sub editStaticTemplate { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (274, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(select * from templates_static where template_static_id = "$id"); &findAllStaticTemplates($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (272, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "
ItemSelection
ID$templateStaticIDs[0]
Name
Description
Template\n); print "
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateStaticTemplate { # get the input my $id = $gDBhandle->quote($input->param('id')); my $name = $gDBhandle->quote($input->param('name')); my $description = $gDBhandle->quote($input->param('description')); my $template = $gDBhandle->quote($input->param('template')); # create the query and update the database my $q = qq(update templates_static set template_static_name = $name, template_static_description = $description, template_static = $template where template_static_id = $id); &prepareAndExecuteSQL ($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (275, 1); } ######################## # free templates admin # ######################## sub displayFreeTemplateMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (258, 1); print qq(
    ); print qq(
  1. Create a new free template); print qq(
  2. Find and then edit or delete a free template); print qq(
  3. Edit a free template); print qq(
  4. Delete a free template); print qq(
); } sub updateFreeTemplate { # get the input my $id = $gDBhandle->quote($input->param('id')); my $name = $gDBhandle->quote($input->param('name')); my $description = $gDBhandle->quote($input->param('description')); my $template = $gDBhandle->quote($input->param('template')); # create the query and update the database my $q = qq(update templates_free set template_free_name = $name, template_free_description = $description, template = $template where template_free_id = $id); &prepareAndExecuteSQL ($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (264, 1); } sub editFreeTemplate { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (261, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(select * from templates_free where template_free_id = "$id"); &findAllFreeTemplates($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (263, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "
ItemSelection
ID$templateFreeIDs[0]
Name
Description
Template\n); print "
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub listAllFreeTemplates { # find the record just added $q = qq(select * from templates_free order by template_free_name); &findAllFreeTemplates($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (262, 1); # display it for confirmation &displayTabledFreeTemplateOutput; } sub deleteFreeTemplate { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (266, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the libraries from the libraries table my $q = qq(delete from templates_free where template_free_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (267, 1); } } sub displayTabledFreeTemplateOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#templateFreeIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
IDNameAction
$templateFreeIDs[$i]$templateFreeNames[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub createFreeTemplate { # start the output print $output->header(-expires => '-1d'); # check for submit button if (! $input->param('submit')) { # start the html &displaySimpleHelpMessage (259, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "
ItemSelection
Name
Description
Template\n); print "
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } # save their customizations else { # get the input my $name = $gDBhandle->quote($input->param('name')); my $description = $gDBhandle->quote($input->param('description')); my $template = $gDBhandle->quote($input->param('template')); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{insert into templates_free (template_free_id, template_free_name, template_free_description, template) values ($sequence, $name, $description, $template)}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(select * from templates_free where template_free_name = $name); &findAllFreeTemplates($q); # start the html &displaySimpleHelpMessage (265, 1); # display it for confirmation &displayTabledFreeTemplateOutput; } } ##################### # templates admin # ##################### sub displayTemplateMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (247, 1); print qq(
    ); print qq(
  1. Create a new template); print qq(
  2. Find and then edit or delete a template); print qq(
  3. Edit a template); print qq(
  4. Delete a template); print qq(
); } sub updateTemplate { # get the input my $id = $gDBhandle->quote($input->param('id')); my $name = $gDBhandle->quote($input->param('name')); my $description = $gDBhandle->quote($input->param('description')); my $template = $gDBhandle->quote($input->param('template')); # create the query and update the database my $q = qq(update templates set template_name = $name, template_description = $description, template = $template where template_id = $id); &prepareAndExecuteSQL ($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (253, 1); } sub editTemplate { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (251, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(select * from templates where template_id = "$id"); &findAllTemplates($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (252, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "
ItemSelection
ID$templateIDs[0]
Name
Description
Template\n); print "
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub listAllTemplates { # find the record just added $q = qq(select * from templates order by template_name); &findAllTemplates($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (250, 1); # display it for confirmation &displayTabledTemplateOutput; } sub createTemplate { # start the output print $output->header(-expires => '-1d'); # check for submit button if (! $input->param('submit')) { # start the html &displaySimpleHelpMessage (248, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "
ItemSelection
Name
Description
Template\n); print "
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } # save their customizations else { # get the input my $name = $gDBhandle->quote($input->param('name')); my $description = $gDBhandle->quote($input->param('description')); my $template = $gDBhandle->quote($input->param('template')); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{insert into templates (template_id, template_name, template_description, template) values ($sequence, $name, $description, $template)}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(select * from templates where template_name = $name); &findAllTemplates($q); # start the html &displaySimpleHelpMessage (249, 1); # display it for confirmation &displayTabledTemplateOutput; } } sub displayTabledTemplateOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#templateIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
IDNameAction
$templateIDs[$i]$templateNames[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub deleteTemplate { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (254, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the libraries from the libraries table my $q = qq(delete from templates where template_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (255, 1); } } ##################### # libraries admin # ##################### sub displayLibrariesMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (108, 1); print qq(
    ); print qq(
  1. Create a $gLibraryLinks item); print qq(
  2. Find and then edit or delete a $gLibraryLinks item); print qq(
  3. Edit a $gLibraryLinks item); print qq(
  4. Delete a $gLibraryLinks item); print qq(
); } sub displayLibrariesInputForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (109, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; print "
ItemSelectionDescription
F KeyForeign key
LibrariesEnter a libraries term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createLibraries { # get the input my $name = $gDBhandle->quote($input->param('name')); my $url = $gDBhandle->quote($input->param('url')); my $note = $gDBhandle->quote($input->param('note')); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # INSERT ERROR CHECKING HERE! # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{INSERT INTO libraries (libraries_id, libraries_name, libraries_url, libraries_note, libraries_date, libraries_lcd, libraries_fkey) VALUES ($sequence, $name, $url, $note, '$today', '$lcd', '$fkey')}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM libraries WHERE libraries_name = $name); &findAllLibraries($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (110, 1); # display it for confirmation &displayTabledLibrariesOutput; } sub displayTabledLibrariesOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#librariesIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
ID$gLibraryLinks itemDateAction
$librariesIDs[$i]$librariesNames[$i]$librariesDates[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayLibrariesFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (111, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayLibrariesSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(select * from libraries where libraries_name $searchOperator "$searchString" order by libraries_name); &findAllLibraries($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (112, 1); # display the results &displayTabledLibrariesOutput; } sub deleteLibraries { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (113, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the libraries from the libraries table my $q = qq(delete from libraries where libraries_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4libraries where libraries_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (114, 1); } } sub editLibraries { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (115, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(select * from libraries where libraries_id = "$id"); &findAllLibraries($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (116, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); if ($librariesLCDs[0]) { print qq(\n); } else { print qq(\n); } print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; print "
ItemSelectionDescription
ID$librariesIDs[0]Record number
Date$librariesDates[0]Last modified
F KeyForeign key
$gLibraryLinks itemEnter a $gLibraryLinks term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateLibraries { # get the input my $id = $input->param('id'); my $name = $input->param('name'); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # create the query and update the database my $q = qq(UPDATE libraries SET libraries_name = '$name', libraries_url = '$url', libraries_note = $note, libraries_date = '$today', libraries_lcd = '$lcd', libraries_fkey = '$fkey' WHERE libraries_id = '$id'); &prepareAndExecuteSQL ($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (117, 1); } ##################### # librarians admin # ##################### sub displayLibrariansMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (82, 1); # display the menu print qq(
    ); print qq(
  1. Create librarian); print qq(
  2. Find and then edit or delete a librarian); #print qq(
  3. Edit librarian); #print qq(
  4. Delete librarian); print qq(
); } sub displayLibrariansInputForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (83, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; # get and display all the disciplines &displayAllDisciplines; # end the table print "
ItemSelectionDescription
NameEnter the librarian's name
Email addressWhat is their email address?
Telephone number\n); print qq(\n); print qq(\n); print qq(\n); print qq(Enter the telephone number?
URLWhat is the URL of their home page?
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createLibrarians { # get the input my $name = $gDBhandle->quote($input->param('name')); my $email = $input->param('email'); my $area = $input->param('area'); my $start = $input->param('start'); my $end = $input->param('end'); my $url = $input->param('url'); my @disciplineIDs = $input->param('disciplineIDs'); # INSERT ERROR CHECKING HERE! # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq(INSERT INTO librarians (librarian_id, name, telephone_area, telephone_start, telephone_end, email_address, url) values ('$sequence', $name, '$area', '$start', '$end', '$email', '$url')); &prepareAndExecuteSQL($q); # find the record just added $q = qq(select * from librarians where librarian_id = '$sequence'); &findLibrarians($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4librarians (discipline_id, librarian_id) values ('$disciplineIDs[$i]', '$librarianIDs[0]')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (84, 1); # display it for confirmation &displayTabledLibrariansOutput; } sub displayTabledLibrariansOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#librarianIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; } # end the table print "
IDLibrariansAction
$librarianIDs[$i]$librarianNames[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayLibrariansFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (85, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayLibrariansSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(SELECT * FROM librarians WHERE name $searchOperator "$searchString" order by name); &findLibrarians($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (86, 1); # display the results &displayTabledLibrariansOutput; } sub deleteLibrarians { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (87, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the librarian from the librarian table my $q = qq(delete from librarians where librarian_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4librarians where librarian_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (88, 1); } } sub editLibrarians { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (89, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # find the record to edit $q = qq(select * from librarians where librarian_id = "$id"); &findLibrarians($q); # find the linked items for librarians $q = qq(select discipline_id from items4librarians where librarian_id = '$id'); &findItems4Librarians($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (90, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
ID$librarianIDs[0]Record number
NameEnter the librarian's name
Email addressWhat is their email address?
Telephone number\n); print qq(\n); print qq(\n); print qq(\n); print qq(Enter the telephone number?
URLWhat is the URL of their home page?
Disciplines\n); # process every discipline id for ($i = 0; $i <= $#disciplineIDs; $i++) { # check to see if the reference was Previously Selected my $ps = 0; for $m (@I4LibrariansIDs) { if ($disciplineIDs[$i] eq $m) { $ps = 1; last; } } if ($ps) { print qq($disciplineNames[$i]
\n); } else { print qq($disciplineNames[$i]
\n); } } print qq(		Select the disciplines.
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateLibrarians { # get the input my $id = $input->param('id'); my $name = $input->param('name'); my $email = $input->param('email'); my $area = $input->param('area'); my $start = $input->param('start'); my $end = $input->param('end'); my $url = $input->param('url'); my @disciplineIDs = $input->param('disciplineIDs'); # create the query and update the database my $q = qq(update librarians set name = '$name', email_address = '$email', telephone_area = '$area', telephone_start = '$start', telephone_end = '$end', url = '$url' where librarian_id = '$id'); &prepareAndExecuteSQL ($q); # delete any old item links 4 librarians $q = qq(delete from items4librarians where librarian_id = '$id'); &prepareAndExecuteSQL ($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4librarians (discipline_id, librarian_id) values ('$disciplineIDs[$i]', '$id')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (91, 1); } ################### # journals admin # ################### sub displayJournalMenu { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (118, 1); $q = "SELECT count(*) as conto from etexts"; &prepareAndExecuteSQL($q); $row=$gSth->fetchrow_hashref; my $conto = $row->{conto}; print qq(L'archivio contiene $conto Ricerche); print qq(
    ); print qq(
  1. Create a $gElectronicJournals item); print qq(
  2. Find and then edit or delete a $gElectronicJournals item); print qq(
  3. Edit a $gElectronicJournals item); print qq(
  4. Delete a $gElectronicJournals item); print qq(
); } sub displayJournalInputForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (119, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the disciplines &displayAllDisciplines; print "
ItemSelectionDescription
F KeyForeign key
$gElectronicJournalsEnter a $gElectronicJournals term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createJournal { # get the input my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # INSERT ERROR CHECKING HERE! # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # get a new sequence my $sequence = getNewSequence(); # create a query to update the journal and update it my $q = qq{INSERT INTO etexts (etext_id, etext_name, etext_url, etext_note, etext_date, etext_lcd, etext_fkey) VALUES ($sequence, $name, '$url', $note, '$today', '$lcd', '$fkey')}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM etexts WHERE etext_id = '$sequence'); &findAllJournals($q); # update discipline descriptions for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4DisEtexts (discipline_id, etext_id) VALUES ('$disciplineIDs[$i]', '$journalIDs[0]')); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (120, 1); # display it for confirmation &displayTabledJournalOutput; } sub displayTabledJournalOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#journalIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } # end table print "
ID$gElectronicJournalsDateAction
$journalIDs[$i]$journalNames[$i]$journalDates[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayJournalFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (121, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayJournalSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(SELECT * FROM etexts WHERE etext_name $searchOperator "$searchString" ORDER BY etext_name); &findAllJournals($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (122, 1); # display the results &displayTabledJournalOutput; } sub deleteJournal { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (123, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the journal from the journal table my $q = qq(DELETE FROM etexts where etext_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(DELETE FROM items4etexts where etext_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(DELETE FROM items4DisEtexts where etext_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (124, 1); } } sub editJournal { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (125, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(select * from etexts where etext_id = "$id"); &findAllJournals($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (126, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); if ($journalLCDs[0]) { print qq(\n); } else { print qq(\n); } print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the previouslyu selected disciplines &displayAllSelectedDisciplines ($id, "items4DisEtexts", "etext_id"); print "
ItemSelectionDescription
ID$journalIDs[0]Record number
Date$journalDates[0]Last modified
F KeyForeign key
$gElectronicJournalsEnter a $gElectronicJournals term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateJournal { # get the input my $id = $input->param('id'); my $name = $gDBhandle->quote($input->param('name')); my $url = $input->param('url'); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # create the query and update the journal my $q = qq(UPDATE etexts SET etext_name = $name, etext_url = '$url', etext_note = $note, etext_date = '$today', etext_lcd = '$lcd', etext_fkey = '$fkey' WHERE etext_id = '$id'); &prepareAndExecuteSQL ($q); # delete any old join relationships $q = qq(DELETE FROM items4DisEtexts WHERE etext_id = '$id'); &prepareAndExecuteSQL ($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq{INSERT INTO items4DisEtexts (discipline_id, etext_id) VALUES ('$disciplineIDs[$i]', '$id')}; &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (127, 1); } ############### # help admin # ############### sub setSimpleHelp { # read the contents of the form my $id = $input->param(help_id); my $helpTitle = $gDBhandle->quote($input->param(help_title)); my $helpText = $gDBhandle->quote($input->param(help_text)); # save the help text my $q = qq (update help_simple set help_title = $helpTitle, help_text = $helpText where help_id = "$id"); &prepareAndExecuteSQL ($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (60, 1); print "
\n"; print "Title: " . $input->param(help_title) . "
"; print "Text: ". $input->param(help_text); print "
\n"; } sub customizeSimpleHelp { # get the selected discipline-specific id my $id = $input->param('help'); if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (58, 1); # find all the help texts my $q = qq(select * from help_simple order by help_title); &findAllSimpleHelp($q); # print the list of help texts print "
    \n"; for ($i = 0; $i <= $#simpleHelpID; $i++) { print qq (
  1. $simpleHelpTitle[$i] (#$simpleHelpID[$i])\n); } print "
\n"; } else { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (59, 1); # get this message of the day $q = qq (select * from help_simple where help_id = '$id'); &findAllSimpleHelp($q); # start the form print "
\n"; print $output->startform(-method => 'POST', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setSimpleHelp'); print $output->hidden(-name => 'help_id', -default => "$id"); print "\n"; print qq(); print "\n"; print "\n"; print "\n"; print "\n"; print qq(); print ""; print ""; print ""; print ""; print qq(); print ""; print ""; print ""; print ""; print "
FieldSelectionDescription
Title"; print $output->textfield(-name => 'help_title', -size => '50', -default => "$simpleHelpTitle[0]"); print "What is the name of this Simple Help text?
Help text"; print qq(); print "Enter the help text here.
\n"; print "

"; print $output->submit(-name => 'submit', -value => 'Edit'); print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print "
\n"; print $output->endform; } } ##################### # discipline admin # ##################### sub displayAllSelectedDisciplines { # get the id, join table, and field my $id = @_[0]; my $table = @_[1]; my $field = @_[2]; # get all the disciplines for later use my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # find the linked disciplines $q = qq(select discipline_id from $table where $field = '$id'); &findItems4DisJoins($q); print ""; print qq(
Disciplines\n); # process every discipline id for ($i = 0; $i <= $#disciplineIDs; $i++) { # check to see if the reference was Previously Selected my $ps = 0; for $m (@I4DisJoinIDs) { if ($disciplineIDs[$i] eq $m) { $ps = 1; last; } } if ($ps) { print qq($disciplineNames[$i]
\n); } else { print qq($disciplineNames[$i]
\n); } } print qq(		Select the disciplines.
Disciplines\n); for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq($disciplineNames[$i]
\n); } print qq(		Select the disciplines.
\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
DisciplinesEnter a discipline term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "\n"; print "

\n"; print "\n"; } sub createDisciplines { # get the input my $name = $gDBhandle->quote($input->param('name')); # INSERT ERROR CHECKING HERE! # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{INSERT INTO disciplines (discipline_id, discipline_name) VALUES ($sequence, $name)}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM disciplines WHERE discipline_id = $sequence); &findAllDisciplines($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (94, 1); # display it for confirmation &displayTabledDisciplinesOutput; } sub displayTabledDisciplinesOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#disciplineIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
IDDisciplinesAction
$disciplineIDs[$i]$disciplineNames[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayDisciplinesFindForm { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (95, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayDisciplinesSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(SELECT * FROM disciplines WHERE discipline_name $searchOperator "$searchString" ORDER BY discipline_name); &findAllDisciplines($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (96, 1); # display the results &displayTabledDisciplinesOutput; } sub deleteDisciplines { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (97, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the discipline from the discipline table my $q = qq(delete from disciplines where discipline_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up #$q = qq(delete from items4disciplines where discipline_id = '$id'); #&prepareAndExecuteSQL($q); # delete default profile (call number ranges) from the default profiles table $q = qq(DELETE FROM defaultProfiles WHERE discipline_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (98, 1); } } sub editDisciplines { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (99, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(select * from disciplines where discipline_id = "$id"); &findAllDisciplines($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (100, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
ID$disciplineIDs[0]Record number
DisciplinesEnter a discipline term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateDisciplines { # get the input my $id = $input->param('id'); my $name = $gDBhandle->quote($input->param('name')); # create the query and update the database my $q = qq(UPDATE disciplines SET discipline_name = $name WHERE discipline_id = '$id'); &prepareAndExecuteSQL ($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (101, 1); } ##################### # discipline views # ##################### sub processCombination { # get the input my $IDs = @_[0]; my $defaults = @_[1]; my $URLs = @_[2]; my $names = @_[3]; my $combination = @_[4]; # branch according to the view if ($combination eq 'defaults') { print "

Default links

\n
    "; for ($i = 0; $i <= $#$IDs; $i++) { my $ps = 0; for ($j = 0; $j <= $#$defaults; $j++) { if ($IDs->[$i] eq $defaults->[$j]) { $ps = 1; last; } } if ($ps) { print qq(
  1. $names->[$i]\n); } } print "
"; } elsif ($combination eq 'non-defaults') { print "

Non-default links

\n
    "; for ($i = 0; $i <= $#$IDs; $i++) { my $ps = 0; for ($j = 0; $j <= $#$defaults; $j++) { if ($IDs->[$i] eq $defaults->[$j]) { $ps = 1; last; } } if (! $ps) { print qq(
  1. $names->[$i]\n); } } print "
"; } elsif ($combination eq 'grouped') { print "

Default links

\n
    "; for ($i = 0; $i <= $#$IDs; $i++) { my $ps = 0; for ($j = 0; $j <= $#$defaults; $j++) { if ($IDs->[$i] eq $defaults->[$j]) { $ps = 1; last; } } if ($ps) { print qq(
  1. $names->[$i]\n); } } print "
"; print "

Non-default links

\n
    "; for ($i = 0; $i <= $#$IDs; $i++) { my $ps = 0; for ($j = 0; $j <= $#$defaults; $j++) { if ($IDs->[$i] eq $defaults->[$j]) { $ps = 1; last; } } if (! $ps) { print qq(
  1. $names->[$i]\n); } } print "
"; } elsif ($combination eq 'alphabetical') { print "

Alphabetical list

\n
    "; for ($i = 0; $i <= $#$IDs; $i++) { my $ps = 0; for ($j = 0; $j <= $#$defaults; $j++) { if ($IDs->[$i] eq $defaults->[$j]) { $ps = 1; last; } } if ($ps) { print qq(
  1. $names->[$i] *\n); } else { print qq(
  2. $names->[$i]\n); } } print "
"; } else { &returnError ("Programmer error; Unknown combination ($combination). ") } } sub displayDisciplineView { # read the contents of the form my $id = $input->param(disciplineID); my @sections = $input->param(sections); my $combination = $input->param(combination); # get the discipline ID's name $q = qq(select * from disciplines where discipline_id = $id); &findAllDisciplines($q); # get today my $today = strftime ("%m/%d/%Y", localtime(parsedate ('now', NOW))); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (211, 1); print "

$disciplineNames[0] as of $today

"; # process each section foreach $s (@sections) { if ($s eq 'libraries') { # find all the resources $q = qq(select * from libraries order by libraries_name); &findAllLibraries($q); $q = qq(select * from defaultLibraries where discipline_id = "$id"); &findDefaultResources($q, "libraries_id"); # display a header print "

Libraries links

"; # process the appropriate combination &processCombination (\@librariesIDs, \@defaultIDs, \@librariesURLs, \@librariesNames, $combination); } elsif ($s eq 'university') { # find all university resoruces $q = qq(select * from university order by university_name); &findAllUniversity($q); $q = qq(select * from defaultUniversity where discipline_id = "$id"); &findDefaultResources($q, "university_id"); # display a header print "

University links

"; # process the appropriate combination &processCombination (\@universityIDs, \@defaultIDs, \@universityURLs, \@universityNames, $combination); } elsif ($s eq 'quickSearches') { # find all quick search resoruces $q = qq(select * from qsearches order by qsearch_name); &findAllQSearches($q); $q = qq(select * from defaultQseaches where discipline_id = "$id"); &findDefaultResources($q, "qsearch_id"); # display a header print "

Quick Searches

"; # process the appropriate combination &processCombination (\@qSearchIDs, \@defaultIDs, \@qSearchURLs, \@qSearchNames, $combination); } elsif ($s eq 'references') { # find all reference shelf resoruces for this discipline $q = qq(select reference.reference_id, reference.reference_name, reference.reference_url, reference.reference_note from reference, items4DisReference where items4DisReference.discipline_id = $id and items4DisReference.reference_id = reference.reference_id order by reference.reference_name); &findAllReferences($q); $q = qq(select * from defaultReferences where discipline_id = "$id"); &findDefaultResources($q, "reference_id"); # display a header print "

Reference Shelf

"; # process the appropriate combination &processCombination (\@referenceIDs, \@defaultIDs, \@referenceURLs, \@referenceNames, $combination); } elsif ($s eq 'bibDatabases') { # find all bibliographic database resoruces for this discipline $q = qq(select bib_databases.bib_database_id, bib_databases.bib_database_name, bib_databases.bib_database_url, bib_databases.bib_database_note from bib_databases, items4DisBibdatabases where items4DisBibdatabases.discipline_id = $id and items4DisBibdatabases.bib_database_id = bib_databases.bib_database_id order by bib_databases.bib_database_name); &findAllDatabases($q); $q = qq(select * from defaultBibdatabases where discipline_id = "$id"); &findDefaultResources($q, "bib_database_id"); # display a header print "

Bibliographic databases

"; # process the appropriate combination &processCombination (\@databaseIDs, \@defaultIDs, \@databaseURLs, \@databaseNames, $combination); } elsif ($s eq 'ejournals') { # find all electronic journals resoruces for this discipline $q = qq (select etexts.etext_id, etexts.etext_name, etexts.etext_url, etexts.etext_note from etexts, items4DisEtexts where items4DisEtexts.discipline_id = $id and items4DisEtexts.etext_id = etexts.etext_id order by etexts.etext_name); &findAllJournals($q); $q = qq(select * from defaultEtexts where discipline_id = "$id"); &findDefaultResources($q, "etext_id"); # display a header print "

Electronic journals

"; # process the appropriate combination &processCombination (\@journalIDs, \@defaultIDs, \@journalURLs, \@journalNames, $combination); } else { print "

Programmer error: unknown section ($s). Call Eric.

" } } } sub displayDisciplineViewsMenu { # read all the discipline $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (210, 1); # start the form print qq(
    ); print qq(
    ); print qq(); # display a menu of all disciplines print qq(

  1. Select a discipline.

    ); print "\n"; # which sections do they want displayed? print qq(

  2. Which sections do you want in your output?

    ); print qq(
      ); print qq(
    • Library links); print qq(
    • University links); # check for quick searches if ($gShowQuickSearches) { print qq(
    • Quick Searches); } print qq(
    • Reference Shelf); print qq(
    • Bibliographic databases); print qq(
    • Electronic Journals); print qq(
    ); # which sections do they want displayed? print qq(

  3. What combination of recommended/non-recommended resources do you want?

    ); print qq(
      ); print qq(
    • Just the recommended resources); print qq(
    • Just the non-recommended resources); print qq(
    • Grouped list of all resources); print qq(
    • Alphabetical list of all resources); print qq(
    ); # end the form print qq(

  4. ); print qq(
    5. ); print qq(
); } ####################### # discipine profiles # ####################### sub editDisciplineProfiles { # get the discipline id my $id = $input->param('id'); my $profileID = $input->param('profileID'); my $lowerBounds = $input->param('lower_bounds'); my $upperBounds = $input->param('upper_bounds'); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (246, 1); # check for a discipline id if (! $id) { # get all the disciplines my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # display a list of disciplines print qq(
"; print "\n); print "\n"; print "
"; # graceful exit &gracefulExit; } # check for profile id if ($profileID) { # create and execute a DELETE command my $q = qq(DELETE FROM defaultProfiles WHERE defaultProfile_id = '$profileID'); &prepareAndExecuteSQL ($q); } # check for lower bounds, assuming there is an upper bounds if ($lowerBounds) { # get a new sequence my $sequence = getNewSequence(); # create and execute an INSERT statement my $q = qq[INSERT INTO defaultProfiles (defaultProfile_id, discipline_id, lower_bounds, upper_bounds) VALUES ('$sequence', '$id', '$lowerBounds', '$upperBounds')]; &prepareAndExecuteSQL ($q); } # get the discipline id's name my $q = "select * from disciplines where discipline_id = '$id'"; &findAllDisciplines($q); print "

Editing the profiles for the discipline $disciplineNames[0].

"; # display the form print qq(
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
ItemValueDescription
Lower boundsEnter the lowest call number.
Upper boundsEnter the highest call number.
"; print "

"; print "
"; # find the previously created profiles $q = "SELECT * FROM defaultProfiles WHERE discipline_id = '$id' ORDER BY lower_bounds"; &findAllDefaultProfiles($q); # check for previously created profiles if ($#defaultProfileIDs > -1) { # list previously created profiles and allow them to be deleted print "Previously created profiles for $disciplineNames[0]."; print "
    "; for ($i = 0; $i <= $#defaultProfileIDs; $i++) { print qq{
  1. $lowerBounds[$i] - $upperBounds[$i] (Delete)}; } print "
"; } } ##################### # static html pages # ##################### sub displayDisciplinePagesMenu { # check for host if (! $CONFIGURATIONS{'gRemoteDisciplinePagesHost'}) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (243, 1); # quit &gracefulExit; } # check for username if (! $CONFIGURATIONS{'gRemoteDisciplinePagesUsername'}) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (241, 1); # quit &gracefulExit; } # check for password if (! $CONFIGURATIONS{'gRemoteDisciplinePagesPassword'}) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (242, 1); # quit &gracefulExit; } # check for root if (! $CONFIGURATIONS{'gRemoteDisciplinePagesRoot'}) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (245, 1); # quit &gracefulExit; } # check for htdocs if (! $CONFIGURATIONS{'gRemoteDisciplinePagesHTML'}) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (244, 1); # quit &gracefulExit; } # start the output print $output->header(); # start the html &displaySimpleHelpMessage (207, 1); print "
    "; print "
  1. Write sottocategorie page(s)"; print "
  2. Write alphabetic lists"; print "
  3. Write index.html file"; print "
"; } sub writeAlphabeticLists { # start the output print $output->header(-expires => '-1d'); # check for submit button if (! $input->param('submit')) { # find the record just added $q = qq(select * from templates_static order by template_static_name); &findAllStaticTemplates($q); # start the html &displaySimpleHelpMessage (207, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print "
ItemSelectionDescription
TemplateSelect a template
Resources); print "$gLibraryLinks
"; print "$gUniversityLinks
"; print "$gReferenceShelf
"; print "$gBibliographicDatabaseLinks
"; print "$gElectronicJournals"; print qq(		Select resource types
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get my input my $id = $input->param('template_id'); my @resourceTypes = $input->param('resource_types'); # scope sum variables my $title; my $resourceList; my $outfile; my $q; # get the template $q = qq(SELECT * FROM templates_static WHERE template_static_id = '$id'); &findAllStaticTemplates($q); # process every resource type for ($i = 0; $i <= $#resourceTypes; $i++) { $resourceList = ''; # fill up the token list %tokens = ( title => $title, resourceList => $resourceList ); # open the output file open (OUTFILE, "> /tmp/$outfile"); print OUTFILE &fillTemplate($templatesStatic[0], \%tokens); close OUTFILE; # move the file to its home &putFiles ($outfile); print "

http://$CONFIGURATIONS{'gRemoteDisciplinePagesHost'}$CONFIGURATIONS{'gRemoteDisciplinePagesHTML'}/$outfile

"; } } } sub createDisciplinePages { # scope sum stuff my $q; # start the output print $output->header(-expires => '-1d'); # check for submit button if (! $input->param('submit')) { # get all the disciplines $q = 'SELECT * FROM disciplines ORDER BY discipline_name'; &findAllDisciplines($q); # get all the templates $q = 'SELECT * FROM templates_static ORDER BY template_static_name'; &findAllStaticTemplates($q); # start the html &displaySimpleHelpMessage (207, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print "
ItemSelectionDescription
TemplateSelect a template
Disciplines); # process every discipline for ($i=0; $i <= $#disciplineIDs; $i++) { # display the discipline and checkbox print "$disciplineNames[$i]
"; } print qq(		Select the disciplines
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get the input my $id = $input->param('template_id'); my @disciplineIDs = $input->param('disciplineIDs'); # scope sum variables my $disciplineTitle; my $referenceTitle; my $referenceList; my $bibDatabaseTitle; my $bibDatabaseList; my $ejournalTitle; my $ejournalList; # get the template $q = qq(SELECT * FROM templates_static WHERE template_static_id = '$id'); &findAllStaticTemplates($q); # flush the output $| = 1; # start the html print "There are " . ($#disciplineIDs + 1) . " disciplines to process..."; print ""; print "Done."; } } sub mungeDisciplineName { # get the input my $f = @_[0]; # translate funny characters to dashes $f =~ s/\W/\-/g ; # remove dash dash $f =~ s/\-\-/\-/g ; # make it lower case $f = lc($f); # done return $f; } sub writeDisciplineIndexFile { # scope sum stuff my $q; # start the output print $output->header(-expires => '-1d'); # check for submit button if (! $input->param('submit')) { # get all the disciplines $q = 'select * from disciplines order by discipline_name'; &findAllDisciplines($q); # get all the templates $q = 'select * from templates_static order by template_static_name'; &findAllStaticTemplates($q); # start the html &displaySimpleHelpMessage (207, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print "
ItemSelectionDescription
TemplateSelect a template
File nameWhat files are read by default?
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # get the input my $id = $input->param('template_id'); my $filename = $input->param('filename'); # scope sum variables my $resourceList; my $disciplineList; my $outfile = $filename; # get the template $q = qq(SELECT * FROM templates_static WHERE template_static_id = '$id'); &findAllStaticTemplates($q); # get all the disciplines my $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # create resource list $resourceList = ''; # create discipline list $disciplineList = ''; # fill up the token list %tokens = ( resourceList => $resourceList, disciplineList => $disciplineList ); # save the file open (OUTFILE, "> /tmp/$outfile"); print OUTFILE &fillTemplate($templatesStatic[0], \%tokens); close OUTFILE; # move the file to its home &putFiles ($outfile); # start the html &displaySimpleHelpMessage (239, 1); print "Done. http://$CONFIGURATIONS{'gRemoteDisciplinePagesHost'}$CONFIGURATIONS{'gRemoteDisciplinePagesHTML'}/$outfile"; } } sub putFiles { # this routine comes from create.html.pl AND SHOULD BE MODULARIZED!!! # parameter list my $outfile = @_[0]; # flush out stream $| = 1; # establish a new FTP conneceton $ftpStream=Net::FTP->new($CONFIGURATIONS{'gRemoteDisciplinePagesHost'}) || returnError ("Failed to open ftp connection at $CONFIGURATIONS{'gRemoteDisciplinePagesHost'}: $@\n"); # login $user with $password $ftpStream->login($CONFIGURATIONS{'gRemoteDisciplinePagesUsername'}, $CONFIGURATIONS{'gRemoteDisciplinePagesPassword'}) || returnError ("Failed to login to $CONFIGURATIONS{'gRemoteDisciplinePagesHost'}\n"); # change directories $ftpStream->cwd($CONFIGURATIONS{'gRemoteDisciplinePagesRoot'}) || returnError ("Failed to CHDIR to $CONFIGURATIONS{'gRemoteDisciplinePagesRoot'} on $CONFIGURATIONS{'gRemoteDisciplinePagesHost'} (remote)\n"); # PUT files from local to remote $remoteFile = $outfile; $ftpStream->put("/tmp/$outfile", $remoteFile) || returnError ("Failed to put $outfile on $CONFIGURATIONS{'gRemoteDisciplinePagesHost'}\n"); # close FTP connection $ftpStream->quit() || returnError ("\n\nFailed to quit ftp connection\n"); # clean up by removing temp_file # `rm $outfile` || returnError ("Failed to remove temp_file $outfile on local host:$!.\n"); } ######################## # discipline defaults # ######################## sub setDisciplineDefaults { # read the contents of the form my $id = $input->param(disciplineID); my @librariesIDs = $input->param(librariesIDs); my @universityIDs = $input->param(universityIDs); my @qSearchIDs = $input->param(qSearchIDs); my @referenceIDs = $input->param(referenceIDs); my @databaseIDs = $input->param(databaseIDs); my @journalIDs = $input->param(journalIDs); # delete old LIBRARIES data and update it accordingly my $q = qq(delete from defaultLibraries where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#librariesIDs; $i++) { $q = qq(INSERT INTO defaultLibraries (discipline_id, libraries_id) values ("$id", "$librariesIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old UNIVERSITY data and update it accordingly my $q = qq(delete from defaultUniversity where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#universityIDs; $i++) { $q = qq(INSERT INTO defaultUniversity (discipline_id, university_id) values ("$id", "$universityIDs[$i]")); &prepareAndExecuteSQL($q); } # check for quick searches if ($gShowQuickSearches) { # delete old QUICK SEARCHES data and update it accordingly my $q = qq(delete from defaultQseaches where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#qSearchIDs; $i++) { $q = qq(INSERT INTO defaultQseaches (discipline_id, qsearch_id) values ("$id", "$qSearchIDs[$i]")); &prepareAndExecuteSQL($q); } } # delete old REFERENCE data and update it accordingly my $q = qq(delete from defaultReferences where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#referenceIDs; $i++) { $q = qq(INSERT INTO defaultReferences (discipline_id, reference_id) values ("$id", "$referenceIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old REFERENCE data and update it accordingly my $q = qq(delete from defaultReferences where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#referenceIDs; $i++) { $q = qq(INSERT INTO defaultReferences (discipline_id, reference_id) values ("$id", "$referenceIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old BIBLIOGRAPHIC DATABASES data and update it accordingly my $q = qq(delete from defaultBibdatabases where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#databaseIDs; $i++) { $q = qq(INSERT INTO defaultBibdatabases (discipline_id, bib_database_id) values ("$id", "$databaseIDs[$i]")); &prepareAndExecuteSQL($q); } # delete old JOURNALS data and update it accordingly my $q = qq(delete from defaultEtexts where discipline_id = "$id"); &prepareAndExecuteSQL($q); for ($i = 0; $i <= $#journalIDs; $i++) { $q = qq(INSERT INTO defaultEtexts (discipline_id, etext_id) values ("$id", "$journalIDs[$i]")); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (107, 1); } sub customizeDisciplineDefaults { # get the selected discipline-specific id my $id = $input->param('id'); if (! $id) { # read all the discipline MOTDs $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (105, 1); # display a menu of all disciplines print "
    \n"; for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq (
  1. $disciplineNames[$i]\n); } print "
\n"; } else { # find all the disciplines $q = qq (select * from disciplines order by discipline_name); &findAllDisciplines($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (106, 1); # start form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setDisciplineDefaults'); # display a pop-up list of disciplines print "

Disciplines

\n"; print qq("; # get all the LIBRARIES resources and display them $q = qq(select * from libraries order by libraries_name); &findAllLibraries($q); $q = qq(select * from defaultLibraries where discipline_id = "$id"); &findDefaultResources($q, "libraries_id"); print "

Libraries resources

\n"; print qq("; # get all the UNIVERSITY resources and display them $q = qq(select * from university order by university_name); &findAllUniversity($q); $q = qq(select * from defaultUniversity where discipline_id = "$id"); &findDefaultResources($q, "university_id"); print "

University resources

\n"; print qq("; # check for quick searches if ($gShowQuickSearches) { # get all the QUICK SEARCHES resources and display them $q = qq(select * from qsearches order by qsearch_name); &findAllQSearches($q); $q = qq(select * from defaultQseaches where discipline_id = "$id"); &findDefaultResources($q, "qsearch_id"); print "

Quick searches

\n"; print qq("; } # get all the REFERENCE resources and display them $q = qq(select reference.reference_id, reference.reference_name, reference.reference_url, reference.reference_note from reference, items4DisReference where items4DisReference.discipline_id = $id and items4DisReference.reference_id = reference.reference_id order by reference.reference_name); &findAllReferences($q); $q = qq(select * from defaultReferences where discipline_id = "$id"); &findDefaultResources($q, "reference_id"); print "

Reference resources

\n"; print qq("; # get all the BIBLIOGRAPHIC DATABASES resources and display them $q = qq(select bib_databases.bib_database_id, bib_databases.bib_database_name, bib_databases.bib_database_url, bib_databases.bib_database_note from bib_databases, items4DisBibdatabases where items4DisBibdatabases.discipline_id = $id and items4DisBibdatabases.bib_database_id = bib_databases.bib_database_id order by bib_databases.bib_database_name); &findAllDatabases($q); $q = qq(select * from defaultBibdatabases where discipline_id = "$id"); &findDefaultResources($q, "bib_database_id"); print "

Database resources

\n"; print qq("; # get all the JOURNALS resources and display them $q = qq(select etexts.etext_id, etexts.etext_name, etexts.etext_url, etexts.etext_note from etexts, items4DisEtexts where items4DisEtexts.discipline_id = $id and items4DisEtexts.etext_id = etexts.etext_id order by etexts.etext_name); &findAllJournals($q); $q = qq(select * from defaultEtexts where discipline_id = "$id"); &findDefaultResources($q, "etext_id"); print "

Journal resources

\n"; print qq("; # end the form print "

"; print $output->submit(-name => 'submit', -value => 'Edit'); print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print $output->endform; } } #################### # discipline motd # #################### sub setDisciplineMOTD { # read the contents of the form my $m = $gDBhandle->quote($input->param(dmotd)); my $id = $input->param(id); # save the motd my $q = qq (update disciplines set motd_text = $m where discipline_id = "$id"); &prepareAndExecuteSQL ($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (104, 1); # display the message print $input->param(dmotd); } sub customizeDisciplineMOTD { # get the selected discipline-specific id my $id = $input->param('id'); if (! $id) { # read all the discipline MOTDs $q = "select * from disciplines order by discipline_name"; &findAllDisciplines($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (102, 1); # display a menu of all disciplines print "
    \n"; for ($i = 0; $i <= $#disciplineIDs; $i++) { print qq (
  1. $disciplineNames[$i]\n); } print "
\n"; } else { # get this message of the day $q = qq (select * from disciplines where discipline_id = '$id'); &findAllDisciplines($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (103, 1); # start the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setDisciplineMOTD'); print $output->hidden(-name => 'id', -value => "$id"); print qq (); print "

\n"; print $output->submit(-name => 'submit', -value => 'Edit'); print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print $output->endform; print "
\n"; } } ################### # databases admin # ################### sub displayDatabaseMenu { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (138, 1); print qq(
    ); print qq(
  1. Create a $gBibliographicDatabaseLinks item); print qq(
  2. Find and then edit or delete a $gBibliographicDatabaseLinks item); print qq(
  3. Edit a $gBibliographicDatabaseLinks item); print qq(
  4. Delete a $gBibliographicDatabaseLinks item); print qq(
); } sub displayDatabaseInputForm { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (139, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the disciplines &displayAllDisciplines; print "
ItemSelectionDescription
F KeyForeign key
$gBibliographicDatabaseLinksEnter a $gBibliographicDatabaseLinks term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub createDatabase { # get the input my $name = $gDBhandle->quote($input->param('name')); my $url = $gDBhandle->quote($input->param('url')); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # INSERT ERROR CHECKING HERE! # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # get a new sequence my $sequence = getNewSequence(); # create a query to update the database and update it my $q = qq{INSERT INTO bib_databases (bib_database_id, bib_database_name, bib_database_url, bib_database_note, bib_database_date, bib_database_lcd, bib_database_fkey) VALUES ($sequence, $name, $url, $note, '$today', '$lcd', '$fkey')}; &prepareAndExecuteSQL($q); # find the record just added $q = qq(SELECT * FROM bib_databases WHERE bib_database_id = '$sequence'); &findAllDatabases($q); # update discipline descriptions for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq{INSERT INTO items4DisBibdatabases (discipline_id, bib_database_id) VALUES ($disciplineIDs[$i], $databaseIDs[0])}; &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (140, 1); # display it for confirmation &displayTabledDatabaseOutput; } sub displayTabledDatabaseOutput { # display the search results table print "
"; print "

"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; for ($i = 0; $i <= $#databaseIDs; $i++) { print "\n"; print qq(\n); print qq(\n); print qq(\n); print qq(\n); print "\n"; } print "
ID$gBibliographicDatabaseLinksDateAction
$databaseIDs[$i]$databaseNames[$i]$databaseDates[$i]Edit or Delete
\n"; print "

\n"; print "
\n"; } sub displayDatabaseFindForm { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (141, 1); # display the search form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq(\n"; print "\n"; print "\n"; print "\n"; print qq (\n); print qq(\n); print qq("; print "\n"; print "\n"; print "
ItemSelectionDescription
Operator\n); print qq(\n"; print "Select an operator
Search string\n); print qq(\n); print "Enter a query term
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } sub displayDatabaseSearchResults { # get the input my $searchOperator = $input->param('searchOperator'); my $searchString = $input->param('searchString'); # INSERT ERROR CHECKING HERE! # create a query and execute it my $q = qq(SELECT * FROM bib_databases WHERE bib_database_name $searchOperator "$searchString" ORDER BY bib_database_name); &findAllDatabases($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (142, 1); # display the results &displayTabledDatabaseOutput; } sub deleteDatabase { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (143, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # delete the database from the database table my $q = qq(delete from bib_databases where bib_database_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4bibdatabases where bib_database_id = '$id'); &prepareAndExecuteSQL($q); # delete any links from the join table; clean up $q = qq(delete from items4DisBibdatabases where bib_database_id = '$id'); &prepareAndExecuteSQL($q); # start the output print $output->header(); # start the html &displaySimpleHelpMessage (144, 1); } } sub editDatabase { # get the input my $id = $input->param('id'); # check for id's existance if (! $id) { # start the output print $output->header(); # start the html &displaySimpleHelpMessage (145, 1); # display an input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print "
ItemSelectionDescription
IDEnter a record ID
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } else { # find the record to edit my $q = qq(SELECT * FROM bib_databases WHERE bib_database_id = '$id'); &findAllDatabases($q); # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (146, 1); # display the input form print "
"; print "

"; print qq(

\n); print qq(\n); print qq(\n); print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print qq(\n); print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print "\n"; print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n); print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); if ($databaseLCDs[0]) { print qq(\n); } else { print qq(\n); } print "\n"; print "\n"; print ""; print qq(\n); print qq(\n); print qq(\n"; print "\n"; # get and display all the previouslyu selected disciplines &displayAllSelectedDisciplines ($id, "items4DisBibdatabases", "bib_database_id"); print "
ItemSelectionDescription
ID$databaseIDs[0]Record number
Date$databaseDates[0]Last modified
F KeyForeign key
$gBibliographicDatabaseLinksEnter a $gBibliographicDatabaseLinks term
URLWhat is the URL?
LCDLCD Resource?
Description\n); print "Enter a scope note
\n"; print "

\n"; print "

\n"; print "\n"; print qq( \n); print qq(\n); print "

\n"; print "

\n"; print "
\n"; } } sub updateDatabase { # get the input my $id = $input->param('id'); my $name = $gDBhandle->quote($input->param('name')); my $url = $gDBhandle->quote($input->param('url')); my $note = $gDBhandle->quote($input->param('note')); my @disciplineIDs = $input->param('disciplineIDs'); my $lcd = $input->param('lcd'); my $fkey = $input->param('fkey'); # get today's date my $today = strftime ("%Y-%m-%d", localtime(parsedate ('now', NOW))); # create the query and update the database my $q = qq(UPDATE bib_databases SET bib_database_name = $name, bib_database_url = $url, bib_database_note = $note, bib_database_date = '$today', bib_database_lcd = '$lcd', bib_database_fkey = '$fkey' WHERE bib_database_id = '$id'); &prepareAndExecuteSQL ($q); # delete any old join relationships $q = qq(DELETE FROM items4DisBibdatabases WHERE bib_database_id = '$id'); &prepareAndExecuteSQL ($q); # update items for disclines for ($i = 0; $i <= $#disciplineIDs; $i++) { $q = qq(INSERT INTO items4DisBibdatabases (discipline_id, bib_database_id) VALUES ('$disciplineIDs[$i]', $id)); &prepareAndExecuteSQL($q); } # start the output print $output->header(-expires => '-1d'); # start the html &displaySimpleHelpMessage (147, 1); } ######################### # banner, motd, footer # ######################### sub customizeBanner { # get submit button my $submit = $input->param('submit'); # start the output print $output->header(); # check for submit if (! $submit) { # start the html &displaySimpleHelpMessage (54, 1); # output the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'customizeBanner'); print qq (); print "

\n"; print $output->submit(-name => 'submit', -value => 'Edit'); print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print "
\n"; print $output->endform; } else { # get the global message my $gBanner = $gDBhandle->quote($input->param('gBanner')); # update the database my $q = "UPDATE preferences SET banner = $gBanner"; &prepareAndExecuteSQL ($q); # start the html &displaySimpleHelpMessage (55, 1); # echo the input print $input->param('gBanner'); } } sub customizeMOTD { # get submit button my $submit = $input->param('submit'); # start the output print $output->header(); # check for submit if (! $submit) { # start the html &displaySimpleHelpMessage (56, 1); # output the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'customizeMOTD'); print qq (); print "

\n"; print $output->submit(-name => 'submit', -value => 'Edit'); print ' '; print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print "
\n"; print $output->endform; } else { # get the global message my $gGlobalMessage = $gDBhandle->quote($input->param('gGlobalMessage')); # update the database my $q = "UPDATE preferences SET global_message = $gGlobalMessage"; &prepareAndExecuteSQL ($q); # start the html &displaySimpleHelpMessage (57, 1); # echo the input print $input->param('gGlobalMessage'); } } sub customizeFooter { # get submit button my $submit = $input->param('submit'); # start the output print $output->header(); # check for submit if (! $submit) { # start the html &displaySimpleHelpMessage (54, 1); # output the form print "
\n"; print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'customizeFooter'); print qq (); print "

\n"; print $output->submit(-name => 'submit', -value => 'Edit'); print ' '; print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print "
\n"; print $output->endform; } else { # get the global message my $gFooter = $gDBhandle->quote($input->param('gFooter')); # update the database my $q = "UPDATE preferences SET footer = $gFooter"; &prepareAndExecuteSQL ($q); # start the html &displaySimpleHelpMessage (55, 1); # echo the input print $input->param('gFooter'); } } ############# # guestbook # ############# sub setGuestbook { # intilize the input my $name = $gDBhandle->quote($input->param('name')); my $email = $gDBhandle->quote($input->param('email')); my $canContact = $input->param('can_contact'); # calculate today's date my $today = strftime ("%Y/%m/%d", localtime(parsedate ("0 days ago", NOW))); # save the guest's name, etc. my $q = qq(insert into guestbook (name, email, can_contact, date_visited) values ($name, $email, '$canContact', '$today')); &prepareAndExecuteSQL ($q); } sub signGuestbook { # print a generic header print $output->header(-expires => '-1d'); # display the help message &displaySimpleHelpMessage(209, 1); # start the form print $output->startform(-method => 'GET', -action => './'); print $output->hidden(-name => 'cmd', -value => 'setGuestbook'); print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # name print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # email address print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # can contact print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # end the table print "
ItemSelectionDescription
\n"; print "Name\n"; print "\n"; print $output->textfield(-name => 'name'); print "\n"; print qq(What is your name?); print "
\n"; print "Email address"; print "\n"; print $output->textfield(-name => 'email'); print "\n"; print qq(What is your email address?); print "
\n"; print "Can contact\n"; print "\n"; print qq (Yes ); print qq (No); print "\n"; print qq(Would you like to be made aware of significant improvements to MyLibrary\@NCState?); print "
\n"; print "
\n"; # display the help message &displaySimpleHelpMessage(221, 0); # add a submit and reset button print "
\n"; print "

\n"; print $output->submit(-name => 'submit', -value => 'Continue'); print $output->reset(-name => 'Reset', -value => 'Reset'); print "

\n"; print "
\n"; # finish the form print $output->endform; } ############################################################################# # Autoload methods go after =cut, and are processed by the autosplit program. 1; __END__ # Below is the stub of documentation for your module. You better edit it! =head1 NAME MyLibrary - Perl extension for creating portals =head1 SYNOPSIS use MyLibrary; or perl -MMyLibrary -e 'print "$MyLibrary::VERSION\n"' =head1 DESCRIPTION MyLibrary.pm is a (large) Perl module used to create user-oriented, customizable interfaces to sets of Internet resources -- portals. As of this writting (December 13, 2000), the internals of the module are poorly documented. If they were better documented, then you would be able to more easily write scripts against the modules. As it stands now, you will have to download and install the MyLibrary-scripts from the following URL: http://hegel.lib.ncsu.edu/development/mylibrary/ At the very least, you must learn how to create a configuration file for any scripts, including the MyLibrary-scripts, that use the MyLibrary module. This is described in the next section, CONFIGURATION. =head1 CONFIGURATION Any scripts that use the MyLibrary module must initialize the underlying database, and quite possibly a number of other things. By feeding the name of a configuration file to the module, these things will be taken care of for you like this: my $config = "/usr/local/etc/mylibrary.cfg"; &MyLibrary::readConfig ("$config"); &MyLibrary::initalizeDBIO(); The result will be the creation of a number of internal, global variables used by the module. A configuration file is made up of case-sensitive name/value pairs. Lines begining with hash marks (#) are comments. Blank lines are ignored. The files must contain the following names in order to initialize database I/O: =over 4 =item 1 database - The name of the database containing the data to access. Example: database = mylibrary =item 2 dbhost - The name of the computer where the database resides. If the database resides on the same computer where the scripts are being executed, then the name of dbhost should be localhost. Example: dbhost = localhost =item 3 username - The name of the user who will be reading and writing to the database. Example: username = mylibrary =item 4 password - The password of username. Example: password = suprsecrit =item 5 dbDriver - The name of the database driver needed by the Perl DBI interface. As of this version of MyLibrary.pm (version 2.50), this value must always be mysql. Example: dbDriver = mysql =back If you plan to use the MyLibrary module to write CGI scripts, which is what it was originally written to do, then you need to tell the module where the CGI scripts reside on your file system. To do this you need two additional name/value pairs: =over 4 =item 1 gDocsRoot - This is the name of your HTTP server's root document directory. It is the path to the directory where your HTTP documents reside. Do not use a trailing slash. Example: gDocsRoot = /usr/local/apache/htdocs =item 2 gRelativePath - The name of the directory, under gDocsRoot, where the CGI script is saved. Again, do not use any trailing slashes. Example: gRelativePath = /development/mylibrary/sandbox =back The MyLibrary module has the ability to create sets of static HTML pages based on HTML templates and the content of the underlying database. Once created, these files are saved (PUT) on the local (or a remote) file system via FTP. In order to implement this feature, configuration files must contain the following five name/value pairs: =over 4 =item 1 gRemoteDisciplinePagesHost - The name of the host where files will be saved. This can be the local host, but it still must be fully qualified. Example: gRemoteDisciplinePagesHost = my.example.com =item 2 gRemoteDisciplinePagesUsername - The name of the user that will be initiating the FTP process. Example: gRemoteDisciplinePagesUsername = mylibrary =item 3 gRemoteDisciplinePagesPassword - The password of gRemoteDisciplinePagesUsername. Example: gRemoteDisciplinePagesPassword = reallySuprsecrit =item 4 gRemoteDisciplinePagesRoot - The full path name on gRemoteDisciplinePagesHost where the static files will be saved. As before, do not include a trailing slash. Example: gRemoteDisciplinePagesRoot = /usr/local/apache/htdocs/development/disciplines =item 5 gRemoteDisciplinePagesHTML - The path, relative to gRemoteDisciplinePagesHost's HTTP server document root, where the files will be available via a URL. This value will almost always be a subsection of gRemoteDisciplinePagesRoot. Example: gRemoteDisciplinePagesHTML = /development/disciplines =back There is one other possible name/value pair. It is an NCSU-ism denoting the use of the NC State University WRAP authentication protocol. If your institution is not using WRAP, then you can ignore this: =over 4 =item 1 gUsingWrap - A one (1) or a zero (0) denoting whether or not you are implementing WRAP. Most places can ignore this option or turn WRAP off by specifiying a zero. Example: gUsingWrap = 1 =back Here is a sample configuration file: database = mylibrary username = mylibrary password = kewlStuf dbhost = localhost dbDriver = mysql gDocsRoot = /usr/local/apache/htdocs gRelativePath = /development/mylibrary/sandbox gRemoteDisciplinePagesHost = my.example.edu gRemoteDisciplinePagesUsername = billy gRemoteDisciplinePagesPassword = bobbob gRemoteDisciplinePagesRoot = /usr/local/apache/htdocs/disciplines gRemoteDisciplinePagesHTML = /disciplines gUsingWrap = 1 Here are few helpful hints concerning configuration files. First of all, leave a trail behind you by liberally adding comments. Remember, comments are lines begining with hash (#) marks. Second, by creating multiple configuration files and specifying them in scripts, you can host multiple instances of MyLibrary databases without duplicating a whole lot of code. Third, since configuration files contain username/password combinations, set the ownership of configuration files so they are only readable by a select few, notably the user running your scripts. =head1 AUTHOR Eric Lease Morgan NCSU Libraries Box 7111, Room 2110, Raleigh, NC 27695-7111, USA eric_morgan@ncsu.edu http://www.lib.ncsu.edu/staff/morgan/ =head1 SEE ALSO This documentation is woefully inadequate. More information should be available at: http://hegel.lib.ncsu.edu/development/mylibrary/ =cut