[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;
  }