3 # ISBNs in wiki pages will create links to this page, with
4 # the ISBN passed in via the query string.
6 function wfSpecialBooksources( $par )
12 $isbn = $wgRequest->getVal( 'isbn' );
14 $isbn = preg_replace( '/[^0-9X]/', '', $isbn );
16 $bsl = new BookSourceList( $isbn );
20 class BookSourceList
{
23 function BookSourceList( $isbn ) {
30 $wgOut->setPagetitle( wfMsg( "booksources" ) );
31 if( empty( $this->mIsbn
) ) {
39 global $wgOut, $wgUser, $wgLang;
40 $fname = "BookSourceList::showList()";
42 # First, see if we have a custom list setup in
43 # [[Wikipedia:Book sources]] or equivalent.
44 $bstitle = Title
::newFromText( wfmsg( "booksources" ) );
45 $sql = "SELECT cur_text FROM cur " .
46 "WHERE cur_namespace=4 and cur_title='" .
47 wfStrencode( $bstitle->getDBkey() ) . "'";
48 $res = wfQuery( $sql, DB_READ
, $fname );
49 if( ( $s = wfFetchObject( $res ) ) and ( $s->cur_text
!= "" ) ) {
50 $bstext = $s->cur_text
;
51 $bstext = str_replace( "MAGICNUMBER", $this->mIsbn
, $bstext );
53 $wgOut->addWikiText( $bstext );
57 # Otherwise, use the list of links in the default Language.php file.
58 $s = wfMsg( "booksourcetext" ) . "<ul>\n";
59 $bs = $wgLang->getBookstoreList() ;
60 $bsn = array_keys ( $bs ) ;
61 foreach ( $bsn as $name ) {
63 if ( ! $this->mIsbn
) {
64 $adr = explode( ":" , $adr , 2 );
65 $adr = explode( "/" , $adr[1] );
68 $a = array_shift( $adr );
72 $adr = str_replace ( "$1" , $this->mIsbn
, $adr ) ;
74 $name = htmlspecialchars( $name );
75 $adr = htmlspecialchars( $adr );
76 $s .= "<li><a href=\"{$adr}\" class=\"external\">{$name}</a></li>\n" ;
80 $wgOut->addHTML( $s );
84 global $wgOut, $wgLang, $wgTitle;
85 $fname = "BookSourceList::askForm()";
87 $action = $wgTitle->escapeLocalUrl();
88 $isbn = htmlspecialchars( wfMsg( "isbn" ) );
89 $go = htmlspecialchars( wfMsg( "go" ) );
90 $out = "<form action=\"$action\" method='post'>
91 $isbn: <input name='isbn' id='isbn' />
92 <input type='submit' value=\"$go\" />
94 $wgOut->addHTML( $out );