Solucionado deficiencia de caratula en Alpacine(ES)

legrad · Post by **legrad** » 2007-04-12 11:01:48

Pues eso...

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Legrad
Title=Alpacine
Description=
Site=www.alpacine.com
Language=ES
Version=1.0
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

***************************************************)

 

 program Alpacine;




var 
  MovieName: string; 
  MovieURL: string; 
//------------------------------------------------------------------------------------ 
function BorraComillas(var S: string): string; 
var 
   n,len, tag: Integer; 
   c: char; 
   t: String; 
begin 
   tag := 0; 
   t := ''; 
   len := length(s); 
   for n :=1 to len do 
   begin 
     c := Copy(s,n,1); 
     if c = '''' then 
        c := ' '; 
        t := t + c; 
   end 
   s := t; 
   result := t; 
end; 

//------------------------------------------------------------------ 
                              function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer; 
var 
  i: Integer; 
begin 
  Result := -1; 
  if StartAt < 0 then 
    StartAt := 0; 
  for i := StartAt to List.Count-1 do 
    if Pos(Pattern, List.GetString(i)) <> 0 then 
    begin 
      Result := i; 
      Break; 
    end; 
end; 
//------------------------------------------------------------------------------------ 
                      function TextBetween(var S: string; StartTag: string; EndTag: string): string; 
var 
  InitialPos: Integer; 
begin 
  InitialPos := Pos(StartTag, S); 
  if InitialPos = 0 then 
    result := '' 
  else 
  begin 
    Delete(S, 1, InitialPos + Length(StartTag) - 1); 
    InitialPos := Pos(EndTag, S); 
    if InitialPos = 0 then 
      result := S 
    else 
    begin 
      result := copy(S, 1, InitialPos - 1); 
      Delete(S, 1, InitialPos + 1); 
    end; 
  end; 
end; 

//------------------------------------------------------------------------------------ 
                               function DeleteTags(var S: string): string; 
var 
   n,len, tag: Integer; 
   c: char; 
   t: String; 
begin 

   tag := 0; 
   t := ''; 
   len := length(s); 

   for n :=1 to len do 
   begin 
      c := Copy(s,n,1); 


      if c = #9 then 
         c := ' '; 

      if(tag=1) then 
      begin 
         if(c='>') then tag := 0; 
         continue; 
      end 
      else 
      begin 
         if(c='<') then 
         begin 
            tag := 1; 
            continue; 
         end; 
         t := t + c; 
      end; 
   end 
   s := t; 
   result := t; 
end; 


//------------------------------------------------------------------------------------ 
procedure AnalyzePage(Address: string); 
var 
  strPage, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string; 
  BeginPos, EndPos: Integer; 
  BeginPoss, EndPoss: Integer; 
begin 
  strPage := GetPage(Address); 
  BeginPos := Pos('<a href="http://www.alpacine.com/pelicula/', strPage); 
  if(BeginPos > -1)then 
    begin 
      PickTreeClear; 
      Delete(strPage, 1, BeginPos); 
      BeginPos := Pos('<a href="http://www.alpacine.com/pelicula/', strPage); 
      EndPos := 1; 
      while ((BeginPos > 0) and (EndPos > 0)) do 

        begin 
          Delete(strPage, 1, BeginPos); 
          EndPos := Pos('">', strPage); 
          MovieId := Copy(strPage,+42, EndPos-42); 
          MovieAddr := 'http://www.alpacine.com/pelicula/' + MovieId; 
          BeginPoss := Pos('/">',strPage); 
          EndPoss := Pos(' </li>', strPage); 
          MovieTitle := Copy(strPage,BeginPoss, EndPoss); 
          MovieTitle  := StringReplace(MovieTitle , '/">', ''); 
          MovieTitle  := AnsiUpFirstLetter(MovieTitle); 
          DeleteTags(MovieTitle); 
          MovieTitle := StringReplace( MovieTitle , #13#10, ''); 
          PickTreeAdd(MovieTitle, MovieAddr); 
          BeginPos := Pos('<a href="http://www.alpacine.com/pelicula/', strPage); 
          if(Pos('</body>', strPage) < BeginPos) then 
           BeginPos := -1; 
        end; 

    end; 
    PickTreeExec(Address) 
    AnalyzeMoviePage(Address); 
end; 
//------------------------------------------------------------------------------------ 
procedure AnalyzeMoviePage(Address: string); 
var 
  Page: TStringList; 
  LineNr: Integer; 
  Line: string; 
  Item: string; 
  Comments: string; 
  Actors: string; 
  Directors: string; 
  Description: string;
  Busca: integer;


begin 
  Description := ''; 

  // URL 
  SetField(fieldURL, Address); 

  Page := TStringList.Create; 
  Page.Text := GetPage(Address); 

  // Titulo traducido 
  LineNr := FindLine('<meta name="description"', Page, 0); 
  Line := Page.GetString(LineNr); 
  Item := TextBetween (Line, 'content="', '-'); 
  Item  := AnsiLowerCase(Item); 
  Item  := AnsiUpFirstLetter(Item ); 
  HTMLDecode(Item); 
  SetField(fieldTranslatedTitle, Trim (Item)); 

  // Titulo Original 
  LineNr := FindLine('<b>Título original:', Page, 0); 
  if LineNr <> -1 then 
  begin 
    Line := Page.GetString(LineNr); 
    Item := TextBetween (Line, '</b>', '</div>'); 
    DeleteTags (Item); 
    Item  := AnsiUpFirstLetter(Item ); 
    HTMLDecode(Item); 
    SetField(fieldOriginalTitle, Trim (Item)); 
  end; 
  // año 
  LineNr := FindLine('<title>', Page, 0); 
  if LineNr <> -1 then 
  begin 
    Line := Page.GetString(LineNr); 
    Item := TextBetween (Line, '(', ')'); 
    DeleteTags (Item); 
    Item  := AnsiUpFirstLetter(Item ); 
    HTMLDecode(Item); 
    SetField(fieldYear, Trim (Item)); 
  end; 
  // Categoria 
  LineNr := FindLine('<b>Género:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Género:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldCategory, Trim (Item)); 
  end; 
   // pais 
  LineNr := FindLine('<b>País:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>País:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldCountry, Trim (Item)); 
  end; 
   // director 
  LineNr := FindLine('<b>Dirección:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Dirección:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldDirector, Trim (Item)); 
  end; 


  // Duracion 
  LineNr := FindLine('<b>Duración:', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Duración:',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '</b>', 'minutos'); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldLength, Trim (Item)); 
  end; 

  
  // Reparto 
  LineNr := FindLine('<b>Interpretación:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Interpretación:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '  ', ''); 
    Item  := StringReplace(Item , '<br />',#13#10); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldActors, Trim (Item)); 
  end; 

  
  // sinopsis 
 LineNr := FindLine('<b>Sinopsis:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Sinopsis:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '<br />', ' </div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldDescription, Trim (Item)); 
  end; 
  // comentarios 
 LineNr := FindLine('<b>Premios:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Premios:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '<br />', ' </div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    Item  := StringReplace(Item , 'Más', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldComments, Trim (Item)); 
  end;
  // Caratula
  LineNr := FindLine('src="http://www.alpacine.com/images/peliculas/', Page, 0);
  if LineNr <> -1 then
     begin
       Line := Page.GetString(LineNr);
       Busca := FindLine('>Ampliar</a>', Page, 0);
       if Busca <> -1 then
          begin
            Item := TextBetween (Line, 'src="', '.jpg');
            GetPicture (Item+'_cartel.jpg');
          end
       else
          begin
            Item := TextBetween (Line, 'src="', '" alt');
            GetPicture (Item);
          end
     end;
end;
 //-------------------------------------------------------------------------
begin 
       if (CheckVersion(3,5,0)=FALSe) then 
   begin 
      ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior'); 
      exit; 
   end; 

   MovieName := GetField(fieldTranslatedTitle); 
   if MovieName = '' then 
            MovieName := GetField(fieldOriginalTitle); 
Input('Alpacine', 'Buscar:', MovieName); 

     if(GetOption('Sin resultado') = 0) then  Input('Alpacine', 'Buscar:', MovieName); 

   AnalyzePage('http://www.alpacine.com/buscar/?tipo=1&buscar=' + UrlEncode(MovieName)); 
end.

focuskan · Post by **focuskan** » 2007-04-12 19:09:46

Wenas,

Pues ya he probado el script y tengo q decir q funciona la mar de bien, excepto en las búsquedas.
He probado los siguientes casos:

- Buscando "Cazador de recompensas" (titulo completo de una película) aparece la ventana de resultados con muchas películas con la palabra "cazador" (toda la ventana) pero no aparece la que busco.
Lo mismo sucede buscando "Bodas reales", aparecen varias "Bodas", pero esta en concreto no.

- Buscando por la palabra "parchis" o "Parchis" o "Parchís", encuentra solamente la pelicula "Parchís entra en acción". Sin embargo, tambien deberia encontrar otra película, "Las locuras de Parchís".

Por lo demás, todo funciona perfectamente. Legrad, si pudieras echarle un vistazo te lo agradecería y espero no haber echo nada mal...

Salu2!

legrad · Post by **legrad** » 2007-04-12 19:23:25

busca la cadena en el apartado **procedure AnalyzePage(Address: string);**

Code: Select all

BeginPos := Pos('<a href="http://www.alpacine.com/pelicula/', strPage);

por esta otra

Code: Select all


BeginPos := Pos('<a href="http://www.alpacine.com/buscar/buscopelicula/', strPage);

perdona el lapsus[/code]

Post by **antp** » 2007-04-12 19:40:51

What script shall I include on my server? This one or the other one? (on the other topic)

legrad · Post by **legrad** » 2007-04-12 19:45:28

Pardon by me English . this is the final one, excuse me

Code: Select all

(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=Legrad
Title=Alpacine
Description=
Site=www.alpacine.com
Language=ES
Version=1.0
Requires=3.5.0
Comments=
License=
GetInfo=1

[Options]

***************************************************)

 

 program Alpacine;




var 
  MovieName: string; 
  MovieURL: string; 
//------------------------------------------------------------------------------------ 
function BorraComillas(var S: string): string; 
var 
   n,len, tag: Integer; 
   c: char; 
   t: String; 
begin 
   tag := 0; 
   t := ''; 
   len := length(s); 
   for n :=1 to len do 
   begin 
     c := Copy(s,n,1); 
     if c = '''' then 
        c := ' '; 
        t := t + c; 
   end 
   s := t; 
   result := t; 
