{"id":244,"date":"2018-09-18T10:56:08","date_gmt":"2018-09-18T08:56:08","guid":{"rendered":"http:\/\/websrv.saske.sk\/uef\/en\/?page_id=244"},"modified":"2019-02-11T07:51:12","modified_gmt":"2019-02-11T06:51:12","slug":"publications","status":"publish","type":"page","link":"https:\/\/websrv.saske.sk\/uef\/en\/employees\/publications\/","title":{"rendered":"Publications"},"content":{"rendered":"

$value) {
\n if (strstr($value, ““)) $record++;
\n foreach ($items_array as $i => $value_items) {
\n $start = “<\".$value_items.\">“;
\n $end = “<\/\".$value_items.\">“;
\n $value_items_tmp = $value_items.”_”.$record;
\n if (strstr($value, $start)) $$value_items_tmp = substr($value, strpos($value, $start)+strlen($start), strpos($value, $end)-(strpos($value, $start)+strlen($start)));
\n }
\n}
\n foreach ($items_array as $i => $value_items) {
\n $tmp = $value_items.”_1″;
\n $$value_items = $tmp;
\n }<\/p>\n

echo “<\/p>\n

“.$$name_last.”, “.$$name_first.”<\/h2>\n

“;
\n$name = $$name_last.” “.$$name_first;
\n}
\n\/\/****************************<\/p>\n

$publication_author_id = $_REQUEST[‘publication_author_id’];
\n$user_no = $_REQUEST[‘user_no’];<\/p>\n

$this_year = $_POST[‘this_year’];
\nif ($this_year!=”all”) settype($this_year, ‘integer’);
\nif (!$this_year)
\n\t$this_year = date(“Y”);<\/p>\n

\/\/ Roky pre vyber – year select box
\necho “<\/p>\n

\n
Select year reporting publications: <\/form>\n

“;<\/p>\n

\/\/title pre rok publikaci
\nif ($this_year==”all”) echo “<\/p>\n

All publications<\/div>\n

“;
\nelse echo “<\/p>\n

Publications in “.$this_year.”<\/span>:<\/div>\n

“;<\/p>\n

\/\/ odoslanie requestu na server
\n function SendReq($psReqUrl)
\n {
\n unset($next);
\n $max_repeat = 1;<\/p>\n

\/\/******************
\n FOR ($repeat=1;$repeat<=$max_repeat;$repeat++) {\n unset($start);\n $from = 1+$next;\n $to = 501+$next;\n $next=$next+501;\n\n $psReqUrl2 = $psReqUrl.\"&from=\".urlencode($from).\"&to=\".urlencode($to);\n\n $ch = curl_init($psReqUrl2);\n curl_setopt($ch, CURLOPT_TIMEOUT, 15); \n curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);\n $out = curl_exec($ch);\n if($out === false)\n {\n echo \"\n\n

Publications – error: (“.curl_error($ch).”)<\/div>\n

“;
\n }
\n curl_close($ch);
\n $ans = explode(“\\n”,$out);
\n $max_line = count($ans)-1;<\/p>\n

foreach ($ans as $line_num => $line) {<\/p>\n

\/\/z riadku 3 dostaneme pocet zaznamov celkom, vydelime a zaokruhlime aby sme mohli prechadzat dalsie zaznamy nad 501
\n if ($line_num==3) $max_repeat = ceil(trim($line)\/501);
\n \/\/ak nacita 0 ako pocet zaznamov alebo nacita text namiesto cisla osetrime max_repeat
\n if (!$max_repeat OR $max_repeat==0 OR !is_numeric($max_repeat)) $max_repeat = 1;<\/p>\n

\/\/ak nahodou nacita zly max_repeat, nastavime pri hodnote nad 4 (2000zaznamov) na 1
\n if ($max_repeat>4) $max_repeat = 1;
\n if (strstr($line,”###”)) { $start=true; if (!$prvykrat) { $li=”<\/p>\n

  • “; $prvykrat=1; } else $li=”<\/li>\n

    \\n<\/p>\n

  • “; }
    \n if (strstr($line,”Typ:”)) $type = str_replace(“Typ:”,” Typ: “,$line).”<\/b>“;
    \n if (strstr($line,”Typ: “)) unset($type);<\/p>\n

    if ($start AND !strstr($line,”Ohlasy:”) AND !strstr($line,”###”) AND ($line OR $line_num==$max_line) AND !strstr($line,”Typ:”))
    \n {
    \n if ($line_num==$max_line) { unset($li);unset($type); }
    \n $line = htmlspecialchars($line);
    \n $line = str_replace(“&#”,”&#”,$line);
    \n $line = str_replace(“<u>”,”“,$line);
    \n $line = str_replace(“<\/u>”,”<\/u>“,$line);
    \n $vzor = $li.$line.$type; <\/p>\n

    if ($start_cit)
    \n {
    \n $aaa++;
    \n $vys[$aaa] = str_replace(“[10]”,”[999]”,$vzor);
    \n $vys[$aaa] = str_replace(“[1]”,”[1.0]”,$vys[$aaa]);
    \n $vys[$aaa] = str_replace(“[2]”,”[2.0]”,$vys[$aaa]);
    \n }
    \n else
    \n {
    \n if ($vys[1])
    \n {
    \n asort($vys); $first_time=0;
    \n foreach ($vys as $key => $val)
    \n {
    \n $val = str_replace(“[999]”,”[10]”,$val);
    \n $val = str_replace(“[1.0]”,”[1]”,$val);
    \n $val = str_replace(“[2.0]”,”[2]”,$val);
    \n if ($first_time==”0″) $ohlasy_title=”Citations:<\/b>
    “;
    \n else unset($ohlasy_title);
    \n $first_time++;
    \n $vysledok .= “<\/p>\n

    “.$ohlasy_title.$val.”<\/p>\n

    “;
    \n }
    \n $vysledok .= $vzor; unset($key); unset($aaa); $vys = array();
    \n }
    \n else $vysledok .= $vzor;
    \n } <\/p>\n

    } <\/p>\n

    if (strstr($line,”Ohlasy:”))
    \n {
    \n $start_cit=true;
    \n unset($type);
    \n unset($li);
    \n }
    \n if (strstr($line,”###”)) unset($start_cit);
    \n }
    \n } \/\/FOR end<\/p>\n

    return $vysledok;
    \n }
    \n\/\/ end funkcie<\/p>\n

    \/\/sortovanie, ak sa vypisuju vsetky roky sortuje podla roku, prveho mena 2466c (povodne podla 2001c) a typu, inak podla mena a typu 2461c
    \n if ($this_year != “all”) {$year_line = “@and @attr 1=2456 ‘”.$this_year.”‘”; $sort = “2466c i< 1=2461c i<\";} else $sort = \"2456c i< 1=2466c i< 1=2461c i<\";\n \n \/\/ak ma user publication_author_id vyhladava podla neho inak podla mena\n if ($publication_author_id and $publication_author_id != \"0000000\") \n {\n $name_line = \"@attr 1=1013 'sav_un_auth*\".$publication_author_id.\"'\";\n } else { \n if (strstr($epca_code,\"SAV\")) $name_line = \"@and @attr 4=1 @attr 1=2001 @or '\".$name.\" \".$epca_code.\"' '\".$name.\" \".$epca_code2.\"' @attr 1=2462 @or '\".$epca_code.\"' '\".$epca_code2.\"'\";\n else $name_line = \"@and @attr 4=1 @attr 1=2001 '\".$name.\" \".$epca_code2.\"' @attr 1=2462 '\".$epca_code2.\"'\";\n }\n\n \/\/hlavna query\n $query=\"@attr 98=2 $type_line $year_line $name_line\";\n $WSURL = \"http:\/\/library.sk:8080\/i2\/i2.ws.cls\";\n $dbepca = \"SavUnEpca\";\n $charset = \"utf-8\";\n $fmt = \"TEXT_EPCA_ISO_SAV_OH_WS\";\n $query = str_replace(\"\\'\",\"'\",$query);\n $requrl=$WSURL.\"?\".\n \"method=search&\".\n \"db=\".urlencode($dbepca).\"&\". \/\/databaza v ktorej sa ma vyhladavat\n \"query=\".urlencode($query).\"&\". \/\/otazka vo formate PQF\n \"sort=1=\".urlencode($sort).\"&\". \/\/sort\n \"charset=\".urlencode($charset).\"&\". \/\/znakova sada\n \"fmt=\".urlencode($fmt); \/\/format vysledku\n if ($this_year) $publications = SendReq($requrl);\n \n if (!$publications) echo \"\n\n

    No publications do not comply with this criterion.<\/div>\n

    “;
    \n else echo “<\/p>\n

      \\n”.$publications.”<\/li>\n

      \\n<\/ul>\n

      \\n”;
      \n?><\/p>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"parent":238,"menu_order":20,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-244","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/pages\/244","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/comments?post=244"}],"version-history":[{"count":2,"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/pages\/244\/revisions"}],"predecessor-version":[{"id":937,"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/pages\/244\/revisions\/937"}],"up":[{"embeddable":true,"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/pages\/238"}],"wp:attachment":[{"href":"https:\/\/websrv.saske.sk\/uef\/en\/wp-json\/wp\/v2\/media?parent=244"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}