%%# @(#)[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%%