end; 

//------------------------------------------------------------------ 
                              function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer; 
var 
  i: Integer; 
begin 
  Result := -1; 
  if StartAt < 0 then 
    StartAt := 0; 
  for i := StartAt to List.Count-1 do 
    if Pos(Pattern, List.GetString(i)) <> 0 then 
    begin 
      Result := i; 
      Break; 
    end; 
end; 
//------------------------------------------------------------------------------------ 
                      function TextBetween(var S: string; StartTag: string; EndTag: string): string; 
var 
  InitialPos: Integer; 
begin 
  InitialPos := Pos(StartTag, S); 
  if InitialPos = 0 then 
    result := '' 
  else 
  begin 
    Delete(S, 1, InitialPos + Length(StartTag) - 1); 
    InitialPos := Pos(EndTag, S); 
    if InitialPos = 0 then 
      result := S 
    else 
    begin 
      result := copy(S, 1, InitialPos - 1); 
      Delete(S, 1, InitialPos + 1); 
    end; 
  end; 
end; 

//------------------------------------------------------------------------------------ 
                               function DeleteTags(var S: string): string; 
var 
   n,len, tag: Integer; 
   c: char; 
   t: String; 
begin 

   tag := 0; 
   t := ''; 
   len := length(s); 

   for n :=1 to len do 
   begin 
      c := Copy(s,n,1); 


      if c = #9 then 
         c := ' '; 

      if(tag=1) then 
      begin 
         if(c='>') then tag := 0; 
         continue; 
      end 
      else 
      begin 
         if(c='<') then 
         begin 
            tag := 1; 
            continue; 
         end; 
         t := t + c; 
      end; 
   end 
   s := t; 
   result := t; 
