%%# @(#)[HyperWave] [WWW-G] namesuggest.html 2.58 [attributes template file] [Martin Polz 190897] %% %%# --------------------------------------------------%% %%# NAME SUGGEST %% %%# --------------------------------------------------%% %%macro last_editable_collection%% var hwcurst=curstatObj(); var dispo=null; if (!(hwcurst.isColl && curstatObj.isEditable)) { // object is not a collection or is not writeable if (place("lastcoll.is_editable")) { // use last collection as start var objout=server.object({objectidentifier:place("lastcoll.get_attrib","Name")}); if (!objout.error.error()) dispo=objout.object; } else { // try home collection var homeid=place("session.user.get_attrib","Home"); if (homeid) { var objout=server.object({objectidentifier:homeid}); if (!objout.error.error() && objout.object.DocumentType=="collection") { dispo=objout.object; } } } } else { dispo=request.object; } if (!dispo) { // no writeable collection found, use lastcoll as start collection write(place("lastcoll.get_attrib","Name")) } else { // a writeable collection found if (dispo.Name && !dispo.Serv) { write(dispo.Name); } else { write(dispo.getGOid()); } } %%endmacro%% %%macro suggest_name_pref%% var ret; var ro=request.object; if (ro.DocumentType == "collection") if (place("object.is_editable")) if (ro.Name != "") ret=ro.Name; else ret="GOID"+ro.GOid; else ret=place("session.user.get_attrib","Home"); else if (place("lastcoll.is_editable")) ret=place("lastcoll.get_attrib","Name"); else ret=place("session.user.get_attrib","Home"); if (ret!="rootcollection") write(ret); %%endmacro%% %%macro last_editable_collection_title%% %%if object.get_attrib(DocumentType) == "collection"%%%%if object.is_editable%%%%object.title%%%%else%%%%session.user.get_attrib(Home)%%%%endif%%%%else%%%%if lastcoll.is_editable%%%%lastcoll.title%%%%else%%%%session.user.get_attrib(Home)%%%%endif%%%%endif%% %%endmacro%% %%macro findobjectwithname_script%% function findObjectwithName(theForm,nol) { retidx=-1; for (var idx=0;idx %%endmacro%%