Turn ebooks AC from OpenLibrary into usable HTML
authordbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 27 Apr 2011 16:18:54 +0000 (16:18 +0000)
committerdbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 27 Apr 2011 16:18:54 +0000 (16:18 +0000)
Add <a> elements to turn URLs into links, and use the upper case
ebook format as the content of the link. "Read online" is the one
i18n-unfriendly exception, but this is a good start.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
git-svn-id: svn://svn.open-ils.org/ILS/trunk@20346 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/OpenLibrary.pm

index c3d6c07..7555223 100644 (file)
@@ -105,7 +105,7 @@ sub ebooks_html {
     # Internet Archive online reader
     my $stream_url = $ebooks_json->[0]->{'read_url'} || '';
     if ($stream_url) {
     # Internet Archive online reader
     my $stream_url = $ebooks_json->[0]->{'read_url'} || '';
     if ($stream_url) {
-        $ebook_html .= "<div class='ebook_stream'>$stream_url</div>\n";
+        $ebook_html .= "<li class='ebook_stream'><a href='$stream_url'>Read online</a></li>\n";
         $logger->debug("$key: stream URL = $stream_url");
     }
 
         $logger->debug("$key: stream URL = $stream_url");
     }
 
@@ -115,12 +115,12 @@ sub ebooks_html {
         if ($ebook_formats->{$ebook} eq 'read_url') {
             next;
         }
         if ($ebook_formats->{$ebook} eq 'read_url') {
             next;
         }
-        $ebook_html .= "<div class='$ebook'>" . 
-            $ebook_formats->{$ebook}->{'url'} . "</div>\n";
+        $ebook_html .= "<li class='ebook_$ebook'><a href='" . 
+            $ebook_formats->{$ebook}->{'url'} . "'>" . uc($ebook) . "</a></li>\n";
     }
 
     $logger->debug("$key: $ebook_html");
     }
 
     $logger->debug("$key: $ebook_html");
-    $self->send_html("<div class='ebooks'>$ebook_html</div>");
+    $self->send_html("<ul class='ebooks'>$ebook_html</ul>");
 }
 =head1
 
 }
 =head1