[Koha-cvs] CVS: koha/value_builder unimarc_field_100.pl,1.3,1.4 unimarc_field_225a.pl,1.1,1.2 unimarc_field_700-4.pl,1.2,1.3 unimarc_field_700_701_702.pl,1.1,1.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1:/tmp/cvs-serv30084/value_builder

Modified Files:
	unimarc_field_100.pl unimarc_field_225a.pl 
	unimarc_field_700-4.pl unimarc_field_700_701_702.pl 
Log Message:
adding authentification with Auth.pm

Index: unimarc_field_100.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_100.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** unimarc_field_100.pl	10 Dec 2002 13:53:22 -0000	1.3
--- unimarc_field_100.pl	12 Dec 2002 16:36:50 -0000	1.4
***************
*** 21,24 ****
--- 21,25 ----
  
  use strict;
+ use C4::Auth;
  use CGI;
  use C4::Context;
***************
*** 65,69 ****
  	my $dbh = C4::Context->dbh;
  
! 	my $template = gettemplate("value_builder/unimarc_field_100.tmpl",0);
  	my $f1 = substr($result,0,8);
  	my $f2 = substr($result,8,1);
--- 66,77 ----
  	my $dbh = C4::Context->dbh;
  
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "value_builder/unimarc_field_100.tmpl",
! 			     query => $input,
! 			     type => "intranet",
! 			     authnotrequired => 0,
! 			     flagsrequired => {parameters => 1},
! 			     debug => 1,
! 			     });
  	my $f1 = substr($result,0,8);
  	my $f2 = substr($result,8,1);
***************
*** 75,79 ****
  							"f2$f2" => $f2,
  							f4 => $f4);
! 	print "Content-Type: text/html\n\n", $template->output;
  }
  
--- 83,87 ----
  							"f2$f2" => $f2,
  							f4 => $f4);
! 	print $input->header(-cookie => $cookie),$template->output;
  }
  

Index: unimarc_field_225a.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_225a.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** unimarc_field_225a.pl	10 Dec 2002 13:53:22 -0000	1.1
--- unimarc_field_225a.pl	12 Dec 2002 16:36:50 -0000	1.2
***************
*** 21,24 ****
--- 21,25 ----
  
  use strict;
+ use C4::Auth;
  use CGI;
  use C4::Context;
***************
*** 79,83 ****
  	my $dbh = C4::Context->dbh;
  	my $authoritysep = C4::Context->preference("authoritysep");
! 	my $template = gettemplate("value_builder/unimarc_field_225a.tmpl",0);
  # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
  	my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
--- 80,91 ----
  	my $dbh = C4::Context->dbh;
  	my $authoritysep = C4::Context->preference("authoritysep");
! 	my ($template, $loggedinuser, $cookie)
! 	= get_template_and_user({template_name => "value_builder/unimarc_field_225a.tmpl",
! 					query => $input,
! 					type => "intranet",
! 					authnotrequired => 0,
! 					flagsrequired => {parameters => 1},
! 					debug => 1,
! 					});
  # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
  	my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
***************
*** 101,105 ****
  	$template->param(index => $index,
  							collection => $collection);
! 	print "Content-Type: text/html\n\n", $template->output;
  }
  
--- 109,113 ----
  	$template->param(index => $index,
  							collection => $collection);
! 	print $input->header(-cookie => $cookie),$template->output;
  }
  

Index: unimarc_field_700-4.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_700-4.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** unimarc_field_700-4.pl	10 Dec 2002 13:53:22 -0000	1.2
--- unimarc_field_700-4.pl	12 Dec 2002 16:36:50 -0000	1.3
***************
*** 21,24 ****
--- 21,25 ----
  
  use strict;
+ use C4::Auth;
  use CGI;
  use C4::Context;
***************
*** 85,94 ****
  	my $dbh = C4::Context->dbh;
  
! 	my $template = gettemplate("value_builder/unimarc_field_700-4.tmpl",0);
  	$template->param(index => $index,
  							index2 => $index2,
  							"f1_$result" => "f1_".$result,
  							);
! 	print "Content-Type: text/html\n\n", $template->output;
  }
  
--- 86,102 ----
  	my $dbh = C4::Context->dbh;
  
! 	my ($template, $loggedinuser, $cookie)
! 	= get_template_and_user({template_name => "value_builder/unimarc_field_700-4.tmpl",
! 					query => $input,
! 					type => "intranet",
! 					authnotrequired => 0,
! 					flagsrequired => {parameters => 1},
! 					debug => 1,
! 					});
  	$template->param(index => $index,
  							index2 => $index2,
  							"f1_$result" => "f1_".$result,
  							);
! 	print $input->header(-cookie => $cookie),$template->output;
  }
  

Index: unimarc_field_700_701_702.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_700_701_702.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** unimarc_field_700_701_702.pl	10 Dec 2002 13:53:22 -0000	1.1
--- unimarc_field_700_701_702.pl	12 Dec 2002 16:36:50 -0000	1.2
***************
*** 21,24 ****
--- 21,25 ----
  
  use strict;
+ use C4::Auth;
  use CGI;
  use C4::Context;
***************
*** 139,143 ****
  				);
  	}
! 	my $template = gettemplate("value_builder/unimarc_field_700_701_702.tmpl",0);
  # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
  	$template->param(index => $index,
--- 140,151 ----
  				);
  	}
! 	my ($template, $loggedinuser, $cookie)
! 	= get_template_and_user({template_name => "value_builder/unimarc_field_700_701_702.tmpl",
! 					query => $input,
! 					type => "intranet",
! 					authnotrequired => 0,
! 					flagsrequired => {parameters => 1},
! 					debug => 1,
! 					});
  # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
  	$template->param(index => $index,
***************
*** 149,153 ****
  							c => $c,
  							f => $f,);
! 	print "Content-Type: text/html\n\n", $template->output;
  }
  
--- 157,161 ----
  							c => $c,
  							f => $f,);
! 	print $input->header(-cookie => $cookie),$template->output;
  }