end; 


//------------------------------------------------------------------------------------ 
procedure AnalyzePage(Address: string); 
var 
  strPage, MovieAddr, MovieTitle, MovieDate, MovieID, Movie: string; 
  BeginPos, EndPos: Integer; 
  BeginPoss, EndPoss: Integer; 
begin 
  strPage := GetPage(Address); 
  BeginPos := Pos('<a href="http://www.alpacine.com/buscar/buscopelicula/', strPage);
  if(BeginPos > -1)then 
    begin 
      PickTreeClear; 
      Delete(strPage, 1, BeginPos); 
      BeginPos := Pos('<a href="http://www.alpacine.com/pelicula/', strPage); 
      EndPos := 1; 
      while ((BeginPos > 0) and (EndPos > 0)) do 

        begin 
          Delete(strPage, 1, BeginPos); 
          EndPos := Pos('">', strPage); 
          MovieId := Copy(strPage,+42, EndPos-42); 
          MovieAddr := 'http://www.alpacine.com/pelicula/' + MovieId; 
          BeginPoss := Pos('/">',strPage); 
          EndPoss := Pos(' </li>', strPage); 
          MovieTitle := Copy(strPage,BeginPoss, EndPoss); 
          MovieTitle  := StringReplace(MovieTitle , '/">', ''); 
          MovieTitle  := AnsiUpFirstLetter(MovieTitle); 
          DeleteTags(MovieTitle); 
          MovieTitle := StringReplace( MovieTitle , #13#10, ''); 
          PickTreeAdd(MovieTitle, MovieAddr); 
          BeginPos := Pos('<a href="http://www.alpacine.com/pelicula/', strPage); 
          if(Pos('</body>', strPage) < BeginPos) then 
           BeginPos := -1; 
        end; 

    end; 
    PickTreeExec(Address) 
    AnalyzeMoviePage(Address); 
end; 
//------------------------------------------------------------------------------------ 
procedure AnalyzeMoviePage(Address: string); 
var 
  Page: TStringList; 
  LineNr: Integer; 
  Line: string; 
  Item: string; 
  Comments: string; 
  Actors: string; 
  Directors: string; 
  Description: string;
  Busca: integer;


begin 
  Description := ''; 

  // URL 
  SetField(fieldURL, Address); 

  Page := TStringList.Create; 
  Page.Text := GetPage(Address); 

  // Titulo traducido 
  LineNr := FindLine('<meta name="description"', Page, 0); 
  Line := Page.GetString(LineNr); 
  Item := TextBetween (Line, 'content="', '-'); 
  Item  := AnsiLowerCase(Item); 
  Item  := AnsiUpFirstLetter(Item ); 
  HTMLDecode(Item); 
  SetField(fieldTranslatedTitle, Trim (Item)); 

  // Titulo Original 
  LineNr := FindLine('<b>Título original:', Page, 0); 
  if LineNr <> -1 then 
  begin 
    Line := Page.GetString(LineNr); 
    Item := TextBetween (Line, '</b>', '</div>'); 
    DeleteTags (Item); 
    Item  := AnsiUpFirstLetter(Item ); 
    HTMLDecode(Item); 
    SetField(fieldOriginalTitle, Trim (Item)); 
  end; 
  // año 
  LineNr := FindLine('<title>', Page, 0); 
  if LineNr <> -1 then 
  begin 
    Line := Page.GetString(LineNr); 
    Item := TextBetween (Line, '(', ')'); 
    DeleteTags (Item); 
    Item  := AnsiUpFirstLetter(Item ); 
    HTMLDecode(Item); 
    SetField(fieldYear, Trim (Item)); 
  end; 
  // Categoria 
  LineNr := FindLine('<b>Género:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Género:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldCategory, Trim (Item)); 
  end; 
   // pais 
  LineNr := FindLine('<b>País:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>País:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldCountry, Trim (Item)); 
  end; 
   // director 
  LineNr := FindLine('<b>Dirección:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Dirección:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldDirector, Trim (Item)); 
  end; 


  // Duracion 
  LineNr := FindLine('<b>Duración:', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Duración:',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '</b>', 'minutos'); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldLength, Trim (Item)); 
  end; 

  
  // Reparto 
  LineNr := FindLine('<b>Interpretación:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Interpretación:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '">', '</div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '  ', ''); 
    Item  := StringReplace(Item , '<br />',#13#10); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldActors, Trim (Item)); 
  end; 

  
  // sinopsis 
 LineNr := FindLine('<b>Sinopsis:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Sinopsis:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '<br />', ' </div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldDescription, Trim (Item)); 
  end; 
  // comentarios 
 LineNr := FindLine('<b>Premios:</b>', Page, 0); 
  if LineNr > 0 then 
  begin 
    Item := copy(Page.Text, pos('<b>Premios:</b>',Page.Text), length(Page.Text)); 
    Item := TextBetween (Item, '<br />', ' </div>'); 
    Item := StringReplace(Item , #13#10, ''); 
    Item  := StringReplace(Item , '   ', ''); 
    Item  := StringReplace(Item , 'Más', ''); 
    DeleteTags (Item); 
    Item   := AnsiUpFirstLetter(Item ); 
    Item  := Trim(Item ); 
    HTMLDecode(Item); 
    SetField(fieldComments, Trim (Item)); 
  end;
  // Caratula
  LineNr := FindLine('src="http://www.alpacine.com/images/peliculas/', Page, 0);
  if LineNr <> -1 then
     begin
       Line := Page.GetString(LineNr);
       Busca := FindLine('>Ampliar</a>', Page, 0);
       if Busca <> -1 then
          begin
            Item := TextBetween (Line, 'src="', '.jpg');
            GetPicture (Item+'_cartel.jpg');
          end
       else
          begin
            Item := TextBetween (Line, 'src="', '" alt');
            GetPicture (Item);
          end
     end;
end;
 //-------------------------------------------------------------------------
begin 
       if (CheckVersion(3,5,0)=FALSe) then 
   begin 
      ShowMessage('Se requiere Ant Movie Catalog versión 3.5 o superior'); 
      exit; 
   end; 

   MovieName := GetField(fieldTranslatedTitle); 
   if MovieName = '' then 
            MovieName := GetField(fieldOriginalTitle); 
Input('Alpacine', 'Buscar:', MovieName); 

     if(GetOption('Sin resultado') = 0) then  Input('Alpacine', 'Buscar:', MovieName); 

   AnalyzePage('http://www.alpacine.com/buscar/?tipo=1&buscar=' + UrlEncode(MovieName)); 
end.

Post by **antp** » 2007-04-12 21:50:35

No problem, thanks for your work

If the other one is not useful anymore, it is maybe better to delete that other topic, to not confuse users? viewtopic.php?t=3561

legrad · Post by **legrad** » 2007-04-12 21:55:29

YES you can delete the older post.

thanks

focuskan · Post by **focuskan** » 2007-04-13 08:41:26

Wenas!

Creo q con la ultima modificacion ya va perfecto

Muchísimas gracias Legrad, menuda efectividad

antp, thanks too. Can you add this script on the distributable Ant Movie ? Thank's.

Salu2!

focuskan · Post by **focuskan** » 2007-04-17 14:48:38

Wenas!

Lo siento, el nuevo script de Alpacine ha durado poco.

Este fin de semana pasado tocaba cambiar la web por una mejor y se ha remodelado toda, incluidas las fichas de las películas, con lo cual el script ha dejado de funcionar bien. Pensaba que no habia problema, pero esta visto que si...

Legrad, siento abusar mas de ti.. Si pudieras echarle un ojo al script y retocarlo un poco para que vuelva a funcionar... Mil gracias !!!

Salu2!

antp.be forum

Solucionado deficiencia de caratula en Alpacine(ES)

Solucionado deficiencia de caratula en Alpacine(ES)

parche

good