DBIx-Web
view release on metacpan or search on metacpan
#c htmlMenu !$c->{-frame} || ($c->{-frame} =~/^(?:top|bottom)$/i) ? '-frame=set'
#i urlOptl (& urlOpt) # may be excluded
#c htmlML js match (TOP|BOTTOM): ($_[0]->{-pcmd}->{-frame} && ($_[0]->{-pcmd}->{-cmd} eq 'recList')
# js match (TOP|BOTTOM): ($_[0]->{-pcmd}->{-frame} && ($_[0]->{-pcmd}->{-cmd} eq 'recList')
#c htmlMQH $s->{-pcmd}->{-frame} ? (-frame=>$s->{-pcmd}->{-frame})
#??? tvdIndex list: self | TOP
# new: self | new
# chg htmlEnd
#k htmlEnd e[0].target=(self.name=='BOTTOM' ?
# 2007-02-06 fixed -cgibus calculation: new cgibus() changed init(), set(), cgiRun()
# 2007-02-05 fixing -cgibus condition sub{} for key:// and wikn:// hyperlinks
# $RISM2 ok changed in set()
# -rfdName ok default encoded in rfdName(); changed in set()
# -recInsID chg remove set(){ if !$s->{-recInsID}
# -url ? set by -cgibus(){}
# -urf ? set by -cgibus(){}
# total:
# init defined: $RISM2
# init undef: -urf, -rfdName
# init if!: -url, -recInsID
# set -cgibus: -rfdName, $RISM2
# set cnd: -urf
# set app: -urf = -path / sub{} ; -url = '/cgi-bus' (webus)
# init():
# $opt{-cgibus} =&{$opt{-cgibus}}($s) if ref($opt{-cgibus});
# $opt{-url} =$opt{-cgibus} ? '/cgi-bus' : '/dbix-web' if !$opt{-url};
# $s->set(%opt);
# set():
# if ($opt{-cgibus}) {
# $s->{-recInsID} =sub{ ... if !$s->{-recInsID};
# $s->{-rfdName} =sub{ ...;
# $RISM2 = '$';
# }
# $s->{-urf} = ... $opt{-urf} ne '-path' ? ... : $s->{-cgibus} ? ...
# init():
# $s->set(-recInsID=>sub{ ... if !$s->{-recInsID}
# rfdPath():
# -url, -urf, -rfdName
# use -cgibus:
# pthForm(), rfdName(), rfdPath(), trURLtxt(), trURLhtm()
# 2007-02-02 changed current table row indication using 'tr.onclick'
# 2007-02-02 html restyling for scaling
# 2007-02-02 new 'Body' and 'Input' HTML classes for scaling, class defs changed
# 2007-02-01 key:// hyperlink fixed in cmdb-cgibus.cgi condition:
# 2007-01-18 new target=new from some frameset actions # target=NEW
# 2007-01-18 new target=TOP1 from BOTTOM frame
# 2007-01-18 changed tfvVersions() using shiftkeys()
# 2007-01-18 changed tfvReferences() using shiftkeys()
# 2007-01-18 new splicekeys(), shiftkeys()
# 2007-01-18 new htmlFVUT(), htmlFVUH()
# 2007-01-17 cgiQuery()/cgiLst() changed - '-qdatainc'/'-datainc' added
# ... see 'history' file
# 2003-09-16 started
# 2007-01-08 trURLtxt(): new BracketName [[url]] and [[url|label]] notations
# 2007-01-08 trURLtxt(), trURLhtm(): new 'key://' special URL protocol
# 2007-01-08 recHist() file attachments arrangement corrected using mtime
# 2007-01-07 tfdRFD() corr: rfdPath(-xxx=>$s->{-pout}->{-file}) # rfdPath(-xxx=>$s->{-pcmd}, $s->{-pout})
# 2007-01-07 htmlRFD() corr: rfdPath(-xxx=>$c, $d) -> rfdPath(-xxx=>$d->{-file})
# 2007-01-07 recIns(), recUpd(): rfdStamp() applies utime(last editable) to directory
# 2007-01-07 osCmd() corrested: 'problematic programs' for perlis.dll only
# 2007-01-07 recUpd() corrected: rfdStamp('+') added for prev ver backup
# 2006-12-27 changed xmlTagEscape() - '&' escaped
# 2006-12-22 new htmlRFDimg() - to display icons for file attachments
# 2006-12-22 changed htmlRFD() - sorted files list
# 2006-12-22 new pthGlobns()
# 2006-12-22 chaged cgi(): no warnings; $_[0]->{-cgi} =eval('CGI->new')
# # Use of uninitialized value in hash element at C:/B/Perl/lib/CGI.pm line 547.
# # # sub parse_params {
# # 547 # push (@{$self->{$param}}, $value);
# # # == $param undefined ==
# # # $SIG{__WARN__} =sub {print $_[0], ' ', join(' ',caller(0))};
# # # ------ sub new { ... sub init { ... $self->parse_params($query_string);
# 2006-12-21 pending -wikn: URL parsing
# 2006-12-21 removed urlCGBtr(), new trURLtxt(), trURLhtm(), trURLhref()
# 2006-12-19 pending -wikn: code experimenting
# 2006-12-19 addition cgiAction(): $oc->{-key} =$s->recKey($oc->{-table}, $s->{-pout}) if $oa =~/^rec(?:Read)/
# 2006-12-19 changed htmlRFD(): href file names not escaped
# 2006-12-19 <html xmlns="http://www.w3.org/1999/xhtml" lang="ru-RU">
# 2006-12-19 <html xmlns="http://www.w3.org/1999/xhtml" lang="lang()">
# 2006-12-19 new lang() based on application's language, instead of lng() on user's
# 2006-12-16 'local' not needed for '$a->{-cmd}...' within recNew, recForm, recIns, recUpd, recDel, recSel, recRead, recHist
# 2006-12-14 cgiForm/recQBF/URL: empty only one of qw(qkey qwhere qurole)
# 2006-12-14 cgiDDLB() patched to obtain field label from form/table current
# 2006-12-13 cgiForm/recQBF: added -frmLso, -frmLsc confitions
# 2006-12-12 -qkey visited empty alike -qwhere and -qurole, changed:
# cgiParse() # delete $c->{-qkey} if !%{$c->{-qkey}};
# htmlHid() # ($_ !~/^(?:qwhere|qurole)$/))
# htmlMenu() # $c->{-qkey} ||($om->{-query} && $om->{-query}->{-qkey})
# cgiQDflt() # unless ($c->{-qkey}; $c->{-qkey} ? $c->{-qkey}
# 2006-12-12 doc -print, -mail, -hist, -xml, -ui, -cmd, -cmg, -style, -frame, -login
# 2006-12-11 provided recQBF(-qdisplay) experimental
# 2006-12-09 htmlMenu() button urls expanded: frmCall, recXML
# 2006-12-09 htmlMenu() button urls changed: recPrint, recXML, recHist
# 2006-12-09 dbmSeek() corrected for array keys
# 2006-12-09 new -rvcVerWhen, conditionally for ttoRVC() compatibility
# 2006-12-05 ui: changes display implemented
# 2006-12-05 new recHist(), strHTML(), strDiff()
# 2006-12-03 started recHist(), strHTML(), strDiff()
# 2006-11-29 new dbiConnect() with local DBI::ProxyServer autostart
# 2006-11-28 collecting all "<script for=window event=onload>" with -jswload
# 2006-11-22 new -recChg0W, immediate before 'w'rite, after -recInsID, for smtpSend()
# 2006-11-21 targeting bottom -> top frame
# 2006-11-17 targeting header, form, menu, instead of individual hyperlinks
# 2006-11-17 listing current hyperlink mark
# 2006-11-03 rfdStamp() - TakeOwnership added
# 2006-10-31 ugf_w32() correction in domain controller case
# 2006-10-30 -usernt vals changed to undef, 0, 1, to translate '@' or '\\'
# 2006-10-24 ugf_w32ldap() local groups usage on non-DC
# 2006-10-18 corrected utf8enc(), utf8dec()
# 2006-10-17 changed 'ualist' - group members excluded, not needed
# 2006-10-17 new experimental -w32ldap
# 2006-10-16 new 'email' field in 'ualist', rebuild 'ualist' file!
# 2006-10-15 ugf_ldap() implementation, untested
# 2006-10-13 start of ugfile() fields restruct, uglist() need to continue
# 2006-10-12 new ugfile() architecture, w32agf() restructed to ugf_w32()
# 2006-10-11 created ldap methods, untested
# 2006-10-08 javascript for Mozilla: cgiDDLB(): 'ondblclick' - '.nextSibling.nextSibling' replaced with button name
# 2006-10-08 javascript for Mozilla: cgiDDLB(): 'onload' - 'return' removed
# 2006-10-07 javascript for Mozilla: getElementById('_FooterArea')
# 2006-10-07 javascript: window.document.DBIx_Web. -> window.document.forms[0].
# 2006-10-07 javascript for Mozilla: window.document.DBIx_Web.submit() -> submit()
( run in 1.503 second using v1.01-cache-2.11-cpan-5a3173703d6 )