producer field doesn't work

[palantir]

Hi

This is just the program i was looking for: simple, fast, stable and very useful.

i just noticed what i think is a bug (or maybe you just forgot): the Producer field is never filled, at least when using the IMDB small pic script. i just took a look around and it seems that no code is written to do that.

Thanks and keep up the good work

[antp]

Yes, it is never filled, but it is not a bug.
It is because it requires that an additional page is downloaded (producer is not available from main movie info page, it is on the "credits" page if I remember well).
It is possible to add it, maybe that I should add that as an option...

[palantir]

maybe you could try to fill it with the writing credits (sorry if i'm being too persistent on this one;)) wich information is in the same page.

i tried to do that but i was not successful... guees i really don't know anything abou html...

[antp]

I'll try to not forget to add that next time I update the program...

[Curna]

Hi Palantir.

maybe you could try to fill it with the writing credits (sorry if i'm being too persistent on this one;)) wich information is in the same page.

I've changed it. Just edit your IMDB script and add this code:

Code: Select all

 //Writing Credits 
    LineNr := FindLine('Writing credits', Page, 0); 
    if LineNr > -1 then 
    begin 
      FullValue := ''; 
      LineNr:=LineNr+1; 
      Line := Page.GetString(LineNr); 
      Repeat 
        LineNr := LineNr + 1; 
        Line := Page.GetString(LineNr); 
      Until (Pos('Name', Line)<>0); 
      repeat 
        BeginPos := pos('">', Line) + 2; 
        EndPos := pos('<br>', Line); 
        Value := copy(Line, BeginPos, EndPos - BeginPos); 
        HTMLDecode(Value); 
        HTMLRemoveTags(Value); 
        if (Value <> '(more)') and (Value <> '') then 
        begin 
          if FullValue <> '' then 
            FullValue := FullValue + ' '; 
          FullValue := FullValue + Value; 
        end; 
        Delete(Line, 1, EndPos); 
      until (Pos('">', Line) = 0); 
      SetField(fieldProducer, FullValue); 
  end; 

Then, jurst go to edit the "English.lng" file and change the FieldProducer to display "Writing credits" and not "Producer". Just load the "English.lng" language and that's all.

Hope it helps.

[jwm]

Hi,

look in the thread 'Another improvement to...'. There you can find the code I adjusted to, amongst others, include the producer. Look for my post on february 24 or go directly there with this link:


viewtopic.php?t=401&postdays=0&postorder=asc&start=26

Enjoy !

[palantir]

Thank you everyone for your help.

I tried some of the suggestions and they worked very well

[Lavie]

I've changed it. Just edit your IMDB script and add this code:

Thank's.