[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.25,1.26

[doXulting]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2635/koha/admin

Modified Files:
        marc_subfields_structure.pl 
Log Message:
New stuff for authorities

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** marc_subfields_structure.pl 25 Jun 2004 09:17:49 -0000      1.25
--- marc_subfields_structure.pl 6 Jul 2004 13:15:11 -0000       1.26
***************
*** 198,201 ****
--- 198,202 ----
                $row_data{isurl} = 
CGI::checkbox("isurl$i",$data->{'isurl'}?'checked':'',1,'');
                $row_data{bgcolor} = $toggle;
+               $row_data{link} = CGI::escapeHTML($data->{'link'});
                push(@loop_data, \%row_data);
                $i++;
***************
*** 239,242 ****
--- 240,244 ----
                                        -multiple=>0,
                                        );
+               $row_data{link} = CGI::escapeHTML($data->{'link'});
                $row_data{bgcolor} = $toggle;
                push(@loop_data, \%row_data);
***************
*** 256,261 ****
        my $dbh = C4::Context->dbh;
        $template->param(tagfield => "$input->param('tagfield')");
!       my $sth=$dbh->prepare("replace marc_subfield_structure 
(tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,authtypecode,value_builder,hidden,isurl,frameworkcode)
!                                                                       values 
(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
        my @tagsubfield = $input->param('tagsubfield');
        my @liblibrarian        = $input->param('liblibrarian');
--- 258,263 ----
        my $dbh = C4::Context->dbh;
        $template->param(tagfield => "$input->param('tagfield')");
!       my $sth=$dbh->prepare("replace marc_subfield_structure 
(tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,authtypecode,value_builder,hidden,isurl,frameworkcode,
 link)
!                                                                       values 
(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
        my @tagsubfield = $input->param('tagsubfield');
        my @liblibrarian        = $input->param('liblibrarian');
***************
*** 267,270 ****
--- 269,273 ----
        my @authtypecodes       = $input->param('authtypecode');
        my @value_builder       =$input->param('value_builder');
+       my @link                =$input->param('link');
        for (my $i=0; $i<= $#tagsubfield ; $i++) {
                my $tagfield                    =$input->param('tagfield');
***************
*** 283,286 ****
--- 286,290 ----
                my $hidden = $input->param("hidden$i")?1:0;
                my $isurl = $input->param("isurl$i")?1:0;
+               my $link = $link[$i];
                if ($liblibrarian) {
                        unless (C4::Context->config('demo') eq 1) {
***************
*** 300,304 ****
                                                                        $isurl,
                                                                        
$frameworkcode,
!                                                                       );
                        }
                }
--- 304,310 ----
                                                                        $isurl,
                                                                        
$frameworkcode,
! 
!        $link,
!                                             );
                        }
                }