Skip to content

I
intranet-riskmanagement
Commit bb71fc92 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Removed test files

parent bb299de1
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 65 deletions
www/test.tcl deleted 100755 → 0
View file @ bb299de1
# /packages/intranet-core/www/intranet/companies/new.tcl
#
# Copyright (C) 2004 various parties
# The code is based on ArsDigita ACS 3.4
#
# This program is free software. You can redistribute it
# and/or modify it under the terms of the GNU General
# Public License as published by the Free Software Foundation;
# either version 2 of the License, or (at your option)
# any later version. This program is distributed in the
# hope that it will be useful, but WITHOUT ANY WARRANTY;
# without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU General Public License for more details.
ad_page_contract {
Displays the editor for one absence.
@param absence_id which component should be modified
@param return_url the url to be send back after the saving
@author mai-bee@gmx.net
} {
{absence_id:integer 0}
}
set user_id [auth::require_login]
set x_axis [list 0 1000 100 "kg"]
set y_axis [list 0 10000 1000 "Euro"]
set data [list [list 400 6000 30 "Test" "http://www.news.ch"]]
set settings [list 0 30 800 400 "t"]
set page_body [im_get_chart $x_axis $y_axis $data $settings]
doc_return 200 text/html [im_return_template]
www/test2.tcl deleted 100755 → 0
View file @ bb299de1
# /packages/intranet-core/www/intranet/companies/new.tcl
# # Copyright (C) 2004 various parties
# The code is based on ArsDigita ACS 3.4
#
# This program is free software. You can redistribute it
# and/or modify it under the terms of the GNU General
# Public License as published by the Free Software Foundation;
# either version 2 of the License, or (at your option)
# any later version. This program is distributed in the
# hope that it will be useful, but WITHOUT ANY WARRANTY;
# without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU General Public License for more details.
ad_page_contract {
Displays the editor for one absence.
@param absence_id which component should be modified
@param return_url the url to be send back after the saving
@author mai-bee@gmx.net
} {
{absence_id:integer 0}
}
set user_id [auth::require_login]
set page_body [im_risk_project_component $user_id 3088]
doc_return 200 text/html [im_return_template]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment