[Koha-cvs] koha/catalogue MARCdetail.pl [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/11/02 16:17:37

Modified files:
        catalogue      : MARCdetail.pl 

Log message:
        setting short desc to 20 char

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/MARCdetail.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.5.2.1&r2=1.5.2.2

Patches:
Index: MARCdetail.pl
===================================================================
RCS file: /sources/koha/koha/catalogue/MARCdetail.pl,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -u -b -r1.5.2.1 -r1.5.2.2
--- MARCdetail.pl       2 Nov 2006 14:57:33 -0000       1.5.2.1
+++ MARCdetail.pl       2 Nov 2006 16:17:37 -0000       1.5.2.2
@@ -159,7 +159,7 @@
                                next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
                                next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden});
                                my %subfield_data;
-                               
$subfield_data{short_desc}=substr($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{lib},0,15);
+                               
$subfield_data{short_desc}=substr($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{lib},0,20);
                                
$subfield_data{long_desc}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{lib};
                                
$subfield_data{link}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{link};
 #                              warn "tag : 
".$tagslib->{$fields[$x_i]->tag()}." subfield 
:".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}."lien koha? : 
"$subfield_data{link};