tonyalepski

Thank you Jacques, Another one : for ($counter = 1; $counter <= $lastpage; $counter++); what will be equivalent for it in perl as I am getting errors on it Many thanks !!

Hi, I am trying to convert a php function into perl and need to understand the following line in red : function pagination($query, $per_page = 10,$page = 1, $url = '?'){ $query = "SELECT COUNT(*) as `num` FROM {$query}"; $row = mysql_fetch_array(mysql_query($query)); $total = $row['num']; $adjacents = "2"; $page = ($page == 0 ? 1 : $page); $start = ($page - 1) * $per_page; $prev = $page - 1; $next = $page + 1; $lastpage = ceil($total/$per_page); $lpm1 = $lastpage - 1; $pagination = ""; if($lastpage > 1) { ......................................... What will be the output of this line above in red. Thank you very much. Regards. Tonya