Différences entre les versions de « Module:Présentation »

De Wiki Seb35
Aller à la navigation Aller à la recherche
(vérification supplémentaire)
(valeurs de retour par défaut)
Ligne 17 : Ligne 17 :
         end
         end
     end
     end
    return 0
end
end


Ligne 26 : Ligne 27 :
         end
         end
     end
     end
    return ''
end
end


Ligne 35 : Ligne 37 :
         end
         end
     end
     end
    return ''
end
end



Version du 10 avril 2015 à 19:02

--[[

]]

local presentation = {}

function presentation.total( frame )

   local sequence = presentation._expandSequence( mw.title.getCurrentTitle() )
   return table.getn( sequence )

end

function presentation.current( frame )

   local sequence = presentation._expandSequence( mw.title.getCurrentTitle() )
   for i,v in pairs( sequence ) do
       if v == mw.title.getCurrentTitle().fullText then
           return i
       end
   end
   return 0

end

function presentation.next( frame )

   local sequence = presentation._expandSequence( mw.title.getCurrentTitle() )
   for i,v in pairs( sequence ) do
       if v == mw.title.getCurrentTitle().fullText then
           return sequence[i+1]
       end
   end
   return 

end

function presentation.previous( frame )

   local sequence = presentation._expandSequence( mw.title.getCurrentTitle() )
   for i,v in pairs( sequence ) do
       if v == mw.title.getCurrentTitle().fullText then
           return sequence[i-1]
       end
   end
   return 

end

function presentation._expandSequence( title )

   local list = {};
   title = title.rootPageTitle;
   while true do
       if title:subPageTitle( '0' ).exists then
           title = title:subPageTitle( '0' )
           list[table.getn(list)+1] = title.fullText
       elseif title:subPageTitle( '1' ).exists then
           title = title:subPageTitle( '1' )
           list[table.getn(list)+1] = title.fullText
       elseif tonumber(title.subpageText) ~= nil and title.basePageTitle:subPageTitle( tostring(tonumber(title.subpageText)+1) ).exists then
           title = title.basePageTitle:subPageTitle( tostring(tonumber(title.subpageText)+1) )
           list[table.getn(list)+1] = title.fullText
       elseif title.baseText ~= title.rootText then
           title = title.basePageTitle
       else
           break
       end
   end
   return list

end

return presentation