[Koha-cvs] koha/cards createcards.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   08/05/08 16:03:59

Modified files:
        cards          : createcards.pl 

Log message:
        More updates.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cards/createcards.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.3&r2=1.1.2.4

Patches:
Index: createcards.pl
===================================================================
RCS file: /sources/koha/koha/cards/Attic/createcards.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- createcards.pl      8 May 2008 15:55:44 -0000       1.1.2.3
+++ createcards.pl      8 May 2008 16:03:58 -0000       1.1.2.4
@@ -330,6 +330,12 @@
     ( $cardNumber, $line ) = printLines( $cardNumber, $line, $indentStyle = 
'none', $item, $header, @abstract );
 
     my $marc = MARC::Record->new_from_usmarc( $item->{'marc'} );
+    
+    my $lccn = $marc->field('010')->subfield('a');
+    if ( $lccn ) {
+      ( $cardNumber, $line ) = printLine( "LCCN: " . $lccn, $cardNumber, 
$line, my $indent = 1, $item, $header );
+    }
+    
     my @isbns = $marc->field('020');
     my $isbnCount = 0;
     my $isbnLine = 'ISBN: ';
@@ -380,7 +386,23 @@
     my @shelfData = getShelfData( $item );
     ( $cardNumber, $line ) = printLines( $cardNumber, $line, $indentStyle, 
$item, $header, @shelfData );
     
-    ( $cardNumber, $line ) = printLine( 'ISBN: ' . $item->{'isbn'}, 
$cardNumber, $line, my $indent = 1, $item, $header );
+    my $marc = MARC::Record->new_from_usmarc( $item->{'marc'} );
+    
+    my $lccn = $marc->field('010')->subfield('a');
+    if ( $lccn ) {
+      ( $cardNumber, $line ) = printLine( "LCCN: " . $lccn, $cardNumber, 
$line, my $indent = 1, $item, $header );
+    }
+      
+    my @isbns = $marc->field('020');
+    my $isbnCount = 0;
+    my $isbnLine = 'ISBN: ';
+    foreach my $isbn ( @isbns ) {
+      if ( ++$isbnCount > 1 ) {
+        $isbnLine .= " | ";
+      }
+      $isbnLine .= $isbn->subfield('a');
+    }
+    ( $cardNumber, $line ) = printLine( $isbnLine, $cardNumber, $line, my 
$indent = 1, $item, $header );
 
     $line++;
     my @cardsList;