[Koha-cvs] CVS: koha MARCdetail.pl,1.5,1.6 thesaurus_popup.pl,1.5,1.6

Tue Nov 12 16:58:45 CET 2002

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

Modified Files:
	MARCdetail.pl thesaurus_popup.pl 
Log Message:
road to 1.3.2 :
* many bugfixes
* adding value_builder : you can map a subfield in the marc_subfield_structure to a sub stored in "value_builder" directory. In this directory you can create screen used to build values with any method. In this commit is a 1st draft of the builder for 100$a unimarc french subfield, which is composed of 35 digits, with 12 differents values (only the 4th first are provided for instance)

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** MARCdetail.pl	22 Oct 2002 15:52:00 -0000	1.5
--- MARCdetail.pl	12 Nov 2002 15:58:43 -0000	1.6
***************
*** 60,63 ****
--- 60,64 ----

  my $record =MARCgetbiblio($dbh,$bibid);
+ warn $record->as_formatted();
  # open template
  my $template = gettemplate("catalogue/MARCdetail.tmpl",0);

Index: thesaurus_popup.pl
===================================================================
RCS file: /cvsroot/koha/koha/thesaurus_popup.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** thesaurus_popup.pl	13 Oct 2002 11:32:45 -0000	1.5
--- thesaurus_popup.pl	12 Nov 2002 15:58:43 -0000	1.6
***************
*** 2,6 ****

  # written 10/5/2002 by Paul
! # build Subject field using bibliothesaurus table

--- 2,6 ----

  # written 10/5/2002 by Paul
! # build result field using bibliothesaurus table

***************
*** 25,31 ****
  use CGI;
  use C4::Context;
  use C4::Search;
! use C4::Circulation::Circ2;
  use C4::Output;

  # get all the data ....
--- 25,33 ----
  use CGI;
  use C4::Context;
+ use HTML::Template;
  use C4::Search;
! #use C4::Circulation::Circ2;
  use C4::Output;
+ #use C4::Biblio;

  # get all the data ....
***************
*** 33,91 ****

  my $input = new CGI;
! my $subject = $input->param('subject');
  my $search_string= $input->param('search_string');
  my $op = $input->param('op');
! my $freelib_text = $input->param('freelib_text');

  my $dbh = C4::Context->dbh;

  # make the page ...
! print $input->header;
  if ($op eq "select") {
! 	$subject .= "|$freelib_text";
  }
! print <<"EOF";
! 	<html>
! 	<head>
! 	<title>Subject builder</title>
! 	</head>
! 	<body>
! 	<form name="f_pop" action="thesaurus_popup.pl" method="post">
! 	<textarea name="subject" rows=10 cols=60>$subject </textarea></br>
! 	<p><input type="text" name="search_string" value="$search_string">
! 	<input type="hidden" name="op" value="search">
! 	<input type="submit" value="Search"></p>
! 	</form>
! EOF
  # /search thesaurus terms starting by search_string
! 	if ($search_string) {
! 		print '<form name="f2_pop" action="thesaurus_popup.pl" method="post">';
! 		print '<select name="freelib_text">';
! 		my $sti=$dbh->prepare("select freelib,stdlib from bibliothesaurus where freelib like '".$search_string."%'");
! 		$sti->execute;
! 		while (my $line=$sti->fetchrow_hashref) {
! 			print "<option value='$line->{'stdlib'}'>$line->{freelib}</option>";
! 		}
! 	print <<"EOF";
! 		</select>
! 		<input type="hidden" name="op" value="select">
! 		<input type="hidden" name="subject" value="$subject">
! 		<input type="submit" name="OK" value="OK">
! 		</form>
! EOF
  	}
! 	print <<"EOF";
! 		<form name="f3_pop" onSubmit="javascript:report()">
! 		<input type="submit" value="END">
! 		</form>
! 		<script>
! 		function report() {
! 			alert("REPORT");
! 			opener.document.f.subject.value= document.f_pop.subject.value;
! 			self.close();
! 			return false;
! 		}
! 		</script>
! 		</body>
! 		</html>
! EOF
--- 35,87 ----

  my $input = new CGI;
! my $result = $input->param('result');
  my $search_string= $input->param('search_string');
  my $op = $input->param('op');
! my $id = $input->param('id');
! my $category = $input->param('category');
! my $index= $input->param('index');

  my $dbh = C4::Context->dbh;

  # make the page ...
! #print $input->header;
  if ($op eq "select") {
! 	my $sti = $dbh->prepare("select stdlib from bibliothesaurus where id=?");
! 	$sti->execute($id);
! 	my ($freelib_text) = $sti->fetchrow_array;
! 	if (length($result)>0) {
! 		$result .= "|$freelib_text";
! 	} else {
! 		$result = $freelib_text;
! 	}
  }
! 
! my $template = gettemplate("thesaurus_popup.tmpl",0);
  # /search thesaurus terms starting by search_string
! my @freelib;
! my %stdlib;
! my $select_list;
! if ($search_string) {
! 	my $sti=$dbh->prepare("select id,freelib from bibliothesaurus where freelib like '".$search_string."%' and category ='$category'");
! 	$sti->execute;
! 	while (my $line=$sti->fetchrow_hashref) {
! 		$stdlib{$line->{'id'}} = "$line->{'freelib'}";
! 		push(@freelib,$line->{'id'});
  	}
! 	$select_list= CGI::scrolling_list( -name=>'id',
! 			-values=> \@freelib,
! 			-default=> "",
! 			-size=>1,
! 			-multiple=>0,
! 			-labels=> \%stdlib
! 			);
! }
! $template->param(select_list => $select_list,
! 						search_string => $search_string,
! 						result => $result,
! 						category => $category,
! 						index => $index
! 						);
! print "Content-Type: text/html\n\n", $template->output;
! 
! 