[Koha-cvs] koha/intranet/cgi-bin/cataloguing get-imdb.php [rel_TG]

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_TG
Changes by:	Tumer Garip <tgarip1957>	07/03/10 01:23:04

Added files:
	intranet/cgi-bin/cataloguing: get-imdb.php 

Log message:
	fresh files for rel_TG

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/intranet/cgi-bin/cataloguing/get-imdb.php?cvsroot=koha&only_with_tag=rel_TG&rev=1.1.2.1

Patches:
Index: get-imdb.php
===================================================================
RCS file: get-imdb.php
diff -N get-imdb.php
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ get-imdb.php	10 Mar 2007 01:23:04 -0000	1.1.2.1
@@ -0,0 +1,98 @@
+<?php
+/*
+*The filepaths at the bottom of file are hardcode--change as necessary
+* note: allow_url_fopen = On in your php.ini should be On
+* safemode off --TG
+*/
+
+$website=$_GET['website'];
+$oldbiblionumber=$_GET['oldbiblionumber'];
+$websitesummary=$website."/plotsummary";
+$imdb_website_summary = file_get_contents("${websitesummary}"); //movie Summary
+
+$imdb_website = file_get_contents("${website}"); //movie PI
+
+$filename=substr($website,27,9).".xml";
+//include the parser-class
+require("classes/class.imdb_parser.php");
+
+//init the class
+$IMDB_Parser = new IMDB_Parser;
+
+// output movie-picture (html)
+print "<p>".$IMDB_Parser->getMoviePictureHtml($imdb_website)."</p>";
+
+// output movie-languages (array)
+ $xml='<?xml version="1.0" encoding="UTF-8"?>';
+$xml=$xml.'<record>';
+$xml.="<leader>     naa a22     7ar4500</leader>";
+foreach($IMDB_Parser->getMovieLanguage($imdb_website) as $value)
+{
+   $xml=$xml.'<datafield tag="40"><subfield code="a">'.$value.'</subfield></datafield>';
+}
+// output movie-title 
+$title=$IMDB_Parser->getMovieTitle($imdb_website);
+$date=substr($title,strlen($title)-5,4);
+$title= '<datafield tag="245"><subfield code="a">'.substr($title,0,strlen($title)-6).'</subfield>';
+$xml=$xml.$title;
+// output movie-directed by
+ $xml=$xml.'<subfield code="c">'.$IMDB_Parser->getMovieDirectedBy($imdb_website).'</subfield><subfield code="h">DVD</subfield></datafield>';
+// output movie-country (array)
+
+foreach($IMDB_Parser->getMovieCountry($imdb_website) as $value)
+{
+   $xml=$xml.'<datafield tag="260"><subfield code="a">'.$value.'</subfield><subfield code="c">'.$date.'</subfield></datafield>';
+}
+
+
+// output movie-tagline
+$xml=$xml.'<datafield tag="500"> <subfield code="a">'.$IMDB_Parser->getMovieTagline($imdb_website).'</subfield></datafield>';
+
+// output movie-plot
+$xml=$xml.'<datafield tag="520"> <subfield code="a">'.$IMDB_Parser->getMoviePlot($imdb_website).'</subfield></datafield>';
+// output movie-summary
+foreach($IMDB_Parser->getMovieSummary($imdb_website_summary) as $value)
+{
+$xml=$xml.'<datafield tag="520"> <subfield code="a">'.$value.'</subfield></datafield>';
+}
+// output movie-genres (array)
+
+foreach($IMDB_Parser->getMovieGenres($imdb_website) as $value)
+{
+   $xml=$xml.'<datafield tag="650"> <subfield code="a">'.$value.'</subfield></datafield>';
+}
+
+// output movie-actors (array)
+foreach($IMDB_Parser->getMovieActors($imdb_website) as $value)
+{
+ $xml=$xml.'<datafield tag="700"><subfield code="a">'.$value.'</subfield></datafield>';
+}
+
+
+
+
+// output movie-color
+//print "<br />Color: ".$IMDB_Parser->getMovieColor($imdb_website);
+
+$xml=$xml.'<datafield tag="856"><subfield code="u">'.$website.'</subfield></datafield>';
+
+// output movie-picture path
+ $xml=$xml.'<datafield tag="956"> <subfield code="u">'.$IMDB_Parser->getMoviePicture($imdb_website).'</subfield></datafield>';
+$xml=$xml.'</record>';
+
+$dvd=fopen('c:/webservices/koha/intranet/htdocs/uploaded-files/tmp-pdf/'.$filename,'w');
+fwrite($dvd,$xml);
+fclose($dvd);
+
+
+print  "<a href=\"javascript:Import()\">Get: $title</a>
+<script language=\"JavaScript\" type=\"text/javascript\">
+	function Import() {
+		opener.document.location=\"cataloguing/addbiblio.pl?z3950=1&DVDid=$filename&oldbiblionumber=$oldbiblionumber\";
+		self.close();
+		return false;
+	}
+</script>"
+;
+//header("Location: /cgi-bin/koha/mainpage.pl?xml=$xml");
+?>